You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
3457 lines
161 KiB
3457 lines
161 KiB
9 years ago
|
/******************************************************************************
|
||
|
|
* Copyright © 2014-2015 The SuperNET Developers. *
|
||
|
|
* *
|
||
|
|
* See the AUTHORS, DEVELOPER-AGREEMENT and LICENSE files at *
|
||
|
|
* the top-level directory of this distribution for the individual copyright *
|
||
|
|
* holder information and the developer policies on copyright and licensing. *
|
||
|
|
* *
|
||
|
|
* Unless otherwise agreed in a custom licensing agreement, no part of the *
|
||
|
|
* SuperNET software, including this file may be copied, modified, propagated *
|
||
|
|
* or distributed except according to the terms contained in the LICENSE file *
|
||
|
|
* *
|
||
|
|
* Removal or modification of this copyright notice is prohibited. *
|
||
|
|
* *
|
||
|
|
******************************************************************************/
|
||
|
|
|
||
|
|
|
||
|
|
#ifndef xcode_orderbooks_h
|
||
|
|
#define xcode_orderbooks_h
|
||
|
|
|
||
|
|
char *peggy_contracts[64] =
|
||
|
|
{
|
||
|
|
"BTCD", "USD", "EUR", "JPY", "GBP", "AUD", "CAD", "CHF", "NZD", // major currencies
|
||
|
|
"CNY", "RUB", "MXN", "BRL", "INR", "HKD", "TRY", "ZAR", "PLN", "NOK", "SEK", "DKK", "CZK", "HUF", "ILS", "KRW", "MYR", "PHP", "RON", "SGD", "THB", "BGN", "IDR", "HRK",
|
||
|
|
"BTCUSD", "NXTBTC", "SuperNET", "ETHBTC", "LTCBTC", "XMRBTC", "BTSBTC", "XCPBTC", // BTC priced
|
||
|
|
"XAUUSD", "XAGUSD", "XPTUSD", "XPDUSD", "Copper", "NGAS", "UKOil", "USOil", // USD priced
|
||
|
|
"Bund", "NAS100", "SPX500", "US30", "EUSTX50", "UK100", "JPN225", "GER30", "SUI30", "AUS200", "HKG33", "XAUUSD", "BTCRUB", "BTCCNY", "BTCUSD" // abstract
|
||
|
|
};
|
||
|
|
|
||
|
|
char *MGWassets[][3] =
|
||
|
|
{
|
||
|
|
{ "12659653638116877017", "BTC", "8" },
|
||
|
|
{ "17554243582654188572", "BTC", "8" }, // assetid, name, decimals
|
||
|
|
{ "4551058913252105307", "BTC", "8" },
|
||
|
|
{ "6918149200730574743", "BTCD", "4" },
|
||
|
|
{ "11060861818140490423", "BTCD", "4" },
|
||
|
|
{ "13120372057981370228", "BITS", "6" },
|
||
|
|
{ "16344939950195952527", "DOGE", "4" },
|
||
|
|
{ "2303962892272487643", "DOGE", "4" },
|
||
|
|
{ "6775076774325697454", "OPAL", "8" },
|
||
|
|
{ "7734432159113182240", "VPN", "4" },
|
||
|
|
{ "9037144112883608562", "VRC", "8" },
|
||
|
|
{ "1369181773544917037", "BBR", "8" },
|
||
|
|
{ "17353118525598940144", "DRK", "8" },
|
||
|
|
{ "2881764795164526882", "LTC", "4" },
|
||
|
|
{ "7117580438310874759", "BC", "4" },
|
||
|
|
{ "275548135983837356", "VIA", "4" },
|
||
|
|
{ "6220108297598959542", "CNMT", "0" },
|
||
|
|
{ "7474435909229872610", "CNMT", "0" },
|
||
|
|
};
|
||
|
|
|
||
|
|
char *Tradedassets[][4] =
|
||
|
|
{
|
||
|
|
{ "6220108297598959542", "CNMT", "0", "poloniex" },
|
||
|
|
{ "7474435909229872610", "CNMT", "0", "poloniex" },
|
||
|
|
{ "979292558519844732", "MMNXT", "0", "poloniex" },
|
||
|
|
{ "12982485703607823902", "XUSD", "0", "poloniex" },
|
||
|
|
{ "13634675574519917918", "INDEX", "0", "poloniex" },
|
||
|
|
{ "6932037131189568014", "JLH", "0", "poloniex" },
|
||
|
|
{ "14273984620270850703", "NXTI", "0", "poloniex" },
|
||
|
|
{ "12071612744977229797", "UNITY", "4", "poloniex" },
|
||
|
|
};
|
||
|
|
|
||
|
|
char *is_tradedasset(char *exchange,char *assetidstr)
|
||
|
|
{
|
||
|
|
int32_t i;
|
||
|
|
for (i=0; i<(int32_t)(sizeof(Tradedassets)/sizeof(*Tradedassets)); i++)
|
||
|
|
if ( strcmp(Tradedassets[i][0],assetidstr) == 0 )
|
||
|
|
{
|
||
|
|
strcpy(exchange,Tradedassets[i][3]);
|
||
|
|
return(Tradedassets[i][1]);
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
uint64_t is_MGWcoin(char *name)
|
||
|
|
{
|
||
|
|
int32_t i;
|
||
|
|
for (i=0; i<(int32_t)(sizeof(MGWassets)/sizeof(*MGWassets)); i++)
|
||
|
|
if ( strcmp(MGWassets[i][1],name) == 0 )
|
||
|
|
return(calc_nxt64bits(MGWassets[i][0]));
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
char *is_MGWasset(uint64_t assetid)
|
||
|
|
{
|
||
|
|
int32_t i; char assetidstr[64];
|
||
|
|
expand_nxt64bits(assetidstr,assetid);
|
||
|
|
for (i=0; i<(int32_t)(sizeof(MGWassets)/sizeof(*MGWassets)); i++)
|
||
|
|
if ( strcmp(MGWassets[i][0],assetidstr) == 0 )
|
||
|
|
return(MGWassets[i][1]);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
uint64_t prices777_equiv(uint64_t assetid)
|
||
|
|
{
|
||
|
|
char *str;
|
||
|
|
if ( (str= is_MGWasset(assetid)) != 0 )
|
||
|
|
return(stringbits(str));
|
||
|
|
return(assetid);
|
||
|
|
}
|
||
|
|
|
||
|
|
struct prices777 *prices777_find(int32_t *invertedp,uint64_t baseid,uint64_t relid,char *exchange)
|
||
|
|
{
|
||
|
|
int32_t i; struct prices777 *prices;
|
||
|
|
*invertedp = 0;
|
||
|
|
for (i=0; i<BUNDLE.num; i++)
|
||
|
|
{
|
||
|
|
if ( (prices= BUNDLE.ptrs[i]) != 0 && strcmp(prices->exchange,exchange) == 0 )
|
||
|
|
{
|
||
|
|
//printf("FOUND.(%s)\n",exchange);
|
||
|
|
if ( prices777_equiv(prices->baseid) == prices777_equiv(baseid) && prices777_equiv(prices->relid) == prices777_equiv(relid) )
|
||
|
|
return(prices);
|
||
|
|
else if ( prices777_equiv(prices->relid) == prices777_equiv(baseid) && prices777_equiv(prices->baseid) == prices777_equiv(relid) )
|
||
|
|
{
|
||
|
|
*invertedp = 1;
|
||
|
|
return(prices);
|
||
|
|
}
|
||
|
|
//else printf("(%llu/%llu) != (%llu/%llu)\n",(long long)baseid,(long long)relid,(long long)prices->baseid,(long long)prices->relid);
|
||
|
|
} //else fprintf(stderr,"(%s).%d ",prices->exchange,i);
|
||
|
|
}
|
||
|
|
//printf("CANTFIND.(%s) %llu/%llu\n",exchange,(long long)baseid,(long long)relid);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
struct prices777 *prices777_createbasket(int32_t addbasket,char *name,char *base,char *rel,uint64_t baseid,uint64_t relid,struct prices777_basket *basket,int32_t n,char *typestr)
|
||
|
|
{
|
||
|
|
int32_t i,j,m,iter,max = 0; double firstwt,wtsum; struct prices777 *prices,*feature;
|
||
|
|
printf("createbasket.%s n.%d (%s/%s)\n",typestr,n,base,rel);
|
||
|
|
prices = prices777_initpair(1,typestr,base,rel,0.,name,baseid,relid,n);
|
||
|
|
for (iter=0; iter<2; iter++)
|
||
|
|
{
|
||
|
|
for (i=0; i<n; i++)
|
||
|
|
{
|
||
|
|
feature = basket[i].prices;
|
||
|
|
if ( addbasket*iter != 0 )
|
||
|
|
{
|
||
|
|
feature->dependents = realloc(feature->dependents,sizeof(*feature->dependents) * (feature->numdependents + 1));
|
||
|
|
feature->dependents[feature->numdependents++] = &prices->changed;
|
||
|
|
printf("%p i.%d/%d addlink.%s groupid.%d wt.%f (%s.%llu/%llu -> %s.%llu/%llu).%s\n",feature,i,n,feature->exchange,basket[i].groupid,basket[i].wt,feature->contract,(long long)feature->baseid,(long long)feature->relid,prices->contract,(long long)prices->baseid,(long long)prices->relid,prices->exchange);
|
||
|
|
}
|
||
|
|
if ( basket[i].groupid > max )
|
||
|
|
max = basket[i].groupid;
|
||
|
|
if ( fabs(basket[i].wt) < SMALLVAL )
|
||
|
|
{
|
||
|
|
printf("all basket features.%s i.%d must have nonzero wt\n",feature->contract,i);
|
||
|
|
free(prices);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
if ( strcmp(feature->base,feature->rel) == 0 || feature->baseid == feature->relid )
|
||
|
|
{
|
||
|
|
printf("base rel cant be the same (%s %s) %llu %llu\n",feature->base,feature->rel,(long long)feature->baseid,(long long)feature->relid);
|
||
|
|
free(prices);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( (max+1) > MAX_GROUPS )
|
||
|
|
{
|
||
|
|
printf("baskets limited to %d, %d is too many for %s.(%s/%s)\n",MAX_GROUPS,n,name,base,rel);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
prices->numgroups = (max + 1);
|
||
|
|
for (j=0; j<prices->numgroups; j++)
|
||
|
|
{
|
||
|
|
for (firstwt=i=m=0; i<n; i++)
|
||
|
|
{
|
||
|
|
//printf("i.%d groupid.%d wt %f m.%d\n",i,basket[i].groupid,basket[i].wt,m);
|
||
|
|
if ( basket[i].groupid == j )
|
||
|
|
{
|
||
|
|
if ( firstwt == 0. )
|
||
|
|
prices->groupwts[j] = firstwt = basket[i].wt;
|
||
|
|
else if ( basket[i].wt != firstwt )
|
||
|
|
{
|
||
|
|
printf("warning features of same group.%d different wt: %d %f != %f\n",j,i,firstwt,basket[i].wt);
|
||
|
|
// free(prices);
|
||
|
|
// return(0);
|
||
|
|
}
|
||
|
|
m++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
//printf("m.%d\n",m);
|
||
|
|
for (i=0; i<n; i++)
|
||
|
|
if ( basket[i].groupid == j )
|
||
|
|
basket[i].groupsize = m, printf("basketsize.%d n.%d j.%d groupsize[%d] <- m.%d\n",prices->basketsize,n,j,i,m);
|
||
|
|
}
|
||
|
|
for (j=0; j<prices->numgroups; j++)
|
||
|
|
for (i=0; i<n; i++)
|
||
|
|
if ( basket[i].groupid == j )
|
||
|
|
prices->basket[prices->basketsize++] = basket[i];
|
||
|
|
for (i=-1; i<=1; i+=2)
|
||
|
|
{
|
||
|
|
for (wtsum=j=m=0; j<prices->numgroups; j++)
|
||
|
|
{
|
||
|
|
if ( prices->groupwts[j]*i > 0 )
|
||
|
|
wtsum += prices->groupwts[j], m++;
|
||
|
|
}
|
||
|
|
if ( 0 && wtsum != 0. )
|
||
|
|
{
|
||
|
|
if ( wtsum < 0. )
|
||
|
|
wtsum = -wtsum;
|
||
|
|
for (j=0; j<prices->numgroups; j++)
|
||
|
|
prices->groupwts[j] /= wtsum;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( prices->numgroups == 1 )
|
||
|
|
prices->groupwts[0] = 1.;
|
||
|
|
for (j=0; j<prices->numgroups; j++)
|
||
|
|
printf("%9.6f ",prices->groupwts[j]);
|
||
|
|
printf("groupwts %s\n",typestr);
|
||
|
|
return(prices);
|
||
|
|
}
|
||
|
|
|
||
|
|
double prices777_price_volume(double *volumep,uint64_t baseamount,uint64_t relamount)
|
||
|
|
{
|
||
|
|
*volumep = (((double)baseamount + 0.000000009999999) / SATOSHIDEN);
|
||
|
|
if ( baseamount > 0. )
|
||
|
|
return((double)relamount / (double)baseamount);
|
||
|
|
else return(0.);
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_best_amounts(uint64_t *baseamountp,uint64_t *relamountp,double price,double volume)
|
||
|
|
{
|
||
|
|
double checkprice,checkvol,distA,distB,metric,bestmetric = (1. / SMALLVAL);
|
||
|
|
uint64_t baseamount,relamount,bestbaseamount = 0,bestrelamount = 0;
|
||
|
|
int32_t i,j;
|
||
|
|
baseamount = volume * SATOSHIDEN;
|
||
|
|
relamount = ((price * volume) * SATOSHIDEN);
|
||
|
|
//*baseamountp = baseamount, *relamountp = relamount;
|
||
|
|
//return;
|
||
|
|
for (i=-1; i<=1; i++)
|
||
|
|
for (j=-1; j<=1; j++)
|
||
|
|
{
|
||
|
|
checkprice = prices777_price_volume(&checkvol,baseamount+i,relamount+j);
|
||
|
|
distA = (checkprice - price);
|
||
|
|
distA *= distA;
|
||
|
|
distB = (checkvol - volume);
|
||
|
|
distB *= distB;
|
||
|
|
metric = sqrt(distA + distB);
|
||
|
|
if ( metric < bestmetric )
|
||
|
|
{
|
||
|
|
bestmetric = metric;
|
||
|
|
bestbaseamount = baseamount + i;
|
||
|
|
bestrelamount = relamount + j;
|
||
|
|
//printf("i.%d j.%d metric. %f\n",i,j,metric);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
*baseamountp = bestbaseamount;
|
||
|
|
*relamountp = bestrelamount;
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_additem(cJSON **highbidp,cJSON **lowaskp,cJSON *bids,cJSON *asks,int32_t ind,cJSON *item,int32_t bidask)
|
||
|
|
{
|
||
|
|
if ( bidask == 0 )
|
||
|
|
{
|
||
|
|
cJSON_AddItemToArray(bids,item);
|
||
|
|
if ( ind == 0 )
|
||
|
|
*highbidp = item;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
cJSON_AddItemToArray(asks,item);
|
||
|
|
if ( ind == 0 )
|
||
|
|
*lowaskp = item;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
uint64_t calc_qty(uint64_t mult,uint64_t assetid,uint64_t amount)
|
||
|
|
{
|
||
|
|
if ( assetid != NXT_ASSETID )
|
||
|
|
return(amount / mult);
|
||
|
|
else return(amount);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t verify_NXTtx(cJSON *json,uint64_t refasset,uint64_t qty,uint64_t destNXTbits)
|
||
|
|
{
|
||
|
|
int32_t typeval,subtypeval,n = 0;
|
||
|
|
uint64_t quantity,price,assetidbits;
|
||
|
|
cJSON *attachmentobj;
|
||
|
|
char sender[MAX_JSON_FIELD],recipient[MAX_JSON_FIELD],deadline[MAX_JSON_FIELD],feeNQT[MAX_JSON_FIELD],amountNQT[MAX_JSON_FIELD],type[MAX_JSON_FIELD],subtype[MAX_JSON_FIELD],verify[MAX_JSON_FIELD],referencedTransaction[MAX_JSON_FIELD],quantityQNT[MAX_JSON_FIELD],priceNQT[MAX_JSON_FIELD],assetidstr[MAX_JSON_FIELD],sighash[MAX_JSON_FIELD],fullhash[MAX_JSON_FIELD],timestamp[MAX_JSON_FIELD],transaction[MAX_JSON_FIELD];
|
||
|
|
if ( json == 0 )
|
||
|
|
{
|
||
|
|
printf("verify_NXTtx cant parse json\n");
|
||
|
|
return(-1);
|
||
|
|
}
|
||
|
|
if ( extract_cJSON_str(sender,sizeof(sender),json,"sender") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(recipient,sizeof(recipient),json,"recipient") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(referencedTransaction,sizeof(referencedTransaction),json,"referencedTransactionFullHash") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(amountNQT,sizeof(amountNQT),json,"amountNQT") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(feeNQT,sizeof(feeNQT),json,"feeNQT") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(deadline,sizeof(deadline),json,"deadline") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(type,sizeof(type),json,"type") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(subtype,sizeof(subtype),json,"subtype") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(verify,sizeof(verify),json,"verify") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(sighash,sizeof(sighash),json,"signatureHash") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(fullhash,sizeof(fullhash),json,"fullHash") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(timestamp,sizeof(timestamp),json,"timestamp") > 0 ) n++;
|
||
|
|
if ( extract_cJSON_str(transaction,sizeof(transaction),json,"transaction") > 0 ) n++;
|
||
|
|
if ( calc_nxt64bits(recipient) != destNXTbits )
|
||
|
|
{
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
fprintf(stderr,"recipient.%s != %llu\n",recipient,(long long)destNXTbits);
|
||
|
|
return(-2);
|
||
|
|
}
|
||
|
|
typeval = myatoi(type,256), subtypeval = myatoi(subtype,256);
|
||
|
|
if ( refasset == NXT_ASSETID )
|
||
|
|
{
|
||
|
|
if ( typeval != 0 || subtypeval != 0 )
|
||
|
|
{
|
||
|
|
fprintf(stderr,"unexpected typeval.%d subtypeval.%d\n",typeval,subtypeval);
|
||
|
|
return(-3);
|
||
|
|
}
|
||
|
|
if ( qty != calc_nxt64bits(amountNQT) )
|
||
|
|
{
|
||
|
|
fprintf(stderr,"unexpected qty.%llu vs.%s\n",(long long)qty,amountNQT);
|
||
|
|
return(-4);
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ( typeval != 2 || subtypeval != 1 )
|
||
|
|
{
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
fprintf(stderr,"refasset.%llu qty %lld\n",(long long)refasset,(long long)qty);
|
||
|
|
return(-11);
|
||
|
|
}
|
||
|
|
price = quantity = assetidbits = 0;
|
||
|
|
attachmentobj = cJSON_GetObjectItem(json,"attachment");
|
||
|
|
if ( attachmentobj != 0 )
|
||
|
|
{
|
||
|
|
if ( extract_cJSON_str(assetidstr,sizeof(assetidstr),attachmentobj,"asset") > 0 )
|
||
|
|
assetidbits = calc_nxt64bits(assetidstr);
|
||
|
|
//else if ( extract_cJSON_str(assetidstr,sizeof(assetidstr),attachmentobj,"currency") > 0 )
|
||
|
|
// assetidbits = calc_nxt64bits(assetidstr);
|
||
|
|
if ( extract_cJSON_str(quantityQNT,sizeof(quantityQNT),attachmentobj,"quantityQNT") > 0 )
|
||
|
|
quantity = calc_nxt64bits(quantityQNT);
|
||
|
|
//else if ( extract_cJSON_str(quantityQNT,sizeof(quantityQNT),attachmentobj,"units") > 0 )
|
||
|
|
// quantity = calc_nxt64bits(quantityQNT);
|
||
|
|
if ( extract_cJSON_str(priceNQT,sizeof(priceNQT),attachmentobj,"priceNQT") > 0 )
|
||
|
|
price = calc_nxt64bits(priceNQT);
|
||
|
|
}
|
||
|
|
if ( assetidbits != refasset )
|
||
|
|
{
|
||
|
|
fprintf(stderr,"assetidbits %llu != %llu refasset\n",(long long)assetidbits,(long long)refasset);
|
||
|
|
return(-12);
|
||
|
|
}
|
||
|
|
if ( qty != quantity )
|
||
|
|
{
|
||
|
|
fprintf(stderr,"qty.%llu != %llu\n",(long long)qty,(long long)quantity);
|
||
|
|
return(-13);
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
return(-1);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t InstantDEX_verify(uint64_t destNXTaddr,uint64_t sendasset,uint64_t sendqty,cJSON *txobj,uint64_t recvasset,uint64_t recvqty)
|
||
|
|
{
|
||
|
|
int32_t err;
|
||
|
|
// verify recipient, amounts in txobj
|
||
|
|
if ( (err= verify_NXTtx(txobj,recvasset,recvqty,destNXTaddr)) != 0 )
|
||
|
|
{
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("InstantDEX_verify dest.(%llu) tx mismatch %d (%llu %lld) -> (%llu %lld)\n",(long long)destNXTaddr,err,(long long)sendasset,(long long)sendqty,(long long)recvasset,(long long)recvqty);
|
||
|
|
return(-1);
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
cJSON *wallet_swapjson(char *recv,uint64_t recvasset,char *send,uint64_t sendasset,uint64_t orderid,uint64_t quoteid)
|
||
|
|
{
|
||
|
|
return(cJSON_Parse(clonestr("{\"error\":\"notyet\"}")));
|
||
|
|
#ifdef notyet
|
||
|
|
int32_t iter; uint64_t assetid; struct coin777 *coin; struct InstantDEX_quote *iQ;
|
||
|
|
char account[128],walletstr[512],*addr,*str; cJSON *walletitem = 0;
|
||
|
|
printf("wallet_swapjson is not yet\n");
|
||
|
|
if ( (iQ= find_iQ(quoteid)) != 0 && iQ->s.wallet != 0 )
|
||
|
|
{
|
||
|
|
walletitem = cJSON_Parse(iQ->walletstr);
|
||
|
|
//printf("start with (%s)\n",iQ->walletstr);
|
||
|
|
}
|
||
|
|
for (iter=0; iter<2; iter++)
|
||
|
|
{
|
||
|
|
addr = 0;
|
||
|
|
str = (iter == 0) ? recv : send;
|
||
|
|
assetid = (iter == 0) ? recvasset : sendasset;
|
||
|
|
if ( (coin= coin777_find(str,1)) != 0 )
|
||
|
|
{
|
||
|
|
if ( is_NXT_native(assetid) == 0 )
|
||
|
|
{
|
||
|
|
if ( (walletitem= set_walletstr(walletitem,walletstr,iQ)) != 0 )
|
||
|
|
{
|
||
|
|
|
||
|
|
}
|
||
|
|
} // else printf("%s is NXT\n",coin->name);
|
||
|
|
if ( is_NXT_native(assetid) != 0 )
|
||
|
|
addr = SUPERNET.NXTADDR;
|
||
|
|
else
|
||
|
|
{
|
||
|
|
addr = (iter == 0) ? coin->atomicrecv : coin->atomicsend;
|
||
|
|
if ( addr[0] == 0 )
|
||
|
|
addr = get_acct_coinaddr(addr,str,coin->serverport,coin->userpass,account);
|
||
|
|
}
|
||
|
|
if ( addr != 0 )
|
||
|
|
{
|
||
|
|
} else printf("%s no addr\n",coin->name);
|
||
|
|
} else printf("cant find coin.(%s)\n",iter == 0 ? recv : send);
|
||
|
|
}
|
||
|
|
if ( walletitem == 0 )
|
||
|
|
walletitem = cJSON_CreateObject(), jaddstr(walletitem,"error","cant find local coin daemons");
|
||
|
|
return(walletitem);
|
||
|
|
#endif
|
||
|
|
}
|
||
|
|
|
||
|
|
void _prices777_item(cJSON *item,int32_t group,struct prices777 *prices,int32_t bidask,double price,double volume,uint64_t orderid,uint64_t quoteid)
|
||
|
|
{
|
||
|
|
uint64_t baseqty,relqty; int32_t iswallet = 0; char basec,relc; struct InstantDEX_quote *iQ;
|
||
|
|
jaddnum(item,"group",group);
|
||
|
|
jaddstr(item,"exchange",prices->exchange);
|
||
|
|
jaddstr(item,"base",prices->base), jaddstr(item,"rel",prices->rel);
|
||
|
|
if ( (iQ= find_iQ(quoteid)) != 0 )
|
||
|
|
jadd64bits(item,"offerNXT",iQ->s.offerNXT);
|
||
|
|
if ( strcmp(prices->exchange,"nxtae") == 0 || strcmp(prices->exchange,"unconf") == 0 || strcmp(prices->exchange,"InstantDEX") == 0 || strcmp(prices->exchange,"wallet") == 0 )
|
||
|
|
{
|
||
|
|
jadd64bits(item,prices->type == 5 ? "currency" : "asset",prices->baseid);
|
||
|
|
//else if ( quoteid != 0 ) printf("cant find offerNXT.%llu\n",(long long)quoteid);
|
||
|
|
jadd64bits(item,"baseid",prices->baseid), jadd64bits(item,"relid",prices->relid);
|
||
|
|
iswallet = (strcmp(prices->exchange,"wallet") == 0);
|
||
|
|
if ( strcmp(prices->exchange,"InstantDEX") == 0 || iswallet != 0 )
|
||
|
|
{
|
||
|
|
jaddstr(item,"trade","swap");
|
||
|
|
baseqty = calc_qty(prices->basemult,prices->baseid,SATOSHIDEN * volume + 0.5/SATOSHIDEN);
|
||
|
|
//printf("baseid.%llu basemult.%llu -> %llu\n",(long long)prices->baseid,(long long)prices->basemult,(long long)baseqty);
|
||
|
|
relqty = calc_qty(prices->relmult,prices->relid,SATOSHIDEN * volume * price + 0.5/SATOSHIDEN);
|
||
|
|
if ( bidask != 0 )
|
||
|
|
{
|
||
|
|
basec = '+', relc = '-';
|
||
|
|
jadd64bits(item,"recvbase",baseqty);
|
||
|
|
jadd64bits(item,"sendrel",relqty);
|
||
|
|
if ( iswallet != 0 )
|
||
|
|
jadd(item,"wallet",wallet_swapjson(prices->base,prices->baseid,prices->rel,prices->relid,orderid,quoteid));
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
basec = '-', relc = '+';
|
||
|
|
jadd64bits(item,"sendbase",baseqty);
|
||
|
|
jadd64bits(item,"recvrel",relqty);
|
||
|
|
if ( iswallet != 0 )
|
||
|
|
jadd(item,"wallet",wallet_swapjson(prices->rel,prices->relid,prices->base,prices->baseid,orderid,quoteid));
|
||
|
|
}
|
||
|
|
//printf("(%s %cbaseqty.%llu <-> %s %crelqty.%llu) basemult.%llu baseid.%llu vol %f amount %llu\n",prices->base,basec,(long long)baseqty,prices->rel,relc,(long long)relqty,(long long)prices->basemult,(long long)prices->baseid,volume,(long long)volume*SATOSHIDEN);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
//printf("alternate path\n");
|
||
|
|
jaddstr(item,"trade",bidask == 0 ? "sell" : "buy");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
//printf("alternate path\n");
|
||
|
|
jaddstr(item,"trade",bidask == 0 ? "sell" : "buy");
|
||
|
|
jaddstr(item,"name",prices->contract);
|
||
|
|
}
|
||
|
|
jaddnum(item,"orderprice",price);
|
||
|
|
jaddnum(item,"ordervolume",volume);
|
||
|
|
if ( orderid != 0 )
|
||
|
|
jadd64bits(item,"orderid",orderid);
|
||
|
|
if ( quoteid != 0 )
|
||
|
|
jadd64bits(item,"quoteid",quoteid);
|
||
|
|
}
|
||
|
|
|
||
|
|
cJSON *prices777_item(int32_t rootbidask,struct prices777 *prices,int32_t group,int32_t bidask,double origprice,double origvolume,double rootwt,double groupwt,double wt,uint64_t orderid,uint64_t quoteid)
|
||
|
|
{
|
||
|
|
cJSON *item; double price,volume,oppo = 1.;
|
||
|
|
item = cJSON_CreateObject();
|
||
|
|
jaddstr(item,"basket",rootbidask == 0 ? "bid":"ask");
|
||
|
|
//jaddnum(item,"rootwt",rootwt);
|
||
|
|
//jaddnum(item,"groupwt",groupwt);
|
||
|
|
//jaddnum(item,"wt",wt);
|
||
|
|
if ( wt*groupwt < 0. )
|
||
|
|
oppo = -1.;
|
||
|
|
if ( wt*groupwt < 0 )
|
||
|
|
{
|
||
|
|
volume = origprice * origvolume;
|
||
|
|
price = 1./origprice;
|
||
|
|
} else price = origprice, volume = origvolume;
|
||
|
|
jaddnum(item,"price",price);
|
||
|
|
jaddnum(item,"volume",volume);
|
||
|
|
if ( groupwt*wt < 0 )
|
||
|
|
{
|
||
|
|
volume = origprice * origvolume;
|
||
|
|
price = 1./origprice;
|
||
|
|
} else price = origprice, volume = origvolume;
|
||
|
|
_prices777_item(item,group,prices,bidask,price,volume,orderid,quoteid);
|
||
|
|
return(item);
|
||
|
|
}
|
||
|
|
|
||
|
|
cJSON *prices777_tradeitem(int32_t rootbidask,struct prices777 *prices,int32_t group,int32_t bidask,int32_t slot,uint32_t timestamp,double price,double volume,double rootwt,double groupwt,double wt,uint64_t orderid,uint64_t quoteid)
|
||
|
|
{
|
||
|
|
static uint32_t match,error;
|
||
|
|
if ( prices->O.timestamp == timestamp )
|
||
|
|
{
|
||
|
|
//printf("tradeitem.(%s %f %f)\n",prices->exchange,price,volume);
|
||
|
|
if ( bidask == 0 && prices->O.book[MAX_GROUPS][slot].bid.s.price == price && prices->O.book[MAX_GROUPS][slot].bid.s.vol == volume )
|
||
|
|
match++;
|
||
|
|
else if ( bidask != 0 && prices->O.book[MAX_GROUPS][slot].ask.s.price == price && prices->O.book[MAX_GROUPS][slot].ask.s.vol == volume )
|
||
|
|
match++;
|
||
|
|
}
|
||
|
|
else if ( prices->O2.timestamp == timestamp )
|
||
|
|
{
|
||
|
|
//printf("2tradeitem.(%s %f %f)\n",prices->exchange,price,volume);
|
||
|
|
if ( bidask == 0 && prices->O2.book[MAX_GROUPS][slot].bid.s.price == price && prices->O2.book[MAX_GROUPS][slot].bid.s.vol == volume )
|
||
|
|
match++;
|
||
|
|
else if ( bidask != 0 && prices->O2.book[MAX_GROUPS][slot].ask.s.price == price && prices->O2.book[MAX_GROUPS][slot].ask.s.vol == volume )
|
||
|
|
match++;
|
||
|
|
} else error++, printf("mismatched tradeitem error.%d match.%d\n",error,match);
|
||
|
|
return(prices777_item(rootbidask,prices,group,bidask,price,volume,rootwt,groupwt,wt,orderid,quoteid));
|
||
|
|
}
|
||
|
|
|
||
|
|
cJSON *prices777_tradesequence(struct prices777 *prices,int32_t bidask,struct prices777_order *orders[],double rootwt,double groupwt,double wt,int32_t refgroup)
|
||
|
|
{
|
||
|
|
int32_t i,j,srcslot,srcbidask,err = 0; cJSON *array; struct prices777_order *suborders[MAX_GROUPS];
|
||
|
|
struct prices777_order *order; struct prices777 *src;
|
||
|
|
array = cJSON_CreateArray();
|
||
|
|
for (i=0; i<prices->numgroups; i++)
|
||
|
|
{
|
||
|
|
order = orders[i];
|
||
|
|
groupwt = prices->groupwts[i];
|
||
|
|
memset(suborders,0,sizeof(suborders));
|
||
|
|
srcbidask = (order->slot_ba & 1); srcslot = order->slot_ba >> 1;
|
||
|
|
if ( (src= order->source) != 0 )
|
||
|
|
{
|
||
|
|
if ( src->basketsize == 0 )
|
||
|
|
jaddi(array,prices777_tradeitem(bidask,src,refgroup*10+i,srcbidask,srcslot,order->s.timestamp,order->s.price,order->ratio*order->s.vol,rootwt,groupwt/groupwt,order->wt,order->id,order->s.quoteid));
|
||
|
|
else if ( src->O.timestamp == order->s.timestamp )
|
||
|
|
{
|
||
|
|
for (j=0; j<src->numgroups; j++)
|
||
|
|
suborders[j] = (srcbidask == 0) ? &src->O.book[j][srcslot].bid : &src->O.book[j][srcslot].ask;
|
||
|
|
jaddi(array,prices777_tradesequence(src,bidask,suborders,rootwt,groupwt/groupwt,order->wt,refgroup*10 + i));
|
||
|
|
}
|
||
|
|
else if ( src->O2.timestamp == order->s.timestamp )
|
||
|
|
{
|
||
|
|
for (j=0; j<src->numgroups; j++)
|
||
|
|
suborders[j] = (srcbidask == 0) ? &src->O2.book[j][srcslot].bid : &src->O2.book[j][srcslot].ask;
|
||
|
|
jaddi(array,prices777_tradesequence(src,bidask,suborders,rootwt,groupwt/groupwt,order->wt,refgroup*10 + i));
|
||
|
|
}
|
||
|
|
else err = 1;
|
||
|
|
}
|
||
|
|
if ( src == 0 || err != 0 )
|
||
|
|
{
|
||
|
|
//jaddi(array,prices777_item(prices,bidask,price,volume,wt,orderid));
|
||
|
|
//printf("prices777_tradesequence warning cant match timestamp %u (%s %s/%s)\n",order->timestamp,prices->contract,prices->base,prices->rel);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return(array);
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_orderbook_item(struct prices777 *prices,int32_t bidask,struct prices777_order *suborders[],cJSON *array,int32_t invert,int32_t allflag,double origprice,double origvolume,uint64_t orderid,uint64_t quoteid)
|
||
|
|
{
|
||
|
|
cJSON *item,*obj,*tarray,*walletitem; double price,volume; struct InstantDEX_quote *iQ;
|
||
|
|
item = cJSON_CreateObject();
|
||
|
|
if ( invert != 0 )
|
||
|
|
volume = (origvolume * origprice), price = 1./origprice;
|
||
|
|
else price = origprice, volume = origvolume;
|
||
|
|
if ( strcmp(prices->exchange,"jumblr") == 0 || strcmp(prices->exchange,"pangea") == 0 )
|
||
|
|
{
|
||
|
|
jaddstr(item,"plugin",prices->exchange), jaddstr(item,"method","start");
|
||
|
|
jaddnum(item,"dotrade",1), jaddnum(item,"volume",volume);
|
||
|
|
jaddnum(item,"timeout",20000);
|
||
|
|
jaddstr(item,"base",prices->base);
|
||
|
|
if ( (iQ= find_iQ(quoteid)) != 0 )
|
||
|
|
jadd64bits(item,"offerNXT",iQ->s.offerNXT);
|
||
|
|
jadd64bits(item,"quoteid",iQ->s.quoteid);
|
||
|
|
if ( strcmp(prices->exchange,"pangea") == 0 && iQ->s.wallet != 0 && (walletitem= cJSON_Parse(iQ->walletstr)) != 0 )
|
||
|
|
jadd(item,"wallet",walletitem);
|
||
|
|
jaddi(array,item);
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
jaddstr(item,"plugin","InstantDEX"), jaddstr(item,"method","tradesequence");
|
||
|
|
jaddnum(item,"dotrade",1), jaddnum(item,"price",price), jaddnum(item,"volume",volume);
|
||
|
|
//jaddnum(item,"invert",invert), jaddnum(item,"origprice",origprice), jaddnum(item,"origvolume",origvolume);
|
||
|
|
//jaddstr(item,"base",prices->base), jaddstr(item,"rel",prices->rel);
|
||
|
|
if ( allflag != 0 )
|
||
|
|
{
|
||
|
|
if ( prices->basketsize == 0 )
|
||
|
|
{
|
||
|
|
tarray = cJSON_CreateArray();
|
||
|
|
obj = cJSON_CreateObject();
|
||
|
|
_prices777_item(obj,0,prices,bidask,origprice,origvolume,orderid,quoteid);
|
||
|
|
jaddi(tarray,obj);
|
||
|
|
} else tarray = prices777_tradesequence(prices,bidask,suborders,invert!=0?-1:1.,1.,1.,0);
|
||
|
|
jadd(item,"trades",tarray);
|
||
|
|
}
|
||
|
|
jaddi(array,item);
|
||
|
|
}
|
||
|
|
|
||
|
|
char *prices777_orderbook_jsonstr(int32_t invert,uint64_t nxt64bits,struct prices777 *prices,struct prices777_basketinfo *OB,int32_t maxdepth,int32_t allflag)
|
||
|
|
{
|
||
|
|
struct prices777_orderentry *gp; struct prices777_order *suborders[MAX_GROUPS]; cJSON *json,*bids,*asks;
|
||
|
|
int32_t i,slot; char baserel[64],base[64],rel[64],assetA[64],assetB[64],NXTaddr[64];
|
||
|
|
if ( invert == 0 )
|
||
|
|
sprintf(baserel,"%s/%s",prices->base,prices->rel);
|
||
|
|
else sprintf(baserel,"%s/%s",prices->rel,prices->base);
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("ORDERBOOK %s/%s iQsize.%ld numbids.%d numasks.%d maxdepth.%d (%llu %llu)\n",prices->base,prices->rel,(long)sizeof(struct InstantDEX_quote),OB->numbids,OB->numasks,maxdepth,(long long)prices->baseid,(long long)prices->relid);
|
||
|
|
json = cJSON_CreateObject(), bids = cJSON_CreateArray(), asks = cJSON_CreateArray();
|
||
|
|
gp = &OB->book[MAX_GROUPS][0];
|
||
|
|
memset(suborders,0,sizeof(suborders));
|
||
|
|
for (slot=0; (slot<OB->numbids || slot<OB->numasks) && slot<maxdepth; slot++,gp++)
|
||
|
|
{
|
||
|
|
//printf("slot.%d\n",slot);
|
||
|
|
if ( slot < OB->numbids )
|
||
|
|
{
|
||
|
|
for (i=0; i<prices->numgroups; i++)
|
||
|
|
suborders[i] = &OB->book[i][slot].bid;
|
||
|
|
prices777_orderbook_item(prices,0,suborders,(invert==0) ? bids : asks,invert,allflag,gp->bid.s.price,gp->bid.s.vol,gp->bid.id,gp->bid.s.quoteid);
|
||
|
|
}
|
||
|
|
if ( slot < OB->numasks )
|
||
|
|
{
|
||
|
|
for (i=0; i<prices->numgroups; i++)
|
||
|
|
suborders[i] = &OB->book[i][slot].ask;
|
||
|
|
prices777_orderbook_item(prices,1,suborders,(invert==0) ? asks : bids,invert,allflag,gp->ask.s.price,gp->ask.s.vol,gp->ask.id,gp->ask.s.quoteid);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
expand_nxt64bits(NXTaddr,nxt64bits);
|
||
|
|
if ( invert != 0 )
|
||
|
|
strcpy(base,prices->rel), strcpy(rel,prices->base);
|
||
|
|
else strcpy(base,prices->base), strcpy(rel,prices->rel);
|
||
|
|
expand_nxt64bits(assetA,invert==0 ? prices->baseid : prices->relid);
|
||
|
|
expand_nxt64bits(assetB,invert!=0 ? prices->baseid : prices->relid);
|
||
|
|
cJSON_AddItemToObject(json,"exchange",cJSON_CreateString(prices->exchange));
|
||
|
|
cJSON_AddItemToObject(json,"inverted",cJSON_CreateNumber(invert));
|
||
|
|
cJSON_AddItemToObject(json,"contract",cJSON_CreateString(prices->contract));
|
||
|
|
cJSON_AddItemToObject(json,"baseid",cJSON_CreateString(assetA));
|
||
|
|
if ( assetB[0] != 0 )
|
||
|
|
cJSON_AddItemToObject(json,"relid",cJSON_CreateString(assetB));
|
||
|
|
cJSON_AddItemToObject(json,"base",cJSON_CreateString(base));
|
||
|
|
if ( rel[0] != 0 )
|
||
|
|
cJSON_AddItemToObject(json,"rel",cJSON_CreateString(rel));
|
||
|
|
cJSON_AddItemToObject(json,"bids",bids);
|
||
|
|
cJSON_AddItemToObject(json,"asks",asks);
|
||
|
|
if ( invert == 0 )
|
||
|
|
{
|
||
|
|
cJSON_AddItemToObject(json,"numbids",cJSON_CreateNumber(OB->numbids));
|
||
|
|
cJSON_AddItemToObject(json,"numasks",cJSON_CreateNumber(OB->numasks));
|
||
|
|
cJSON_AddItemToObject(json,"lastbid",cJSON_CreateNumber(prices->lastbid));
|
||
|
|
cJSON_AddItemToObject(json,"lastask",cJSON_CreateNumber(prices->lastask));
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
cJSON_AddItemToObject(json,"numbids",cJSON_CreateNumber(OB->numasks));
|
||
|
|
cJSON_AddItemToObject(json,"numasks",cJSON_CreateNumber(OB->numbids));
|
||
|
|
if ( prices->lastask != 0 )
|
||
|
|
cJSON_AddItemToObject(json,"lastbid",cJSON_CreateNumber(1. / prices->lastask));
|
||
|
|
if ( prices->lastbid != 0 )
|
||
|
|
cJSON_AddItemToObject(json,"lastask",cJSON_CreateNumber(1. / prices->lastbid));
|
||
|
|
}
|
||
|
|
cJSON_AddItemToObject(json,"NXT",cJSON_CreateString(NXTaddr));
|
||
|
|
cJSON_AddItemToObject(json,"timestamp",cJSON_CreateNumber(time(NULL)));
|
||
|
|
cJSON_AddItemToObject(json,"maxdepth",cJSON_CreateNumber(maxdepth));
|
||
|
|
return(jprint(json,1));
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_jsonstrs(struct prices777 *prices,struct prices777_basketinfo *OB)
|
||
|
|
{
|
||
|
|
int32_t allflag; char *strs[4];
|
||
|
|
if ( OB->numbids == 0 && OB->numasks == 0 )
|
||
|
|
{
|
||
|
|
printf("warning: updating null orderbook ignored for %s (%s/%s)\n",prices->contract,prices->base,prices->rel);
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
for (allflag=0; allflag<4; allflag++)
|
||
|
|
{
|
||
|
|
strs[allflag] = prices777_orderbook_jsonstr(allflag/2,IGUANA_MY64BITS,prices,OB,MAX_DEPTH,allflag%2);
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("strs[%d].(%s) prices.%p\n",allflag,strs[allflag],prices);
|
||
|
|
}
|
||
|
|
portable_mutex_lock(&prices->mutex);
|
||
|
|
for (allflag=0; allflag<4; allflag++)
|
||
|
|
{
|
||
|
|
if ( prices->orderbook_jsonstrs[allflag/2][allflag%2] != 0 )
|
||
|
|
free(prices->orderbook_jsonstrs[allflag/2][allflag%2]);
|
||
|
|
prices->orderbook_jsonstrs[allflag/2][allflag%2] = strs[allflag];
|
||
|
|
}
|
||
|
|
portable_mutex_unlock(&prices->mutex);
|
||
|
|
}
|
||
|
|
|
||
|
|
char *orderbook_clonestr(struct prices777 *prices,int32_t invert,int32_t allflag)
|
||
|
|
{
|
||
|
|
char *str,*clone = 0;
|
||
|
|
portable_mutex_lock(&prices->mutex);
|
||
|
|
if ( (str= prices->orderbook_jsonstrs[invert][allflag]) != 0 )
|
||
|
|
clone = clonestr(str);
|
||
|
|
portable_mutex_unlock(&prices->mutex);
|
||
|
|
return(clone);
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_json_quotes(double *hblap,struct prices777 *prices,cJSON *bids,cJSON *asks,int32_t maxdepth,char *pricefield,char *volfield,uint32_t reftimestamp)
|
||
|
|
{
|
||
|
|
cJSON *item; int32_t i,slot,n=0,m=0,dir,bidask,numitems; uint64_t orderid,quoteid; uint32_t timestamp; double price,volume,hbla = 0.;
|
||
|
|
struct prices777_basketinfo OB; struct prices777_orderentry *gp; struct prices777_order *order;
|
||
|
|
memset(&OB,0,sizeof(OB));
|
||
|
|
if ( reftimestamp == 0 )
|
||
|
|
reftimestamp = (uint32_t)time(NULL);
|
||
|
|
OB.timestamp = reftimestamp;
|
||
|
|
if ( bids != 0 )
|
||
|
|
{
|
||
|
|
n = cJSON_GetArraySize(bids);
|
||
|
|
if ( maxdepth != 0 && n > maxdepth )
|
||
|
|
n = maxdepth;
|
||
|
|
}
|
||
|
|
if ( asks != 0 )
|
||
|
|
{
|
||
|
|
m = cJSON_GetArraySize(asks);
|
||
|
|
if ( maxdepth != 0 && m > maxdepth )
|
||
|
|
m = maxdepth;
|
||
|
|
}
|
||
|
|
for (i=0; i<n||i<m; i++)
|
||
|
|
{
|
||
|
|
gp = &OB.book[MAX_GROUPS][i];
|
||
|
|
gp->bid.source = gp->ask.source = prices;
|
||
|
|
for (bidask=0; bidask<2; bidask++)
|
||
|
|
{
|
||
|
|
price = volume = 0.;
|
||
|
|
orderid = quoteid = 0;
|
||
|
|
dir = (bidask == 0) ? 1 : -1;
|
||
|
|
if ( bidask == 0 && i >= n )
|
||
|
|
continue;
|
||
|
|
else if ( bidask == 1 && i >= m )
|
||
|
|
continue;
|
||
|
|
if ( strcmp(prices->exchange,"bter") == 0 && dir < 0 )
|
||
|
|
slot = ((bidask==0?n:m) - 1) - i;
|
||
|
|
else slot = i;
|
||
|
|
timestamp = 0;
|
||
|
|
item = jitem(bidask==0?bids:asks,slot);
|
||
|
|
if ( pricefield != 0 && volfield != 0 )
|
||
|
|
price = jdouble(item,pricefield), volume = jdouble(item,volfield);
|
||
|
|
else if ( is_cJSON_Array(item) != 0 && (numitems= cJSON_GetArraySize(item)) != 0 ) // big assumptions about order within nested array!
|
||
|
|
{
|
||
|
|
price = jdouble(jitem(item,0),0), volume = jdouble(jitem(item,1),0);
|
||
|
|
if ( strcmp(prices->exchange,"kraken") == 0 )
|
||
|
|
timestamp = juint(jitem(item,2),0);
|
||
|
|
else orderid = j64bits(jitem(item,2),0);
|
||
|
|
}
|
||
|
|
else continue;
|
||
|
|
if ( quoteid == 0 )
|
||
|
|
quoteid = orderid;
|
||
|
|
if ( price > SMALLVAL && volume > SMALLVAL )
|
||
|
|
{
|
||
|
|
if ( prices->commission != 0. )
|
||
|
|
{
|
||
|
|
//printf("price %f fee %f -> ",price,prices->commission * price);
|
||
|
|
if ( bidask == 0 )
|
||
|
|
price -= prices->commission * price;
|
||
|
|
else price += prices->commission * price;
|
||
|
|
//printf("%f\n",price);
|
||
|
|
}
|
||
|
|
order = (bidask == 0) ? &gp->bid : &gp->ask;
|
||
|
|
order->s.price = price, order->s.vol = volume, order->source = prices, order->s.timestamp = OB.timestamp, order->wt = 1, order->id = orderid, order->s.quoteid = quoteid;
|
||
|
|
if ( bidask == 0 )
|
||
|
|
order->slot_ba = (OB.numbids++ << 1);
|
||
|
|
else order->slot_ba = (OB.numasks++ << 1) | 1;
|
||
|
|
if ( i == 0 )
|
||
|
|
{
|
||
|
|
if ( bidask == 0 )
|
||
|
|
prices->lastbid = price;
|
||
|
|
else prices->lastask = price;
|
||
|
|
if ( hbla == 0. )
|
||
|
|
hbla = price;
|
||
|
|
else hbla = 0.5 * (hbla + price);
|
||
|
|
}
|
||
|
|
if ( Debuglevel > 2 )//|| prices->basketsize > 0 || strcmp("unconf",prices->exchange) == 0 )
|
||
|
|
printf("%d,%d: %-8s %s %5s/%-5s %13.8f vol %13.8f | invert %13.8f vol %13.8f | timestamp.%u\n",OB.numbids,OB.numasks,prices->exchange,dir>0?"bid":"ask",prices->base,prices->rel,price,volume,1./price,volume*price,timestamp);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( hbla != 0. )
|
||
|
|
*hblap = hbla;
|
||
|
|
prices->O2 = prices->O;
|
||
|
|
//prices->O = OB;
|
||
|
|
for (i=0; i<MAX_GROUPS; i++)
|
||
|
|
memcpy(prices->O.book[i],prices->O.book[i+1],sizeof(prices->O.book[i]));
|
||
|
|
memcpy(prices->O.book[MAX_GROUPS],OB.book[MAX_GROUPS],sizeof(OB.book[MAX_GROUPS]));
|
||
|
|
prices->O.numbids = OB.numbids, prices->O.numasks = OB.numasks, prices->O.timestamp = OB.timestamp;
|
||
|
|
}
|
||
|
|
|
||
|
|
double prices777_json_orderbook(char *exchangestr,struct prices777 *prices,int32_t maxdepth,cJSON *json,char *resultfield,char *bidfield,char *askfield,char *pricefield,char *volfield)
|
||
|
|
{
|
||
|
|
cJSON *obj = 0,*bidobj=0,*askobj=0; double hbla = 0.; int32_t numasks=0,numbids=0;
|
||
|
|
if ( resultfield == 0 )
|
||
|
|
obj = json;
|
||
|
|
if ( maxdepth == 0 )
|
||
|
|
maxdepth = MAX_DEPTH;
|
||
|
|
if ( resultfield == 0 || (obj= jobj(json,resultfield)) != 0 )
|
||
|
|
{
|
||
|
|
bidobj = jarray(&numbids,obj,bidfield);
|
||
|
|
askobj = jarray(&numasks,obj,askfield);
|
||
|
|
if ( bidobj != 0 || askobj != 0 )
|
||
|
|
{
|
||
|
|
prices777_json_quotes(&hbla,prices,bidobj,askobj,maxdepth,pricefield,volfield,0);
|
||
|
|
prices777_jsonstrs(prices,&prices->O);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return(hbla);
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_hbla(uint64_t *bidorderid,uint64_t *askorderid,int32_t *lowaski,int32_t *highbidi,double *highbid,double *bidvol,double *lowask,double *askvol,double groupwt,int32_t i,int32_t bidask,double price,double vol,uint64_t orderid)
|
||
|
|
{
|
||
|
|
if ( groupwt > SMALLVAL && (*lowask == 0. || price < *lowask) )
|
||
|
|
*askorderid = orderid, *lowask = price, *askvol = vol, *lowaski = (i << 1) | bidask;
|
||
|
|
else if ( groupwt < -SMALLVAL && (*highbid == 0. || price > *highbid) )
|
||
|
|
*bidorderid = orderid, *highbid = price, *bidvol = vol, *highbidi = (i << 1) | bidask;
|
||
|
|
//printf("hbla.(%f %f)\n",price,vol);
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_setorder(struct prices777_order *order,struct prices777_basket *group,int32_t coordinate,uint64_t orderid,double refprice,double refvol)
|
||
|
|
{
|
||
|
|
int32_t bidask; struct prices777 *prices; double price=0,vol=0;
|
||
|
|
bidask = (coordinate & 1), coordinate >>= 1;
|
||
|
|
prices = group[coordinate].prices;
|
||
|
|
if ( bidask != 0 && group[coordinate].aski < prices->O.numasks )
|
||
|
|
price = prices->O.book[MAX_GROUPS][group[coordinate].aski].ask.s.price, vol = prices->O.book[MAX_GROUPS][group[coordinate].aski].ask.s.vol, order->slot_ba = (group[coordinate].aski++ << 1) | 1;
|
||
|
|
else if ( group[coordinate].bidi < prices->O.numbids )
|
||
|
|
price = prices->O.book[MAX_GROUPS][group[coordinate].bidi].bid.s.price, vol = prices->O.book[MAX_GROUPS][group[coordinate].bidi].bid.s.vol,order->slot_ba = (group[coordinate].bidi++ << 1);
|
||
|
|
else printf("illegal coordinate.%d bidask.%d when bidi.%d aski.%d numbids.%d numasks.%d\n",coordinate,bidask,group[coordinate].bidi,group[coordinate].aski,prices->O.numbids,prices->O.numasks);
|
||
|
|
order->source = prices;
|
||
|
|
order->wt = group[coordinate].wt;
|
||
|
|
order->s.timestamp = prices->O.timestamp;
|
||
|
|
order->id = orderid;
|
||
|
|
if ( order->wt < 0. )
|
||
|
|
vol *= price, price = (1. / price);
|
||
|
|
if ( fabs(price - refprice) > SMALLVAL || fabs(vol - refvol) > SMALLVAL )
|
||
|
|
{
|
||
|
|
printf("[ERROR] ");
|
||
|
|
printf("%s group.%d (%s/%s) bidask.%d coordinate.%d wt %.8f (%.8f %.8f) vs (%.8f %.8f)\n",prices->exchange,group[coordinate].groupid,prices->base,prices->rel,bidask,coordinate,order->wt,price,vol,refprice,refvol);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
int32_t prices777_groupbidasks(struct prices777_orderentry *gp,double groupwt,double minvol,struct prices777_basket *group,int32_t groupsize)
|
||
|
|
{
|
||
|
|
int32_t i,highbidi,lowaski; double highbid,lowask,bidvol,askvol,vol,price,polarity; uint64_t bidorderid,askorderid;
|
||
|
|
struct prices777 *feature; struct prices777_order *order;
|
||
|
|
memset(gp,0,sizeof(*gp));
|
||
|
|
highbidi = lowaski = -1;
|
||
|
|
for (bidvol=askvol=highbid=lowask=bidorderid=askorderid=i=0; i<groupsize; i++)
|
||
|
|
{
|
||
|
|
if ( (feature= group[i].prices) != 0 )
|
||
|
|
{
|
||
|
|
//if ( strcmp(feature->base,group[0].rel) == 0 && strcmp(feature->rel,group[0].base) == 0 )
|
||
|
|
// polarity = -1.;
|
||
|
|
//else polarity = 1.;
|
||
|
|
//if ( group[i].wt * groupwt < 0 ) fixes supernet/BTC
|
||
|
|
// polarity *= -1;
|
||
|
|
polarity = group[i].wt;// * groupwt;
|
||
|
|
order = &feature->O.book[MAX_GROUPS][group[i].bidi].bid;
|
||
|
|
if ( group[i].bidi < feature->O.numbids && (vol= order->s.vol) > minvol && (price= order->s.price) > SMALLVAL )
|
||
|
|
{
|
||
|
|
//printf("%d/%d: (%s/%s) %s bidi.%d price.%f polarity.%f groupwt.%f -> ",i,groupsize,feature->base,feature->rel,feature->exchange,group[i].bidi,price,polarity,groupwt);
|
||
|
|
if ( polarity < 0. )
|
||
|
|
vol *= price, price = (1. / price);
|
||
|
|
prices777_hbla(&bidorderid,&askorderid,&lowaski,&highbidi,&highbid,&bidvol,&lowask,&askvol,-polarity,i,0,price,vol,order->id);
|
||
|
|
}
|
||
|
|
order = &feature->O.book[MAX_GROUPS][group[i].aski].ask;
|
||
|
|
if ( group[i].aski < feature->O.numasks && (vol= order->s.vol) > minvol && (price= order->s.price) > SMALLVAL )
|
||
|
|
{
|
||
|
|
//printf("%d/%d: (%s/%s) %s aski.%d price.%f polarity.%f groupwt.%f -> ",i,groupsize,feature->base,feature->rel,feature->exchange,group[i].aski,price,polarity,groupwt);
|
||
|
|
if ( polarity < 0. )
|
||
|
|
vol *= price, price = (1. / price);
|
||
|
|
prices777_hbla(&bidorderid,&askorderid,&lowaski,&highbidi,&highbid,&bidvol,&lowask,&askvol,polarity,i,1,price,vol,order->id);
|
||
|
|
}
|
||
|
|
} else printf("null feature.%p\n",feature);
|
||
|
|
}
|
||
|
|
gp->bid.s.price = highbid, gp->bid.s.vol = bidvol, gp->ask.s.price = lowask, gp->ask.s.vol = askvol;
|
||
|
|
if ( highbidi >= 0 )
|
||
|
|
prices777_setorder(&gp->bid,group,highbidi,bidorderid,highbid,bidvol);
|
||
|
|
if ( lowaski >= 0 )
|
||
|
|
prices777_setorder(&gp->ask,group,lowaski,askorderid,lowask,askvol);
|
||
|
|
// if ( lowaski >= 0 && highbidi >= 0 )
|
||
|
|
//printf("groupwt %f groupsize.%d %s highbidi.%d %f %f %s lowaski.%d wts.(%f %f)\n",groupwt,groupsize,gp->bid.source->exchange,highbidi,gp->bid.s.price,gp->ask.s.price,gp->ask.source->exchange,lowaski,gp->bid.wt,gp->ask.wt);
|
||
|
|
if ( gp->bid.s.price > SMALLVAL && gp->ask.s.price > SMALLVAL )
|
||
|
|
return(0);
|
||
|
|
return(-1);
|
||
|
|
}
|
||
|
|
|
||
|
|
double prices777_volcalc(double *basevols,uint64_t *baseids,uint64_t baseid,double basevol)
|
||
|
|
{
|
||
|
|
int32_t i;
|
||
|
|
//printf("(add %llu %f) ",(long long)baseid,basevol);
|
||
|
|
for (i=0; i<MAX_GROUPS*2; i++)
|
||
|
|
{
|
||
|
|
if ( baseids[i] == baseid )
|
||
|
|
{
|
||
|
|
if ( basevols[i] == 0. || basevol < basevols[i] )
|
||
|
|
basevols[i] = basevol;//, printf("set %llu <= %f ",(long long)baseid,basevol);
|
||
|
|
// else printf("missed basevols[%d] %f, ",i,basevols[i]);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return(1);
|
||
|
|
}
|
||
|
|
|
||
|
|
double prices777_volratio(double *basevols,uint64_t *baseids,uint64_t baseid,double vol)
|
||
|
|
{
|
||
|
|
int32_t i;
|
||
|
|
for (i=0; i<MAX_GROUPS*2; i++)
|
||
|
|
{
|
||
|
|
if ( baseids[i] == baseid )
|
||
|
|
{
|
||
|
|
if ( basevols[i] > 0. )
|
||
|
|
{
|
||
|
|
//printf("(vol %f vs %f) ",vol,basevols[i]);
|
||
|
|
if ( vol > basevols[i] )
|
||
|
|
return(basevols[i]/vol);
|
||
|
|
else return(1.);
|
||
|
|
}
|
||
|
|
printf("unexpected zero vol basevols.%d\n",i);
|
||
|
|
return(1.);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
printf("unexpected cant find baseid.%llu\n",(long long)baseid);
|
||
|
|
return(1.);
|
||
|
|
}
|
||
|
|
|
||
|
|
double prices777_basket(struct prices777 *prices,int32_t maxdepth)
|
||
|
|
{
|
||
|
|
int32_t i,j,groupsize,slot; uint64_t baseids[MAX_GROUPS*2];
|
||
|
|
double basevols[MAX_GROUPS*2],relvols[MAX_GROUPS*2],baseratio,relratio,a,av,b,bv,gap,bid,ask,minvol,bidvol,askvol,hbla = 0.;
|
||
|
|
struct prices777_basketinfo OB; uint32_t timestamp; struct prices777 *feature; struct prices777_orderentry *gp;
|
||
|
|
a = av = b = bv = 0;
|
||
|
|
timestamp = (uint32_t)time(NULL);
|
||
|
|
memset(&OB,0,sizeof(OB));
|
||
|
|
memset(baseids,0,sizeof(baseids));
|
||
|
|
OB.timestamp = timestamp;
|
||
|
|
//printf("prices777_basket.(%s) %s (%s/%s) %llu/%llu basketsize.%d\n",prices->exchange,prices->contract,prices->base,prices->rel,(long long)prices->baseid,(long long)prices->relid,prices->basketsize);
|
||
|
|
for (i=0; i<prices->basketsize; i++)
|
||
|
|
{
|
||
|
|
if ( 0 && strcmp(prices->exchange,"active") == 0 && prices->basket[i].prices != 0 )
|
||
|
|
printf("%s.group.%d %10s %10s/%10s wt %3.0f %.8f %.8f\n",prices->exchange,i,prices->basket[i].prices->exchange,prices->basket[i].prices->base,prices->basket[i].rel,prices->basket[i].wt,prices->basket[i].prices->O.book[MAX_GROUPS][0].bid.s.price,prices->basket[i].prices->O.book[MAX_GROUPS][0].ask.s.price);
|
||
|
|
if ( (feature= prices->basket[i].prices) != 0 )
|
||
|
|
{
|
||
|
|
if ( 0 && (gap= (prices->lastupdate - feature->lastupdate)) < 0 )
|
||
|
|
{
|
||
|
|
if ( prices->lastupdate != 0 )
|
||
|
|
printf("you can ignore this harmless warning about unexpected time traveling feature %f vs %f or laggy feature\n",prices->lastupdate,feature->lastupdate);
|
||
|
|
return(0.);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
printf("unexpected null basket item %s[%d]\n",prices->contract,i);
|
||
|
|
return(0.);
|
||
|
|
}
|
||
|
|
prices->basket[i].aski = prices->basket[i].bidi = 0;
|
||
|
|
for (j=0; j<MAX_GROUPS*2; j++)
|
||
|
|
{
|
||
|
|
if ( prices->basket[i].prices == 0 || prices->basket[i].prices->baseid == baseids[j] )
|
||
|
|
break;
|
||
|
|
if ( baseids[j] == 0 )
|
||
|
|
{
|
||
|
|
baseids[j] = prices->basket[i].prices->baseid;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
for (j=0; j<MAX_GROUPS*2; j++)
|
||
|
|
{
|
||
|
|
if ( prices->basket[i].prices == 0 || prices->basket[i].prices->relid == baseids[j] )
|
||
|
|
break;
|
||
|
|
if ( baseids[j] == 0 )
|
||
|
|
{
|
||
|
|
baseids[j] = prices->basket[i].prices->relid;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
//printf("%s basketsize.%d numgroups.%d maxdepth.%d group0size.%d\n",prices->contract,prices->basketsize,prices->numgroups,maxdepth,prices->basket[0].groupsize);
|
||
|
|
for (slot=0; slot<maxdepth; slot++)
|
||
|
|
{
|
||
|
|
memset(basevols,0,sizeof(basevols));
|
||
|
|
memset(relvols,0,sizeof(relvols));
|
||
|
|
groupsize = prices->basket[0].groupsize;
|
||
|
|
minvol = (1. / SATOSHIDEN);
|
||
|
|
bid = ask = 1.; bidvol = askvol = 0.;
|
||
|
|
for (j=i=0; j<prices->numgroups; j++,i+=groupsize)
|
||
|
|
{
|
||
|
|
groupsize = prices->basket[i].groupsize;
|
||
|
|
gp = &OB.book[j][slot];
|
||
|
|
if ( prices777_groupbidasks(gp,prices->groupwts[j],minvol,&prices->basket[i],groupsize) != 0 )
|
||
|
|
{
|
||
|
|
//printf("prices777_groupbidasks i.%d j.%d error\n",i,j);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
//printf("%s j%d slot.%d %s numgroups.%d groupsize.%d\n",prices->exchange,j,slot,prices->contract,prices->numgroups,groupsize);
|
||
|
|
if ( bid > SMALLVAL && (b= gp->bid.s.price) > SMALLVAL && (bv= gp->bid.s.vol) > SMALLVAL )
|
||
|
|
{
|
||
|
|
//if ( gp->bid.wt*prices->groupwts[j] < 0 )
|
||
|
|
// bid /= b;
|
||
|
|
//else
|
||
|
|
bid *= b;
|
||
|
|
prices777_volcalc(basevols,baseids,gp->bid.source->baseid,bv);
|
||
|
|
prices777_volcalc(basevols,baseids,gp->bid.source->relid,b*bv);
|
||
|
|
//printf("bid %f b %f bv %f %s %s %f\n",bid,b,bv,gp->bid.source->base,gp->bid.source->rel,bv*b);
|
||
|
|
} else bid = 0.;
|
||
|
|
if ( ask > SMALLVAL && (a= gp->ask.s.price) > SMALLVAL && (av= gp->ask.s.vol) > SMALLVAL )
|
||
|
|
{
|
||
|
|
//if ( gp->ask.wt*prices->groupwts[j] < 0 )
|
||
|
|
// ask /= a;
|
||
|
|
//else
|
||
|
|
ask *= a;
|
||
|
|
prices777_volcalc(relvols,baseids,gp->ask.source->baseid,av);
|
||
|
|
prices777_volcalc(relvols,baseids,gp->ask.source->relid,a*av);
|
||
|
|
//printf("ask %f b %f bv %f %s %s %f\n",ask,a,av,gp->ask.source->base,gp->ask.source->rel,av*a);
|
||
|
|
} else ask = 0.;
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("%10s %10s/%10s %s (%s %s) wt:%f %2.0f/%2.0f j.%d: b %.8f %12.6f a %.8f %12.6f, bid %.8f ask %.8f inv %f %f\n",prices->exchange,gp->bid.source->exchange,gp->ask.source->exchange,prices->contract,gp->bid.source->contract,gp->ask.source->contract,prices->groupwts[j],gp->bid.wt,gp->ask.wt,j,b,bv,a,av,bid,ask,1/bid,1/ask);
|
||
|
|
}
|
||
|
|
for (j=0; j<prices->numgroups; j++)
|
||
|
|
{
|
||
|
|
gp = &OB.book[j][slot];
|
||
|
|
if ( gp->bid.source == 0 || gp->ask.source == 0 )
|
||
|
|
{
|
||
|
|
printf("%s: (%s/%s) null source slot.%d j.%d\n",prices->exchange,prices->base,prices->rel,slot,j);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
baseratio = prices777_volratio(basevols,baseids,gp->bid.source->baseid,gp->bid.s.vol);
|
||
|
|
relratio = prices777_volratio(basevols,baseids,gp->bid.source->relid,gp->bid.s.vol * gp->bid.s.price);
|
||
|
|
gp->bid.ratio = (baseratio < relratio) ? baseratio : relratio;
|
||
|
|
if ( j == 0 )
|
||
|
|
bidvol = (gp->bid.ratio * gp->bid.s.vol);
|
||
|
|
//printf("(%f %f) (%f %f) bid%d bidratio %f bidvol %f ",gp->bid.s.vol,baseratio,gp->bid.s.vol * gp->bid.s.price,relratio,j,gp->bid.ratio,bidvol);
|
||
|
|
baseratio = prices777_volratio(relvols,baseids,gp->ask.source->baseid,gp->ask.s.vol);
|
||
|
|
relratio = prices777_volratio(relvols,baseids,gp->ask.source->relid,gp->ask.s.vol * gp->ask.s.price);
|
||
|
|
gp->ask.ratio = (baseratio < relratio) ? baseratio : relratio;
|
||
|
|
if ( j == 0 )
|
||
|
|
askvol = (gp->ask.ratio * gp->ask.s.vol);
|
||
|
|
}
|
||
|
|
if ( j != prices->numgroups )
|
||
|
|
{
|
||
|
|
//printf("%s: j.%d != numgroups.%d\n",prices->exchange,j,prices->numgroups);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
for (j=0; j<MAX_GROUPS*2; j++)
|
||
|
|
{
|
||
|
|
if ( baseids[j] == 0 )
|
||
|
|
break;
|
||
|
|
//printf("{%llu %f %f} ",(long long)baseids[j],basevols[j],relvols[j]);
|
||
|
|
}
|
||
|
|
//printf("basevols bidvol %f, askvol %f\n",bidvol,askvol);
|
||
|
|
gp = &OB.book[MAX_GROUPS][slot];
|
||
|
|
if ( bid > SMALLVAL && bidvol > SMALLVAL )
|
||
|
|
{
|
||
|
|
if ( slot == 0 )
|
||
|
|
prices->lastbid = bid;
|
||
|
|
gp->bid.s.timestamp = OB.timestamp, gp->bid.s.price = bid, gp->bid.s.vol = bidvol, gp->bid.slot_ba = (OB.numbids++ << 1);
|
||
|
|
gp->bid.source = prices, gp->bid.wt = prices->groupwts[j];
|
||
|
|
}
|
||
|
|
if ( ask > SMALLVAL && askvol > SMALLVAL )
|
||
|
|
{
|
||
|
|
if ( slot == 0 )
|
||
|
|
prices->lastask = ask;
|
||
|
|
gp->ask.s.timestamp = OB.timestamp, gp->ask.s.price = ask, gp->ask.s.vol = askvol, gp->ask.slot_ba = (OB.numasks++ << 1) | 1;
|
||
|
|
gp->ask.source = prices, gp->ask.wt = prices->groupwts[j];
|
||
|
|
}
|
||
|
|
//printf("%s %s slot.%d (%.8f %.6f %.8f %.6f) (%d %d)\n",prices->exchange,prices->contract,slot,gp->bid.s.price,gp->bid.s.vol,gp->ask.s.price,gp->ask.s.vol,OB.numbids,OB.numasks);
|
||
|
|
}
|
||
|
|
//fprintf(stderr,"%s basket.%s slot.%d numbids.%d numasks.%d %f %f\n",prices->exchange,prices->contract,slot,prices->O.numbids,prices->O.numasks,prices->O.book[MAX_GROUPS][0].bid.s.price,prices->O.book[MAX_GROUPS][0].ask.s.price);
|
||
|
|
if ( slot > 0 )
|
||
|
|
{
|
||
|
|
prices->O2 = prices->O;
|
||
|
|
prices->O = OB;
|
||
|
|
if ( prices->lastbid > SMALLVAL && prices->lastask > SMALLVAL )
|
||
|
|
hbla = 0.5 * (prices->lastbid + prices->lastask);
|
||
|
|
}
|
||
|
|
return(hbla);
|
||
|
|
}
|
||
|
|
|
||
|
|
struct prices777 *prices777_addbundle(int32_t *validp,int32_t loadprices,struct prices777 *prices,char *exchangestr,uint64_t baseid,uint64_t relid)
|
||
|
|
{
|
||
|
|
int32_t j; struct prices777 *ptr; struct exchange_info *exchange;
|
||
|
|
*validp = -1;
|
||
|
|
if ( prices != 0 )
|
||
|
|
{
|
||
|
|
exchangestr = prices->exchange;
|
||
|
|
baseid = prices->baseid, relid = prices->relid;
|
||
|
|
}
|
||
|
|
for (j=0; j<BUNDLE.num; j++)
|
||
|
|
{
|
||
|
|
if ( (ptr= BUNDLE.ptrs[j]) != 0 && ((ptr->baseid == baseid && ptr->relid == relid) || (ptr->relid == baseid && ptr->baseid == relid)) && strcmp(ptr->exchange,exchangestr) == 0 )
|
||
|
|
return(ptr);
|
||
|
|
}
|
||
|
|
if ( j == BUNDLE.num )
|
||
|
|
{
|
||
|
|
if ( prices != 0 )
|
||
|
|
{
|
||
|
|
exchange = &Exchanges[prices->exchangeid];
|
||
|
|
if ( loadprices != 0 && exchange->issue.update != 0 )
|
||
|
|
{
|
||
|
|
portable_mutex_lock(&exchange->mutex);
|
||
|
|
(exchange->issue.update)(prices,MAX_DEPTH);
|
||
|
|
portable_mutex_unlock(&exchange->mutex);
|
||
|
|
}
|
||
|
|
printf("total polling.%d added.(%s)\n",BUNDLE.num,prices->contract);
|
||
|
|
if ( exchange->polling == 0 )
|
||
|
|
{
|
||
|
|
printf("First pair for (%s), start polling]\n",exchange_str(prices->exchangeid));
|
||
|
|
exchange->polling = 1;
|
||
|
|
if ( strcmp(exchange->name,"wallet") != 0 )//&& strcmp(exchange->name,"jumblr") != 0 && strcmp(exchange->name,"pangea") != 0 )
|
||
|
|
iguana_launch(iguana_coinadd("BTCD"),"exchangeloop",(void *)prices777_exchangeloop,&Exchanges[prices->exchangeid],IGUANA_EXCHANGETHREAD);
|
||
|
|
}
|
||
|
|
BUNDLE.ptrs[BUNDLE.num] = prices;
|
||
|
|
printf("prices777_addbundle.(%s) (%s/%s).%s %llu %llu\n",prices->contract,prices->base,prices->rel,prices->exchange,(long long)prices->baseid,(long long)prices->relid);
|
||
|
|
BUNDLE.num++;
|
||
|
|
} else printf("no prices\n");
|
||
|
|
*validp = BUNDLE.num;
|
||
|
|
return(prices);
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t is_native_crypto(char *name,uint64_t bits)
|
||
|
|
{
|
||
|
|
int32_t i,n;
|
||
|
|
if ( (n= (int32_t)strlen(name)) > 0 || (n= unstringbits(name,bits)) <= 5 )
|
||
|
|
{
|
||
|
|
for (i=0; i<n; i++)
|
||
|
|
{
|
||
|
|
if ( (name[i] >= '0' && name[i] <= '9') || (name[i] >= 'A' && name[i] <= 'Z') )// || (name[i] >= '0' && name[i] <= '9') )
|
||
|
|
continue;
|
||
|
|
printf("(%s) is not native crypto\n",name);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
printf("(%s) is native crypto\n",name);
|
||
|
|
return(1);
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
char *_issue_getAsset(char *assetidstr)
|
||
|
|
{
|
||
|
|
char cmd[4096],*jsonstr;
|
||
|
|
//sprintf(cmd,"requestType=getAsset&asset=%s",assetidstr);
|
||
|
|
sprintf(cmd,"requestType=getAsset&asset=%s",assetidstr);
|
||
|
|
//printf("_cmd.(%s)\n",cmd);
|
||
|
|
jsonstr = issue_NXTPOST(cmd);
|
||
|
|
//printf("(%s) -> (%s)\n",cmd,jsonstr);
|
||
|
|
return(jsonstr);
|
||
|
|
}
|
||
|
|
|
||
|
|
char *_issue_getCurrency(char *assetidstr)
|
||
|
|
{
|
||
|
|
char cmd[4096];
|
||
|
|
//sprintf(cmd,"requestType=getAsset&asset=%s",assetidstr);
|
||
|
|
sprintf(cmd,"requestType=getCurrency¤cy=%s",assetidstr);
|
||
|
|
//printf("_cmd.(%s)\n",cmd);
|
||
|
|
return(issue_NXTPOST(cmd));
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t is_mscoin(char *assetidstr)
|
||
|
|
{
|
||
|
|
char *jsonstr; cJSON *json; int32_t retcode = 0;
|
||
|
|
if ( (jsonstr= _issue_getCurrency(assetidstr)) != 0 )
|
||
|
|
{
|
||
|
|
if ( (json= cJSON_Parse(jsonstr)) != 0 )
|
||
|
|
{
|
||
|
|
if ( get_cJSON_int(json,"errorCode") == 0 )
|
||
|
|
retcode = 1;
|
||
|
|
free_json(json);
|
||
|
|
}
|
||
|
|
free(jsonstr);
|
||
|
|
}
|
||
|
|
return(retcode);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t get_assetname(char *name,uint64_t assetid)
|
||
|
|
{
|
||
|
|
char assetidstr[64],*jsonstr; cJSON *json;
|
||
|
|
name[0] = 0;
|
||
|
|
if ( is_native_crypto(name,assetid) != 0 )
|
||
|
|
return((int32_t)strlen(name));
|
||
|
|
expand_nxt64bits(assetidstr,assetid);
|
||
|
|
name[0] = 0;
|
||
|
|
if ( (jsonstr= _issue_getAsset(assetidstr)) != 0 )
|
||
|
|
{
|
||
|
|
if ( (json= cJSON_Parse(jsonstr)) != 0 )
|
||
|
|
{
|
||
|
|
extract_cJSON_str(name,15,json,"name");
|
||
|
|
free_json(json);
|
||
|
|
}
|
||
|
|
free(jsonstr);
|
||
|
|
}
|
||
|
|
return((int32_t)strlen(assetidstr));
|
||
|
|
}
|
||
|
|
|
||
|
|
uint32_t get_blockutime(uint32_t blocknum)
|
||
|
|
{
|
||
|
|
cJSON *json;
|
||
|
|
uint32_t timestamp = 0;
|
||
|
|
char cmd[4096],*jsonstr;
|
||
|
|
sprintf(cmd,"requestType=getBlock&height=%u",blocknum);
|
||
|
|
if ( (jsonstr= issue_NXTPOST(cmd)) != 0 )
|
||
|
|
{
|
||
|
|
//printf("(%s) -> (%s)\n",cmd,jsonstr);
|
||
|
|
if ( (json= cJSON_Parse(jsonstr)) != 0 )
|
||
|
|
{
|
||
|
|
if ( (timestamp= juint(json,"timestamp")) != 0 )
|
||
|
|
timestamp += NXT_GENESISTIME;
|
||
|
|
free_json(json);
|
||
|
|
}
|
||
|
|
free(jsonstr);
|
||
|
|
}
|
||
|
|
return(timestamp);
|
||
|
|
}
|
||
|
|
|
||
|
|
uint64_t calc_decimals_mult(int32_t decimals)
|
||
|
|
{
|
||
|
|
int32_t i; uint64_t mult = 1;
|
||
|
|
for (i=7-decimals; i>=0; i--)
|
||
|
|
mult *= 10;
|
||
|
|
return(mult);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t _set_assetname(uint64_t *multp,char *buf,char *jsonstr,uint64_t assetid)
|
||
|
|
{
|
||
|
|
int32_t type = 0,decimals = -1; cJSON *json=0; char assetidstr[64],*str;
|
||
|
|
*multp = 1;
|
||
|
|
buf[0] = 0;
|
||
|
|
if ( assetid != 0 )
|
||
|
|
{
|
||
|
|
//fprintf(stderr,"assetid.%llu\n",(long long)assetid);
|
||
|
|
if ( (str= is_MGWasset(assetid)) != 0 )
|
||
|
|
{
|
||
|
|
strcpy(buf,str);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
if ( is_native_crypto(buf,assetid) != 0 )
|
||
|
|
{
|
||
|
|
unstringbits(buf,assetid);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( jsonstr == 0 )
|
||
|
|
{
|
||
|
|
if ( assetid == 0 )
|
||
|
|
printf("_set_assetname null assetid\n"), getchar();
|
||
|
|
expand_nxt64bits(assetidstr,assetid);
|
||
|
|
type = 2;
|
||
|
|
if ( (jsonstr= _issue_getAsset(assetidstr)) != 0 )
|
||
|
|
{
|
||
|
|
//printf("%llu (%s) -> (%s)\n",(long long)assetid,assetidstr,jsonstr);
|
||
|
|
if ( (json= cJSON_Parse(jsonstr)) != 0 )
|
||
|
|
{
|
||
|
|
if ( get_cJSON_int(json,"errorCode") != 0 )
|
||
|
|
{
|
||
|
|
free_json(json), free(jsonstr);
|
||
|
|
if ( (jsonstr= _issue_getCurrency(assetidstr)) != 0 )
|
||
|
|
{
|
||
|
|
//printf("(%s) -> (%s)\n",assetidstr,jsonstr);
|
||
|
|
if ( (json= cJSON_Parse(jsonstr)) != 0 )
|
||
|
|
{
|
||
|
|
if ( get_cJSON_int(json,"errorCode") != 0 )
|
||
|
|
{
|
||
|
|
printf("(%s) not asset and not currency (%s)\n",assetidstr,jsonstr);//, getchar();
|
||
|
|
free_json(json), free(jsonstr);
|
||
|
|
return(-1);
|
||
|
|
}
|
||
|
|
type = 5;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
free(jsonstr), jsonstr = 0;
|
||
|
|
} else return(-1);
|
||
|
|
}
|
||
|
|
if ( multp != 0 )
|
||
|
|
*multp = 0;
|
||
|
|
if ( json == 0 )
|
||
|
|
json = cJSON_Parse(jsonstr);
|
||
|
|
if ( json != 0 )
|
||
|
|
{
|
||
|
|
if ( get_cJSON_int(json,"errorCode") == 0 )
|
||
|
|
{
|
||
|
|
decimals = (int32_t)get_cJSON_int(json,"decimals");
|
||
|
|
if ( multp != 0 && decimals >= 0 && decimals <= 8 )
|
||
|
|
*multp = calc_decimals_mult(decimals);
|
||
|
|
if ( extract_cJSON_str(buf,16,json,"name") <= 0 )
|
||
|
|
decimals = -1;
|
||
|
|
//printf("%s decimals.%d (%s)\n",assetidstr,decimals,buf);
|
||
|
|
}
|
||
|
|
free_json(json);
|
||
|
|
}
|
||
|
|
return(type);
|
||
|
|
}
|
||
|
|
|
||
|
|
char *peggy_mapname(char *basebuf,char *relbuf,int32_t i) // sorry it is messy thing
|
||
|
|
{
|
||
|
|
char *base,*rel,buf[16];
|
||
|
|
base = rel = 0;
|
||
|
|
strcpy(buf,peggy_contracts[i]);
|
||
|
|
base = buf, rel = "BTCD";
|
||
|
|
if ( strlen(buf) > 3 && strcmp(buf+strlen(buf)-3,"USD") == 0 )
|
||
|
|
{
|
||
|
|
if ( strcmp(buf,"BTCUSD") == 0 )
|
||
|
|
base = "BTC";
|
||
|
|
buf[strlen(buf)-3] = 0;
|
||
|
|
}
|
||
|
|
else if ( strcmp(buf,"Copper") == 0 || strcmp(buf,"NGAS") == 0 || strcmp(buf,"UKOil") == 0 || strcmp(buf,"USOil") == 0 || strcmp(buf,"US30") == 0 || strcmp(buf,"SPX500") == 0 || strcmp(buf,"NAS100") == 0 )
|
||
|
|
rel = "USD";
|
||
|
|
else if ( strcmp(buf,"Bund") == 0 )
|
||
|
|
rel = "yield";
|
||
|
|
else if ( strcmp(buf,"EUSTX50") == 0 )
|
||
|
|
rel = "EUR";
|
||
|
|
else if ( strcmp(buf,"JPN225") == 0 )
|
||
|
|
rel = "JPY";
|
||
|
|
else if ( strcmp(buf,"UK100") == 0 )
|
||
|
|
rel = "GBP";
|
||
|
|
else if ( strcmp(buf,"GER30") == 0 )
|
||
|
|
rel = "EUR";
|
||
|
|
else if ( strcmp(buf,"SUI30") == 0 )
|
||
|
|
rel = "CHF";
|
||
|
|
else if ( strcmp(buf,"AUS200") == 0 )
|
||
|
|
rel = "AUD";
|
||
|
|
else if ( strcmp(buf,"HKG33") == 0 )
|
||
|
|
rel = "HKD";
|
||
|
|
else if ( strlen(buf) > 3 && strcmp(buf+strlen(buf)-3,"BTC") == 0 )
|
||
|
|
base = buf, buf[strlen(buf)-3] = 0;
|
||
|
|
if ( i == sizeof(peggy_contracts)/sizeof(*peggy_contracts)-1 && strcmp(peggy_contracts[i],"BTCUSD") == 0 )
|
||
|
|
base = "BTC", rel = "USD";
|
||
|
|
else if ( i == sizeof(peggy_contracts)/sizeof(*peggy_contracts)-2 && strcmp(peggy_contracts[i],"BTCCNY") == 0 )
|
||
|
|
base = "BTC", rel = "CNY";
|
||
|
|
else if ( i == sizeof(peggy_contracts)/sizeof(*peggy_contracts)-3 && strcmp(peggy_contracts[i],"BTCRUB") == 0 )
|
||
|
|
base = "BTC", rel = "RUB";
|
||
|
|
else if ( i == sizeof(peggy_contracts)/sizeof(*peggy_contracts)-4 && strcmp(peggy_contracts[i],"XAUUSD") == 0 )
|
||
|
|
base = "XAU", rel = "USD";
|
||
|
|
else if ( i == 0 )
|
||
|
|
base = "BTCD", rel = "maincurrency peggy, price is BTCD/BTC for info only";
|
||
|
|
basebuf[0] = relbuf[0] = 0;
|
||
|
|
if ( rel != 0 )
|
||
|
|
strcpy(relbuf,rel);//, printf("rel.(%s) ",rel);
|
||
|
|
if ( base != 0 )
|
||
|
|
strcpy(basebuf,base);//, printf("base.(%s) ",base);
|
||
|
|
return(basebuf);
|
||
|
|
}
|
||
|
|
|
||
|
|
uint64_t peggy_basebits(char *name)
|
||
|
|
{
|
||
|
|
int32_t i; char basebuf[64],relbuf[64];
|
||
|
|
for (i=0; i<64; i++)
|
||
|
|
{
|
||
|
|
if ( strcmp(name,peggy_contracts[i]) == 0 )
|
||
|
|
{
|
||
|
|
peggy_mapname(basebuf,relbuf,i);
|
||
|
|
return(stringbits(basebuf));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
uint64_t peggy_relbits(char *name)
|
||
|
|
{
|
||
|
|
int32_t i; char basebuf[64],relbuf[64];
|
||
|
|
for (i=0; i<64; i++)
|
||
|
|
{
|
||
|
|
if ( strcmp(name,peggy_contracts[i]) == 0 )
|
||
|
|
{
|
||
|
|
peggy_mapname(basebuf,relbuf,i);
|
||
|
|
return(stringbits(relbuf));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t prices777_key(char *key,char *exchange,char *name,char *base,uint64_t baseid,char *rel,uint64_t relid)
|
||
|
|
{
|
||
|
|
int32_t len,keysize = 0;
|
||
|
|
memcpy(&key[keysize],&baseid,sizeof(baseid)), keysize += sizeof(baseid);
|
||
|
|
memcpy(&key[keysize],&relid,sizeof(relid)), keysize += sizeof(relid);
|
||
|
|
strcpy(&key[keysize],exchange), keysize += strlen(exchange) + 1;
|
||
|
|
strcpy(&key[keysize],name), keysize += strlen(name) + 1;
|
||
|
|
memcpy(&key[keysize],base,strlen(base)+1), keysize += strlen(base) + 1;
|
||
|
|
if ( rel != 0 && (len= (int32_t)strlen(rel)) > 0 )
|
||
|
|
memcpy(&key[keysize],rel,len+1), keysize += len+1;
|
||
|
|
return(keysize);
|
||
|
|
}
|
||
|
|
|
||
|
|
uint64_t InstantDEX_name(char *key,int32_t *keysizep,char *exchange,char *name,char *base,uint64_t *baseidp,char *rel,uint64_t *relidp)
|
||
|
|
{
|
||
|
|
uint64_t baseid,relid,assetbits = 0; char *s,*str;
|
||
|
|
baseid = *baseidp, relid = *relidp;
|
||
|
|
//printf(">>>>>> name.(%s) (%s/%s) %llu/%llu\n",name,base,rel,(long long)baseid,(long long)relid);
|
||
|
|
if ( strcmp(base,"5527630") == 0 || baseid == 5527630 )
|
||
|
|
strcpy(base,"NXT");
|
||
|
|
if ( strcmp(rel,"5527630") == 0 || relid == 5527630 )
|
||
|
|
strcpy(rel,"NXT");
|
||
|
|
if ( relid == 0 && rel[0] != 0 )
|
||
|
|
{
|
||
|
|
if ( is_decimalstr(rel) != 0 )
|
||
|
|
relid = calc_nxt64bits(rel);
|
||
|
|
else relid = is_MGWcoin(rel);
|
||
|
|
}
|
||
|
|
else if ( (str= is_MGWasset(relid)) != 0 )
|
||
|
|
strcpy(rel,str);
|
||
|
|
if ( baseid == 0 && base[0] != 0 )
|
||
|
|
{
|
||
|
|
if ( is_decimalstr(base) != 0 )
|
||
|
|
baseid = calc_nxt64bits(base);
|
||
|
|
else baseid = is_MGWcoin(base);
|
||
|
|
}
|
||
|
|
else if ( (str= is_MGWasset(baseid)) != 0 )
|
||
|
|
strcpy(base,str);
|
||
|
|
if ( strcmp("InstantDEX",exchange) == 0 || strcmp("nxtae",exchange) == 0 || strcmp("unconf",exchange) == 0 || (baseid != 0 && relid != 0) )
|
||
|
|
{
|
||
|
|
if ( strcmp(rel,"NXT") == 0 )
|
||
|
|
s = "+", relid = stringbits("NXT"), strcpy(rel,"NXT");
|
||
|
|
else if ( strcmp(base,"NXT") == 0 )
|
||
|
|
s = "-", baseid = stringbits("NXT"), strcpy(base,"NXT");
|
||
|
|
else s = "";
|
||
|
|
if ( base[0] == 0 )
|
||
|
|
{
|
||
|
|
get_assetname(base,baseid);
|
||
|
|
//printf("mapped %llu -> (%s)\n",(long long)baseid,base);
|
||
|
|
}
|
||
|
|
if ( rel[0] == 0 )
|
||
|
|
{
|
||
|
|
get_assetname(rel,relid);
|
||
|
|
//printf("mapped %llu -> (%s)\n",(long long)relid,rel);
|
||
|
|
}
|
||
|
|
if ( name[0] == 0 )
|
||
|
|
{
|
||
|
|
if ( relid == NXT_ASSETID )
|
||
|
|
sprintf(name,"%llu",(long long)baseid);
|
||
|
|
else if ( baseid == NXT_ASSETID )
|
||
|
|
sprintf(name,"-%llu",(long long)relid);
|
||
|
|
else sprintf(name,"%llu/%llu",(long long)baseid,(long long)relid);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ( base[0] != 0 && rel[0] != 0 && baseid == 0 && relid == 0 )
|
||
|
|
{
|
||
|
|
baseid = peggy_basebits(base), relid = peggy_basebits(rel);
|
||
|
|
if ( name[0] == 0 && baseid != 0 && relid != 0 )
|
||
|
|
{
|
||
|
|
strcpy(name,base); // need to be smarter
|
||
|
|
strcat(name,"/");
|
||
|
|
strcat(name,rel);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( name[0] == 0 || baseid == 0 || relid == 0 || base[0] == 0 || rel[0] == 0 )
|
||
|
|
{
|
||
|
|
if ( baseid == 0 && base[0] != 0 )
|
||
|
|
baseid = stringbits(base);
|
||
|
|
else if ( baseid != 0 && base[0] == 0 )
|
||
|
|
sprintf(base,"%llu",(long long)baseid);
|
||
|
|
if ( relid == 0 && rel[0] != 0 )
|
||
|
|
{
|
||
|
|
relid = stringbits(rel);
|
||
|
|
printf("set relid.%llu <- (%s)\n",(long long)relid,rel);
|
||
|
|
}
|
||
|
|
else if ( relid != 0 && rel[0] == 0 )
|
||
|
|
sprintf(rel,"%llu",(long long)relid);
|
||
|
|
if ( name[0] == 0 )
|
||
|
|
strcpy(name,base), strcat(name,"/"), strcat(name,rel);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
*baseidp = baseid, *relidp = relid;
|
||
|
|
*keysizep = prices777_key(key,exchange,name,base,baseid,rel,relid);
|
||
|
|
//printf("<<<<<<< name.(%s) (%s/%s) %llu/%llu\n",name,base,rel,(long long)baseid,(long long)relid);
|
||
|
|
return(assetbits);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t create_basketitem(struct prices777_basket *basketitem,cJSON *item,char *refbase,char *refrel,int32_t basketsize)
|
||
|
|
{
|
||
|
|
struct destbuf exchangestr,name,base,rel; char key[512]; uint64_t tmp,baseid,relid; int32_t groupid,keysize,valid; double wt; struct prices777 *prices;
|
||
|
|
copy_cJSON(&exchangestr,jobj(item,"exchange"));
|
||
|
|
if ( strcmp("jumblr",exchangestr.buf) == 0 || strcmp("pangea",exchangestr.buf) == 0 || strcmp("wallet",exchangestr.buf) == 0 || exchange_find(exchangestr.buf) == 0 )
|
||
|
|
{
|
||
|
|
printf("create_basketitem: illegal exchange.%s\n",exchangestr.buf);
|
||
|
|
return(-1);
|
||
|
|
}
|
||
|
|
copy_cJSON(&name,jobj(item,"name"));
|
||
|
|
copy_cJSON(&base,jobj(item,"base"));
|
||
|
|
copy_cJSON(&rel,jobj(item,"rel"));
|
||
|
|
if ( (baseid= j64bits(item,"baseid")) != 0 && base.buf[0] == 0 )
|
||
|
|
{
|
||
|
|
_set_assetname(&tmp,base.buf,0,baseid);
|
||
|
|
//printf("GOT.(%s) <- %llu\n",base.buf,(long long)baseid);
|
||
|
|
}
|
||
|
|
else if ( baseid == 0 )
|
||
|
|
baseid = stringbits(base.buf);
|
||
|
|
if ( (relid= j64bits(item,"relid")) != 0 && rel.buf[0] == 0 )
|
||
|
|
{
|
||
|
|
_set_assetname(&tmp,rel.buf,0,relid);
|
||
|
|
//printf("GOT.(%s) <- %llu\n",rel.buf,(long long)relid);
|
||
|
|
}
|
||
|
|
else if ( relid == 0 )
|
||
|
|
relid = stringbits(rel.buf);
|
||
|
|
groupid = juint(item,"group");
|
||
|
|
wt = jdouble(item,"wt");
|
||
|
|
if ( wt == 0. )
|
||
|
|
wt = 1.;
|
||
|
|
if ( strcmp(refbase,rel.buf) == 0 || strcmp(refrel,base.buf) == 0 )
|
||
|
|
{
|
||
|
|
if ( wt != -1 )
|
||
|
|
{
|
||
|
|
printf("need to flip wt %f for (%s/%s) ref.(%s/%s)\n",wt,base.buf,rel.buf,refbase,refrel);
|
||
|
|
wt = -1.;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else if ( wt != 1. )
|
||
|
|
{
|
||
|
|
printf("need to flip wt %f for (%s/%s) ref.(%s/%s)\n",wt,base.buf,rel.buf,refbase,refrel);
|
||
|
|
wt = 1.;
|
||
|
|
}
|
||
|
|
if ( name.buf[0] == 0 )
|
||
|
|
sprintf(name.buf,"%s/%s",base.buf,rel.buf);
|
||
|
|
if ( base.buf[0] == 0 )
|
||
|
|
strcpy(base.buf,refbase);
|
||
|
|
if ( rel.buf[0] == 0 )
|
||
|
|
strcpy(rel.buf,refrel);
|
||
|
|
InstantDEX_name(key,&keysize,exchangestr.buf,name.buf,base.buf,&baseid,rel.buf,&relid);
|
||
|
|
printf(">>>>>>>>>> create basketitem.(%s) name.(%s) %s (%s/%s) %llu/%llu wt %f\n",jprint(item,0),name.buf,exchangestr.buf,base.buf,rel.buf,(long long)baseid,(long long)relid,wt);
|
||
|
|
if ( (prices= prices777_initpair(1,exchangestr.buf,base.buf,rel.buf,0.,name.buf,baseid,relid,basketsize)) != 0 )
|
||
|
|
{
|
||
|
|
prices777_addbundle(&valid,0,prices,0,0,0);
|
||
|
|
basketitem->prices = prices;
|
||
|
|
basketitem->wt = wt;
|
||
|
|
basketitem->groupid = groupid;
|
||
|
|
strcpy(basketitem->base,base.buf);
|
||
|
|
strcpy(basketitem->rel,rel.buf);
|
||
|
|
return(0);
|
||
|
|
} else printf("couldnt create basketitem\n");
|
||
|
|
return(-1);
|
||
|
|
}
|
||
|
|
|
||
|
|
struct prices777 *prices777_makebasket(char *basketstr,cJSON *_basketjson,int32_t addbasket,char *typestr,struct prices777 *ptrs[],int32_t num)
|
||
|
|
{
|
||
|
|
//{"name":"NXT/BTC","base":"NXT","rel":"BTC","basket":[{"exchange":"poloniex"},{"exchange":"btc38"}]}
|
||
|
|
int32_t i,j,n,keysize,valid,basketsize,total = 0; struct destbuf refname,refbase,refrel; char key[8192]; uint64_t refbaseid=0,refrelid=0;
|
||
|
|
struct prices777_basket *basketitem,*basket = 0; cJSON *basketjson,*array,*item; struct prices777 *prices = 0;
|
||
|
|
if ( (basketjson= _basketjson) == 0 && (basketjson= cJSON_Parse(basketstr)) == 0 )
|
||
|
|
{
|
||
|
|
printf("cant parse basketstr.(%s)\n",basketstr);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
copy_cJSON(&refname,jobj(basketjson,"name"));
|
||
|
|
copy_cJSON(&refbase,jobj(basketjson,"base"));
|
||
|
|
copy_cJSON(&refrel,jobj(basketjson,"rel"));
|
||
|
|
refbaseid = j64bits(basketjson,"baseid");
|
||
|
|
refrelid = j64bits(basketjson,"relid");
|
||
|
|
if ( (array= jarray(&n,basketjson,"basket")) != 0 )
|
||
|
|
{
|
||
|
|
printf("MAKE/(%s) n.%d num.%d\n",jprint(basketjson,0),n,num);
|
||
|
|
basketsize = (n + num);
|
||
|
|
basket = calloc(1,sizeof(*basket) * basketsize);
|
||
|
|
for (i=0; i<n; i++)
|
||
|
|
{
|
||
|
|
item = jitem(array,i);
|
||
|
|
if ( create_basketitem(&basket[total],item,refbase.buf,refrel.buf,basketsize) < 0 )
|
||
|
|
printf("warning: >>>>>>>>>>>> skipped create_basketitem %d of %d of %d\n",i,n,basketsize);
|
||
|
|
else
|
||
|
|
{
|
||
|
|
printf("MAKE.%d: (%s) %p.%s\n",total,jprint(item,0),basket[total].prices,basket[total].prices->exchange);
|
||
|
|
total++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( ptrs != 0 && num > 0 )
|
||
|
|
{
|
||
|
|
for (i=0; i<num; i++)
|
||
|
|
{
|
||
|
|
basketitem = &basket[total];
|
||
|
|
j = 0;
|
||
|
|
if ( total > 0 )
|
||
|
|
{
|
||
|
|
for (j=0; j<n+i; j++)
|
||
|
|
{
|
||
|
|
if ( basket[j].prices == ptrs[i] )
|
||
|
|
{
|
||
|
|
printf("skip duplicate basket[%d] == ptrs[%d]\n",j,i);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( j == n+i )
|
||
|
|
{
|
||
|
|
basketitem->prices = ptrs[i];
|
||
|
|
if ( strcmp(refbase.buf,ptrs[i]->rel) == 0 || strcmp(refrel.buf,ptrs[i]->base) == 0 )
|
||
|
|
basketitem->wt = -1;
|
||
|
|
else basketitem->wt = 1;
|
||
|
|
basketitem->groupid = 0;
|
||
|
|
strcpy(basketitem->base,ptrs[i]->base);
|
||
|
|
strcpy(basketitem->rel,ptrs[i]->rel);
|
||
|
|
total++;
|
||
|
|
printf("extrai.%d/%d total.%d wt.%f (%s/%s).%s\n",i,num,total,basketitem->wt,ptrs[i]->base,ptrs[i]->rel,ptrs[i]->exchange);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
printf(">>>>> addbasket.%d (%s/%s).%s %llu %llu\n",addbasket,refbase.buf,refrel.buf,typestr,(long long)refbaseid,(long long)refrelid);
|
||
|
|
InstantDEX_name(key,&keysize,typestr,refname.buf,refbase.buf,&refbaseid,refrel.buf,&refrelid);
|
||
|
|
printf(">>>>> addbasket.%d (%s/%s).%s %llu %llu\n",addbasket,refbase.buf,refrel.buf,typestr,(long long)refbaseid,(long long)refrelid);
|
||
|
|
if ( addbasket != 0 )
|
||
|
|
{
|
||
|
|
prices777_addbundle(&valid,0,0,typestr,refbaseid,refrelid);
|
||
|
|
printf("<<<<< created.%s valid.%d refname.(%s) (%s/%s).%s %llu %llu\n",typestr,valid,refname.buf,refbase.buf,refrel.buf,typestr,(long long)refbaseid,(long long)refrelid);
|
||
|
|
} else valid = 0;
|
||
|
|
if ( valid >= 0 )
|
||
|
|
{
|
||
|
|
if ( (prices= prices777_createbasket(addbasket,refname.buf,refbase.buf,refrel.buf,refbaseid,refrelid,basket,total,typestr)) != 0 )
|
||
|
|
{
|
||
|
|
if ( addbasket != 0 )
|
||
|
|
BUNDLE.ptrs[BUNDLE.num] = prices;
|
||
|
|
prices->lastprice = prices777_basket(prices,MAX_DEPTH);
|
||
|
|
//printf("C.bsize.%d total polling.%d added.(%s/%s).%s updating basket lastprice %f changed.%p %d groupsize.%d numgroups.%d %p\n",total,BUNDLE.num,prices->base,prices->rel,prices->exchange,prices->lastprice,&prices->changed,prices->changed,prices->basket[0].groupsize,prices->numgroups,&prices->basket[0].groupsize);
|
||
|
|
BUNDLE.num++;
|
||
|
|
}
|
||
|
|
} else prices = 0;
|
||
|
|
if ( basketjson != _basketjson )
|
||
|
|
free_json(basketjson);
|
||
|
|
free(basket);
|
||
|
|
}
|
||
|
|
return(prices);
|
||
|
|
}
|
||
|
|
|
||
|
|
cJSON *inner_json(double price,double vol,uint32_t timestamp,uint64_t quoteid,uint64_t nxt64bits,uint64_t qty,uint64_t pqt,uint64_t baseamount,uint64_t relamount)
|
||
|
|
{
|
||
|
|
cJSON *inner = cJSON_CreateArray();
|
||
|
|
char numstr[64];
|
||
|
|
sprintf(numstr,"%.8f",price), cJSON_AddItemToArray(inner,cJSON_CreateString(numstr));
|
||
|
|
sprintf(numstr,"%.8f",vol), cJSON_AddItemToArray(inner,cJSON_CreateString(numstr));
|
||
|
|
sprintf(numstr,"%llu",(long long)quoteid), cJSON_AddItemToArray(inner,cJSON_CreateString(numstr));
|
||
|
|
cJSON_AddItemToArray(inner,cJSON_CreateNumber(timestamp));
|
||
|
|
sprintf(numstr,"%llu",(long long)nxt64bits), cJSON_AddItemToArray(inner,cJSON_CreateString(numstr));
|
||
|
|
sprintf(numstr,"%llu",(long long)qty), cJSON_AddItemToArray(inner,cJSON_CreateString(numstr));
|
||
|
|
sprintf(numstr,"%llu",(long long)pqt), cJSON_AddItemToArray(inner,cJSON_CreateString(numstr));
|
||
|
|
sprintf(numstr,"%llu",(long long)baseamount), cJSON_AddItemToArray(inner,cJSON_CreateString(numstr));
|
||
|
|
sprintf(numstr,"%llu",(long long)relamount), cJSON_AddItemToArray(inner,cJSON_CreateString(numstr));
|
||
|
|
// printf("(%s) ",jprint(inner,0));
|
||
|
|
return(inner);
|
||
|
|
}
|
||
|
|
|
||
|
|
double prices777_NXT(struct prices777 *prices,int32_t maxdepth)
|
||
|
|
{
|
||
|
|
uint32_t timestamp; int32_t flip,i,n; uint64_t baseamount,relamount,qty,pqt; char url[1024],*str,*cmd,*field;
|
||
|
|
cJSON *json,*bids,*asks,*srcobj,*item,*array; double price,vol,hbla = 0.;
|
||
|
|
if ( NXT_ASSETID != stringbits("NXT") || (strcmp(prices->rel,"NXT") != 0 && strcmp(prices->rel,"5527630") != 0) )
|
||
|
|
{
|
||
|
|
printf("NXT_ASSETID.%llu != %llu stringbits rel.%s\n",(long long)NXT_ASSETID,(long long)stringbits("NXT"),prices->rel);//, getchar();
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
bids = cJSON_CreateArray(), asks = cJSON_CreateArray();
|
||
|
|
for (flip=0; flip<2; flip++)
|
||
|
|
{
|
||
|
|
/*{
|
||
|
|
"offer": "16959774565785265980",
|
||
|
|
"expirationHeight": 1000000,
|
||
|
|
"accountRS": "NXT-QFAF-GR4F-RBSR-AXW2G",
|
||
|
|
"limit": "9000000",
|
||
|
|
"currency": "5775213290661997199",
|
||
|
|
"supply": "0",
|
||
|
|
"account": "9728792749189838093",
|
||
|
|
"height": 348856,
|
||
|
|
"rateNQT": "650"
|
||
|
|
}*/
|
||
|
|
if ( prices->type != 5 )
|
||
|
|
{
|
||
|
|
if ( flip == 0 )
|
||
|
|
cmd = "getBidOrders", field = "bidOrders", array = bids;
|
||
|
|
else cmd = "getAskOrders", field = "askOrders", array = asks;
|
||
|
|
sprintf(url,"requestType=%s&asset=%llu&limit=%d",cmd,(long long)prices->baseid,maxdepth);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ( flip == 0 )
|
||
|
|
cmd = "getBuyOffers", field = "offers", array = bids;
|
||
|
|
else cmd = "getSellOffers", field = "offers", array = asks;
|
||
|
|
sprintf(url,"requestType=%s¤cy=%llu&limit=%d",cmd,(long long)prices->baseid,maxdepth);
|
||
|
|
}
|
||
|
|
if ( (str= issue_NXTPOST(url)) != 0 )
|
||
|
|
{
|
||
|
|
//printf("{%s}\n",str);
|
||
|
|
if ( (json= cJSON_Parse(str)) != 0 )
|
||
|
|
{
|
||
|
|
if ( (srcobj= jarray(&n,json,field)) != 0 )
|
||
|
|
{
|
||
|
|
for (i=0; i<n && i<maxdepth; i++)
|
||
|
|
{
|
||
|
|
/*
|
||
|
|
"quantityQNT": "79",
|
||
|
|
"priceNQT": "13499000000",
|
||
|
|
"transactionHeight": 480173,
|
||
|
|
"accountRS": "NXT-FJQN-8QL2-BMY3-64VLK",
|
||
|
|
"transactionIndex": 1,
|
||
|
|
"asset": "15344649963748848799",
|
||
|
|
"type": "ask",
|
||
|
|
"account": "5245394173527769812",
|
||
|
|
"order": "17926122097022414596",
|
||
|
|
"height": 480173
|
||
|
|
*/
|
||
|
|
item = cJSON_GetArrayItem(srcobj,i);
|
||
|
|
if ( prices->type != 5 )
|
||
|
|
qty = j64bits(item,"quantityQNT"), pqt = j64bits(item,"priceNQT");
|
||
|
|
else qty = j64bits(item,"limit"), pqt = j64bits(item,"rateNQT");
|
||
|
|
baseamount = (qty * prices->ap_mult), relamount = (qty * pqt);
|
||
|
|
price = prices777_price_volume(&vol,baseamount,relamount);
|
||
|
|
if ( i == 0 )
|
||
|
|
{
|
||
|
|
hbla = (hbla == 0.) ? price : 0.5 * (price + hbla);
|
||
|
|
if ( flip == 0 )
|
||
|
|
prices->lastbid = price;
|
||
|
|
else prices->lastask = price;
|
||
|
|
}
|
||
|
|
//printf("(%llu %llu) %f %f mult.%llu qty.%llu pqt.%llu baseamount.%lld relamount.%lld\n",(long long)prices->baseid,(long long)prices->relid,price,vol,(long long)prices->ap_mult,(long long)qty,(long long)pqt,(long long)baseamount,(long long)relamount);
|
||
|
|
timestamp = get_blockutime(juint(item,"height"));
|
||
|
|
item = inner_json(price,vol,timestamp,j64bits(item,prices->type != 5 ? "order" : "offer"),j64bits(item,"account"),qty,pqt,baseamount,relamount);
|
||
|
|
cJSON_AddItemToArray(array,item);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
free_json(json);
|
||
|
|
}
|
||
|
|
free(str);
|
||
|
|
} else printf("cant get.(%s)\n",url);
|
||
|
|
}
|
||
|
|
json = cJSON_CreateObject();
|
||
|
|
cJSON_AddItemToObject(json,"bids",bids);
|
||
|
|
cJSON_AddItemToObject(json,"asks",asks);
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("NXTAE.(%s)\n",jprint(json,0));
|
||
|
|
prices777_json_orderbook("nxtae",prices,maxdepth,json,0,"bids","asks",0,0);
|
||
|
|
free_json(json);
|
||
|
|
return(hbla);
|
||
|
|
}
|
||
|
|
|
||
|
|
double prices777_unconfNXT(struct prices777 *prices,int32_t maxdepth)
|
||
|
|
{
|
||
|
|
struct destbuf account,txidstr,comment,recipient; char url[1024],*str; uint32_t timestamp; int32_t type,i,subtype,n;
|
||
|
|
cJSON *json,*bids,*asks,*array,*txobj,*attachment;
|
||
|
|
double price,vol; uint64_t assetid,accountid,quoteid,baseamount,relamount,qty,priceNQT,amount;
|
||
|
|
bids = cJSON_CreateArray(), asks = cJSON_CreateArray();
|
||
|
|
prices->lastbid = prices->lastask = 0.;
|
||
|
|
prices->O.numbids = prices->O.numasks = 0;
|
||
|
|
sprintf(url,"requestType=getUnconfirmedTransactions");
|
||
|
|
if ( IGUANA_disableNXT == 0 && (str= issue_NXTPOST(url)) != 0 )
|
||
|
|
{
|
||
|
|
//printf("{%s}\n",str);
|
||
|
|
if ( (json= cJSON_Parse(str)) != 0 )
|
||
|
|
{
|
||
|
|
if ( (array= jarray(&n,json,"unconfirmedTransactions")) != 0 )
|
||
|
|
{
|
||
|
|
for (i=0; i<n; i++)
|
||
|
|
{
|
||
|
|
//{"senderPublicKey":"45c9266036e705a9559ccbd2b2c92b28ea6363d2723e8d42433b1dfaa421066c","signature":"9d6cefff4c67f8cf4e9487122e5e6b1b65725815127063df52e9061036e78c0b49ba38dbfc12f03c158697f0af5811ce9398702c4acb008323df37dc55c1b43d","feeNQT":"100000000","type":2,"fullHash":"6a2cd914b9d4a5d8ebfaecaba94ef4e7d2b681c236a4bee56023aafcecd9b704","version":1,"phased":false,"ecBlockId":"887016880740444200","signatureHash":"ba8eee4beba8edbb6973df4243a94813239bf57b91cac744cb8d6a5d032d5257","attachment":{"quantityQNT":"50","priceNQT":"18503000003","asset":"13634675574519917918","version.BidOrderPlacement":1},"senderRS":"NXT-FJQN-8QL2-BMY3-64VLK","subtype":3,"amountNQT":"0","sender":"5245394173527769812","ecBlockHeight":495983,"deadline":1440,"transaction":"15611117574733507690","timestamp":54136768,"height":2147483647},{"senderPublicKey":"c42956d0a9abc5a2e455e69c7e65ff9a53de2b697e913b25fcb06791f127af06","signature":"ca2c3f8e32d3aa003692fef423193053c751235a25eb5b67c21aefdeb7a41d0d37bc084bd2e33461606e25f09ced02d1e061420da7e688306e76de4d4cf90ae0","feeNQT":"100000000","type":2,"fullHash":"51c04de7106a5d5a2895db05305b53dd33fa8b9935d549f765aa829a23c68a6b","version":1,"phased":false,"ecBlockId":"887016880740444200","signatureHash":"d76fce4c081adc29f7e60eba2a930ab5050dd79b6a1355fae04863dddf63730c","attachment":{"version.AskOrderPlacement":1,"quantityQNT":"11570","priceNQT":"110399999","asset":"979292558519844732"},"senderRS":"NXT-ANWW-C5BZ-SGSB-8LGZY","subtype":2,"amountNQT":"0","sender":"8033808554894054300","ecBlockHeight":495983,"deadline":1440,"transaction":"6511477257080258641","timestamp":54136767,"height":2147483647}],"requestProcessingTime":0}
|
||
|
|
|
||
|
|
/* "senderRS": "NXT-M6QF-Q5WK-2UXK-5D3HR",
|
||
|
|
"subtype": 0,
|
||
|
|
"amountNQT": "137700000000",
|
||
|
|
"sender": "4304363382952792781",
|
||
|
|
"recipientRS": "NXT-6AC7-V9BD-NL5W-5BUWF",
|
||
|
|
"recipient": "3959589697280418117",
|
||
|
|
"ecBlockHeight": 506207,
|
||
|
|
"deadline": 1440,
|
||
|
|
"transaction": "5605109208989354417",
|
||
|
|
"timestamp": 55276659,
|
||
|
|
"height": 2147483647*/
|
||
|
|
if ( (txobj= jitem(array,i)) == 0 )
|
||
|
|
continue;
|
||
|
|
copy_cJSON(&txidstr,cJSON_GetObjectItem(txobj,"transaction"));
|
||
|
|
copy_cJSON(&recipient,cJSON_GetObjectItem(txobj,"recipient"));
|
||
|
|
copy_cJSON(&account,cJSON_GetObjectItem(txobj,"account"));
|
||
|
|
if ( account.buf[0] == 0 )
|
||
|
|
copy_cJSON(&account,cJSON_GetObjectItem(txobj,"sender"));
|
||
|
|
accountid = calc_nxt64bits(account.buf);
|
||
|
|
type = (int32_t)get_API_int(cJSON_GetObjectItem(txobj,"type"),-1);
|
||
|
|
subtype = (int32_t)get_API_int(cJSON_GetObjectItem(txobj,"subtype"),-1);
|
||
|
|
timestamp = juint(txobj,"timestamp");
|
||
|
|
amount = get_API_nxt64bits(cJSON_GetObjectItem(txobj,"amountNQT"));
|
||
|
|
qty = amount = assetid = 0;
|
||
|
|
if ( (attachment= cJSON_GetObjectItem(txobj,"attachment")) != 0 )
|
||
|
|
{
|
||
|
|
assetid = get_API_nxt64bits(cJSON_GetObjectItem(attachment,"asset"));
|
||
|
|
comment.buf[0] = 0;
|
||
|
|
qty = get_API_nxt64bits(cJSON_GetObjectItem(attachment,"quantityQNT"));
|
||
|
|
priceNQT = get_API_nxt64bits(cJSON_GetObjectItem(attachment,"priceNQT"));
|
||
|
|
baseamount = (qty * prices->ap_mult), relamount = (qty * priceNQT);
|
||
|
|
copy_cJSON(&comment,jobj(attachment,"message"));
|
||
|
|
if ( comment.buf[0] != 0 )
|
||
|
|
{
|
||
|
|
int32_t match_unconfirmed(char *sender,char *hexstr,cJSON *txobj,char *txidstr,char *account,uint64_t amount,uint64_t qty,uint64_t assetid,char *recipient);
|
||
|
|
//printf("sender.%s -> recv.(%s)\n",account,recipient);
|
||
|
|
match_unconfirmed(account.buf,comment.buf,txobj,txidstr.buf,account.buf,amount,qty,assetid,recipient.buf);
|
||
|
|
}
|
||
|
|
quoteid = calc_nxt64bits(txidstr.buf);
|
||
|
|
price = prices777_price_volume(&vol,baseamount,relamount);
|
||
|
|
if ( prices->baseid == assetid )
|
||
|
|
{
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("unconf.%d subtype.%d %s %llu (%llu %llu) %f %f mult.%llu qty.%llu pqt.%llu baseamount.%lld relamount.%lld\n",i,subtype,txidstr.buf,(long long)prices->baseid,(long long)assetid,(long long)NXT_ASSETID,price,vol,(long long)prices->ap_mult,(long long)qty,(long long)priceNQT,(long long)baseamount,(long long)relamount);
|
||
|
|
if ( subtype == 2 )
|
||
|
|
{
|
||
|
|
array = bids;
|
||
|
|
prices->lastbid = price;
|
||
|
|
}
|
||
|
|
else if ( subtype == 3 )
|
||
|
|
{
|
||
|
|
array = asks;
|
||
|
|
prices->lastask = price;
|
||
|
|
}
|
||
|
|
cJSON_AddItemToArray(array,inner_json(price,vol,timestamp,quoteid,accountid,qty,priceNQT,baseamount,relamount));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
free_json(json);
|
||
|
|
}
|
||
|
|
free(str);
|
||
|
|
} else printf("cant get.(%s)\n",url);
|
||
|
|
}
|
||
|
|
json = cJSON_CreateObject();
|
||
|
|
cJSON_AddItemToObject(json,"bids",bids);
|
||
|
|
cJSON_AddItemToObject(json,"asks",asks);
|
||
|
|
prices777_json_orderbook("unconf",prices,maxdepth,json,0,"bids","asks",0,0);
|
||
|
|
if ( Debuglevel > 2 )//|| prices->O.numbids != 0 || prices->O.numasks != 0 )
|
||
|
|
printf("%s %s/%s unconf.(%s) %f %f (%d %d)\n",prices->contract,prices->base,prices->rel,jprint(json,0),prices->lastbid,prices->lastask,prices->O.numbids,prices->O.numasks);
|
||
|
|
free_json(json);
|
||
|
|
return(_pairaved(prices->lastbid,prices->lastask));
|
||
|
|
}
|
||
|
|
|
||
|
|
double prices777_InstantDEX(struct prices777 *prices,int32_t maxdepth)
|
||
|
|
{
|
||
|
|
cJSON *json; double hbla = 0.;
|
||
|
|
if ( (json= InstantDEX_orderbook(prices)) != 0 ) // strcmp(prices->exchange,INSTANTDEX_NAME) == 0 &&
|
||
|
|
{
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("InstantDEX.(%s)\n",jprint(json,0));
|
||
|
|
prices777_json_orderbook("InstantDEX",prices,maxdepth,json,0,"bids","asks",0,0);
|
||
|
|
free_json(json);
|
||
|
|
}
|
||
|
|
return(hbla);
|
||
|
|
}
|
||
|
|
|
||
|
|
#define BASE_ISNXT 1
|
||
|
|
#define BASE_ISASSET 2
|
||
|
|
#define BASE_ISNAME 4
|
||
|
|
#define BASE_ISMGW 8
|
||
|
|
#define BASE_EXCHANGEASSET 16
|
||
|
|
|
||
|
|
int32_t calc_baseflags(char *exchange,char *base,uint64_t *baseidp)
|
||
|
|
{
|
||
|
|
char assetidstr[64],tmpstr[64],*str; uint64_t tmp; int32_t flags = 0;
|
||
|
|
exchange[0] = 0;
|
||
|
|
printf("calc_baseflags.(%s/%llu) ",base,(long long)*baseidp);
|
||
|
|
if ( strcmp(base,"NXT") == 0 || *baseidp == NXT_ASSETID )
|
||
|
|
strcpy(base,"NXT"), *baseidp = NXT_ASSETID, flags |= BASE_ISNXT;
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ( *baseidp == 0 )
|
||
|
|
{
|
||
|
|
if ( is_decimalstr(base) != 0 )
|
||
|
|
{
|
||
|
|
*baseidp = calc_nxt64bits(base), flags |= BASE_ISASSET;
|
||
|
|
unstringbits(tmpstr,*baseidp);
|
||
|
|
if ( (tmp= is_MGWcoin(tmpstr)) != 0 )
|
||
|
|
*baseidp = tmp, flags |= (BASE_EXCHANGEASSET | BASE_ISMGW);
|
||
|
|
else
|
||
|
|
{
|
||
|
|
printf("set base.(%s) -> %llu\n",base,(long long)*baseidp);
|
||
|
|
if ( (str= is_MGWasset(*baseidp)) != 0 )
|
||
|
|
strcpy(base,str), flags |= (BASE_EXCHANGEASSET | BASE_ISMGW);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
*baseidp = stringbits(base), flags |= BASE_ISNAME;
|
||
|
|
printf("stringbits.(%s) -> %llu\n",base,(long long)*baseidp);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ( (str= is_MGWasset(*baseidp)) != 0 )
|
||
|
|
{
|
||
|
|
printf("is MGWasset.(%s)\n",str);
|
||
|
|
strcpy(base,str), flags |= (BASE_EXCHANGEASSET | BASE_ISMGW | BASE_ISASSET);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
expand_nxt64bits(assetidstr,*baseidp);
|
||
|
|
if ( (str= is_tradedasset(exchange,assetidstr)) != 0 )
|
||
|
|
{
|
||
|
|
strcpy(base,str), flags |= (BASE_EXCHANGEASSET | BASE_ISASSET);
|
||
|
|
printf("%s is tradedasset at (%s) %llu\n",assetidstr,str,(long long)*baseidp);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
unstringbits(tmpstr,*baseidp);
|
||
|
|
if ( (tmp= is_MGWcoin(tmpstr)) != 0 )
|
||
|
|
strcpy(base,tmpstr), *baseidp = tmp, flags |= (BASE_EXCHANGEASSET | BASE_ISMGW | BASE_ISASSET);
|
||
|
|
else
|
||
|
|
{
|
||
|
|
_set_assetname(&tmp,base,0,*baseidp), flags |= BASE_ISASSET;
|
||
|
|
printf("_set_assetname.(%s) from %llu\n",base,(long long)*baseidp);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( (flags & (BASE_ISASSET|BASE_EXCHANGEASSET|BASE_ISMGW)) == 0 )
|
||
|
|
*baseidp = stringbits(base);
|
||
|
|
}
|
||
|
|
printf("-> flags.%d (%s %llu) %s\n",flags,base,(long long)*baseidp,exchange);
|
||
|
|
return(flags);
|
||
|
|
}
|
||
|
|
|
||
|
|
void setitemjson(cJSON *item,char *name,char *base,uint64_t baseid,char *rel,uint64_t relid)
|
||
|
|
{
|
||
|
|
char numstr[64];
|
||
|
|
jaddstr(item,"name",name), jaddstr(item,"base",base), jaddstr(item,"rel",rel);
|
||
|
|
sprintf(numstr,"%llu",(long long)baseid), jaddstr(item,"baseid",numstr);
|
||
|
|
sprintf(numstr,"%llu",(long long)relid), jaddstr(item,"relid",numstr);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t nxt_basketjson(cJSON *array,int32_t groupid,int32_t polarity,char *base,uint64_t baseid,char *rel,uint64_t relid,char *refbase,char *refrel)
|
||
|
|
{
|
||
|
|
cJSON *item,*item2,*item3; char name[64]; int32_t dir = 0;
|
||
|
|
item = cJSON_CreateObject(), jaddstr(item,"exchange",INSTANTDEX_NXTAENAME);
|
||
|
|
item2 = cJSON_CreateObject(), jaddstr(item2,"exchange",INSTANTDEX_NXTAEUNCONF);
|
||
|
|
item3 = cJSON_CreateObject(), jaddstr(item3,"exchange",INSTANTDEX_NAME);
|
||
|
|
if ( strcmp(base,"NXT") == 0 )
|
||
|
|
{
|
||
|
|
sprintf(name,"%s/%s",rel,"NXT");
|
||
|
|
setitemjson(item,name,rel,relid,"NXT",NXT_ASSETID);
|
||
|
|
setitemjson(item2,name,rel,relid,"NXT",NXT_ASSETID);
|
||
|
|
setitemjson(item3,name,rel,relid,"NXT",NXT_ASSETID);
|
||
|
|
}
|
||
|
|
else if ( strcmp(rel,"NXT") == 0 )
|
||
|
|
{
|
||
|
|
sprintf(name,"%s/%s",base,"NXT");
|
||
|
|
setitemjson(item,name,base,baseid,"NXT",NXT_ASSETID);
|
||
|
|
setitemjson(item2,name,base,baseid,"NXT",NXT_ASSETID);
|
||
|
|
setitemjson(item3,name,base,baseid,"NXT",NXT_ASSETID);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
free_json(item);
|
||
|
|
free_json(item2);
|
||
|
|
free_json(item3);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
if ( strcmp(refbase,rel) == 0 || strcmp(refrel,base) == 0 )
|
||
|
|
dir = -1;
|
||
|
|
else dir = 1;
|
||
|
|
jaddnum(item,"wt",dir), jaddnum(item2,"wt",dir), jaddnum(item3,"wt",dir);
|
||
|
|
jaddnum(item,"group",groupid), jaddnum(item2,"group",groupid), jaddnum(item3,"group",groupid);
|
||
|
|
printf("nxt_basketjson (%s/%s) %llu/%llu ref.(%s/%s) dir.%d polarity.%d\n",base,rel,(long long)baseid,(long long)relid,refbase,refrel,dir,polarity);
|
||
|
|
jaddi(array,item), jaddi(array,item2), jaddi(array,item3);
|
||
|
|
return(dir * polarity);
|
||
|
|
}
|
||
|
|
|
||
|
|
void add_nxtbtc(cJSON *array,int32_t groupid,double wt)
|
||
|
|
{
|
||
|
|
char *btcnxt_xchgs[] = { "poloniex", "bittrex", "btc38" };
|
||
|
|
int32_t i; cJSON *item;
|
||
|
|
if ( wt != 0 )
|
||
|
|
{
|
||
|
|
printf("add NXT/BTC\n");
|
||
|
|
for (i=0; i<sizeof(btcnxt_xchgs)/sizeof(*btcnxt_xchgs); i++)
|
||
|
|
{
|
||
|
|
item = cJSON_CreateObject(), jaddstr(item,"exchange",btcnxt_xchgs[i]);
|
||
|
|
setitemjson(item,"NXT/BTC","NXT",NXT_ASSETID,"BTC",BTC_ASSETID);
|
||
|
|
jaddnum(item,"wt",wt);
|
||
|
|
jaddnum(item,"group",groupid);
|
||
|
|
jaddi(array,item);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t get_duplicates(uint64_t *duplicates,uint64_t baseid)
|
||
|
|
{
|
||
|
|
int32_t i,j,n = 0; char assetidstr[64],name[64]; uint64_t tmp;
|
||
|
|
unstringbits(name,baseid);
|
||
|
|
if ( (tmp= is_MGWcoin(name)) != 0 )
|
||
|
|
baseid = tmp;
|
||
|
|
else
|
||
|
|
{
|
||
|
|
for (i=0; i<(int32_t)(sizeof(Tradedassets)/sizeof(*Tradedassets)); i++)
|
||
|
|
if ( strcmp(Tradedassets[i][1],name) == 0 )
|
||
|
|
{
|
||
|
|
baseid = calc_nxt64bits(Tradedassets[i][0]);
|
||
|
|
printf("baseid.%llu <- (%s)\n",(long long)baseid,name);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
expand_nxt64bits(assetidstr,baseid);
|
||
|
|
duplicates[n++] = baseid;
|
||
|
|
for (i=0; i<(int32_t)(sizeof(Tradedassets)/sizeof(*Tradedassets)); i++)
|
||
|
|
if ( strcmp(Tradedassets[i][0],assetidstr) == 0 )
|
||
|
|
{
|
||
|
|
for (j=0; j<(int32_t)(sizeof(Tradedassets)/sizeof(*Tradedassets)); j++)
|
||
|
|
{
|
||
|
|
if ( i != j && strcmp(Tradedassets[i][1],Tradedassets[j][1]) == 0 )
|
||
|
|
{
|
||
|
|
duplicates[n++] = calc_nxt64bits(Tradedassets[j][0]);
|
||
|
|
printf("found duplicate.%s\n",Tradedassets[j][0]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
for (i=0; i<(int32_t)(sizeof(MGWassets)/sizeof(*MGWassets)); i++)
|
||
|
|
if ( strcmp(MGWassets[i][0],assetidstr) == 0 )
|
||
|
|
{
|
||
|
|
for (j=0; j<(int32_t)(sizeof(MGWassets)/sizeof(*MGWassets)); j++)
|
||
|
|
{
|
||
|
|
if ( i != j && strcmp(MGWassets[i][1],MGWassets[j][1]) == 0 )
|
||
|
|
duplicates[n++] = calc_nxt64bits(MGWassets[j][0]);
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
return(n);
|
||
|
|
}
|
||
|
|
|
||
|
|
cJSON *make_arrayNXT(cJSON *directarray,cJSON **arrayBTCp,char *base,char *rel,uint64_t baseid,uint64_t relid)
|
||
|
|
{
|
||
|
|
cJSON *item,*arrayNXT = 0; char tmpstr[64],baseexchange[64],relexchange[64],*str;
|
||
|
|
int32_t wt,baseflags,relflags,i,j,n,m; uint64_t duplicatebases[16],duplicaterels[16];
|
||
|
|
baseflags = calc_baseflags(baseexchange,base,&baseid);
|
||
|
|
relflags = calc_baseflags(relexchange,rel,&relid);
|
||
|
|
sprintf(tmpstr,"%s/%s",base,rel);
|
||
|
|
printf("make_arrayNXT base.(%s) %llu rel.(%s) %llu baseflags.%d relflags.%d\n",base,(long long)baseid,rel,(long long)relid,baseflags,relflags);
|
||
|
|
item = cJSON_CreateObject(), setitemjson(item,tmpstr,base,baseid,rel,relid);
|
||
|
|
jaddstr(item,"exchange",INSTANTDEX_NAME);
|
||
|
|
jaddnum(item,"wt",1), jaddnum(item,"group",0), jaddi(directarray,item);
|
||
|
|
if ( ((baseflags | relflags) & BASE_ISNXT) != 0 )
|
||
|
|
{
|
||
|
|
printf("one is NXT\n");
|
||
|
|
if ( strcmp(base,"NXT") == 0 )
|
||
|
|
n = get_duplicates(duplicatebases,relid), wt = -1, str = rel;
|
||
|
|
else n = get_duplicates(duplicatebases,baseid), wt = 1, str = base;
|
||
|
|
sprintf(tmpstr,"%s/%s",str,"NXT");
|
||
|
|
for (i=0; i<n; i++)
|
||
|
|
nxt_basketjson(directarray,0,wt,str,duplicatebases[i],"NXT",NXT_ASSETID,base,rel);
|
||
|
|
}
|
||
|
|
else if ( (baseflags & BASE_ISASSET) != 0 && (relflags & BASE_ISASSET) != 0 )
|
||
|
|
{
|
||
|
|
printf("both are assets (%s/%s)\n",base,rel);
|
||
|
|
arrayNXT = cJSON_CreateArray();
|
||
|
|
n = get_duplicates(duplicatebases,baseid);
|
||
|
|
for (i=0; i<n; i++)
|
||
|
|
nxt_basketjson(arrayNXT,0,1,base,duplicatebases[i],"NXT",NXT_ASSETID,base,rel);
|
||
|
|
if ( strcmp(base,"BTC") == 0 )
|
||
|
|
add_nxtbtc(arrayNXT,0,-1);
|
||
|
|
sprintf(tmpstr,"%s/%s",rel,"NXT");
|
||
|
|
m = get_duplicates(duplicaterels,relid);
|
||
|
|
for (j=0; j<m; j++)
|
||
|
|
nxt_basketjson(arrayNXT,1,-1,rel,duplicaterels[j],"NXT",NXT_ASSETID,base,rel);
|
||
|
|
if ( strcmp(rel,"BTC") == 0 )
|
||
|
|
add_nxtbtc(arrayNXT,1,1);
|
||
|
|
}
|
||
|
|
if ( (baseflags & BASE_EXCHANGEASSET) != 0 || (relflags & BASE_EXCHANGEASSET) != 0 )
|
||
|
|
{
|
||
|
|
printf("have exchange asset %d %d\n",baseflags,relflags);
|
||
|
|
if ( (baseflags & BASE_EXCHANGEASSET) != 0 && (relflags & BASE_EXCHANGEASSET) != 0 )
|
||
|
|
{
|
||
|
|
printf("both are exchange asset\n");
|
||
|
|
if ( *arrayBTCp == 0 )
|
||
|
|
*arrayBTCp = cJSON_CreateArray();
|
||
|
|
if ( strcmp(base,"BTC") != 0 && strcmp(rel,"BTC") != 0 )
|
||
|
|
{
|
||
|
|
printf("a both are exchange asset\n");
|
||
|
|
item = cJSON_CreateObject(), jaddstr(item,"exchange",baseexchange);
|
||
|
|
sprintf(tmpstr,"%s/%s",base,"BTC");
|
||
|
|
setitemjson(item,tmpstr,base,baseid,"BTC",stringbits("BTC"));
|
||
|
|
jaddi(*arrayBTCp,item);
|
||
|
|
item = cJSON_CreateObject(), jaddstr(item,"exchange",relexchange);
|
||
|
|
sprintf(tmpstr,"%s/%s",rel,"BTC");
|
||
|
|
setitemjson(item,tmpstr,rel,relid,"BTC",stringbits("BTC"));
|
||
|
|
jaddnum(item,"wt",-1);
|
||
|
|
jaddnum(item,"group",1);
|
||
|
|
jaddi(*arrayBTCp,item);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else if ( (baseflags & BASE_EXCHANGEASSET) != 0 )
|
||
|
|
{
|
||
|
|
if ( strcmp(base,"BTC") != 0 && strcmp(rel,"BTC") == 0 )
|
||
|
|
{
|
||
|
|
printf("base.(%s/%s) is exchangeasset\n",base,rel);
|
||
|
|
item = cJSON_CreateObject(), jaddstr(item,"exchange",baseexchange);
|
||
|
|
sprintf(tmpstr,"%s/%s",base,"BTC");
|
||
|
|
setitemjson(item,tmpstr,base,baseid,"BTC",stringbits("BTC"));
|
||
|
|
jaddi(directarray,item);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ( strcmp(rel,"BTC") != 0 && strcmp(base,"BTC") == 0 )
|
||
|
|
{
|
||
|
|
printf("rel.(%s/%s) is exchangeasset\n",base,rel);
|
||
|
|
item = cJSON_CreateObject(), jaddstr(item,"exchange",relexchange);
|
||
|
|
sprintf(tmpstr,"%s/%s",rel,"BTC");
|
||
|
|
setitemjson(item,tmpstr,rel,relid,"BTC",stringbits("BTC"));
|
||
|
|
jaddnum(item,"wt",-1);
|
||
|
|
jaddi(directarray,item);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return(arrayNXT);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t centralexchange_items(int32_t group,double wt,cJSON *array,char *_base,char *_rel,int32_t tradeable,char *refbase,char *refrel)
|
||
|
|
{
|
||
|
|
int32_t exchangeid,inverted,n = 0; char base[64],rel[64],name[64]; cJSON *item;
|
||
|
|
for (exchangeid=FIRST_EXTERNAL; exchangeid<MAX_EXCHANGES; exchangeid++)
|
||
|
|
{
|
||
|
|
strcpy(base,_base), strcpy(rel,_rel);
|
||
|
|
if ( Exchanges[exchangeid].name[0] == 0 )
|
||
|
|
break;
|
||
|
|
//printf("check %s for (%s/%s) group.%d wt.%f\n",Exchanges[exchangeid].name,base,rel,group,wt);
|
||
|
|
if ( Exchanges[exchangeid].issue.supports != 0 && (inverted= (*Exchanges[exchangeid].issue.supports)(base,rel)) != 0 && (tradeable == 0 || Exchanges[exchangeid].apikey[0] != 0|| Exchanges[exchangeid].apisecret[0] != 0) )
|
||
|
|
{
|
||
|
|
if ( array != 0 )
|
||
|
|
{
|
||
|
|
item = cJSON_CreateObject(), jaddstr(item,"exchange",Exchanges[exchangeid].name);
|
||
|
|
//printf("ref.(%s/%s) vs (%s/%s) inverted.%d flipped.%d\n",refbase,refrel,base,rel,inverted,strcmp(refbase,rel) == 0 || strcmp(refrel,base) == 0);
|
||
|
|
if ( inverted < 0 )
|
||
|
|
jaddstr(item,"base",rel), jaddstr(item,"rel",base), sprintf(name,"%s/%s",rel,base);
|
||
|
|
else jaddstr(item,"base",base), jaddstr(item,"rel",rel), sprintf(name,"%s/%s",base,rel);
|
||
|
|
if ( strcmp(refbase,rel) == 0 || strcmp(refrel,base) == 0 )
|
||
|
|
jaddnum(item,"wt",-inverted);
|
||
|
|
else jaddnum(item,"wt",inverted);
|
||
|
|
jaddstr(item,"name",name), jaddnum(item,"group",group);
|
||
|
|
printf("ADDED.%s inverted.%d (%s) ref.(%s/%s)\n",Exchanges[exchangeid].name,inverted,name,refbase,refrel);
|
||
|
|
jaddi(array,item);
|
||
|
|
}
|
||
|
|
n++;
|
||
|
|
} //else printf("%s doesnt support.(%s/%s)\n",Exchanges[exchangeid].name,base,rel);
|
||
|
|
}
|
||
|
|
return(n);
|
||
|
|
}
|
||
|
|
|
||
|
|
cJSON *external_combo(char *base,char *rel,char *coinstr,int32_t tradeable)
|
||
|
|
{
|
||
|
|
cJSON *array = 0;
|
||
|
|
printf("check central jumper.(%s) for (%s/%s)\n",coinstr,base,rel);
|
||
|
|
//if ( (baseflags & (BASE_ISNAME|BASE_ISMGW)) != 0 && (relflags & (BASE_ISNAME|BASE_ISMGW)) != 0 )
|
||
|
|
{
|
||
|
|
if ( strcmp(base,coinstr) != 0 && strcmp(rel,coinstr) != 0 && centralexchange_items(0,1,0,base,coinstr,tradeable,base,rel) > 0 && centralexchange_items(0,1,0,rel,coinstr,tradeable,base,rel) > 0 )
|
||
|
|
{
|
||
|
|
array = cJSON_CreateArray();
|
||
|
|
printf("add central jumper.(%s) for (%s/%s)\n",coinstr,base,rel);
|
||
|
|
centralexchange_items(0,1,array,base,coinstr,tradeable,base,rel);
|
||
|
|
centralexchange_items(1,-1,array,rel,coinstr,tradeable,base,rel);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return(array);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t make_subactive(struct prices777 *baskets[],int32_t n,cJSON *array,char *prefix,char *base,char *rel,uint64_t baseid,uint64_t relid,int32_t maxdepth)
|
||
|
|
{
|
||
|
|
char tmpstr[64],typestr[64]; struct prices777 *basket; cJSON *basketjson;
|
||
|
|
basketjson = cJSON_CreateObject();
|
||
|
|
sprintf(tmpstr,"%s/%s",base,rel);
|
||
|
|
setitemjson(basketjson,tmpstr,base,baseid,rel,relid);
|
||
|
|
jadd(basketjson,"basket",array);
|
||
|
|
printf("%s BASKETMAKE.(%s)\n",prefix,jprint(basketjson,0));
|
||
|
|
sprintf(typestr,"basket%s",prefix);
|
||
|
|
if ( (basket= prices777_makebasket(0,basketjson,1,typestr,0,0)) != 0 )
|
||
|
|
{
|
||
|
|
prices777_basket(basket,maxdepth);
|
||
|
|
prices777_jsonstrs(basket,&basket->O);
|
||
|
|
printf("add to baskets[%d].%s (%s/%s) (%s)\n",n,basket->exchange,basket->base,basket->rel,basket->contract);
|
||
|
|
baskets[n++] = basket;
|
||
|
|
}
|
||
|
|
free_json(basketjson);
|
||
|
|
return(n);
|
||
|
|
}
|
||
|
|
|
||
|
|
char *prices777_activebooks(char *name,char *_base,char *_rel,uint64_t baseid,uint64_t relid,int32_t maxdepth,int32_t allflag,int32_t tradeable)
|
||
|
|
{
|
||
|
|
cJSON *array,*arrayNXT,*arrayBTC,*arrayUSD,*arrayCNY,*basketjson; struct prices777 *active,*basket,*baskets[64];
|
||
|
|
int32_t inverted,keysize,baseflags,relflags,n = 0; char tmpstr[64],base[64],rel[64],bexchange[64],rexchange[64],key[512],*retstr = 0;
|
||
|
|
memset(baskets,0,sizeof(baskets));
|
||
|
|
strcpy(base,_base), strcpy(rel,_rel);
|
||
|
|
baseflags = calc_baseflags(bexchange,base,&baseid);
|
||
|
|
relflags = calc_baseflags(rexchange,rel,&relid);
|
||
|
|
InstantDEX_name(key,&keysize,"active",name,base,&baseid,rel,&relid);
|
||
|
|
printf("activebooks (%s/%s) (%llu/%llu)\n",base,rel,(long long)baseid,(long long)relid);
|
||
|
|
if ( (active= prices777_find(&inverted,baseid,relid,"active")) == 0 )
|
||
|
|
{
|
||
|
|
if ( ((baseflags & BASE_ISMGW) != 0 || (baseflags & BASE_ISASSET) == 0) && ((relflags & BASE_ISMGW) != 0 || (relflags & BASE_ISASSET) == 0) )
|
||
|
|
{
|
||
|
|
if ( (arrayUSD= external_combo(base,rel,"USD",tradeable)) != 0 )
|
||
|
|
n = make_subactive(baskets,n,arrayUSD,"USD",base,rel,baseid,relid,maxdepth);
|
||
|
|
if ( (arrayCNY= external_combo(base,rel,"CNY",tradeable)) != 0 )
|
||
|
|
n = make_subactive(baskets,n,arrayCNY,"CNY",base,rel,baseid,relid,maxdepth);
|
||
|
|
}
|
||
|
|
arrayBTC = external_combo(base,rel,"BTC",tradeable);
|
||
|
|
basketjson = cJSON_CreateObject(), array = cJSON_CreateArray();
|
||
|
|
sprintf(tmpstr,"%s/%s",base,rel);
|
||
|
|
setitemjson(basketjson,tmpstr,base,baseid,rel,relid);
|
||
|
|
//if ( baseflags != BASE_ISASSET && relflags != BASE_ISASSET )
|
||
|
|
centralexchange_items(0,1,array,base,rel,tradeable,base,rel);
|
||
|
|
if ( (arrayNXT= make_arrayNXT(array,&arrayBTC,base,rel,baseid,relid)) != 0 )
|
||
|
|
n = make_subactive(baskets,n,arrayNXT,"NXT",base,rel,baseid,relid,maxdepth);
|
||
|
|
if ( arrayBTC != 0 )
|
||
|
|
n = make_subactive(baskets,n,arrayBTC,"BTC",base,rel,baseid,relid,maxdepth);
|
||
|
|
if ( (basket= prices777_find(&inverted,baseid,relid,"basket")) != 0 )
|
||
|
|
baskets[n++] = basket;
|
||
|
|
jadd(basketjson,"basket",array);
|
||
|
|
printf(" ACTIVE MAKE.(%s)\n",jprint(basketjson,0));
|
||
|
|
if ( (active= prices777_makebasket(0,basketjson,1,"active",baskets,n)) != 0 )
|
||
|
|
{
|
||
|
|
prices777_basket(active,maxdepth);
|
||
|
|
prices777_jsonstrs(active,&active->O);
|
||
|
|
}
|
||
|
|
free_json(array);
|
||
|
|
}
|
||
|
|
if ( active != 0 && retstr == 0 )
|
||
|
|
{
|
||
|
|
prices777_basket(active,maxdepth);
|
||
|
|
prices777_jsonstrs(active,&active->O);
|
||
|
|
if ( (retstr= active->orderbook_jsonstrs[inverted][allflag]) != 0 )
|
||
|
|
retstr = clonestr(retstr);
|
||
|
|
}
|
||
|
|
if ( retstr == 0 )
|
||
|
|
retstr = clonestr("{\"error\":\"null active orderbook\"}");
|
||
|
|
return(retstr);
|
||
|
|
}
|
||
|
|
|
||
|
|
cJSON *basketitem_json(struct prices777 *prices)
|
||
|
|
{
|
||
|
|
int32_t i; char numstr[64]; cJSON *json,*array,*item;
|
||
|
|
json = cJSON_CreateObject();
|
||
|
|
if ( prices != 0 )
|
||
|
|
{
|
||
|
|
jaddstr(json,"exchange",prices->exchange);
|
||
|
|
jaddstr(json,"name",prices->contract);
|
||
|
|
jaddstr(json,"base",prices->base);
|
||
|
|
sprintf(numstr,"%llu",(long long)prices->baseid), jaddstr(json,"baseid",numstr);
|
||
|
|
jaddstr(json,"rel",prices->rel);
|
||
|
|
sprintf(numstr,"%llu",(long long)prices->relid), jaddstr(json,"relid",numstr);
|
||
|
|
jaddnum(json,"commission",prices->commission);
|
||
|
|
if ( prices->basketsize != 0 )
|
||
|
|
{
|
||
|
|
array = cJSON_CreateArray();
|
||
|
|
for (i=0; i<prices->basketsize; i++)
|
||
|
|
{
|
||
|
|
item = basketitem_json(prices->basket[i].prices);
|
||
|
|
if ( prices->basket[i].groupsize != 0 )
|
||
|
|
jaddnum(item,"groupsize",prices->basket[i].groupsize);
|
||
|
|
jaddnum(item,"group",prices->basket[i].groupid);
|
||
|
|
jaddnum(item,"wt",prices->basket[i].wt);
|
||
|
|
jaddi(array,item);
|
||
|
|
}
|
||
|
|
jadd(json,"basket",array);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return(json);
|
||
|
|
}
|
||
|
|
|
||
|
|
char *prices777_allorderbooks()
|
||
|
|
{
|
||
|
|
int32_t i; cJSON *json,*array = cJSON_CreateArray();
|
||
|
|
for (i=0; i<BUNDLE.num; i++)
|
||
|
|
jaddi(array,basketitem_json(BUNDLE.ptrs[i]));
|
||
|
|
json = cJSON_CreateObject();
|
||
|
|
cJSON_AddItemToObject(json,"orderbooks",array);
|
||
|
|
return(jprint(json,1));
|
||
|
|
}
|
||
|
|
|
||
|
|
struct prices777 *prices777_initpair(int32_t needfunc,char *exchange,char *_base,char *_rel,double decay,char *_name,uint64_t baseid,uint64_t relid,int32_t basketsize)
|
||
|
|
{
|
||
|
|
static long allocated;
|
||
|
|
struct exchange_funcs funcs[] =
|
||
|
|
{
|
||
|
|
{"nxtae", prices777_NXT, NXT_supports, NXT_tradestub },
|
||
|
|
{"unconf", prices777_unconfNXT, NXT_supports, NXT_tradestub },
|
||
|
|
{"InstantDEX", prices777_InstantDEX, InstantDEX_supports, InstantDEX_tradestub },
|
||
|
|
{"wallet", prices777_InstantDEX, InstantDEX_supports, InstantDEX_tradestub },
|
||
|
|
{"basket", prices777_basket, InstantDEX_supports, InstantDEX_tradestub },
|
||
|
|
{"basketNXT", prices777_basket, InstantDEX_supports, InstantDEX_tradestub },
|
||
|
|
{"basketBTC", prices777_basket, InstantDEX_supports, InstantDEX_tradestub },
|
||
|
|
{"basketUSD", prices777_basket, InstantDEX_supports, InstantDEX_tradestub },
|
||
|
|
{"basketCNY", prices777_basket, InstantDEX_supports, InstantDEX_tradestub },
|
||
|
|
{"active", prices777_basket, InstantDEX_supports, InstantDEX_tradestub },
|
||
|
|
{"peggy", prices777_InstantDEX, InstantDEX_supports, InstantDEX_tradestub },
|
||
|
|
{"jumblr", prices777_InstantDEX, InstantDEX_supports },
|
||
|
|
{"pangea", prices777_InstantDEX, InstantDEX_supports },
|
||
|
|
{"truefx", 0 }, {"ecb", 0 }, {"instaforex", 0 }, {"fxcm", 0 }, {"yahoo", 0 },
|
||
|
|
poloniex_funcs, bittrex_funcs, btce_funcs, bitfinex_funcs, btc38_funcs, huobi_funcs,
|
||
|
|
lakebtc_funcs, quadriga_funcs, okcoin_funcs, coinbase_funcs, bitstamp_funcs
|
||
|
|
};
|
||
|
|
int32_t i,rellen; char basebuf[64],relbuf[64],base[64],rel[64],name[64]; struct exchange_info *exchangeptr;
|
||
|
|
struct prices777 *prices;
|
||
|
|
safecopy(base,_base,sizeof(base));
|
||
|
|
safecopy(rel,_rel,sizeof(rel));
|
||
|
|
safecopy(name,_name,sizeof(name));
|
||
|
|
if ( needfunc < 0 )
|
||
|
|
{
|
||
|
|
for (i=0; i<sizeof(funcs)/sizeof(*funcs); i++)
|
||
|
|
{
|
||
|
|
if ( (exchangeptr= find_exchange(0,funcs[i].exchange)) != 0 )
|
||
|
|
{
|
||
|
|
printf("%p %s set supports.%p %p coinbalance.%p\n",exchangeptr,funcs[i].exchange,funcs[i].supports,funcs[i].trade,funcs[i].parsebalance);
|
||
|
|
exchangeptr->issue = funcs[i];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
//printf("init.(%s/%s) name.(%s) %llu %llu\n",base,rel,name,(long long)baseid,(long long)relid);
|
||
|
|
if ( strcmp(exchange,"nxtae") == 0 || strcmp(exchange,"unconf") == 0 )//|| strcmp(exchange,"InstantDEX") == 0 )
|
||
|
|
{
|
||
|
|
if ( strcmp(base,"NXT") == 0 || baseid == NXT_ASSETID )
|
||
|
|
{
|
||
|
|
strcpy(base,rel), baseid = relid;
|
||
|
|
strcpy(rel,"NXT"), relid = NXT_ASSETID;
|
||
|
|
printf("flip.(%s/%s) %llu %llu\n",base,rel,(long long)baseid,(long long)relid);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
for (i=0; i<BUNDLE.num; i++)
|
||
|
|
{
|
||
|
|
if ( strcmp(BUNDLE.ptrs[i]->exchange,exchange) == 0 )
|
||
|
|
{
|
||
|
|
if ( baseid != 0 && relid != 0 && BUNDLE.ptrs[i]->baseid == baseid && BUNDLE.ptrs[i]->relid == relid )
|
||
|
|
return(BUNDLE.ptrs[i]);
|
||
|
|
if ( strcmp(BUNDLE.ptrs[i]->origbase,base) == 0 && strcmp(BUNDLE.ptrs[i]->origrel,rel) == 0 )
|
||
|
|
return(BUNDLE.ptrs[i]);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
printf("cant find (%s) (%llu) (%llu) (%s) (%s)\n",exchange,(long long)baseid,(long long)relid,base,rel);
|
||
|
|
prices = calloc(1,sizeof(*prices) + basketsize*sizeof(*prices->basket));
|
||
|
|
// printf("new prices %ld\n",sizeof(*prices));
|
||
|
|
strcpy(prices->exchange,exchange), strcpy(prices->contract,name), strcpy(prices->base,base), strcpy(prices->rel,rel);
|
||
|
|
prices->baseid = baseid, prices->relid = relid;
|
||
|
|
prices->contractnum = InstantDEX_name(prices->key,&prices->keysize,exchange,prices->contract,prices->base,&prices->baseid,prices->rel,&prices->relid);
|
||
|
|
portable_mutex_init(&prices->mutex);
|
||
|
|
strcpy(prices->origbase,base);
|
||
|
|
if ( rel[0] != 0 )
|
||
|
|
strcpy(prices->origrel,rel);
|
||
|
|
allocated += sizeof(*prices);
|
||
|
|
safecopy(prices->exchange,exchange,sizeof(prices->exchange));
|
||
|
|
if ( strcmp(exchange,"nxtae") == 0 || strcmp(exchange,"unconf") == 0 || strcmp(exchange,INSTANTDEX_NAME) == 0 )
|
||
|
|
{
|
||
|
|
char tmp[16];
|
||
|
|
_set_assetname(&prices->basemult,tmp,0,prices->baseid);
|
||
|
|
_set_assetname(&prices->relmult,tmp,0,prices->relid);
|
||
|
|
if ( (prices->relid != NXT_ASSETID && prices->relid < (1LL << (5*8))) || (prices->baseid != NXT_ASSETID && prices->baseid == (1LL << (5*8))) )
|
||
|
|
{
|
||
|
|
printf("illegal baseid.%llu or relid.%llu\n",(long long)prices->baseid,(long long)prices->relid);
|
||
|
|
free(prices);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
//prices->nxtbooks = calloc(1,sizeof(*prices->nxtbooks));
|
||
|
|
safecopy(prices->lbase,base,sizeof(prices->lbase)), tolowercase(prices->lbase);
|
||
|
|
safecopy(prices->lrel,rel,sizeof(prices->lrel)), tolowercase(prices->lrel);
|
||
|
|
rellen = (int32_t)(strlen(prices->rel) + 1);
|
||
|
|
tmp[0] = 0;
|
||
|
|
prices->type = _set_assetname(&prices->ap_mult,tmp,0,prices->baseid);
|
||
|
|
printf("nxtbook.(%s) -> NXT %s %llu/%llu vs (%s) mult.%llu (%llu/%llu)\n",base,prices->contract,(long long)prices->baseid,(long long)prices->relid,tmp,(long long)prices->ap_mult,(long long)prices->basemult,(long long)prices->relmult);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
prices->basemult = prices->relmult = 1;
|
||
|
|
safecopy(prices->base,base,sizeof(prices->base)), touppercase(prices->base);
|
||
|
|
safecopy(prices->lbase,base,sizeof(prices->lbase)), tolowercase(prices->lbase);
|
||
|
|
if ( rel[0] == 0 && prices777_ispair(basebuf,relbuf,base) >= 0 )
|
||
|
|
{
|
||
|
|
strcpy(base,basebuf), strcpy(rel,relbuf);
|
||
|
|
//printf("(%s) is a pair (%s)+(%s)\n",base,basebuf,relbuf);
|
||
|
|
}
|
||
|
|
if ( rel[0] != 0 )
|
||
|
|
{
|
||
|
|
rellen = (int32_t)(strlen(rel) + 1);
|
||
|
|
safecopy(prices->rel,rel,sizeof(prices->rel)), touppercase(prices->rel);
|
||
|
|
safecopy(prices->lrel,rel,sizeof(prices->lrel)), tolowercase(prices->lrel);
|
||
|
|
if ( prices->contract[0] == 0 )
|
||
|
|
{
|
||
|
|
strcpy(prices->contract,prices->base);
|
||
|
|
if ( strcmp(prices->rel,&prices->contract[strlen(prices->contract)-3]) != 0 )
|
||
|
|
strcat(prices->contract,"/"), strcat(prices->contract,prices->rel);
|
||
|
|
}
|
||
|
|
//printf("create base.(%s) rel.(%s)\n",prices->base,prices->rel);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
if ( prices->contract[0] == 0 )
|
||
|
|
strcpy(prices->contract,base);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
char str[65]; printf("%s init_pair.(%s) (%s)(%s).%llu -> (%s) keysize.%d crc.%u (baseid.%llu relid.%llu)\n",mbstr(str,allocated),exchange,base,rel,(long long)prices->contractnum,prices->contract,prices->keysize,calc_crc32(0,(void *)prices->key,prices->keysize),(long long)prices->baseid,(long long)prices->relid);
|
||
|
|
prices->decay = decay, prices->oppodecay = (1. - decay);
|
||
|
|
prices->RTflag = 1;
|
||
|
|
if ( (exchangeptr= find_exchange(0,exchange)) != 0 )
|
||
|
|
{
|
||
|
|
if ( prices->commission == 0. )
|
||
|
|
prices->commission = exchangeptr->commission;
|
||
|
|
prices->exchangeid = exchangeptr->exchangeid;
|
||
|
|
if ( exchangeptr->issue.update == 0 )
|
||
|
|
{
|
||
|
|
for (i=0; i<sizeof(funcs)/sizeof(*funcs); i++)
|
||
|
|
{
|
||
|
|
if ( strcmp(exchange,funcs[i].exchange) == 0 )
|
||
|
|
{
|
||
|
|
exchangeptr->issue = funcs[i];
|
||
|
|
//printf("return prices.%p\n",prices);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( exchangeptr->refcount == 0 )
|
||
|
|
{
|
||
|
|
printf("incr refcount.%s from %d\n",exchangeptr->name,exchangeptr->refcount);
|
||
|
|
exchangeptr->refcount++;
|
||
|
|
}
|
||
|
|
return(prices);
|
||
|
|
}
|
||
|
|
//printf("initialized.(%s).%lld\n",prices->contract,(long long)prices->contractnum);
|
||
|
|
return(prices);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t is_pair(char *base,char *rel,char *refbase,char *refrel)
|
||
|
|
{
|
||
|
|
if ( strcmp(base,refbase) == 0 && strcmp(rel,refrel) == 0 )
|
||
|
|
return(1);
|
||
|
|
else if ( strcmp(rel,refbase) == 0 && strcmp(base,refrel) == 0 )
|
||
|
|
return(-1);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
struct prices777 *prices777_poll(char *_exchangestr,char *_name,char *_base,uint64_t refbaseid,char *_rel,uint64_t refrelid)
|
||
|
|
{
|
||
|
|
char exchangestr[64],base[64],rel[64],name[64],key[1024]; uint64_t baseid,relid;
|
||
|
|
int32_t keysize,exchangeid,valid; struct exchange_info *exchange; struct prices777 *prices;
|
||
|
|
baseid = refbaseid, relid = refrelid;
|
||
|
|
strcpy(exchangestr,_exchangestr), strcpy(base,_base), strcpy(rel,_rel), strcpy(name,_name);
|
||
|
|
if ( (strcmp(exchangestr,"huobi") == 0 && is_pair(base,rel,"BTC","CNY") == 0 && is_pair(base,rel,"LTC","CNY") == 0) ||
|
||
|
|
((strcmp(exchangestr,"bityes") == 0 || strcmp(exchangestr,"okcoin") == 0) && is_pair(base,rel,"BTC","USD") == 0 && is_pair(base,rel,"LTC","USD") == 0) ||
|
||
|
|
((strcmp(exchangestr,"bitstamp") == 0 || strcmp(exchangestr,"coinbase") == 0) && is_pair(base,rel,"BTC","USD") == 0) ||
|
||
|
|
(strcmp(exchangestr,"lakebtc") == 0 && is_pair(base,rel,"BTC","CNY") == 0 && is_pair(base,rel,"BTC","USD") == 0) ||
|
||
|
|
(strcmp(exchangestr,"quadriga") == 0 && is_pair(base,rel,"BTC","CAD") == 0 && is_pair(base,rel,"BTC","USD") == 0) ||
|
||
|
|
0 )
|
||
|
|
{
|
||
|
|
printf("%s (%s/%s) is not a supported trading pair\n",exchangestr,base,rel);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
InstantDEX_name(key,&keysize,exchangestr,name,base,&baseid,rel,&relid);
|
||
|
|
//printf("call addbundle\n");
|
||
|
|
if ( (prices= prices777_addbundle(&valid,0,0,exchangestr,baseid,relid)) != 0 )
|
||
|
|
{
|
||
|
|
printf("found (%s/%s).%s %llu %llu in slot-> %p\n",base,rel,exchangestr,(long long)baseid,(long long)relid,prices);
|
||
|
|
return(prices);
|
||
|
|
}
|
||
|
|
//printf("call find_exchange\n");
|
||
|
|
if ( (exchange= find_exchange(&exchangeid,exchangestr)) == 0 )
|
||
|
|
{
|
||
|
|
printf("cant add exchange.(%s)\n",exchangestr);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
if ( strcmp(exchangestr,"nxtae") == 0 || strcmp(exchangestr,"unconf") == 0 )
|
||
|
|
{
|
||
|
|
if ( strcmp(base,"NXT") != 0 && strcmp(rel,"NXT") != 0 )
|
||
|
|
{
|
||
|
|
printf("nxtae/unconf needs to be relative to NXT (%s/%s) %llu/%llu\n",base,rel,(long long)baseid,(long long)relid);
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( (prices= prices777_initpair(1,exchangestr,base,rel,0.,name,baseid,relid,0)) != 0 )
|
||
|
|
{
|
||
|
|
//printf("call addbundle after initpair\n");
|
||
|
|
prices777_addbundle(&valid,1,prices,0,0,0);
|
||
|
|
}
|
||
|
|
return(prices);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t prices777_propagate(struct prices777 *prices)
|
||
|
|
{
|
||
|
|
int32_t i,n = 0;
|
||
|
|
for (i=0; i<prices->numdependents; i++)
|
||
|
|
{
|
||
|
|
n++;
|
||
|
|
if ( (*prices->dependents[i]) < 0xff )
|
||
|
|
(*prices->dependents[i])++;
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("numdependents.%d of %d %p %d\n",i,prices->numdependents,prices->dependents[i],*prices->dependents[i]);
|
||
|
|
}
|
||
|
|
return(n);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t prices777_updated;
|
||
|
|
void prices777_basketsloop(void *ptr)
|
||
|
|
{
|
||
|
|
extern int32_t prices777_NXTBLOCK;
|
||
|
|
int32_t i,n; uint32_t updated; struct prices777 *prices;
|
||
|
|
while ( 1 )
|
||
|
|
{
|
||
|
|
for (i=n=0; i<BUNDLE.num; i++)
|
||
|
|
{
|
||
|
|
updated = (uint32_t)time(NULL);
|
||
|
|
if ( (prices= BUNDLE.ptrs[i]) != 0 && prices->disabled == 0 && prices->basketsize != 0 )
|
||
|
|
{
|
||
|
|
if ( prices->changed != 0 )
|
||
|
|
{
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("%s updating basket(%s) lastprice %.8f changed.%p %d\n",prices->exchange,prices->contract,prices->lastprice,&prices->changed,prices->changed);
|
||
|
|
prices->pollnxtblock = prices777_NXTBLOCK;
|
||
|
|
n++;
|
||
|
|
prices->lastupdate = updated;
|
||
|
|
if ( (prices->lastprice= prices777_basket(prices,MAX_DEPTH)) != 0. )
|
||
|
|
{
|
||
|
|
if ( prices->O.numbids > 0 || prices->O.numasks > 0 )
|
||
|
|
{
|
||
|
|
prices777_jsonstrs(prices,&prices->O);
|
||
|
|
prices777_updated += prices777_propagate(prices);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
prices->changed = 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( n == 0 )
|
||
|
|
usleep(250000);
|
||
|
|
else usleep(10000);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_exchangeloop(void *ptr)
|
||
|
|
{
|
||
|
|
extern int32_t prices777_NXTBLOCK;
|
||
|
|
struct prices777 *prices; int32_t i,n,pollflag,isnxtae = 0; double updated = 0.; struct exchange_info *exchange = ptr;
|
||
|
|
if ( strcmp(exchange->name,"nxtae") == 0 || strcmp(exchange->name,"unconf") == 0 )
|
||
|
|
isnxtae = 1;
|
||
|
|
printf("POLL.(%s)\n",exchange->name);
|
||
|
|
while ( 1 )
|
||
|
|
{
|
||
|
|
for (i=n=0; i<BUNDLE.num; i++)
|
||
|
|
{
|
||
|
|
if ( (prices= BUNDLE.ptrs[i]) != 0 && prices->disabled == 0 && prices->basketsize == 0 && prices->exchangeid == exchange->exchangeid )
|
||
|
|
{
|
||
|
|
if ( prices->exchangeid == INSTANTDEX_EXCHANGEID && prices->dirty != 0 )
|
||
|
|
pollflag = 1;
|
||
|
|
else if ( isnxtae == 0 )
|
||
|
|
pollflag = milliseconds() > (exchange->lastupdate + exchange->pollgap*1000) && milliseconds() > (prices->lastupdate + 1000*IGUANA_EXCHANGEIDLE);
|
||
|
|
else if ( (strcmp(exchange->name,"unconf") == 0 && milliseconds() > prices->lastupdate + 5000) || prices->pollnxtblock < prices777_NXTBLOCK || milliseconds() > prices->lastupdate + 1000*IGUANA_EXCHANGEIDLE )
|
||
|
|
pollflag = 1;
|
||
|
|
else continue;
|
||
|
|
//printf("(%s) pollflag.%d %p\n",exchange->name,pollflag,exchange->issue.update);
|
||
|
|
if ( pollflag != 0 && exchange->issue.update != 0 )
|
||
|
|
{
|
||
|
|
portable_mutex_lock(&exchange->mutex);
|
||
|
|
prices->lastprice = (*exchange->issue.update)(prices,MAX_DEPTH);
|
||
|
|
portable_mutex_unlock(&exchange->mutex);
|
||
|
|
updated = exchange->lastupdate = milliseconds(), prices->lastupdate = milliseconds();
|
||
|
|
if ( prices->lastprice != 0. )
|
||
|
|
{
|
||
|
|
if ( Debuglevel > 2 && strcmp(exchange->name,"unconf") != 0 )
|
||
|
|
printf("%-8s %8s (%8s %8s) %llu %llu isnxtae.%d poll %u -> %u %.8f hbla %.8f %.8f\n",prices->exchange,prices->contract,prices->base,prices->rel,(long long)prices->baseid,(long long)prices->relid,isnxtae,prices->pollnxtblock,prices777_NXTBLOCK,prices->lastprice,prices->lastbid,prices->lastask);
|
||
|
|
prices777_propagate(prices);
|
||
|
|
}
|
||
|
|
prices->pollnxtblock = prices777_NXTBLOCK;
|
||
|
|
prices->dirty = 0;
|
||
|
|
n++;
|
||
|
|
}
|
||
|
|
/*if ( 0 && exchange->issue.trade != 0 && exchange->apikey[0] != 0 && exchange->exchangeid >= FIRST_EXTERNAL && time(NULL) > exchange->lastbalancetime+300 )
|
||
|
|
{
|
||
|
|
if ( (json= (*exchange->issue.balances)(exchange)) != 0 )
|
||
|
|
{
|
||
|
|
if ( exchange->balancejson != 0 )
|
||
|
|
free_json(exchange->balancejson);
|
||
|
|
exchange->balancejson = json;
|
||
|
|
}
|
||
|
|
exchange->lastbalancetime = (uint32_t)time(NULL);
|
||
|
|
}*/
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( n == 0 )
|
||
|
|
sleep(3);
|
||
|
|
else sleep(1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t prices777_init(char *jsonstr,int32_t peggyflag)
|
||
|
|
{
|
||
|
|
static int32_t didinit;
|
||
|
|
char *btcdexchanges[] = { "poloniex", "bittrex" };//, "bter" };
|
||
|
|
char *btcusdexchanges[] = { "bityes", "bitfinex", "bitstamp", "okcoin", "coinbase", "btce", "lakebtc", "kraken" };
|
||
|
|
cJSON *json=0,*item,*exchanges; int32_t i,n; char *exchange,*base,*rel,*contract; struct exchange_info *exchangeptr=0; struct destbuf tmp;
|
||
|
|
if ( didinit != 0 )
|
||
|
|
return(0);
|
||
|
|
didinit = 1;
|
||
|
|
if ( (BUNDLE.ptrs[BUNDLE.num]= prices777_initpair(1,"unconf","BTC","NXT",0,"BTC/NXT",calc_nxt64bits("12659653638116877017"),NXT_ASSETID,0)) != 0 )
|
||
|
|
BUNDLE.num++;
|
||
|
|
if ( peggyflag != 0 )
|
||
|
|
{
|
||
|
|
if ( (BUNDLE.ptrs[BUNDLE.num]= prices777_initpair(1,"huobi","BTC","USD",0.,0,0,0,0)) != 0 )
|
||
|
|
BUNDLE.num++;
|
||
|
|
if ( (BUNDLE.ptrs[BUNDLE.num]= prices777_initpair(1,"btc38","CNY","NXT",0.,0,0,0,0)) != 0 )
|
||
|
|
BUNDLE.num++;
|
||
|
|
if ( (BUNDLE.ptrs[BUNDLE.num]= prices777_initpair(1,"okcoin","LTC","BTC",0.,0,0,0,0)) != 0 )
|
||
|
|
BUNDLE.num++;
|
||
|
|
if ( (BUNDLE.ptrs[BUNDLE.num]= prices777_initpair(1,"poloniex","LTC","BTC",0.,0,0,0,0)) != 0 )
|
||
|
|
BUNDLE.num++;
|
||
|
|
if ( (BUNDLE.ptrs[BUNDLE.num]= prices777_initpair(1,"poloniex","XMR","BTC",0.,0,0,0,0)) != 0 )
|
||
|
|
BUNDLE.num++;
|
||
|
|
if ( (BUNDLE.ptrs[BUNDLE.num]= prices777_initpair(1,"poloniex","BTS","BTC",0.,0,0,0,0)) != 0 )
|
||
|
|
BUNDLE.num++;
|
||
|
|
if ( (BUNDLE.ptrs[BUNDLE.num]= prices777_initpair(1,"poloniex","XCP","BTC",0.,0,0,0,0)) != 0 )
|
||
|
|
BUNDLE.num++;
|
||
|
|
for (i=0; i<sizeof(btcdexchanges)/sizeof(*btcdexchanges); i++)
|
||
|
|
if ( (BUNDLE.ptrs[BUNDLE.num]= prices777_initpair(1,btcusdexchanges[i],"BTC","USD",0.,0,0,0,0)) != 0 )
|
||
|
|
BUNDLE.num++;
|
||
|
|
for (i=0; i<sizeof(btcdexchanges)/sizeof(*btcdexchanges); i++)
|
||
|
|
if ( (BUNDLE.ptrs[BUNDLE.num]= prices777_initpair(1,btcdexchanges[i],"BTCD","BTC",0.,0,0,0,0)) != 0 )
|
||
|
|
BUNDLE.num++;
|
||
|
|
}
|
||
|
|
if ( (json= cJSON_Parse(jsonstr)) != 0 && (exchanges= jarray(&n,json,"prices")) != 0 )
|
||
|
|
{
|
||
|
|
printf("prices has %d items\n",n);
|
||
|
|
for (i=0; i<n; i++)
|
||
|
|
{
|
||
|
|
item = jitem(exchanges,i);
|
||
|
|
exchange = jstr(item,"exchange"), base = jstr(item,"base"), rel = jstr(item,"rel");
|
||
|
|
if ( (base == 0 || rel == 0) && (contract= jstr(item,"contract")) != 0 )
|
||
|
|
rel = 0, base = contract;
|
||
|
|
else contract = 0;
|
||
|
|
//printf("PRICES[%d] %p %p %p\n",i,exchange,base,rel);
|
||
|
|
if ( exchange != 0 && (strcmp(exchange,"bter") == 0 || strcmp(exchange,"exmo") == 0) )
|
||
|
|
continue;
|
||
|
|
if ( exchange != 0 && (exchangeptr= find_exchange(0,exchange)) != 0 )
|
||
|
|
{
|
||
|
|
exchangeptr->pollgap = get_API_int(cJSON_GetObjectItem(item,"pollgap"),IGUANA_EXCHANGEIDLE);
|
||
|
|
extract_cJSON_str(exchangeptr->apikey,sizeof(exchangeptr->apikey),item,"key");
|
||
|
|
if ( exchangeptr->apikey[0] == 0 )
|
||
|
|
extract_cJSON_str(exchangeptr->apikey,sizeof(exchangeptr->apikey),item,"apikey");
|
||
|
|
extract_cJSON_str(exchangeptr->userid,sizeof(exchangeptr->userid),item,"userid");
|
||
|
|
extract_cJSON_str(exchangeptr->apisecret,sizeof(exchangeptr->apisecret),item,"secret");
|
||
|
|
if ( exchangeptr->apisecret[0] == 0 )
|
||
|
|
extract_cJSON_str(exchangeptr->apisecret,sizeof(exchangeptr->apisecret),item,"apisecret");
|
||
|
|
if ( exchangeptr->commission == 0. )
|
||
|
|
exchangeptr->commission = jdouble(item,"commission");
|
||
|
|
printf("%p ADDEXCHANGE.(%s) [%s, %s, %s] commission %.3f%%\n",exchangeptr,exchange,exchangeptr->apikey,exchangeptr->userid,exchangeptr->apisecret,exchangeptr->commission * 100);
|
||
|
|
} else printf(" exchangeptr.%p for (%p)\n",exchangeptr,exchange);
|
||
|
|
if ( exchange != 0 && strcmp(exchange,"truefx") == 0 )
|
||
|
|
{
|
||
|
|
copy_cJSON(&tmp,jobj(item,"truefxuser")), safecopy(BUNDLE.truefxuser,tmp.buf,sizeof(BUNDLE.truefxuser));
|
||
|
|
copy_cJSON(&tmp,jobj(item,"truefxpass")), safecopy(BUNDLE.truefxpass,tmp.buf,sizeof(BUNDLE.truefxpass));;
|
||
|
|
printf("truefx.(%s %s)\n",BUNDLE.truefxuser,BUNDLE.truefxpass);
|
||
|
|
}
|
||
|
|
else if ( base != 0 && rel != 0 && base[0] != 0 && rel[0] != 0 && (BUNDLE.ptrs[BUNDLE.num]= prices777_initpair(1,exchange,base,rel,jdouble(item,"decay"),contract,stringbits(base),stringbits(rel),0)) != 0 )
|
||
|
|
{
|
||
|
|
if ( exchangeptr != 0 && (BUNDLE.ptrs[BUNDLE.num]->commission= jdouble(item,"commission")) == 0. )
|
||
|
|
BUNDLE.ptrs[BUNDLE.num]->commission = exchangeptr->commission;
|
||
|
|
printf("SET COMMISSION.%s %f for %s/%s\n",exchange,exchangeptr!=0?exchangeptr->commission:0,base,rel);
|
||
|
|
BUNDLE.num++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else printf("(%s) has no prices[]\n",jsonstr);
|
||
|
|
if ( json != 0 )
|
||
|
|
free_json(json);
|
||
|
|
for (i=0; i<MAX_EXCHANGES; i++)
|
||
|
|
{
|
||
|
|
exchangeptr = &Exchanges[i];
|
||
|
|
if ( (exchangeptr->refcount > 0 || strcmp(exchangeptr->name,"unconf") == 0) )//&& strcmp(exchangeptr->name,"pangea") != 0 && strcmp(exchangeptr->name,"jumblr") != 0 )
|
||
|
|
iguana_launch(iguana_coinadd("BTCD"),"exchangeloop",(void *)prices777_exchangeloop,exchangeptr,IGUANA_EXCHANGETHREAD);
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
double prices777_yahoo(char *metal)
|
||
|
|
{
|
||
|
|
// http://finance.yahoo.com/webservice/v1/symbols/allcurrencies/quote?format=json
|
||
|
|
// http://finance.yahoo.com/webservice/v1/symbols/XAU=X/quote?format=json
|
||
|
|
// http://finance.yahoo.com/webservice/v1/symbols/XAG=X/quote?format=json
|
||
|
|
// http://finance.yahoo.com/webservice/v1/symbols/XPT=X/quote?format=json
|
||
|
|
// http://finance.yahoo.com/webservice/v1/symbols/XPD=X/quote?format=json
|
||
|
|
char url[1024],*jsonstr; cJSON *json,*obj,*robj,*item,*field; double price = 0.;
|
||
|
|
sprintf(url,"http://finance.yahoo.com/webservice/v1/symbols/%s=X/quote?format=json",metal);
|
||
|
|
if ( (jsonstr= issue_curl(url)) != 0 )
|
||
|
|
{
|
||
|
|
//printf("(%s)\n",jsonstr);
|
||
|
|
if ( (json= cJSON_Parse(jsonstr)) != 0 )
|
||
|
|
{
|
||
|
|
if ( (obj= jobj(json,"list")) != 0 && (robj= jobj(obj,"resources")) != 0 && (item= jitem(robj,0)) != 0 )
|
||
|
|
{
|
||
|
|
if ( (robj= jobj(item,"resource")) != 0 && (field= jobj(robj,"fields")) != 0 && (price= jdouble(field,"price")) != 0 )
|
||
|
|
price = 1. / price;
|
||
|
|
}
|
||
|
|
free_json(json);
|
||
|
|
}
|
||
|
|
free(jsonstr);
|
||
|
|
}
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("(%s %f) ",metal,price);
|
||
|
|
return(price);
|
||
|
|
}
|
||
|
|
|
||
|
|
cJSON *url_json(char *url)
|
||
|
|
{
|
||
|
|
char *jsonstr; cJSON *json = 0;
|
||
|
|
if ( (jsonstr= issue_curl(url)) != 0 )
|
||
|
|
{
|
||
|
|
//printf("(%s) -> (%s)\n",url,jsonstr);
|
||
|
|
json = cJSON_Parse(jsonstr);
|
||
|
|
free(jsonstr);
|
||
|
|
}
|
||
|
|
return(json);
|
||
|
|
}
|
||
|
|
|
||
|
|
cJSON *url_json2(char *url)
|
||
|
|
{
|
||
|
|
char *jsonstr; cJSON *json = 0;
|
||
|
|
if ( (jsonstr= issue_curl(url)) != 0 )
|
||
|
|
{
|
||
|
|
//printf("(%s) -> (%s)\n",url,jsonstr);
|
||
|
|
json = cJSON_Parse(jsonstr);
|
||
|
|
free(jsonstr);
|
||
|
|
}
|
||
|
|
return(json);
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_btcprices(int32_t enddatenum,int32_t numdates)
|
||
|
|
{
|
||
|
|
int32_t i,n,year,month,day,seconds,datenum; char url[1024],date[64],*dstr,*str; uint32_t timestamp,utc32[MAX_SPLINES];
|
||
|
|
cJSON *coindesk,*quandl,*btcdhist,*bpi,*array,*item;
|
||
|
|
double btcddaily[MAX_SPLINES],cdaily[MAX_SPLINES],qdaily[MAX_SPLINES],ask,high,low,bid,close,vol,quotevol,open,price = 0.;
|
||
|
|
coindesk = url_json("http://api.coindesk.com/v1/bpi/historical/close.json");
|
||
|
|
sprintf(url,"https://poloniex.com/public?command=returnChartData¤cyPair=BTC_BTCD&start=%ld&end=9999999999&period=86400",(long)(time(NULL)-numdates*3600*24));
|
||
|
|
if ( (bpi= jobj(coindesk,"bpi")) != 0 )
|
||
|
|
{
|
||
|
|
datenum = enddatenum;
|
||
|
|
memset(utc32,0,sizeof(utc32));
|
||
|
|
memset(cdaily,0,sizeof(cdaily));
|
||
|
|
if ( datenum == 0 )
|
||
|
|
{
|
||
|
|
datenum = OS_conv_unixtime(&seconds,(uint32_t)time(NULL));
|
||
|
|
printf("got datenum.%d %d %d %d\n",datenum,seconds/3600,(seconds/60)%24,seconds%60);
|
||
|
|
}
|
||
|
|
for (i=0; i<numdates; i++)
|
||
|
|
{
|
||
|
|
expand_datenum(date,datenum);
|
||
|
|
if ( (price= jdouble(bpi,date)) != 0 )
|
||
|
|
{
|
||
|
|
utc32[numdates - 1 - i] = OS_conv_datenum(datenum,12,0,0);
|
||
|
|
cdaily[numdates - 1 - i] = price * .001;
|
||
|
|
//printf("(%s %u %f) ",date,utc32[numdates - 1 - i],price);
|
||
|
|
}
|
||
|
|
datenum = ecb_decrdate(&year,&month,&day,date,datenum);
|
||
|
|
}
|
||
|
|
prices777_genspline(&BUNDLE.splines[MAX_CURRENCIES],MAX_CURRENCIES,"coindesk",utc32,cdaily,numdates,cdaily);
|
||
|
|
|
||
|
|
} else printf("no bpi\n");
|
||
|
|
quandl = url_json("https://www.quandl.com/api/v1/datasets/BAVERAGE/USD.json?rows=64");
|
||
|
|
if ( (str= jstr(quandl,"updated_at")) != 0 && (datenum= conv_date(&seconds,str)) > 0 && (array= jarray(&n,quandl,"data")) != 0 )
|
||
|
|
{
|
||
|
|
printf("datenum.%d data.%d %d\n",datenum,n,cJSON_GetArraySize(array));
|
||
|
|
memset(utc32,0,sizeof(utc32)), memset(qdaily,0,sizeof(qdaily));
|
||
|
|
for (i=0; i<n&&i<MAX_SPLINES; i++)
|
||
|
|
{
|
||
|
|
// ["Date","24h Average","Ask","Bid","Last","Total Volume"]
|
||
|
|
// ["2015-07-25",289.27,288.84,288.68,288.87,44978.61]
|
||
|
|
item = jitem(array,i);
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("(%s) ",cJSON_Print(item));
|
||
|
|
if ( (dstr= jstr(jitem(item,0),0)) != 0 && (datenum= conv_date(&seconds,dstr)) > 0 )
|
||
|
|
{
|
||
|
|
price = jdouble(jitem(item,1),0), ask = jdouble(jitem(item,2),0), bid = jdouble(jitem(item,3),0);
|
||
|
|
close = jdouble(jitem(item,4),0), vol = jdouble(jitem(item,5),0);
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
fprintf(stderr,"%d.[%d %f %f %f %f %f].%d ",i,datenum,price,ask,bid,close,vol,n);
|
||
|
|
utc32[numdates - 1 - i] = OS_conv_datenum(datenum,12,0,0), qdaily[numdates - 1 - i] = price * .001;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
prices777_genspline(&BUNDLE.splines[MAX_CURRENCIES+1],MAX_CURRENCIES+1,"quandl",utc32,qdaily,n<MAX_SPLINES?n:MAX_SPLINES,qdaily);
|
||
|
|
}
|
||
|
|
btcdhist = url_json(url);
|
||
|
|
//{"date":1406160000,"high":0.01,"low":0.00125,"open":0.01,"close":0.001375,"volume":1.50179994,"quoteVolume":903.58818412,"weightedAverage":0.00166204},
|
||
|
|
if ( (array= jarray(&n,btcdhist,0)) != 0 )
|
||
|
|
{
|
||
|
|
memset(utc32,0,sizeof(utc32)), memset(btcddaily,0,sizeof(btcddaily));
|
||
|
|
//printf("GOT.(%s)\n",cJSON_Print(array));
|
||
|
|
for (i=0; i<n; i++)
|
||
|
|
{
|
||
|
|
item = jitem(array,i);
|
||
|
|
timestamp = juint(item,"date"), high = jdouble(item,"high"), low = jdouble(item,"low"), open = jdouble(item,"open");
|
||
|
|
close = jdouble(item,"close"), vol = jdouble(item,"volume"), quotevol = jdouble(item,"quoteVolume"), price = jdouble(item,"weightedAverage");
|
||
|
|
//printf("[%u %f %f %f %f %f %f %f]",timestamp,high,low,open,close,vol,quotevol,price);
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("[%u %d %f]",timestamp,OS_conv_unixtime(&seconds,timestamp),price);
|
||
|
|
utc32[i] = timestamp - 12*3600, btcddaily[i] = price * 100.;
|
||
|
|
}
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("poloniex.%d\n",n);
|
||
|
|
prices777_genspline(&BUNDLE.splines[MAX_CURRENCIES+2],MAX_CURRENCIES+2,"btcdhist",utc32,btcddaily,n<MAX_SPLINES?n:MAX_SPLINES,btcddaily);
|
||
|
|
}
|
||
|
|
// https://poloniex.com/public?command=returnChartData¤cyPair=BTC_BTCD&start=1405699200&end=9999999999&period=86400
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t prices777_calcmatrix(double matrix[32][32])
|
||
|
|
{
|
||
|
|
int32_t basenum,relnum,nonz,vnum,iter,numbase,numerrs = 0; double sum,vsum,price,price2,basevals[32],errsum=0;
|
||
|
|
memset(basevals,0,sizeof(basevals));
|
||
|
|
for (iter=0; iter<2; iter++)
|
||
|
|
{
|
||
|
|
numbase = 32;
|
||
|
|
for (basenum=0; basenum<numbase; basenum++)
|
||
|
|
{
|
||
|
|
for (vsum=sum=vnum=nonz=relnum=0; relnum<numbase; relnum++)
|
||
|
|
{
|
||
|
|
if ( basenum != relnum )
|
||
|
|
{
|
||
|
|
if ( (price= matrix[basenum][relnum]) != 0. )
|
||
|
|
{
|
||
|
|
price /= (MINDENOMS[relnum] * .001);
|
||
|
|
price *= (MINDENOMS[basenum] * .001);
|
||
|
|
if ( iter == 0 )
|
||
|
|
sum += (price), nonz++;//, printf("%.8f ",price);
|
||
|
|
else sum += fabs((price) - (basevals[basenum] / basevals[relnum])), nonz++;
|
||
|
|
}
|
||
|
|
if ( (price2= matrix[relnum][basenum]) != 0. )
|
||
|
|
{
|
||
|
|
price2 *= (MINDENOMS[relnum] * .001);
|
||
|
|
price2 /= (MINDENOMS[basenum] * .001);
|
||
|
|
if ( iter == 0 )
|
||
|
|
vsum += (price2), vnum++;
|
||
|
|
else vsum += fabs(price2 - (basevals[relnum] / basevals[basenum])), vnum++;
|
||
|
|
}
|
||
|
|
//if ( iter == 0 && 1/price2 > price )
|
||
|
|
// printf("base.%d rel.%d price2 %f vs %f\n",basenum,relnum,1/price2,price);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( iter == 0 )
|
||
|
|
sum += 1., vsum += 1.;
|
||
|
|
if ( nonz != 0 )
|
||
|
|
sum /= nonz;
|
||
|
|
if ( vnum != 0 )
|
||
|
|
vsum /= vnum;
|
||
|
|
if ( iter == 0 )
|
||
|
|
basevals[basenum] = (sum + 1./vsum) / 2.;
|
||
|
|
else errsum += (sum + vsum)/2, numerrs++;//, printf("(%.8f %.8f) ",sum,vsum);
|
||
|
|
//printf("date.%d (%.8f/%d %.8f/%d).%02d -> %.8f\n",i,sum,nonz,vsum,vnum,basenum,basevals[basenum]);
|
||
|
|
}
|
||
|
|
if ( iter == 0 )
|
||
|
|
{
|
||
|
|
for (sum=relnum=0; relnum<numbase; relnum++)
|
||
|
|
sum += (basevals[relnum]);//, printf("%.8f ",(basevals[relnum]));
|
||
|
|
//printf("date.%d sums %.8f and vsums iter.%d\n",i,sum/7,iter);
|
||
|
|
sum /= (numbase - 1);
|
||
|
|
for (relnum=0; relnum<numbase; relnum++)
|
||
|
|
basevals[relnum] /= sum;//, printf("%.8f ",basevals[relnum]);
|
||
|
|
//printf("date.%d sums %.8f and vsums iter.%d\n",i,sum,iter);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
for (basenum=0; basenum<numbase; basenum++)
|
||
|
|
matrix[basenum][basenum] = basevals[basenum];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( numerrs != 0 )
|
||
|
|
errsum /= numerrs;
|
||
|
|
return(errsum);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t ecb_matrix(double matrix[32][32],char *date)
|
||
|
|
{
|
||
|
|
FILE *fp=0; int32_t n=0,datenum,year=0,seconds,month=0,day=0,loaded = 0; char fname[64],_date[64];
|
||
|
|
if ( date == 0 )
|
||
|
|
date = _date, memset(_date,0,sizeof(_date));
|
||
|
|
sprintf(fname,"ECB/%s",date), iguana_compatible_path(fname);
|
||
|
|
if ( date[0] != 0 && (fp= fopen(fname,"rb")) != 0 )
|
||
|
|
{
|
||
|
|
if ( fread(matrix,1,sizeof(matrix[0][0])*32*32,fp) == sizeof(matrix[0][0])*32*32 )
|
||
|
|
loaded = 1;
|
||
|
|
else printf("fread error\n");
|
||
|
|
fclose(fp);
|
||
|
|
} else printf("ecb_matrix.(%s) load error fp.%p\n",fname,fp);
|
||
|
|
if ( loaded == 0 )
|
||
|
|
{
|
||
|
|
datenum = conv_date(&seconds,date);
|
||
|
|
year = datenum / 10000, month = (datenum / 100) % 100, day = (datenum % 100);
|
||
|
|
if ( (n= prices777_ecb(date,&matrix[0][0],year,month,day)) > 0 )
|
||
|
|
{
|
||
|
|
sprintf(fname,"ECB/%s",date), iguana_compatible_path(fname);
|
||
|
|
if ( (fp= fopen(fname,"wb")) != 0 )
|
||
|
|
{
|
||
|
|
if ( fwrite(matrix,1,sizeof(matrix[0][0])*32*32,fp) == sizeof(matrix[0][0])*32*32 )
|
||
|
|
loaded = 1;
|
||
|
|
fclose(fp);
|
||
|
|
}
|
||
|
|
} else printf("peggy_matrix error loading %d.%d.%d\n",year,month,day);
|
||
|
|
}
|
||
|
|
if ( loaded == 0 && n == 0 )
|
||
|
|
{
|
||
|
|
printf("peggy_matrix couldnt process loaded.%d n.%d\n",loaded,n);
|
||
|
|
return(-1);
|
||
|
|
}
|
||
|
|
//"2000-01-03"
|
||
|
|
if ( (datenum= conv_date(&seconds,date)) < 0 )
|
||
|
|
return(-1);
|
||
|
|
printf("loaded.(%s) nonz.%d (%d %d %d) datenum.%d\n",date,n,year,month,day,datenum);
|
||
|
|
return(datenum);
|
||
|
|
}
|
||
|
|
|
||
|
|
void price777_update(double *btcusdp,double *btcdbtcp)
|
||
|
|
{
|
||
|
|
int32_t i,n,seconds,datenum; uint32_t timestamp; char url[1024],*dstr,*str;
|
||
|
|
double btcddaily=0.,btcusd=0.,ask,high,low,bid,close,vol,quotevol,open,price = 0.;
|
||
|
|
//cJSON *btcdtrades,*btcdtrades2,*,*bitcoincharts,;
|
||
|
|
cJSON *quandl,*btcdhist,*array,*item,*bitcoinave,*blockchaininfo,*coindesk=0;
|
||
|
|
//btcdtrades = url_json("https://poloniex.com/public?command=returnTradeHistory¤cyPair=BTC_BTCD");
|
||
|
|
//btcdtrades2 = url_json("https://bittrex.com/api/v1.1/public/getmarkethistory?market=BTC-BTCD&count=50");
|
||
|
|
bitcoinave = url_json("https://api.bitcoinaverage.com/ticker/USD/");
|
||
|
|
//bitcoincharts = url_json("http://api.bitcoincharts.com/v1/weighted_prices.json");
|
||
|
|
blockchaininfo = url_json("https://blockchain.info/ticker");
|
||
|
|
coindesk = url_json("http://api.coindesk.com/v1/bpi/historical/close.json");
|
||
|
|
sprintf(url,"https://poloniex.com/public?command=returnChartData¤cyPair=BTC_BTCD&start=%ld&end=9999999999&period=86400",(long)(time(NULL)-2*3600*24));
|
||
|
|
quandl = url_json("https://www.quandl.com/api/v1/datasets/BAVERAGE/USD.json?rows=1");
|
||
|
|
if ( quandl != 0 && (str= jstr(quandl,"updated_at")) != 0 && (datenum= conv_date(&seconds,str)) > 0 && (array= jarray(&n,quandl,"data")) != 0 )
|
||
|
|
{
|
||
|
|
//printf("datenum.%d data.%d %d\n",datenum,n,cJSON_GetArraySize(array));
|
||
|
|
for (i=0; i<1; i++)
|
||
|
|
{
|
||
|
|
// ["Date","24h Average","Ask","Bid","Last","Total Volume"]
|
||
|
|
// ["2015-07-25",289.27,288.84,288.68,288.87,44978.61]
|
||
|
|
item = jitem(array,i);
|
||
|
|
if ( (dstr= jstr(jitem(item,0),0)) != 0 && (datenum= conv_date(&seconds,dstr)) > 0 )
|
||
|
|
{
|
||
|
|
btcusd = price = jdouble(jitem(item,1),0), ask = jdouble(jitem(item,2),0), bid = jdouble(jitem(item,3),0);
|
||
|
|
close = jdouble(jitem(item,4),0), vol = jdouble(jitem(item,5),0);
|
||
|
|
//fprintf(stderr,"%d.[%d %f %f %f %f %f].%d ",i,datenum,price,ask,bid,close,vol,n);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
price = 0.;
|
||
|
|
for (i=n=0; i<BUNDLE.num; i++)
|
||
|
|
{
|
||
|
|
if ( strcmp(BUNDLE.ptrs[i]->lbase,"btcd") == 0 && strcmp(BUNDLE.ptrs[i]->lrel,"btc") == 0 && BUNDLE.ptrs[i]->lastprice != 0. )
|
||
|
|
{
|
||
|
|
price += BUNDLE.ptrs[i]->lastprice;
|
||
|
|
n++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( n != 0 )
|
||
|
|
{
|
||
|
|
price /= n;
|
||
|
|
*btcdbtcp = price;
|
||
|
|
//printf("set BTCD price %f\n",price);
|
||
|
|
BUNDLE.btcdbtc = price;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
btcdhist = url_json(url);
|
||
|
|
//{"date":1406160000,"high":0.01,"low":0.00125,"open":0.01,"close":0.001375,"volume":1.50179994,"quoteVolume":903.58818412,"weightedAverage":0.00166204},
|
||
|
|
if ( btcdhist != 0 && (array= jarray(&n,btcdhist,0)) != 0 )
|
||
|
|
{
|
||
|
|
//printf("GOT.(%s)\n",cJSON_Print(array));
|
||
|
|
for (i=0; i<1; i++)
|
||
|
|
{
|
||
|
|
item = jitem(array,i);
|
||
|
|
timestamp = juint(item,"date"), high = jdouble(item,"high"), low = jdouble(item,"low"), open = jdouble(item,"open");
|
||
|
|
close = jdouble(item,"close"), vol = jdouble(item,"volume"), quotevol = jdouble(item,"quoteVolume"), price = jdouble(item,"weightedAverage");
|
||
|
|
//printf("[%u %f %f %f %f %f %f %f]",timestamp,high,low,open,close,vol,quotevol,price);
|
||
|
|
//printf("[%u %d %f]",timestamp,OS_conv_unixtime(&seconds,timestamp),price);
|
||
|
|
btcddaily = price;
|
||
|
|
if ( btcddaily != 0 )
|
||
|
|
BUNDLE.btcdbtc = *btcdbtcp = btcddaily;
|
||
|
|
}
|
||
|
|
//printf("poloniex.%d\n",n);
|
||
|
|
}
|
||
|
|
if ( btcdhist != 0 )
|
||
|
|
free_json(btcdhist);
|
||
|
|
}
|
||
|
|
// https://blockchain.info/ticker
|
||
|
|
/*
|
||
|
|
{
|
||
|
|
"USD" : {"15m" : 288.22, "last" : 288.22, "buy" : 288.54, "sell" : 288.57, "symbol" : "$"},
|
||
|
|
"ISK" : {"15m" : 38765.88, "last" : 38765.88, "buy" : 38808.92, "sell" : 38812.95, "symbol" : "kr"},
|
||
|
|
"HKD" : {"15m" : 2234, "last" : 2234, "buy" : 2236.48, "sell" : 2236.71, "symbol" : "$"},
|
||
|
|
"TWD" : {"15m" : 9034.19, "last" : 9034.19, "buy" : 9044.22, "sell" : 9045.16, "symbol" : "NT$"},
|
||
|
|
"CHF" : {"15m" : 276.39, "last" : 276.39, "buy" : 276.69, "sell" : 276.72, "symbol" : "CHF"},
|
||
|
|
"EUR" : {"15m" : 262.46, "last" : 262.46, "buy" : 262.75, "sell" : 262.78, "symbol" : "€"},
|
||
|
|
"DKK" : {"15m" : 1958.92, "last" : 1958.92, "buy" : 1961.1, "sell" : 1961.3, "symbol" : "kr"},
|
||
|
|
"CLP" : {"15m" : 189160.6, "last" : 189160.6, "buy" : 189370.62, "sell" : 189390.31, "symbol" : "$"},
|
||
|
|
"CAD" : {"15m" : 375.45, "last" : 375.45, "buy" : 375.87, "sell" : 375.91, "symbol" : "$"},
|
||
|
|
"CNY" : {"15m" : 1783.67, "last" : 1783.67, "buy" : 1785.65, "sell" : 1785.83, "symbol" : "¥"},
|
||
|
|
"THB" : {"15m" : 10046.98, "last" : 10046.98, "buy" : 10058.14, "sell" : 10059.18, "symbol" : "฿"},
|
||
|
|
"AUD" : {"15m" : 394.77, "last" : 394.77, "buy" : 395.2, "sell" : 395.25, "symbol" : "$"},
|
||
|
|
"SGD" : {"15m" : 395.08, "last" : 395.08, "buy" : 395.52, "sell" : 395.56, "symbol" : "$"},
|
||
|
|
"KRW" : {"15m" : 335991.51, "last" : 335991.51, "buy" : 336364.55, "sell" : 336399.52, "symbol" : "₩"},
|
||
|
|
"JPY" : {"15m" : 35711.99, "last" : 35711.99, "buy" : 35751.64, "sell" : 35755.35, "symbol" : "¥"},
|
||
|
|
"PLN" : {"15m" : 1082.74, "last" : 1082.74, "buy" : 1083.94, "sell" : 1084.06, "symbol" : "zł"},
|
||
|
|
"GBP" : {"15m" : 185.84, "last" : 185.84, "buy" : 186.04, "sell" : 186.06, "symbol" : "£"},
|
||
|
|
"SEK" : {"15m" : 2471.02, "last" : 2471.02, "buy" : 2473.76, "sell" : 2474.02, "symbol" : "kr"},
|
||
|
|
"NZD" : {"15m" : 436.89, "last" : 436.89, "buy" : 437.37, "sell" : 437.42, "symbol" : "$"},
|
||
|
|
"BRL" : {"15m" : 944.91, "last" : 944.91, "buy" : 945.95, "sell" : 946.05, "symbol" : "R$"},
|
||
|
|
"RUB" : {"15m" : 16695.05, "last" : 16695.05, "buy" : 16713.58, "sell" : 16715.32, "symbol" : "RUB"}
|
||
|
|
}*/
|
||
|
|
/*{
|
||
|
|
"24h_avg": 281.22,
|
||
|
|
"ask": 280.12,
|
||
|
|
"bid": 279.33,
|
||
|
|
"last": 279.58,
|
||
|
|
"timestamp": "Sun, 02 Aug 2015 09:36:34 -0000",
|
||
|
|
"total_vol": 39625.8
|
||
|
|
}*/
|
||
|
|
|
||
|
|
if ( bitcoinave != 0 )
|
||
|
|
{
|
||
|
|
if ( (price= jdouble(bitcoinave,"24h_avg")) > SMALLVAL )
|
||
|
|
{
|
||
|
|
//printf("bitcoinave %f %f\n",btcusd,price);
|
||
|
|
dxblend(&btcusd,price,0.5);
|
||
|
|
}
|
||
|
|
free_json(bitcoinave);
|
||
|
|
}
|
||
|
|
if ( quandl != 0 )
|
||
|
|
free_json(quandl);
|
||
|
|
if ( coindesk != 0 )
|
||
|
|
free_json(coindesk);
|
||
|
|
if ( blockchaininfo != 0 )
|
||
|
|
{
|
||
|
|
if ( (item= jobj(blockchaininfo,"USD")) != 0 && item != 0 && (price= jdouble(item,"15m")) > SMALLVAL )
|
||
|
|
{
|
||
|
|
//printf("blockchaininfo %f %f\n",btcusd,price);
|
||
|
|
dxblend(&btcusd,price,0.5);
|
||
|
|
}
|
||
|
|
free_json(blockchaininfo);
|
||
|
|
}
|
||
|
|
if ( btcusd != 0 )
|
||
|
|
BUNDLE.btcusd = *btcusdp = btcusd;
|
||
|
|
|
||
|
|
|
||
|
|
// https://poloniex.com/public?command=returnChartData¤cyPair=BTC_BTCD&start=1405699200&end=9999999999&period=86400
|
||
|
|
|
||
|
|
// https://poloniex.com/public?command=returnTradeHistory¤cyPair=BTC_BTCD
|
||
|
|
//https://bittrex.com/api/v1.1/public/getmarkethistory?market=BTC-BTCD&count=50
|
||
|
|
/*{"success":true,"message":"","result":[{"Id":8551089,"TimeStamp":"2015-07-25T16:00:41.597","Quantity":59.60917089,"Price":0.00642371,"Total":0.38291202,"FillType":"FILL","OrderType":"BUY"},{"Id":8551088,"TimeStamp":"2015-07-25T16:00:41.597","Quantity":7.00000000,"Price":0.00639680,"Total":0.04477760,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8551087,"TimeStamp":"2015-07-25T16:00:41.597","Quantity":6.51000000,"Price":0.00639679,"Total":0.04164310,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8551086,"TimeStamp":"2015-07-25T16:00:41.597","Quantity":6.00000000,"Price":0.00633300,"Total":0.03799800,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8551085,"TimeStamp":"2015-07-25T16:00:41.593","Quantity":4.76833955,"Price":0.00623300,"Total":0.02972106,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8551084,"TimeStamp":"2015-07-25T16:00:41.593","Quantity":5.00000000,"Price":0.00620860,"Total":0.03104300,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8551083,"TimeStamp":"2015-07-25T16:00:41.593","Quantity":4.91803279,"Price":0.00620134,"Total":0.03049839,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8551082,"TimeStamp":"2015-07-25T16:00:41.593","Quantity":4.45166432,"Price":0.00619316,"Total":0.02756986,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8551081,"TimeStamp":"2015-07-25T16:00:41.59","Quantity":2.00000000,"Price":0.00619315,"Total":0.01238630,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8547525,"TimeStamp":"2015-07-25T06:20:43.69","Quantity":1.23166045,"Price":0.00623300,"Total":0.00767693,"FillType":"FILL","OrderType":"BUY"},{"Id":8547524,"TimeStamp":"2015-07-25T06:20:43.69","Quantity":5.00000000,"Price":0.00613300,"Total":0.03066500,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8547523,"TimeStamp":"2015-07-25T06:20:43.687","Quantity":10.00000000,"Price":0.00609990,"Total":0.06099900,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8547522,"TimeStamp":"2015-07-25T06:20:43.687","Quantity":0.12326502,"Price":0.00609989,"Total":0.00075190,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8547521,"TimeStamp":"2015-07-25T06:20:43.687","Quantity":3.29000000,"Price":0.00609989,"Total":0.02006863,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8547520,"TimeStamp":"2015-07-25T06:20:43.687","Quantity":5.00000000,"Price":0.00604400,"Total":0.03022000,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8547519,"TimeStamp":"2015-07-25T06:20:43.683","Quantity":12.80164947,"Price":0.00603915,"Total":0.07731108,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8547518,"TimeStamp":"2015-07-25T06:20:43.683","Quantity":10.00000000,"Price":0.00602715,"Total":0.06027150,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8547517,"TimeStamp":"2015-07-25T06:20:43.683","Quantity":4.29037397,"Price":0.00600000,"Total":0.02574224,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8547516,"TimeStamp":"2015-07-25T06:20:43.683","Quantity":77.55994092,"Price":0.00598921,"Total":0.46452277,"FillType":"PARTIAL_FILL","OrderType":"BUY"},{"Id":8547515,"TimeStamp":"2015-07-25T06:20:43.68","Quantity":0.08645064,"Price":0.00598492,"Total":0.00051740,"FillType":"PARTIAL_FILL","OrderType":"BUY"}]}
|
||
|
|
*/
|
||
|
|
|
||
|
|
// https://api.bitcoinaverage.com/ticker/global/all
|
||
|
|
/* {
|
||
|
|
"AED": {
|
||
|
|
"ask": 1063.28,
|
||
|
|
"bid": 1062.1,
|
||
|
|
"last": 1062.29,
|
||
|
|
"timestamp": "Sat, 25 Jul 2015 17:13:14 -0000",
|
||
|
|
"volume_btc": 0.0,
|
||
|
|
"volume_percent": 0.0
|
||
|
|
},*/
|
||
|
|
|
||
|
|
// http://api.bitcoincharts.com/v1/weighted_prices.json
|
||
|
|
// {"USD": {"7d": "279.79", "30d": "276.05", "24h": "288.55"}, "IDR": {"7d": "3750799.88", "30d": "3636926.02", "24h": "3860769.92"}, "ILS": {"7d": "1033.34", "30d": "1031.58", "24h": "1092.36"}, "GBP": {"7d": "179.51", "30d": "175.30", "24h": "185.74"}, "DKK": {"30d": "1758.61"}, "CAD": {"7d": "364.04", "30d": "351.27", "24h": "376.12"}, "MXN": {"30d": "4369.33"}, "XRP": {"7d": "35491.70", "30d": "29257.39", "24h": "36979.02"}, "SEK": {"7d": "2484.50", "30d": "2270.94"}, "SGD": {"7d": "381.93", "30d": "373.69", "24h": "393.94"}, "HKD": {"7d": "2167.99", "30d": "2115.77", "24h": "2232.12"}, "AUD": {"7d": "379.42", "30d": "365.85", "24h": "394.93"}, "CHF": {"30d": "250.61"}, "timestamp": 1437844509, "CNY": {"7d": "1724.99", "30d": "1702.32", "24h": "1779.48"}, "LTC": {"7d": "67.46", "30d": "51.97", "24h": "61.61"}, "NZD": {"7d": "425.01", "30d": "409.33", "24h": "437.86"}, "THB": {"30d": "8632.82"}, "EUR": {"7d": "257.32", "30d": "249.88", "24h": "263.42"}, "ARS": {"30d": "3271.98"}, "NOK": {"30d": "2227.54"}, "RUB": {"7d": "16032.32", "30d": "15600.38", "24h": "16443.39"}, "INR": {"30d": "16601.17"}, "JPY": {"7d": "34685.73", "30d": "33617.77", "24h": "35652.79"}, "CZK": {"30d": "6442.13"}, "BRL": {"7d": "946.76", "30d": "900.77", "24h": "964.09"}, "NMC": {"7d": "454.06", "30d": "370.39", "24h": "436.71"}, "PLN": {"7d": "1041.81", "30d": "1024.96", "24h": "1072.49"}, "ZAR": {"30d": "3805.55"}}
|
||
|
|
}
|
||
|
|
|
||
|
|
double blend_price(double *volp,double wtA,cJSON *jsonA,double wtB,cJSON *jsonB)
|
||
|
|
{
|
||
|
|
//A.{"ticker":{"base":"BTS","target":"CNY","price":"0.02958291","volume":"3128008.39295500","change":"0.00019513","markets":[{"market":"BTC38","price":"0.02960000","volume":3051650.682955},{"market":"Bter","price":"0.02890000","volume":76357.71}]},"timestamp":1438490881,"success":true,"error":""}
|
||
|
|
// B.{"id":"bts\/cny","price":"0.02940000","price_before_24h":"0.02990000","volume_first":"3048457.6857147217","volume_second":"90629.45859575272","volume_btc":"52.74","best_market":"btc38","latest_trade":"2015-08-02 03:57:38","coin1":"BitShares","coin2":"CNY","markets":[{"market":"btc38","price":"0.02940000","volume":"3048457.6857147217","volume_btc":"52.738317962865"},{"market":"bter","price":"0.04350000","volume":"0","volume_btc":"0"}]}
|
||
|
|
double priceA,priceB,priceB24,price,volA,volB; cJSON *obj;
|
||
|
|
priceA = priceB = priceB24= price = volA = volB = 0.;
|
||
|
|
if ( jsonA != 0 && (obj= jobj(jsonA,"ticker")) != 0 )
|
||
|
|
{
|
||
|
|
priceA = jdouble(obj,"price");
|
||
|
|
volA = jdouble(obj,"volume");
|
||
|
|
}
|
||
|
|
if ( jsonB != 0 )
|
||
|
|
{
|
||
|
|
priceB = jdouble(jsonB,"price");
|
||
|
|
priceB24 = jdouble(jsonB,"price_before_24h");
|
||
|
|
volB = jdouble(jsonB,"volume_first");
|
||
|
|
}
|
||
|
|
//printf("priceA %f volA %f, priceB %f %f volB %f\n",priceA,volA,priceB,priceB24,volB);
|
||
|
|
if ( priceB > SMALLVAL && priceB24 > SMALLVAL )
|
||
|
|
priceB = (priceB * .1) + (priceB24 * .9);
|
||
|
|
else if ( priceB < SMALLVAL )
|
||
|
|
priceB = priceB24;
|
||
|
|
if ( priceA*volA < SMALLVAL )
|
||
|
|
price = priceB;
|
||
|
|
else if ( priceB*volB < SMALLVAL )
|
||
|
|
price = priceA;
|
||
|
|
else price = (wtA * priceA) + (wtB * priceB);
|
||
|
|
*volp = (volA + volB);
|
||
|
|
return(price);
|
||
|
|
}
|
||
|
|
|
||
|
|
void _crypto_update(double cryptovols[2][8][2],struct prices777_data *dp,int32_t selector,int32_t peggyflag)
|
||
|
|
{
|
||
|
|
char *cryptonatorA = "https://www.cryptonator.com/api/full/%s-%s"; //unity-btc
|
||
|
|
char *cryptocoinchartsB = "http://api.cryptocoincharts.info/tradingPair/%s_%s"; //bts_btc
|
||
|
|
char *cryptostrs[9] = { "btc", "nxt", "unity", "eth", "ltc", "xmr", "bts", "xcp", "etc" };
|
||
|
|
int32_t iter,i,j; double btcusd,btcdbtc,cnyusd,prices[8][2],volumes[8][2];
|
||
|
|
char base[16],rel[16],url[512],*str; cJSON *jsonA,*jsonB;
|
||
|
|
if ( peggyflag != 0 )
|
||
|
|
{
|
||
|
|
cnyusd = BUNDLE.cnyusd;
|
||
|
|
btcusd = BUNDLE.btcusd;
|
||
|
|
btcdbtc = BUNDLE.btcdbtc;
|
||
|
|
//printf("update with btcusd %f btcd %f cnyusd %f cnybtc %f\n",btcusd,btcdbtc,cnyusd,cnyusd/btcusd);
|
||
|
|
if ( btcusd < SMALLVAL || btcdbtc < SMALLVAL )
|
||
|
|
{
|
||
|
|
price777_update(&btcusd,&btcdbtc);
|
||
|
|
printf("price777_update with btcusd %f btcd %f\n",btcusd,btcdbtc);
|
||
|
|
}
|
||
|
|
memset(prices,0,sizeof(prices));
|
||
|
|
memset(volumes,0,sizeof(volumes));
|
||
|
|
for (j=0; j<sizeof(cryptostrs)/sizeof(*cryptostrs); j++)
|
||
|
|
{
|
||
|
|
str = cryptostrs[j];
|
||
|
|
if ( strcmp(str,"etc") == 0 )
|
||
|
|
{
|
||
|
|
if ( prices[3][0] > SMALLVAL )
|
||
|
|
break;
|
||
|
|
i = 3;
|
||
|
|
} else i = j;
|
||
|
|
for (iter=0; iter<1; iter++)
|
||
|
|
{
|
||
|
|
if ( i == 0 && iter == 0 )
|
||
|
|
strcpy(base,"btcd"), strcpy(rel,"btc");
|
||
|
|
else strcpy(base,str), strcpy(rel,iter==0?"btc":"cny");
|
||
|
|
//if ( selector == 0 )
|
||
|
|
{
|
||
|
|
sprintf(url,cryptonatorA,base,rel);
|
||
|
|
jsonA = url_json(url);
|
||
|
|
}
|
||
|
|
//else
|
||
|
|
{
|
||
|
|
sprintf(url,cryptocoinchartsB,base,rel);
|
||
|
|
jsonB = url_json(url);
|
||
|
|
}
|
||
|
|
prices[i][iter] = blend_price(&volumes[i][iter],0.4,jsonA,0.6,jsonB);
|
||
|
|
if ( iter == 1 )
|
||
|
|
{
|
||
|
|
if ( btcusd > SMALLVAL )
|
||
|
|
{
|
||
|
|
prices[i][iter] *= cnyusd / btcusd;
|
||
|
|
volumes[i][iter] *= cnyusd / btcusd;
|
||
|
|
} else prices[i][iter] = volumes[i][iter] = 0.;
|
||
|
|
}
|
||
|
|
cryptovols[0][i][iter] = _pairaved(cryptovols[0][i][iter],prices[i][iter]);
|
||
|
|
cryptovols[1][i][iter] = _pairaved(cryptovols[1][i][iter],volumes[i][iter]);
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("(%f %f).%d:%d ",cryptovols[0][i][iter],cryptovols[1][i][iter],i,iter);
|
||
|
|
//if ( cnyusd < SMALLVAL || btcusd < SMALLVAL )
|
||
|
|
// break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void crypto_update(int32_t peggyflag)
|
||
|
|
{
|
||
|
|
_crypto_update(BUNDLE.cryptovols,&BUNDLE.data,1,peggyflag);
|
||
|
|
while ( 1 )
|
||
|
|
{
|
||
|
|
_crypto_update(BUNDLE.cryptovols,&BUNDLE.data,1,peggyflag);
|
||
|
|
sleep(100);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_RTupdate(double cryptovols[2][8][2],double RTmetals[4],double *RTprices,struct prices777_data *dp)
|
||
|
|
{
|
||
|
|
char *cryptostrs[8] = { "btc", "nxt", "unity", "eth", "ltc", "xmr", "bts", "xcp" };
|
||
|
|
int32_t iter,i,c,baserel,basenum,relnum; double cnyusd,btcusd,btcdbtc,bid,ask,price,vol,prices[8][2],volumes[8][2];
|
||
|
|
char base[16],rel[16];
|
||
|
|
price777_update(&btcusd,&btcdbtc);
|
||
|
|
memset(prices,0,sizeof(prices));
|
||
|
|
memset(volumes,0,sizeof(volumes));
|
||
|
|
for (i=0; i<sizeof(cryptostrs)/sizeof(*cryptostrs); i++)
|
||
|
|
for (iter=0; iter<2; iter++)
|
||
|
|
prices[i][iter] = cryptovols[0][i][iter], volumes[i][iter] = cryptovols[1][i][iter];
|
||
|
|
if ( prices[0][0] > SMALLVAL )
|
||
|
|
dxblend(&btcdbtc,prices[0][0],.9);
|
||
|
|
dxblend(&dp->btcdbtc,btcdbtc,.995);
|
||
|
|
if ( BUNDLE.btcdbtc < SMALLVAL )
|
||
|
|
BUNDLE.btcdbtc = dp->btcdbtc;
|
||
|
|
if ( (cnyusd= BUNDLE.cnyusd) > SMALLVAL )
|
||
|
|
{
|
||
|
|
if ( prices[0][1] > SMALLVAL )
|
||
|
|
{
|
||
|
|
//printf("cnyusd %f, btccny %f -> btcusd %f %f\n",cnyusd,prices[0][1],prices[0][1]*cnyusd,btcusd);
|
||
|
|
btcusd = prices[0][1] * cnyusd;
|
||
|
|
if ( dp->btcusd < SMALLVAL )
|
||
|
|
dp->btcusd = btcusd;
|
||
|
|
else dxblend(&dp->btcusd,btcusd,.995);
|
||
|
|
if ( BUNDLE.btcusd < SMALLVAL )
|
||
|
|
BUNDLE.btcusd = dp->btcusd;
|
||
|
|
if ( BUNDLE.data.btcusd < SMALLVAL )
|
||
|
|
BUNDLE.data.btcusd = dp->btcusd;
|
||
|
|
printf("cnyusd %f, btccny %f -> btcusd %f %f -> %f %f %f\n",cnyusd,prices[0][1],prices[0][1]*cnyusd,btcusd,dp->btcusd,BUNDLE.btcusd,BUNDLE.data.btcusd);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
for (i=1; i<sizeof(cryptostrs)/sizeof(*cryptostrs); i++)
|
||
|
|
{
|
||
|
|
if ( (vol= volumes[i][0]+volumes[i][1]) > SMALLVAL )
|
||
|
|
{
|
||
|
|
price = ((prices[i][0] * volumes[i][0]) + (prices[i][1] * volumes[i][1])) / vol;
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("%s %f v%f + %f v%f -> %f %f\n",cryptostrs[i],prices[i][0],volumes[i][0],prices[i][1],volumes[i][1],price,dp->cryptos[i]);
|
||
|
|
dxblend(&dp->cryptos[i],price,.995);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
btcusd = BUNDLE.btcusd;
|
||
|
|
btcdbtc = BUNDLE.btcdbtc;
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf(" update with btcusd %f btcd %f\n",btcusd,btcdbtc);
|
||
|
|
if ( btcusd < SMALLVAL || btcdbtc < SMALLVAL )
|
||
|
|
{
|
||
|
|
price777_update(&btcusd,&btcdbtc);
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf(" price777_update with btcusd %f btcd %f\n",btcusd,btcdbtc);
|
||
|
|
} else BUNDLE.btcusd = btcusd, BUNDLE.btcdbtc = btcdbtc;
|
||
|
|
for (c=0; c<sizeof(CONTRACTS)/sizeof(*CONTRACTS); c++)
|
||
|
|
{
|
||
|
|
for (iter=0; iter<3; iter++)
|
||
|
|
{
|
||
|
|
switch ( iter )
|
||
|
|
{
|
||
|
|
case 0: bid = dp->tbids[c], ask = dp->tasks[c]; break;
|
||
|
|
case 1: bid = dp->fbids[c], ask = dp->fasks[c]; break;
|
||
|
|
case 2: bid = dp->ibids[c], ask = dp->iasks[c]; break;
|
||
|
|
}
|
||
|
|
if ( (price= _pairaved(bid,ask)) > SMALLVAL )
|
||
|
|
{
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("%.6f ",price);
|
||
|
|
dxblend(&RTprices[c],price,.995);
|
||
|
|
if ( 0 && (baserel= prices777_ispair(base,rel,CONTRACTS[c])) >= 0 )
|
||
|
|
{
|
||
|
|
basenum = (baserel >> 8) & 0xff, relnum = baserel & 0xff;
|
||
|
|
if ( basenum < 32 && relnum < 32 )
|
||
|
|
{
|
||
|
|
//printf("%s.%d %f <- %f\n",CONTRACTS[c],c,RTmatrix[basenum][relnum],RTprices[c]);
|
||
|
|
//dxblend(&RTmatrix[basenum][relnum],RTprices[c],.999);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( strcmp(CONTRACTS[c],"XAUUSD") == 0 )
|
||
|
|
dxblend(&RTmetals[0],price,.995);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
for (i=0; i<sizeof(Yahoo_metals)/sizeof(*Yahoo_metals); i++)
|
||
|
|
if ( BUNDLE.data.metals[i] != 0 )
|
||
|
|
dxblend(&RTmetals[i],BUNDLE.data.metals[i],.995);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t prices777_getmatrix(double *basevals,double *btcusdp,double *btcdbtcp,double Hmatrix[32][32],double *RTprices,char *contracts[],int32_t num,uint32_t timestamp)
|
||
|
|
{
|
||
|
|
int32_t i,j,c; char name[16]; double btcusd,btcdbtc;
|
||
|
|
memcpy(Hmatrix,BUNDLE.data.ecbmatrix,sizeof(BUNDLE.data.ecbmatrix));
|
||
|
|
prices777_calcmatrix(Hmatrix);
|
||
|
|
/*for (i=0; i<32; i++)
|
||
|
|
{
|
||
|
|
for (j=0; j<32; j++)
|
||
|
|
printf("%.6f ",Hmatrix[i][j]);
|
||
|
|
printf("%s\n",CURRENCIES[i]);
|
||
|
|
}*/
|
||
|
|
btcusd = BUNDLE.btcusd;
|
||
|
|
btcdbtc = BUNDLE.btcdbtc;
|
||
|
|
if ( btcusd > SMALLVAL )
|
||
|
|
dxblend(btcusdp,btcusd,.9);
|
||
|
|
if ( btcdbtc > SMALLVAL )
|
||
|
|
dxblend(btcdbtcp,btcdbtc,.9);
|
||
|
|
// char *cryptostrs[8] = { "btc", "nxt", "unity", "eth", "ltc", "xmr", "bts", "xcp" };
|
||
|
|
// "BTCUSD", "NXTBTC", "SuperNET", "ETHBTC", "LTCBTC", "XMRBTC", "BTSBTC", "XCPBTC", // BTC priced
|
||
|
|
for (i=0; i<num; i++)
|
||
|
|
{
|
||
|
|
if ( contracts[i] == 0 )
|
||
|
|
continue;
|
||
|
|
if ( i == num-1 && strcmp(contracts[i],"BTCUSD") == 0 )
|
||
|
|
{
|
||
|
|
RTprices[i] = *btcusdp;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
else if ( i == num-2 && strcmp(contracts[i],"BTCCNY") == 0 )
|
||
|
|
{
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
else if ( i == num-3 && strcmp(contracts[i],"BTCRUB") == 0 )
|
||
|
|
{
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
else if ( i == num-4 && strcmp(contracts[i],"XAUUSD") == 0 )
|
||
|
|
{
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
if ( strcmp(contracts[i],"NXTBTC") == 0 )
|
||
|
|
RTprices[i] = BUNDLE.data.cryptos[1];
|
||
|
|
else if ( strcmp(contracts[i],"SuperNET") == 0 )
|
||
|
|
RTprices[i] = BUNDLE.data.cryptos[2];
|
||
|
|
else if ( strcmp(contracts[i],"ETHBTC") == 0 )
|
||
|
|
RTprices[i] = BUNDLE.data.cryptos[3];
|
||
|
|
else if ( strcmp(contracts[i],"LTCBTC") == 0 )
|
||
|
|
RTprices[i] = BUNDLE.data.cryptos[4];
|
||
|
|
else if ( strcmp(contracts[i],"XMRBTC") == 0 )
|
||
|
|
RTprices[i] = BUNDLE.data.cryptos[5];
|
||
|
|
else if ( strcmp(contracts[i],"BTSBTC") == 0 )
|
||
|
|
RTprices[i] = BUNDLE.data.cryptos[6];
|
||
|
|
else if ( strcmp(contracts[i],"XCPBTC") == 0 )
|
||
|
|
RTprices[i] = BUNDLE.data.cryptos[7];
|
||
|
|
else if ( i < 32 )
|
||
|
|
{
|
||
|
|
basevals[i] = Hmatrix[i][i];
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("(%s %f).%d ",CURRENCIES[i],basevals[i],i);
|
||
|
|
}
|
||
|
|
else if ( (c= prices777_contractnum(contracts[i],0)) >= 0 )
|
||
|
|
{
|
||
|
|
RTprices[i] = BUNDLE.data.RTprices[c];
|
||
|
|
//if ( is_decimalstr(contracts[i]+strlen(contracts[i])-2) != 0 )
|
||
|
|
// cprices[i] *= .0001;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
for (j=0; j<sizeof(Yahoo_metals)/sizeof(*Yahoo_metals); j++)
|
||
|
|
{
|
||
|
|
sprintf(name,"%sUSD",Yahoo_metals[j]);
|
||
|
|
if ( contracts[i] != 0 && strcmp(name,contracts[i]) == 0 )
|
||
|
|
{
|
||
|
|
RTprices[i] = BUNDLE.data.RTmetals[j];
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( Debuglevel > 2 )
|
||
|
|
printf("(%f %f) i.%d num.%d %s %f\n",*btcusdp,*btcdbtcp,i,num,contracts[i],RTprices[i]);
|
||
|
|
//printf("RT.(%s %f) ",contracts[i],RTprices[i]);
|
||
|
|
}
|
||
|
|
return(BUNDLE.data.ecbdatenum);
|
||
|
|
}
|
||
|
|
|
||
|
|
int32_t prices_idle(int32_t peggyflag,int32_t idlegap)
|
||
|
|
{
|
||
|
|
static double lastupdate,lastdayupdate; static int32_t didinit; static portable_mutex_t mutex;
|
||
|
|
int32_t i,datenum; struct prices777_data *dp = &BUNDLE.tmp;
|
||
|
|
*dp = BUNDLE.data;
|
||
|
|
if ( didinit == 0 )
|
||
|
|
{
|
||
|
|
portable_mutex_init(&mutex);
|
||
|
|
prices777_init(BUNDLE.jsonstr,peggyflag);
|
||
|
|
didinit = 1;
|
||
|
|
if ( peggyflag != 0 )
|
||
|
|
{
|
||
|
|
int32_t opreturns_init(uint32_t blocknum,uint32_t blocktimestamp,char *path);
|
||
|
|
opreturns_init(0,(uint32_t)time(NULL),"peggy");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if ( peggyflag != 0 && milliseconds() > lastupdate + (1000*idlegap) )
|
||
|
|
{
|
||
|
|
lastupdate = milliseconds();
|
||
|
|
if ( milliseconds() > lastdayupdate + 60000*60 )
|
||
|
|
{
|
||
|
|
lastdayupdate = milliseconds();
|
||
|
|
if ( (datenum= ecb_matrix(dp->ecbmatrix,dp->edate)) > 0 )
|
||
|
|
{
|
||
|
|
dp->ecbdatenum = datenum;
|
||
|
|
dp->ecbyear = dp->ecbdatenum / 10000, dp->ecbmonth = (dp->ecbdatenum / 100) % 100, dp->ecbday = (dp->ecbdatenum % 100);
|
||
|
|
expand_datenum(dp->edate,datenum);
|
||
|
|
memcpy(dp->RTmatrix,dp->ecbmatrix,sizeof(dp->RTmatrix));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
for (i=0; i<sizeof(Yahoo_metals)/sizeof(*Yahoo_metals); i++)
|
||
|
|
BUNDLE.data.metals[i] = prices777_yahoo(Yahoo_metals[i]);
|
||
|
|
BUNDLE.truefxidnum = prices777_truefx(dp->tmillistamps,dp->tbids,dp->tasks,dp->topens,dp->thighs,dp->tlows,BUNDLE.truefxuser,BUNDLE.truefxpass,(uint32_t)BUNDLE.truefxidnum);
|
||
|
|
prices777_fxcm(dp->flhlogmatrix,dp->flogmatrix,dp->fbids,dp->fasks,dp->fhighs,dp->flows);
|
||
|
|
prices777_instaforex(dp->ilogmatrix,dp->itimestamps,dp->ibids,dp->iasks);
|
||
|
|
double btcdbtc,btcusd;
|
||
|
|
price777_update(&btcusd,&btcdbtc);
|
||
|
|
if ( btcusd > SMALLVAL )
|
||
|
|
dxblend(&dp->btcusd,btcusd,0.99);
|
||
|
|
if ( btcdbtc > SMALLVAL )
|
||
|
|
dxblend(&dp->btcdbtc,btcdbtc,0.99);
|
||
|
|
if ( BUNDLE.data.btcusd == 0 )
|
||
|
|
BUNDLE.data.btcusd = dp->btcusd;
|
||
|
|
if ( BUNDLE.data.btcdbtc == 0 )
|
||
|
|
BUNDLE.data.btcdbtc = dp->btcdbtc;
|
||
|
|
if ( dp->ecbmatrix[USD][USD] > SMALLVAL && dp->ecbmatrix[CNY][CNY] > SMALLVAL )
|
||
|
|
BUNDLE.cnyusd = (dp->ecbmatrix[CNY][CNY] / dp->ecbmatrix[USD][USD]);
|
||
|
|
portable_mutex_lock(&mutex);
|
||
|
|
BUNDLE.data = *dp;
|
||
|
|
portable_mutex_unlock(&mutex);
|
||
|
|
//kv777_write(BUNDLE.kv,"data",5,&BUNDLE.data,sizeof(BUNDLE.data));
|
||
|
|
prices777_RTupdate(BUNDLE.cryptovols,BUNDLE.data.RTmetals,BUNDLE.data.RTprices,&BUNDLE.data);
|
||
|
|
//printf("update finished\n");
|
||
|
|
void peggy();
|
||
|
|
peggy();
|
||
|
|
didinit = 1;
|
||
|
|
}
|
||
|
|
return(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_sim(uint32_t now,int32_t numiters)
|
||
|
|
{
|
||
|
|
double btca,btcb,btcd,btc,btcdusd,basevals[MAX_CURRENCIES],btcdprices[MAX_CURRENCIES+1];
|
||
|
|
int32_t i,j,datenum,seconds; uint32_t timestamp,starttime = (uint32_t)time(NULL);
|
||
|
|
for (i=0; i<numiters; i++)
|
||
|
|
{
|
||
|
|
timestamp = now - (rand() % (3600*24*64));
|
||
|
|
btca = 1000. * prices777_splineval(&BUNDLE.splines[MAX_CURRENCIES+0],timestamp,0);
|
||
|
|
btcb = 1000. * prices777_splineval(&BUNDLE.splines[MAX_CURRENCIES+1],timestamp,0);
|
||
|
|
btc = _pairaved(btca,btcb);
|
||
|
|
btcd = .01 * prices777_splineval(&BUNDLE.splines[MAX_CURRENCIES+2],timestamp,0);
|
||
|
|
btcdusd = (btc * btcd);
|
||
|
|
datenum = OS_conv_unixtime(&seconds,timestamp);
|
||
|
|
for (j=0; j<MAX_CURRENCIES; j++)
|
||
|
|
{
|
||
|
|
basevals[j] = prices777_splineval(&BUNDLE.splines[j],timestamp,0);
|
||
|
|
btcdprices[j] = basevals[j] / (btcdusd * basevals[USD]);
|
||
|
|
}
|
||
|
|
if ( (i % 100000) == 0 )
|
||
|
|
{
|
||
|
|
printf("%d:%02d:%02d %.8f %.8f -> USD %.8f (EURUSD %.8f %.8f) ",datenum,seconds/3600,(seconds%3600)/60,btc,btcd,btcdusd,btcdprices[EUR]/btcdprices[USD],basevals[EUR]/basevals[USD]);
|
||
|
|
for (j=0; j<MAX_CURRENCIES; j++)
|
||
|
|
printf("%.8f ",btcdprices[j]);
|
||
|
|
printf("\n");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
printf("sim took %ld seconds\n",(long)(time(NULL) - starttime));
|
||
|
|
}
|
||
|
|
|
||
|
|
void prices777_getlist(char *retbuf)
|
||
|
|
{
|
||
|
|
int32_t i,j; struct prices777 *prices; char pair[16],*jsonstr; cJSON *json,*array,*item;
|
||
|
|
json = cJSON_CreateObject();
|
||
|
|
array = cJSON_CreateArray();
|
||
|
|
for (i=0; i<sizeof(CURRENCIES)/sizeof(*CURRENCIES); i++)
|
||
|
|
cJSON_AddItemToArray(array,cJSON_CreateString(CURRENCIES[i]));
|
||
|
|
cJSON_AddItemToObject(json,"currency",array);
|
||
|
|
array = cJSON_CreateArray();
|
||
|
|
for (i=0; i<32; i++)
|
||
|
|
for (j=0; j<32; j++)
|
||
|
|
{
|
||
|
|
if ( i != j )
|
||
|
|
{
|
||
|
|
sprintf(pair,"%s%s",CURRENCIES[i],CURRENCIES[j]);
|
||
|
|
cJSON_AddItemToArray(array,cJSON_CreateString(pair));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
cJSON_AddItemToObject(json,"pairs",array);
|
||
|
|
array = cJSON_CreateArray();
|
||
|
|
for (i=0; i<sizeof(CONTRACTS)/sizeof(*CONTRACTS); i++)
|
||
|
|
cJSON_AddItemToArray(array,cJSON_CreateString(CONTRACTS[i]));
|
||
|
|
cJSON_AddItemToObject(json,"contract",array);
|
||
|
|
array = cJSON_CreateArray();
|
||
|
|
for (i=0; i<BUNDLE.num; i++)
|
||
|
|
{
|
||
|
|
if ( (prices= BUNDLE.ptrs[i]) != 0 )
|
||
|
|
{
|
||
|
|
item = cJSON_CreateObject();
|
||
|
|
cJSON_AddItemToObject(item,prices->exchange,cJSON_CreateString(prices->contract));
|
||
|
|
cJSON_AddItemToObject(item,"base",cJSON_CreateString(prices->base));
|
||
|
|
if ( prices->rel[0] != 0 )
|
||
|
|
cJSON_AddItemToObject(item,"rel",cJSON_CreateString(prices->rel));
|
||
|
|
//printf("(%s) (%s) (%s)\n",prices->contract,prices->base,prices->rel);
|
||
|
|
cJSON_AddItemToArray(array,item);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
cJSON_AddItemToObject(json,"result",cJSON_CreateString("success"));
|
||
|
|
cJSON_AddItemToObject(json,"list",array);
|
||
|
|
jsonstr = cJSON_Print(json), _stripwhite(jsonstr,' '), free_json(json);
|
||
|
|
strcpy(retbuf,jsonstr), free(jsonstr);
|
||
|
|
printf("list -> (%s)\n",retbuf);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
#endif
|