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 a

⟦894f9f374⟧ TextFile

    Length: 676 (0x2a4)
    Types: TextFile
    Names: »atoip.c«

Derivation

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

TextFile

atoip(ptrptr)
char    **ptrptr;
{
        register        num, base;
        register char   *cp;
        short   neg;

        cp = *ptrptr;
        num = 0;
        base = 10;
        neg = 0;
        goto X46;
X26:
        if( *cp != '0' ) goto X124;
        base = 8;
        cp++;
        goto X124;
X44:
        cp++;
X46:
        if( *cp == ' ' ) goto X44;
        if( *cp == '\t' ) goto X44;
        if( *cp != '-' ) goto X26;
        neg++;
        goto X44;
X76:
        if( *cp > '9' ) goto X132;
        num = num * base + *cp++;
        num -= '0';
X124:
        if( *cp >= '0' ) goto X76;
X132:
        *ptrptr = cp;
        return( (neg != 0) ? -num : num );
}