Function update_bill

src/shk.c:2170–2211

update shk's bill and augmented bill after an item has been purchased */

/* update shk's bill and augmented bill after an item has been purchased */
staticfn void
update_bill(
    int indx, /* index into ibill[]; -1 for unpaid contained item */
    int ibillct,
    Bill *ibill,
    struct eshk *eshkp,
    struct bill_x *bp,
    struct obj *paiditem)
{
    int j, newebillct;

    /* remove from eshkp->bill_p[] unless this was the used up portion
       of partly used item (since removal would take out both; note:
       can't buy PartlyIntact until PartlyUsedUp has been paid for) */
    if (indx >= 0 && ibill[indx].usedup == PartlyUsedUp) {
        /* 'paiditem' points to the partly intact portion still in invent or
           inside a container (ibill[indx].obj points to the container) */
        bp->bquan = paiditem->quan;
        for (j = 0; j < ibillct; ++j)
            if (ibill[j].obj == paiditem && ibill[j].usedup == PartlyIntact) {
                ibill[j].usedup = FullyIntact;
                break;
            }
    } else {
        /* if we get here, something was bought and needs to be removed
           from shop bill; if it was used up, remove it from the billobjs
           list and delete it; update shop's bill by moving last bill_p[]
           entry into vacated slot; also update ibill[] indices for that */
        paiditem->unpaid = 0; /* clear before maybe deallocating */
        if (paiditem->where == OBJ_ONBILL) {
            obj_extract_self(paiditem);
            dealloc_obj(paiditem);
        }
        newebillct = eshkp->billct - 1;
        *bp = eshkp->bill_p[newebillct];
        for (j = 0; j < ibillct; ++j)
            if (ibill[j].bidx == newebillct)
                ibill[j].bidx = (int) (bp - eshkp->bill_p);
        eshkp->billct = newebillct; /* eshkp->billct - 1 */
    }
    return;
}

/* return 2 if used-up portion paid
 *        1 if paid successfully