SuperNET/iguana/exchanges/LP_utxo.c

/******************************************************************************
 * Copyright © 2014-2018 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.            *
 *                                                                            *
 ******************************************************************************/
//
//  LP_utxo.c
//  marketmaker
//


struct LP_inuse_info
{
    bits256 txid,otherpub;
    uint32_t expiration;
    int32_t vout,ind;
} LP_inuse[1024];
int32_t LP_numinuse;

cJSON *LP_inuse_json()
{
    int32_t i; cJSON *item,*array; struct LP_inuse_info *lp;
    array = cJSON_CreateArray();
    for (i=0; i<LP_numinuse; i++)
    {
        lp = &LP_inuse[i];
        if ( lp->expiration != 0 )
        {
            item = cJSON_CreateObject();
            jaddnum(item,"expiration",lp->expiration);
            jaddbits256(item,"txid",lp->txid);
            jaddnum(item,"vout",lp->vout);
            if ( bits256_nonz(lp->otherpub) != 0 )
                jaddbits256(item,"otherpub",lp->otherpub);
            jaddi(array,item);
        }
    }
    return(array);
}

struct LP_inuse_info *_LP_inuse_find(bits256 txid,int32_t vout)
{
    int32_t i;
    if ( bits256_nonz(txid) != 0 )
    {
        for (i=0; i<LP_numinuse; i++)
            if ( vout == LP_inuse[i].vout && bits256_cmp(LP_inuse[i].txid,txid) == 0 )
                return(&LP_inuse[i]);
    }
    return(0);
}

int32_t _LP_inuse_delete(bits256 txid,int32_t vout)
{
    struct LP_inuse_info *lp; int32_t ind; char str[65];
    if ( (lp= _LP_inuse_find(txid,vout)) != 0 )
    {
        ind = lp->ind;
        if ( LP_numinuse > 0 )
            *lp = LP_inuse[--LP_numinuse];
        lp->ind = ind;
        memset(&LP_inuse[LP_numinuse],0,sizeof(struct LP_inuse_info));
        //printf("_LP_inuse_delete mark as free %s/v%d find.%p\n",bits256_str(str,txid),vout,_LP_inuse_find(txid,vout));
        for (ind=0; ind<LP_numinuse; ind++)
            if ( LP_inuse[ind].ind != ind )
                printf("ind.%d of %d: mismatched ind.%d\n",ind,LP_numinuse,LP_inuse[ind].ind);
    } else printf("_LP_inuse_delete couldnt find %s/v%d\n",bits256_str(str,txid),vout);
    return(-1);
}

struct LP_inuse_info *_LP_inuse_add(uint32_t expiration,bits256 otherpub,bits256 txid,int32_t vout)
{
    struct LP_inuse_info *lp; int32_t i,n,oldesti; uint32_t now,oldest;
    if ( LP_numinuse >= sizeof(LP_inuse)/sizeof(*LP_inuse) )
    {
        now = (uint32_t)time(NULL);
        n = 0;
        oldesti = -1;
        oldest = 0;
        for (i=0; i<sizeof(LP_inuse)/sizeof(*LP_inuse); i++)
        {
            lp = &LP_inuse[i];
            if ( now > lp->expiration )
                _LP_inuse_delete(lp->txid,lp->vout), n++;
            else if ( oldest == 0 || lp->expiration < oldest )
            {
                oldest = lp->expiration;
                oldesti = i;
            }
        }
        if ( n == 0 )
        {
            printf("_LP_inuse_add out of slots error, pick oldesti %d\n",oldesti);
            lp = &LP_inuse[oldesti];
            _LP_inuse_delete(lp->txid,lp->vout);
        } else printf("expired %d inuse slots\n",n);
    }
    if ( bits256_nonz(txid) != 0 )
    {
        if ( (lp= _LP_inuse_find(txid,vout)) == 0 )
        {
            lp = &LP_inuse[LP_numinuse];
            memset(lp,0,sizeof(*lp));
            lp->txid = txid;
            lp->vout = vout;
            lp->expiration = expiration;
            lp->otherpub = otherpub;
            lp->ind = LP_numinuse++;
        }
        else
        {
            if ( bits256_nonz(otherpub) != 0 )
                lp->otherpub = otherpub;
            //if ( expiration > lp->expiration || expiration == 0 )
                lp->expiration = expiration;
        }
        //char str[65]; printf("set inuse until %u lag.%d for %s/v%d\n",expiration,(int32_t)(expiration-(uint32_t)time(NULL)),bits256_str(str,txid),vout);
        return(lp);
    } else printf("_LP_inuse_add [%d] overflow\n",LP_numinuse);
    return(0);
}

int32_t LP_reservation_check(bits256 txid,int32_t vout,bits256 pubkey)
{
    struct LP_inuse_info *lp; int32_t retval = -1;
    if ( bits256_nonz(pubkey) != 0 )
    {
        char str[65],str2[65];
        portable_mutex_lock(&LP_inusemutex);
        if ( (lp= _LP_inuse_find(txid,vout)) != 0 )
        {
            if ( bits256_cmp(lp->otherpub,pubkey) == 0 )
                retval = 0;
            else printf("otherpub.%s != %s\n",bits256_str(str,lp->otherpub),bits256_str(str2,pubkey));
        } else printf("couldnt find %s/v%d\n",bits256_str(str,txid),vout);
        portable_mutex_unlock(&LP_inusemutex);
    } else printf("LP_reservation_check null pubkey\n");
    return(retval);
}

uint32_t LP_allocated(bits256 txid,int32_t vout)
{
    struct LP_inuse_info *lp; uint32_t now,duration = 0;
    now = (uint32_t)time(NULL);
    portable_mutex_lock(&LP_inusemutex);
    if ( (lp= _LP_inuse_find(txid,vout)) != 0 )
    {
        if ( lp->expiration != 0 && now < lp->expiration )
            duration = (lp->expiration - now);
    }
    portable_mutex_unlock(&LP_inusemutex);
    return(duration);
}

void LP_unavailableset(bits256 txid,int32_t vout,uint32_t expiration,bits256 otherpub)
{
    portable_mutex_lock(&LP_inusemutex);
    _LP_inuse_add(expiration,otherpub,txid,vout);
    portable_mutex_unlock(&LP_inusemutex);
}

void LP_availableset(bits256 txid,int32_t vout)
{
    portable_mutex_lock(&LP_inusemutex);
    _LP_inuse_delete(txid,vout);
    portable_mutex_unlock(&LP_inusemutex);
}

int32_t LP_maxvalue(uint64_t *values,int32_t n)
{
    int32_t i,maxi = -1; uint64_t maxval = 0;
    for (i=0; i<n; i++)
        if ( values[i] > maxval )
        {
            maxi = i;
            maxval = values[i];
        }
    return(maxi);
}

int32_t LP_nearestvalue(int32_t iambob,uint64_t *values,int32_t n,uint64_t targetval)
{
    int32_t i,mini = -1; int64_t dist; uint64_t mindist = (1 << 31);
    for (i=0; i<n; i++)
    {
        dist = (values[i] - targetval);
        if ( iambob != 0 && dist < 0 && -dist < values[i]/10 )
            dist = -dist;
        //printf("(%.8f %.8f %.8f).%d ",dstr(values[i]),dstr(dist),dstr(mindist),mini);
        if ( dist >= 0 && dist < mindist )
        {
            mini = i;
            mindist = dist;
        }
    }
    return(mini);
}

uint64_t LP_value_extract(cJSON *obj,int32_t addinterest,bits256 utxotxid)
{
    double val = 0.; uint64_t interest,value = 0; int32_t electrumflag;
    electrumflag = (jobj(obj,"tx_hash") != 0);
    if ( electrumflag == 0 )
    {
        if ( (val= jdouble(obj,"amount")) < SMALLVAL )
            val = jdouble(obj,"value");
        value = (val + 0.0000000049) * SATOSHIDEN;
    } else value = j64bits(obj,"value");
    if ( value != 0 )
    {
        if ( addinterest != 0 )
        {
            if ( jobj(obj,"interest") != 0 )
                value += (jdouble(obj,"interest") * SATOSHIDEN);
            else
            {
                interest = LP_komodo_interest(utxotxid,value);
                //char str[65]; printf("(%s) txid.%s %.8f + %.8f\n",jprint(obj,0),bits256_str(str,utxotxid),dstr(value),dstr(interest));
                value += interest;
            }
        }
    }
    return(value);
}

int32_t LP_destaddr(char *destaddr,cJSON *item)
{
    int32_t m,retval = -1; cJSON *addresses,*skey; char *addr;
    if ( (skey= jobj(item,"scriptPubKey")) != 0 && (addresses= jarray(&m,skey,"addresses")) != 0 )
    {
        item = jitem(addresses,0);
        if ( (addr= jstr(item,0)) != 0 )
        {
            safecopy(destaddr,addr,64);
            retval = 0;
        }
        //printf("item.(%s) -> dest.(%s)\n",jprint(item,0),destaddr);
    }
    return(retval);
}

int32_t LP_txdestaddr(char *destaddr,bits256 txid,int32_t vout,cJSON *txobj)
{
    int32_t n,retval = -1; cJSON *vouts;
    if ( (vouts= jarray(&n,txobj,"vout")) != 0 && vout < n )
        retval = LP_destaddr(destaddr,jitem(vouts,vout));
    return(retval);
}

struct LP_address *_LP_address(struct iguana_info *coin,char *coinaddr)
{
    struct LP_address *ap = 0;
    if ( (ap= _LP_addressfind(coin,coinaddr)) == 0 )
    {
        ap = _LP_addressadd(coin,coinaddr);
        //printf("LP_address %s %s\n",coin->symbol,coinaddr);
    }
    return(ap);
}

struct LP_address *LP_addressfind(struct iguana_info *coin,char *coinaddr)
{
    struct LP_address *ap = 0;
    if ( coin != 0 )
    {
        portable_mutex_lock(&coin->addrmutex);
        ap = _LP_addressfind(coin,coinaddr);
        portable_mutex_unlock(&coin->addrmutex);
    }
    return(ap);
}

struct LP_address *LP_address(struct iguana_info *coin,char *coinaddr)
{
    struct LP_address *ap = 0;
    if ( coin != 0 )
    {
        portable_mutex_lock(&coin->addrmutex);
        ap = _LP_address(coin,coinaddr);
        portable_mutex_unlock(&coin->addrmutex);
    }
    return(ap);
}

int32_t LP_address_minmax(int32_t iambob,uint64_t *medianp,uint64_t *minp,uint64_t *maxp,struct iguana_info *coin,char *coinaddr)
{
    cJSON *array,*item; bits256 txid,zero; int64_t max,max2,value; uint64_t *buf; int32_t i,m=0,vout,height,n = 0;
    *minp = *maxp = *medianp = max = max2 = 0;
    memset(zero.bytes,0,sizeof(zero));
    if ( (array= LP_listunspent(coin->symbol,coinaddr,zero,zero)) != 0 )
    {
        //printf("address minmax.(%s)\n",jprint(array,0));
        if ( (n= cJSON_GetArraySize(array)) > 0 )
        {
            buf = calloc(sizeof(*buf),n);
            for (i=m=0; i<n; i++)
            {
                item = jitem(array,i);
                value = LP_listunspent_parseitem(coin,&txid,&vout,&height,item);
                if ( LP_allocated(txid,vout) != 0 )
                    continue;
                buf[m++] = value;
                if ( value > max )
                {
                    max2 = max;
                    max = value;
                }
                else if ( value > max2 )
                    max2 = value;
                if ( *minp == 0 || value < *minp )
                    *minp = value;
            }
            if ( m > 1 )
            {
                revsort64s(buf,m,sizeof(*buf));
                if ( iambob != 0 )
                {
                    if ( max == buf[0] && max2 == buf[1] )
                    {
                        for (i=1; i<m; i++)
                        {
                            //printf("%.8f ",dstr(LP_DEPOSITSATOSHIS(buf[i])));
                            if ( max >= LP_DEPOSITSATOSHIS(buf[i]) )
                            {
                                *maxp = buf[i];
                                *medianp = buf[m/2];
                                //printf("buf[%d] %.8f -> maxp, m.%d/2 %.8f -> median\n",i,dstr(*maxp),m,dstr(*medianp));
                                break;
                            }
                        }
                    } else printf("sort error? max %.8f != %.8f\n",dstr(max),dstr(buf[0]));
                    //printf("vs. max %.8f %s maxp %.8f median %.8f\n",dstr(max),coin->symbol,dstr(*maxp),dstr(*medianp));
                }
                else
                {
                    *maxp = buf[0];
                    *medianp = buf[m/2];
                    printf("alice addressmin max %s %.8f %.8f %.8f num.%d\n",coin->symbol,dstr(*minp),dstr(*maxp),dstr(*medianp),m);
                }
            } else *minp = *maxp = *medianp = 0;
            free(buf);
        }
        free_json(array);
    }
    return(m/2);
}

int32_t LP_address_utxo_ptrs(struct iguana_info *coin,int32_t iambob,struct LP_address_utxo **utxos,int32_t max,struct LP_address *ap,char *coinaddr)
{
    struct LP_address_utxo *up,*tmp; struct LP_transaction *tx; cJSON *txout; int32_t i,n = 0;
    if ( strcmp(ap->coinaddr,coinaddr) != 0 )
        printf("UNEXPECTED coinaddr mismatch (%s) != (%s)\n",ap->coinaddr,coinaddr);
    //portable_mutex_lock(&LP_utxomutex);
    DL_FOREACH_SAFE(ap->utxos,up,tmp)
    {
        //char str[65]; printf("LP_address_utxo_ptrs %s n.%d %.8f %s v%d spendheight.%d allocated.%d\n",ap->coinaddr,n,dstr(up->U.value),bits256_str(str,up->U.txid),up->U.vout,up->spendheight,LP_allocated(up->U.txid,up->U.vout));
        if ( up->spendheight <= 0 && LP_RTmetrics_avoidtxid(up->U.txid) < 0 )
        {
            if ( coin->electrum == 0 )
            {
                if ( (txout= LP_gettxout(coin->symbol,coinaddr,up->U.txid,up->U.vout)) != 0 )
                {
                    if ( LP_value_extract(txout,0,up->U.txid) == 0 )
                    {
//char str[65]; printf("LP_address_utxo_ptrs skip zero value %s/v%d\n",bits256_str(str,up->U.txid),up->U.vout);
                        free_json(txout);
                        up->spendheight = 1;
                        if ( (tx= LP_transactionfind(coin,up->U.txid)) != 0 && up->U.vout < tx->numvouts )
                            tx->outpoints[up->U.vout].spendheight = 1;
                        continue;
                    }
                    free_json(txout);
                }
                else
                {
//char str[65]; printf("LP_address_utxo_ptrs skips %s %s payment %s/v%d is spent\n",coin->symbol,coinaddr,bits256_str(str,up->U.txid),up->U.vout);
                    up->spendheight = 1;
                    if ( (tx= LP_transactionfind(coin,up->U.txid)) != 0 && up->U.vout < tx->numvouts )
                        tx->outpoints[up->U.vout].spendheight = 1;
                    continue;
                }
            }
            else
            {
                if ( up->SPV < 0 || up->U.height == 0 )
                {
//printf("LP_address_utxo_ptrs skips %s/v%u due to SPV.%d ht.%d\n",bits256_str(str,up->U.txid),up->U.vout,up->SPV,up->U.height);
                    if ( (tx= LP_transactionfind(coin,up->U.txid)) != 0 && up->U.vout < tx->numvouts )
                        tx->outpoints[up->U.vout].spendheight = 1;
                    continue;
                }
            }
            if ( LP_allocated(up->U.txid,up->U.vout) == 0 )
            {
                for (i=0; i<n; i++)
                    if ( utxos[i]->U.vout == up->U.vout && bits256_cmp(utxos[i]->U.txid,up->U.txid) == 0 )
                        break;
                if ( i == n )
                {
                    utxos[n++] = up;
                    if ( n >= max )
                        break;
                }
            } //else printf("LP_allocated skip %u\n",LP_allocated(up->U.txid,up->U.vout));
        }
        else
        {
            if ( (tx= LP_transactionfind(coin,up->U.txid)) != 0 && up->U.vout < tx->numvouts )
                tx->outpoints[up->U.vout].spendheight = 1;
        }
    }
    //portable_mutex_unlock(&LP_utxomutex);
    //printf("return n.%d for %s %s\n",n,coin->symbol,coinaddr);
    return(n);
}

struct LP_address_utxo *LP_address_utxofind(struct iguana_info *coin,char *coinaddr,bits256 txid,int32_t vout)
{
    struct LP_address *ap; struct LP_address_utxo *up,*tmp;
    //printf("LP_address_utxofind %s add addr.%s\n",coin->symbol,coinaddr);
    if ( (ap= _LP_address(coin,coinaddr)) != 0 )
    {
        DL_FOREACH_SAFE(ap->utxos,up,tmp)
        {
            if ( vout == up->U.vout && bits256_cmp(up->U.txid,txid) == 0 )
                return(up);
        }
    }
    return(0);
}

void LP_mark_spent(char *symbol,bits256 txid,int32_t vout)
{
    struct iguana_info *coin; struct LP_transaction *tx; struct LP_address_utxo *up;
    if ( (coin= LP_coinfind(symbol)) != 0 )
    {
        if ( (tx= LP_transactionfind(coin,txid)) != 0 )
        {
            if ( vout < tx->numvouts )
            {
                tx->outpoints[vout].spendheight = 1;
                if ( (up= LP_address_utxofind(coin,tx->outpoints[vout].coinaddr,txid,vout)) != 0 )
                    up->spendheight = 1;
            }
        }
    }
}

int32_t LP_address_utxoadd(int32_t skipsearch,uint32_t timestamp,char *debug,struct iguana_info *coin,char *coinaddr,bits256 txid,int32_t vout,uint64_t value,int32_t height,int32_t spendheight)
{
    struct LP_address *ap; char *hexstr; cJSON *txobj,*sobj; struct LP_transaction *tx; struct LP_address_utxo *up,*tmp; int32_t flag,retval = 0; //char str[65];
    if ( coin == 0 )
        return(0);
    if ( spendheight > 0 ) // dont autocreate entries for spends we dont care about
        ap = LP_addressfind(coin,coinaddr);
    else ap = LP_address(coin,coinaddr);
    //printf("%s add addr.%s ht.%d ap.%p\n",coin->symbol,coinaddr,height,ap);
    if ( ap != 0 )
    {
        flag = 0;
        if ( skipsearch == 0 )
        {
            DL_FOREACH_SAFE(ap->utxos,up,tmp)
            {
                if ( vout == up->U.vout && bits256_cmp(up->U.txid,txid) == 0 )
                {
                    flag = 1;
                    if ( height > 0 && up->U.height != height )
                        up->U.height = height, flag |= 2;
                    if ( spendheight > 0 && up->spendheight != spendheight )
                        up->spendheight = spendheight, flag |= 4;
                    if ( value != 0 && up->U.value == 0 && up->U.value != value )
                        up->U.value = value, flag |= 8;
                    //up->timestamp = timestamp;
                    //char str[65]; printf("found >>>>>>>>>> %s %s %s/v%d ht.%d %.8f\n",coin->symbol,coinaddr,bits256_str(str,txid),vout,height,dstr(value));
                    break;
                }
            }
        }
        if ( flag == 0 && value != 0 )
        {
            if ( coin->electrum == 0 )
            {
                if ( (txobj= LP_gettxout(coin->symbol,coinaddr,txid,vout)) == 0 )
                {
                    //char str[65]; printf("prevent utxoadd since gettxout %s %s %s/v%d missing\n",coin->symbol,coinaddr,bits256_str(str,txid),vout);
                    return(0);
                }
                if ( (sobj= jobj(txobj,"scriptPubKey")) != 0 )
                {
                    if ( (hexstr= jstr(sobj,"hex")) != 0 )
                    {
                        if ( strlen(hexstr) != 25*2 )
                        {
                            //printf("skip non-standard utxo.(%s)\n",hexstr);
                            free_json(txobj);
                            return(0);
                        }
                    }
                }
                free_json(txobj);
            }
            up = calloc(1,sizeof(*up));
            up->U.txid = txid;
            up->U.vout = vout;
            up->U.height = height;
            up->U.value = value;
            up->spendheight = spendheight;
            //up->timestamp = timestamp;
            retval = 1;
            if ( (tx= LP_transactionfind(coin,txid)) != 0 && tx->SPV > 0 )
            {
                up->SPV = tx->SPV;
            }
            char str[65];
            if ( 0 && strcmp(coin->smartaddr,coinaddr) == 0 && strcmp("KMD",coin->symbol) == 0 )
                printf("%s ADD UTXO >> %s %s %s/v%d ht.%d %.8f\n",debug,coin->symbol,coinaddr,bits256_str(str,txid),vout,height,dstr(value));
            portable_mutex_lock(&coin->addrmutex);
            DL_APPEND(ap->utxos,up);
            portable_mutex_unlock(&coin->addrmutex);
        }
    } // else printf("cant get ap %s %s\n",coin->symbol,coinaddr);
    //printf("done %s add addr.%s ht.%d\n",coin->symbol,coinaddr,height);
    return(retval);
}

struct LP_address *LP_address_utxo_reset(int32_t *nump,struct iguana_info *coin)
{
    struct LP_address *ap; struct LP_address_utxo *up,*tmp; int32_t i,n,numconfs,m,vout,height; cJSON *array,*item,*txobj; bits256 zero; int64_t value; bits256 txid; uint32_t now;
    *nump = 0;
    if ( coin == 0 )
        return(0);
    LP_address(coin,coin->smartaddr);
    memset(zero.bytes,0,sizeof(zero));
    LP_listunspent_issue(coin->symbol,coin->smartaddr,2,zero,zero);
    if ( (ap= LP_addressfind(coin,coin->smartaddr)) == 0 )
    {
        printf("LP_address_utxo_reset: cant find address data\n");
        return(0);
    }
    if ( IAMLP != 0 && time(NULL) < coin->lastresetutxo+10 )
        return(ap);
    coin->lastresetutxo = (uint32_t)time(NULL);
    portable_mutex_lock(&coin->addressutxo_mutex);
    if ( (array= LP_listunspent(coin->symbol,coin->smartaddr,zero,zero)) != 0 )
    {
        //printf("%s array.%s\n",coin->symbol,jprint(array,0));
        portable_mutex_lock(&coin->addrmutex);
        portable_mutex_lock(&LP_gcmutex);
        DL_FOREACH_SAFE(ap->utxos,up,tmp)
        {
            DL_DELETE(ap->utxos,up);
            up->spendheight = (int32_t)time(NULL);
            DL_APPEND(LP_garbage_collector2,up);
        }
        portable_mutex_unlock(&coin->addrmutex);
        portable_mutex_unlock(&LP_gcmutex);
        now = (uint32_t)time(NULL);
        if ( (n= cJSON_GetArraySize(array)) > 0 )
        {
            char str[65];
            *nump = n;
            for (i=m=0; i<n; i++)
            {
                item = jitem(array,i);
                value = LP_listunspent_parseitem(coin,&txid,&vout,&height,item);
                if ( bits256_nonz(txid) == 0 )
                    continue;
                if ( 1 )
                {
                    if ( (txobj= LP_gettxout(coin->symbol,coin->smartaddr,txid,vout)) == 0 )
                    {
//printf("skip null gettxout %s.v%d\n",bits256_str(str,txid),vout);
                        continue;
                    }
                    else free_json(txobj);
                    if ( (numconfs= LP_numconfirms(coin->symbol,coin->smartaddr,txid,vout,0)) <= 0 )
                    {
//printf("skip numconfs.%d %s.v%d\n",numconfs,bits256_str(str,txid),vout);
                        continue;
                    }
                }
                LP_address_utxoadd(1,now,"withdraw",coin,coin->smartaddr,txid,vout,value,height,-1);
                if ( (up= LP_address_utxofind(coin,coin->smartaddr,txid,vout)) == 0 )
                {
//printf("couldnt find just added %s/%d ht.%d %.8f\n",bits256_str(str,txid),vout,height,dstr(value));
                }
                else
                {
                    m++;
                    //printf("%.8f ",dstr(value));
                }
            }
            printf("added %d of %d from %s listunspents\n",m,n,coin->symbol);
        }
        free_json(array);
    }
    portable_mutex_unlock(&coin->addressutxo_mutex);
    return(ap);
}

cJSON *LP_address_item(struct iguana_info *coin,struct LP_address_utxo *up,int32_t electrumret)
{
    int32_t notarized; cJSON *item = cJSON_CreateObject();
    if ( electrumret == 0 )
    {
        jaddbits256(item,"txid",up->U.txid);
        jaddnum(item,"vout",up->U.vout);
        if ( up->U.height > 0 )
            jaddnum(item,"confirmations",LP_getheight(&notarized,coin) - up->U.height + 1);
        jaddnum(item,"amount",dstr(up->U.value));
        jaddstr(item,"scriptPubKey","");
    }
    else
    {
        jaddbits256(item,"tx_hash",up->U.txid);
        jaddnum(item,"tx_pos",up->U.vout);
        jaddnum(item,"height",up->U.height);
        jadd64bits(item,"value",up->U.value);
        if ( up->U.value == 0 )
            printf("ERROR LP_address_item illegal.(%s)\n",jprint(item,0));
    }
    return(item);
}

uint64_t _LP_unspents_metric(uint64_t total,int32_t n) { return((total<<16) | (n & 0xffff)); }

cJSON *LP_address_utxos(struct iguana_info *coin,char *coinaddr,int32_t electrumret)
{
    cJSON *array,*item; int32_t n; uint64_t total; struct LP_address *ap=0,*atmp; struct LP_address_utxo *up,*tmp; cJSON *txobj; 
    array = cJSON_CreateArray();
    if ( coinaddr != 0 && coinaddr[0] != 0 )
    {
        //portable_mutex_lock(&coin->addrmutex);
        if ( (ap= _LP_addressfind(coin,coinaddr)) != 0 )
        {
            total = n = 0;
            DL_FOREACH_SAFE(ap->utxos,up,tmp)
            {
                if ( up->spendheight <= 0 && up->U.height > 0 )
                {
                    if ( coin->electrum == 0 )
                    {
                        if ( (txobj= LP_gettxout(coin->symbol,coinaddr,up->U.txid,up->U.vout)) == 0 )
                            up->spendheight = 1;
                        else free_json(txobj);
                    }
                    if ( up->spendheight <= 0 && up->U.value != 0 )
                    {
                        if ( LP_allocated(up->U.txid,up->U.vout) != 0 )
                        {
                            //printf("%s %s/v%d allocated\n",coin->symbol,bits256_str(str,up->U.txid),up->U.vout);
                        }
                        else if ( coin->electrum == 0 || up->SPV > 0 )
                        {
                            jaddi(array,LP_address_item(coin,up,electrumret));
                            n++;
                            total += up->U.value;
                        }
                    }
                    //printf("new array %s\n",jprint(array,0));
                }
            }
            ap->total = total;
            ap->n = n;
        }
        //portable_mutex_unlock(&coin->addrmutex);
    }
    else
    {
        HASH_ITER(hh,coin->addresses,ap,atmp)
        {
            if ( ap->total > 0 && ap->n > 0 )
            {
                item = cJSON_CreateObject();
                jadd64bits(item,ap->coinaddr,_LP_unspents_metric(ap->total,ap->n));
                jaddi(array,item);
            }
        }
    }
    //printf("%s %s utxos.(%s) ap.%p\n",coin->symbol,coinaddr,jprint(array,0),ap);
    return(array);
}

cJSON *LP_address_balance(struct iguana_info *coin,char *coinaddr,int32_t electrumret)
{
    cJSON *array,*retjson,*item; bits256 zero; int32_t i,n; uint64_t balance = 0;
    memset(zero.bytes,0,sizeof(zero));
    //printf("address balance call LP_listunspent %s electrum.%p etomic.%d\n",coin->symbol,coin->electrum,coin->etomic[0]);
#ifndef NOTETOMIC
    if (coin->etomic[0] != 0) {
        balance = LP_etomic_get_balance(coin, coinaddr);
    } else
#endif
    if ( coin->electrum == 0 )
    {
        if ( (array= LP_listunspent(coin->symbol,coinaddr,zero,zero)) != 0 )
        {
            //printf("got address balance (%s)\n",jprint(array,0));
            if ( (n= cJSON_GetArraySize(array)) > 0 )
            {
                for (i=0; i<n; i++)
                {
                    item = jitem(array,i);
                    balance += LP_value_extract(item,1,zero);
                    //printf("i.%d (%s) balance %.8f\n",i,jprint(item,0),dstr(balance));
                }
            }
            free_json(array);
        }
        //uint64_t balance3,balance2 = LP_balance(&balance2,0,coin->symbol,coin->smartaddr);
        //balance3 = LP_RTsmartbalance(coin);
        //printf("balance %.8f vs balance2 %.8f vs balance3 %.8f\n",dstr(balance),dstr(balance2),dstr(balance3));
    }
    else
    {
        //if ( strcmp(coin->smartaddr,coinaddr) != 0 )
        {
            if ( (retjson= electrum_address_listunspent(coin->symbol,coin->electrum,&retjson,coinaddr,2,zero,zero)) != 0 )
                free_json(retjson);
        }
        balance = LP_unspents_load(coin->symbol,coinaddr);
    }
    retjson = cJSON_CreateObject();
    jaddstr(retjson,"result","success");
    jaddstr(retjson,"coin",coin->symbol);
    jaddstr(retjson,"address",coinaddr);
    jaddnum(retjson,"balance",dstr(balance));
    if ( strcmp(coin->symbol,"KMD") == 0 && strcmp(coin->smartaddr,coinaddr) == 0 )
    {
        jaddnum(retjson,"zcredits",dstr(LP_myzcredits()));
        jadd(retjson,"zdebits",LP_myzdebits());
    }
    return(retjson);
}

cJSON *LP_balances(char *coinaddr)
{
    struct iguana_info *coin,*tmp; char address[64]; uint8_t taddr,addrtype,rmd160[20]; uint64_t balance,KMDvalue,sum = 0; cJSON *array,*item,*retjson;
    if ( coinaddr != 0 && coinaddr[0] == 't' && (coinaddr[1] == '1' || coinaddr[1] == '3') )
        taddr = 1;
    else taddr = 0;
    array = cJSON_CreateArray();
    HASH_ITER(hh,LP_coins,coin,tmp)
    {
        if ( coin->electrum != 0 || (coinaddr != 0 && coinaddr[0] != 0 && strcmp(coinaddr,coin->smartaddr) != 0) )
        {
            if ( coinaddr == 0 || coinaddr[0] == 0 )
                strcpy(address,coin->smartaddr);
            else
            {
                bitcoin_addr2rmd160("KMD",taddr,&addrtype,rmd160,coinaddr);
                bitcoin_address(coin->symbol,address,coin->taddr,coin->pubtype,rmd160,20);
                //printf("%s taddr.%d addrtype.%u %s -> %s [%c %c].%d\n",coin->symbol,taddr,addrtype,coinaddr,address,coinaddr[0],coinaddr[1],coinaddr[0] == 't' && (coinaddr[1] == '1' || coinaddr[1] == '3'));
            }
            if ( (retjson= LP_address_balance(coin,address,1)) != 0 )
            {
                if ( (balance= jdouble(retjson,"balance")*SATOSHIDEN) > 0 )
                {
                    item = cJSON_CreateObject();
                    jaddstr(item,"coin",coin->symbol);
                    jaddnum(item,"balance",dstr(balance));
                    if ( (KMDvalue= LP_KMDvalue(coin,balance)) != 0 )
                    {
                        jaddnum(item,"KMDvalue",dstr(KMDvalue));
                        sum += KMDvalue;
                    }
                    if ( coin->electrum != 0 && strcmp(address,coin->smartaddr) == 0 && strcmp(coin->symbol,"KMD") == 0 )
                    {
                        jaddnum(item,"zcredits",dstr(LP_myzcredits()));
                        //jadd(item,"zdebits",LP_myzdebits());
                    }
                    jaddi(array,item);
                }
                free_json(retjson);
            }
        }
        else
        {
            if ( (balance= LP_RTsmartbalance(coin)) != 0 )
            {
                item = cJSON_CreateObject();
                jaddstr(item,"coin",coin->symbol);
                jaddnum(item,"balance",dstr(balance));
                if ( (KMDvalue= LP_KMDvalue(coin,balance)) != 0 )
                {
                    jaddnum(item,"KMDvalue",dstr(KMDvalue));
                    sum += KMDvalue;
                }
                if ( strcmp(coin->symbol,"KMD") == 0 )
                {
                    jaddnum(item,"zcredits",dstr(LP_myzcredits()));
                    //jadd(item,"zdebits",LP_myzdebits());
                }
                jaddi(array,item);
            }
        }
    }
    if ( sum != 0 )
    {
        item = cJSON_CreateObject();
        jaddstr(item,"coin","total");
        jaddnum(item,"balance",dstr(sum));
        jaddi(array,item);
    }
    return(array);
}

int32_t LP_unspents_array(struct iguana_info *coin,char *coinaddr,cJSON *array)
{
    int32_t i,n,v,errs,height,count=0; uint64_t value,val; cJSON *item,*txobj; bits256 txid;
    if ( (n= cJSON_GetArraySize(array)) <= 0 )
        return(0);
    //printf("%s %s LP_unspents.(%s)\n",coin->symbol,coinaddr,jprint(array,0));
    for (i=0; i<n; i++)
    {
        errs = 0;
        item = jitem(array,i);
        txid = jbits256(item,"tx_hash");
        v = jint(item,"tx_pos");
        height = jint(item,"height");
        val = j64bits(item,"value");
        if ( coin->electrum == 0 && (txobj= LP_gettxout(coin->symbol,coinaddr,txid,v)) != 0 )
        {
            value = LP_value_extract(txobj,0,txid);
            if ( value != 0 && value != val )
            {
                char str[65]; printf("REJECT %s %s/v%d value.%llu vs %llu (%s)\n",coin->symbol,bits256_str(str,txid),v,(long long)value,(long long)val,jprint(txobj,0));
                errs++;
            }
            //ht = LP_txheight(coin,txid);
            //if ( coin->height != 0 )
            //    ht = LP_getheight(coin) - jint(txobj,"confirmations") + 1;
            //else ht = 0;
            /*if  ( ht != 0 && ht < height-2 )
             {
             printf("REJECT %s %s/v%d ht.%d vs %d confs.%d (%s)\n",symbol,bits256_str(str,txid),v,ht,height,jint(txobj,"confirmations"),jprint(item,0));
             errs++;
             }*/
            free_json(txobj);
        }
        if ( errs == 0 )
        {
            //printf("from LP_unspents_array\n");
            LP_address_utxoadd(0,(uint32_t)time(NULL),"LP_unspents_array",coin,coinaddr,txid,v,val,height,-1);
            count++;
        }
    }
    return(count);
}

struct LP_transaction *LP_transactionfind(struct iguana_info *coin,bits256 txid)
{
    struct LP_transaction *tx;
    portable_mutex_lock(&coin->txmutex);
    HASH_FIND(hh,coin->transactions,txid.bytes,sizeof(txid),tx);
    portable_mutex_unlock(&coin->txmutex);
    return(tx);
}

struct LP_transaction *LP_transactionadd(struct iguana_info *coin,bits256 txid,int32_t height,int32_t numvouts,int32_t numvins)
{
    static long totalsize;
    struct LP_transaction *tx; int32_t i; //char str[65];
    if ( (tx= LP_transactionfind(coin,txid)) == 0 )
    {
        //if ( bits256_nonz(txid) == 0 && tx->height == 0 )
        //    getchar();
        tx = calloc(1,sizeof(*tx) + (sizeof(*tx->outpoints) * numvouts));
        totalsize += sizeof(*tx) + (sizeof(*tx->outpoints) * numvouts);
        //char str[65]; printf("%s ht.%d NEW TXID.(%s) vouts.[%d] size.%ld total %ld\n",coin->symbol,height,bits256_str(str,txid),numvouts,sizeof(*tx) + (sizeof(*tx->outpoints) * numvouts),totalsize);
        for (i=0; i<numvouts; i++)
            tx->outpoints[i].spendvini = -1;
        tx->height = height;
        tx->numvouts = numvouts;
        tx->numvins = numvins;
        //tx->timestamp = timestamp;
        tx->txid = txid;
        portable_mutex_lock(&coin->txmutex);
        HASH_ADD_KEYPTR(hh,coin->transactions,tx->txid.bytes,sizeof(tx->txid),tx);
        portable_mutex_unlock(&coin->txmutex);
    } //else printf("warning adding already existing txid %s\n",bits256_str(str,tx->txid));
    return(tx);
}

cJSON *LP_transactioninit(struct iguana_info *coin,bits256 txid,int32_t iter,cJSON *txobj)
{
    struct LP_transaction *tx; int32_t i,height,numvouts,numvins,spentvout; cJSON *vins,*vouts,*vout,*vin; bits256 spenttxid; char str[65];
    if ( coin->inactive != 0 )
        return(0);
    if ( txobj != 0 || (txobj= LP_gettx("LP_transactioninit",coin->symbol,txid,0)) != 0 )
    {
        if ( coin->electrum == 0 )
            height = LP_txheight(coin,txid);
        else height = -1;
        vins = jarray(&numvins,txobj,"vin");
        vouts = jarray(&numvouts,txobj,"vout");
        // maybe filter so only addresses we care about are using RAM
        if ( iter == 0 && vouts != 0 && (tx= LP_transactionadd(coin,txid,height,numvouts,numvins)) != 0 )
        {
            //printf("create txid %s numvouts.%d numvins.%d\n",bits256_str(str,txid),numvouts,numvins);
            for (i=0; i<numvouts; i++)
            {
                vout = jitem(vouts,i);
                tx->outpoints[i].value = LP_value_extract(vout,0,txid);
                tx->outpoints[i].interest = SATOSHIDEN * jdouble(vout,"interest");
                LP_destaddr(tx->outpoints[i].coinaddr,vout);
                //printf("from transaction init %s %s %s/v%d <- %.8f\n",coin->symbol,tx->outpoints[i].coinaddr,bits256_str(str,txid),i,dstr(tx->outpoints[i].value));
                LP_address_utxoadd(0,(uint32_t)time(NULL),"LP_transactioninit iter0",coin,tx->outpoints[i].coinaddr,txid,i,tx->outpoints[i].value,height,-1);
            }
            //printf("numvouts.%d\n",numvouts);
        }
        if ( iter == 1 && vins != 0 )
        {
            for (i=0; i<numvins; i++)
            {
                vin = jitem(vins,i);
                spenttxid = jbits256(vin,"txid");
                spentvout = jint(vin,"vout");
                if ( i == 0 && bits256_nonz(spenttxid) == 0 )
                    continue;
                if ( (tx= LP_transactionfind(coin,spenttxid)) != 0 )
                {
                    if ( spentvout < tx->numvouts )
                    {
                        if ( tx->outpoints[spentvout].spendheight <= 0 )
                        {
                            tx->outpoints[spentvout].spendtxid = txid;
                            tx->outpoints[spentvout].spendvini = i;
                            tx->outpoints[spentvout].spendheight = height > 0 ? height : 1;
                            LP_address_utxoadd(0,(uint32_t)time(NULL),"LP_transactioninit iter1",coin,tx->outpoints[spentvout].coinaddr,spenttxid,spentvout,tx->outpoints[spentvout].value,-1,height>0?height:1);
                            if ( 0 && strcmp(coin->symbol,"REVS") == 0 )
                                printf("spend %s %s/v%d at ht.%d\n",coin->symbol,bits256_str(str,tx->txid),spentvout,height);
                        }
                    } else printf("LP_transactioninit: %s spentvout.%d < numvouts.%d spendheight.%d\n",bits256_str(str,spenttxid),spentvout,tx->numvouts,tx->outpoints[spentvout].spendheight);
                } //else printf("LP_transactioninit: couldnt find (%s) ht.%d %s\n",bits256_str(str,spenttxid),height,jprint(vin,0));
                if ( bits256_cmp(spenttxid,txid) == 0 )
                    printf("spending same tx's %p vout ht.%d %s.[%d] s%d\n",tx,height,bits256_str(str,txid),tx!=0?tx->numvouts:0,spentvout);
            }
        }
        return(txobj);
    } //else printf("LP_transactioninit error for %s %s\n",coin->symbol,bits256_str(str,txid));
    return(0);
}

int32_t LP_txheight(struct iguana_info *coin,bits256 txid)
{
    bits256 blockhash; struct LP_transaction *tx=0; cJSON *blockobj,*retjson,*txobj,*txobj2; int32_t height = 0;
    if ( coin == 0 )
        return(-1);
    if ( (tx= LP_transactionfind(coin,txid)) != 0 )
        height = tx->height;
    if ( height > 0 )
        return(height);
    if ( coin->electrum == 0 )
    {
        if ( (txobj= LP_gettx("LP_txheight",coin->symbol,txid,0)) != 0 )
        {
            //*timestampp = juint(txobj,"locktime");
            //*blocktimep = juint(txobj,"blocktime");
            blockhash = jbits256(txobj,"blockhash");
            if ( bits256_nonz(blockhash) != 0 && (blockobj= LP_getblock(coin->symbol,blockhash)) != 0 )
            {
                height = jint(blockobj,"height");
                if ( tx != 0 )
                    tx->height = height;
                else if ( 0 )
                {
                    txobj2 = LP_transactioninit(coin,txid,0,0);
                    txobj2 = LP_transactioninit(coin,txid,1,txobj2);
                    if ( txobj2 != 0 )
                        free_json(txobj2);
                    if ( (tx= LP_transactionfind(coin,txid)) != 0 )
                        tx->height = height;
                }
                //char str[65];
                //if ( strcmp(coin->symbol,"CHIPS") != 0 && strcmp(coin->symbol,"BTC") != 0 )
                //    printf("%s %s LP_txheight.%d\n",coin->symbol,bits256_str(str,txid),height);
                free_json(blockobj);
            } // else printf("%s LP_txheight error (%s)\n",coin->symbol,jprint(txobj,0)); likely just unconfirmed
            free_json(txobj);
        }
    }
    else
    {
        //if ( (tx= LP_transactionfind(coin,txid)) != 0 )
        //    height = tx->height;
        if ( height == 0 )
        {
            if ( (retjson= electrum_transaction(&height,coin->symbol,coin->electrum,&retjson,txid,0)) != 0 )
            {
                //printf("process %s\n",jprint(retjson,0));
                free_json(retjson);
            }
            if ( (tx= LP_transactionfind(coin,txid)) != 0 )
                height = tx->height;
        }
    }
    return(height);
}

int32_t LP_numconfirms(char *symbol,char *coinaddr,bits256 txid,int32_t vout,int32_t mempool)
{
    struct iguana_info *coin; bits256 zero; int32_t ht,notarized,numconfirms = 100;
    cJSON *txobj;
    if ( (coin= LP_coinfind(symbol)) == 0 || coin->inactive != 0 )
        return(-1);
    if ( coin->electrum == 0 )
    {
        numconfirms = -1;
        if ( (txobj= LP_gettxout(symbol,coinaddr,txid,vout)) != 0 )
        {
            numconfirms = jint(txobj,"confirmations");
            free_json(txobj);
        }
        else if ( mempool != 0 && LP_mempoolscan(symbol,txid) >= 0 )
            numconfirms = 0;
        else if ( (txobj= LP_gettx("LP_numconfirms",symbol,txid,1)) != 0 )
        {
            numconfirms = jint(txobj,"confirmations");
            free_json(txobj);
        }
    }
    else
    {
        memset(zero.bytes,0,sizeof(zero));
        LP_listunspent_issue(symbol,coinaddr,1,txid,zero);
        if ( (ht= LP_txheight(coin,txid)) > 0 && ht <= coin->height )
            numconfirms = (LP_getheight(&notarized,coin) - ht + 1);
        else if ( mempool != 0 )
        {
            if ( LP_waitmempool(symbol,coinaddr,txid,vout,30) >= 0 )
                numconfirms = 0;
        }
    }
    /*if ( numconfirms == BASILISK_DEFAULT_MAXCONFIRMS )
    {
        if ( coin->isassetchain != 0 || strcmp(coin->symbol,"KMD") == 0 )
        {
            numconfirms--;
            if ( coin->notarized >= coin->height-numconfirms )
            {
                printf("%s notarized.%d current ht.%d - numconfirms.%d -> txheight.%d\n",coin->symbol,coin->notarized,coin->height,numconfirms,coin->height - numconfirms);
                numconfirms = BASILISK_DEFAULT_MAXCONFIRMS;
            }
        }
    }*/
    return(numconfirms);
}

uint64_t LP_txinterestvalue(uint64_t *interestp,char *destaddr,struct iguana_info *coin,bits256 txid,int32_t vout)
{
    uint64_t interest,value = 0; cJSON *txobj;
    *interestp = 0;
    destaddr[0] = 0;
    if ( (txobj= LP_gettxout(coin->symbol,destaddr,txid,vout)) != 0 )
    {
        if ( (value= LP_value_extract(txobj,0,txid)) == 0 )
        {
            char str[65]; printf("%s LP_txvalue.%s strange utxo.(%s) vout.%d\n",coin->symbol,bits256_str(str,txid),jprint(txobj,0),vout);
        }
        else if ( strcmp(coin->symbol,"KMD") == 0 )
        {
            if ( coin->electrum == 0 )
            {
                if ((interest= jdouble(txobj,"interest")) != 0. )
                {
                    //printf("add interest of %.8f to %.8f\n",interest,dstr(value));
                    *interestp = SATOSHIDEN * interest;
                }
            } else *interestp = LP_komodo_interest(txid,value);
        }
        LP_destaddr(destaddr,txobj);
        //char str[65]; printf("dest.(%s) %.8f <- %s.(%s) txobj.(%s)\n",destaddr,dstr(value),coin->symbol,bits256_str(str,txid),jprint(txobj,0));
        free_json(txobj);
    } //else { char str[65]; printf("null gettxout return %s/v%d\n",bits256_str(str,txid),vout); }
    return(value);
}

int64_t basilisk_txvalue(char *symbol,bits256 txid,int32_t vout)
{
    char destaddr[64]; uint64_t value,interest = 0; struct iguana_info *coin;
    if ( (coin= LP_coinfind(symbol)) == 0 || coin->inactive != 0 )
        return(0);
    //char str[65]; printf("%s txvalue.(%s)\n",symbol,bits256_str(str,txid));
    value = LP_txinterestvalue(&interest,destaddr,coin,txid,vout);
    return(value + interest);
}

uint64_t LP_txvalue(char *coinaddr,char *symbol,bits256 txid,int32_t vout)
{
    struct LP_transaction *tx; cJSON *txobj=0; struct iguana_info *coin;
    if ( bits256_nonz(txid) == 0 )
        return(0);
    if ( (coin= LP_coinfind(symbol)) == 0 || coin->inactive != 0 )
        return(0);
    if ( coinaddr != 0 )
        coinaddr[0] = 0;
    if ( (tx= LP_transactionfind(coin,txid)) == 0 )
    {
        txobj = LP_transactioninit(coin,txid,0,0);
        txobj = LP_transactioninit(coin,txid,1,txobj);
        if ( txobj != 0 )
            free_json(txobj);
        tx = LP_transactionfind(coin,txid);
    }
    if ( tx != 0 )
    {
        if ( vout < tx->numvouts )
        {
            /*if ( bits256_nonz(tx->outpoints[vout].spendtxid) != 0 )
            {
                //printf("LP_txvalue %s/v%d is spent at %s\n",bits256_str(str,txid),vout,bits256_str(str2,tx->outpoints[vout].spendtxid));
                return(0);
            }
            else
            {
                if ( coinaddr != 0 )
                {
                    //if ( tx->outpoints[vout].coinaddr[0] == 0 )
                    //    tx->outpoints[vout].value = LP_txinterestvalue(&tx->outpoints[vout].interest,tx->outpoints[vout].coinaddr,coin,txid,vout);
                    strcpy(coinaddr,tx->outpoints[vout].coinaddr);
                    //printf("(%s) return value %.8f + interest %.8f\n",coinaddr,dstr(tx->outpoints[vout].value),dstr(tx->outpoints[vout].interest));
                }
                return(tx->outpoints[vout].value + 0*tx->outpoints[vout].interest);
            }*/
            return(tx->outpoints[vout].value);
        } else printf("LP_txvalue vout.%d >= tx->numvouts.%d\n",vout,tx->numvouts);
    }
    else if ( coin->electrum == 0 )
    {
        uint64_t value; char str[65];
        if ( (txobj= LP_gettxout(coin->symbol,coinaddr,txid,vout)) != 0 )
        {
            value = LP_value_extract(txobj,0,txid);//SATOSHIDEN * (jdouble(txobj,"value") + jdouble(txobj,"interest"));
            if ( coinaddr != 0 )
                LP_destaddr(coinaddr,txobj);
            //printf("LP_txvalue %s tx %s/v%d value %.8f (%s)\n",coin->symbol,bits256_str(str,txid),vout,dstr(value),jprint(txobj,0));
            if ( value != 0 )
            {
                free_json(txobj);
                return(value);
            }
        } //else printf("null return from LP_gettxout %s %s %s/v%d\n",coin->symbol,coinaddr,bits256_str(str,txid),vout);
        printf("pruned node or rpc access broken? LP_txvalue couldnt find %s tx %s/v%d (%s)\n",coin->symbol,bits256_str(str,txid),vout,txobj!=0?jprint(txobj,0):"");
        if ( txobj != 0 )
            free_json(txobj);
    }
    return(0);
}

int64_t LP_outpoint_amount(char *symbol,bits256 txid,int32_t vout)
{
    int64_t amount=0; int32_t numvouts; char coinaddr[64]; cJSON *vouts,*txjson;
    if ( (amount= LP_txvalue(coinaddr,symbol,txid,vout)) != 0 )
        return(amount);
    else
    {
        if ( (txjson= LP_gettx("LP_outpoint_amount",symbol,txid,1)) != 0 )
        {
            if ( (vouts= jarray(&numvouts,txjson,"vout")) != 0 && vout < numvouts )
                amount = LP_value_extract(jitem(vouts,vout),0,txid);
            free_json(txjson);
        }
    }
    return(amount);
}

int32_t LP_iseligible(uint64_t *valp,uint64_t *val2p,int32_t iambob,char *symbol,bits256 txid,int32_t vout,uint64_t satoshis,bits256 txid2,int32_t vout2)
{
    uint64_t val,val2=0,txfee,threshold=0; cJSON *txobj; int32_t bypass = 0; char destaddr[64],destaddr2[64]; struct iguana_info *coin = LP_coinfind(symbol);
    if ( bits256_nonz(txid) == 0 || bits256_nonz(txid2) == 0 )
    {
        printf("null txid not eligible\n");
        return(-1);
    }
    destaddr[0] = destaddr2[0] = 0;
    if ( coin != 0 && IAMLP != 0 && coin->inactive != 0 )
        bypass = 1;
    if ( bypass != 0 )
        val = satoshis;
    else val = LP_txvalue(destaddr,symbol,txid,vout);
    txfee = LP_txfeecalc(LP_coinfind(symbol),0,0);
    if ( val >= satoshis && val > (1+LP_MINSIZE_TXFEEMULT)*txfee )
    {
        threshold = (iambob != 0) ? LP_DEPOSITSATOSHIS(satoshis) : (LP_DEXFEE(satoshis) + txfee);
        if ( bypass != 0 )
            val2 = threshold;
        else val2 = LP_txvalue(destaddr2,symbol,txid2,vout2);
        if ( val2 >= threshold )
        {
            if ( bypass == 0 && strcmp(destaddr,destaddr2) != 0 )
                printf("mismatched %s destaddr (%s) vs (%s)\n",symbol,destaddr,destaddr2);
            else
            {
                *valp = val;
                *val2p = val2;
                if ( destaddr[0] == 0 )
                    strcpy(destaddr,destaddr2);
                if ( coin != 0 )
                {
                    if ( (txobj= LP_gettxout(coin->symbol,destaddr,txid,vout)) == 0 )
                        return(0);
                    else free_json(txobj);
                    if ( (txobj= LP_gettxout(coin->symbol,destaddr,txid2,vout2)) == 0 )
                        return(0);
                    else free_json(txobj);
                    if ( LP_numconfirms(coin->symbol,destaddr,txid,vout,0) <= 0 )
                        return(0);
                    if ( LP_numconfirms(coin->symbol,destaddr,txid2,vout2,0) <= 0 )
                        return(0);
                }
                return(1);
            }
        } else printf("no val2 %.8f < threshold %.8f\n",dstr(val),dstr(threshold));
    }
    /*char str2[65];
    if ( val != 0 && val2 != 0 )
        printf("spent.%d %s txid or value %.8f < %.8f or val2 %.8f < %.8f, %s/v%d %s/v%d or < 10x txfee %.8f\n",iambob,symbol,dstr(val),dstr(satoshis),dstr(val2),dstr(threshold),bits256_str(str,txid),vout,bits256_str(str2,txid2),vout2,dstr(txfee));
    if ( val == 0 )
        LP_address_utxoadd(coin,destaddr,txid,vout,satoshis,-1,1);
    if ( val2 == 0 )
        LP_address_utxoadd(coin,destaddr,txid2,vout2,threshold,-1,1);
    for (iter=0; iter<2; iter++)
     {
     if ( (utxo= LP_utxofind(iter,txid,vout)) != 0 )
     {
     //printf("iambob.%d case 00\n",iter);
     if ( utxo->T.spentflag == 0 )
     utxo->T.spentflag = (uint32_t)time(NULL);
     }
     if ( (utxo= LP_utxo2find(iter,txid,vout)) != 0 )
     {
     //printf("iambob.%d case 01\n",iter);
     if ( utxo->T.spentflag == 0 )
     utxo->T.spentflag = (uint32_t)time(NULL);
     }
     if ( (utxo= LP_utxofind(iter,txid2,vout2)) != 0 )
     {
     //printf("iambob.%d case 10\n",iter);
     if ( utxo->T.spentflag == 0 )
     utxo->T.spentflag = (uint32_t)time(NULL);
     }
     if ( (utxo= LP_utxo2find(iter,txid2,vout2)) != 0 )
     {
     //printf("iambob.%d case 11\n",iter);
     if ( utxo->T.spentflag == 0 )
     utxo->T.spentflag = (uint32_t)time(NULL);
     }
     }*/
    *valp = val;
    *val2p = val2;
    return(0);
}

int32_t LP_inventory_prevent(int32_t iambob,char *symbol,bits256 txid,int32_t vout)
{
    struct LP_address_utxo *up; struct iguana_info *coin; //struct LP_utxoinfo *utxo; struct LP_transaction *tx; 
    if ( (coin= LP_coinfind(symbol)) == 0 )
        return(1);
    if ( LP_allocated(txid,vout) != 0 )
        return(1);
    /*if ( (utxo= LP_utxofind(iambob,txid,vout)) != 0 || (utxo= LP_utxo2find(iambob,txid,vout)) != 0 )
    {
        if ( coin != 0 && (tx= LP_transactionfind(coin,txid)) != 0 )
        {
            if ( tx->outpoints[vout].spendheight > 0 )
                utxo->T.spentflag = tx->outpoints[vout].spendheight;
            else utxo->T.spentflag = 0;
        }
        if ( utxo->T.spentflag != 0 )
        {
            //char str[65]; printf("prevent adding iambob.%d %s/v%d to inventory\n",iambob,bits256_str(str,txid),vout);
            return(1);
        }
    }*/
    if ( (up= LP_address_utxofind(coin,coin->smartaddr,txid,vout)) != 0 && up->spendheight > 0 )
        return(1);
    return(0);
}

cJSON *LP_dustcombine_item(struct LP_address_utxo *up)
{
    cJSON *item = cJSON_CreateObject();
    jaddbits256(item,"txid",up->U.txid);
    jaddnum(item,"vout",up->U.vout);
    return(item);
}

uint64_t LP_dustcombine(struct LP_address_utxo *ups[2],int32_t dustcombine,struct iguana_info *coin)
{
    struct LP_address *ap=0; struct LP_address_utxo *up,*tmp,*min0,*min1; cJSON *txobj;
    if ( coin == 0 || coin->electrum != 0 || dustcombine <= 0 || dustcombine > 2 )
        return(0);
    min1 = min0 = 0;
    ups[0] = ups[1] = 0;
    if ( (ap= _LP_addressfind(coin,coin->smartaddr)) != 0 )
    {
        DL_FOREACH_SAFE(ap->utxos,up,tmp)
        {
            if ( up->spendheight <= 0 && up->U.height > 0 && up->U.value != 0 )
            {
                if ( (txobj= LP_gettxout(coin->symbol,coin->smartaddr,up->U.txid,up->U.vout)) == 0 )
                    up->spendheight = 1;
                else
                {
                    free_json(txobj);
                    if ( LP_inventory_prevent(1,coin->symbol,up->U.txid,up->U.vout) == 0 )
                    {
                        if ( min1 == 0 || up->U.value < min1->U.value )
                        {
                            if ( min0 == 0 || up->U.value < min0->U.value )
                            {
                                min1 = min0;
                                min0 = up;
                            } else min1 = up;
                        }
                    }
                }
            }
        }
    }
    if ( min0 != 0 )
    {
        ups[0] = min0;
        if ( dustcombine == 2 && min1 != 0 )
        {
            ups[1] = min1;
            return(min0->U.value + min1->U.value);
        } else return(min0->U.value);
    }
    return(0);
}

int32_t LP_undospends(struct iguana_info *coin,int32_t lastheight)
{
    int32_t i,ht,num = 0; struct LP_transaction *tx,*tmp;
    HASH_ITER(hh,coin->transactions,tx,tmp)
    {
        for (i=0; i<tx->numvouts; i++)
        {
            if ( bits256_nonz(tx->outpoints[i].spendtxid) == 0 )
                continue;
            if ( (ht= tx->outpoints[i].spendheight) == 0 )
            {
                tx->outpoints[i].spendheight = LP_txheight(coin,tx->outpoints[i].spendtxid);
            }
            if ( (ht= tx->outpoints[i].spendheight) != 0 && ht > lastheight )
            {
                char str[65]; printf("clear spend %s/v%d at ht.%d > lastheight.%d\n",bits256_str(str,tx->txid),i,ht,lastheight);
                tx->outpoints[i].spendheight = 0;
                tx->outpoints[i].spendvini = -1;
                memset(tx->outpoints[i].spendtxid.bytes,0,sizeof(bits256));
            }
        }
    }
    return(num);
}