Return to apsel.c CVS log

Up to [Research Unix] / researchv10no / cmd / ap / apkeys

Annotation of researchv10no/cmd/ap/apkeys/apsel.c, revision 1.1

1.1     ! root        1: # include  "stdio.h"
        !             2: # include "ctype.h"
        !             3: # include "assert.h"
        !             4: char *infile, *udir, *uname; extern int yylineno;
        !             5: int destyet=0;
        !             6: main (argc, argv)
        !             7:        char *argv[];
        !             8: {
        !             9: /*
        !            10:  * argv 1  list of users
        !            11:  * argv 2  list of stories
        !            12:  */
        !            13: FILE *fu, *fs;
        !            14: char uline[250], *strchr(), *svc();
        !            15: int k;
        !            16: extern FILE *yyin;
        !            17: assert(argc>2);
        !            18: fu = fopen(argv[1], "r");
        !            19: fs = fopen(argv[2], "r");
        !            20: assert(fu!=NULL);
        !            21: assert(fs!=NULL);
        !            22: while (fgets( uline, 250, fu))
        !            23:        {
        !            24:        trimnl(uline);
        !            25:        uname = strchr(uline, ' ');
        !            26:        assert(uname!=0);
        !            27:        *uname++ = 0; /* now uline is file, uname is name */
        !            28:        udir = strchr(uname, ' ');
        !            29:        assert(udir!=0);
        !            30:        *udir++ = 0; /* now udir is directory */
        !            31:        udir = svc(udir);
        !            32:        yyin = fopen(infile=uline, "r");
        !            33:        yylineno=destyet=0;
        !            34:        if (yyin==NULL)
        !            35:                {
        !            36:                fprintf(stderr, "Can't read %s\n",uline);
        !            37:                continue;
        !            38:                }
        !            39:        k = yyparse();
        !            40:        fclose(yyin);
        !            41:        }
        !            42: dump();
        !            43: }
        !            44: 
        !            45: trimnl(s)
        !            46:        char *s;
        !            47: {
        !            48: while (*s) s++;
        !            49: if (*--s== '\n') *s=0;
        !            50: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.