DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T l

⟦5b455eafe⟧ TextFile

    Length: 1128 (0x468)
    Types: TextFile
    Names: »loans.c«

Derivation

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Empire.V/V1.1/EMPFIX/loans.c«

TextFile

#define D_LONSTR
#define D_FILES
#include        "empdef.h"

extern int      xflg, wflg, mflg;

loans()
{
        register        i, k;
        char    *cp, *getstri();

        loanf = open(loanfil, O_RDWR);
X30:    
        wflg = xflg = mflg = 0;
        cp = getstri("#? ");
        if( *cp != '\0' ) goto X106;
        close(loanf);
        return;
X106:   
        i = atoi(cp);
        k = i * sizeof(loan);
        lseek(loanf, (long)k, 0);
        i = read(loanf, &loan, sizeof(loan));
        if( i >= sizeof(loan) ) goto X216;
        printf("Only %d bytes in that one...\n", i);
X216:   
        wordfix("loner", &loan.l_loner, 0);
        wordfix("lonee", &loan.l_lonee, 0);
        bytefix("irate", &loan.l_irate, 0);
        bytefix("ldur", &loan.l_ldur, 0);
        wordfix("amtpaid", &loan.l_amtpaid, 0);
        wordfix("amtdue", &loan.l_amtdue, 0);
        longfix("lastpay", &loan.l_lastpay, 0L);
        longfix("duedate", &loan.l_duedate, 0L);
        if( mflg == 0 ) goto X30;
        lseek(loanf, (long)k, 0);
        write(loanf, &loan, sizeof(loan));
        printf("Rewritten\n");
        goto X30;
}