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 f

⟦190bffc78⟧ TextFile

    Length: 584 (0x248)
    Types: TextFile
    Names: »floatfi.c«

Derivation

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

TextFile

extern int      xflg, wflg, mflg;

/*
        n = ptr to name
        vp= ptr to current value
        wv= default value
*/

floatfi(n, vp, wv)
char    *n;
float   *vp, wv;
{
        char    *cp, *getstri();
        double  atof();

        if( xflg ) return;
        if( wflg ) {
                *vp = wv;
                return;
        }
        printf("  %5s %.2f  ", n, *vp);
        cp = getstri("");
        if( *cp == 'x' ) {
                xflg++;
                return;
        }
        if( *cp == '\0' ) return;
        *vp = atof(cp);
        mflg++;
        return;
}