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 c

⟦8003e359d⟧ TextFile

    Length: 634 (0x27a)
    Types: TextFile
    Names: »clex_test.c«

Derivation

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─⟦this⟧ »EUUGD11/euug-87hel/sec1/clex/clex_test.c«

TextFile


// clex_test -- test code for clex.o

#include "clex.h"

main()
    {
    Clex cl = Clex(stdin, TRUE);
    Clex_sym s;
    do  {
        s = cl.next();
        printf("%5D ", cl.line_no());
        if (s >= KEYWORD_S)
            printf(" %s\n", cl.debug(s));
        else if (s == IDENT_S ||
                 s == NUM_S ||
                 s == FLOATNUM_S ||
                 s == LBRACK_S ||
                 s == APOS_S ||
                 s == QUOTE_S )
            printf( "      %s \"%s\"\n", cl.debug(s), cl.str());
        else
            printf( "      %s\n", cl.debug(s));
        } while (s > EOF_S);

    exit(0);
    }