Return to dkname.c CVS log

Up to [Research Unix] / researchv10no / cmd

Annotation of researchv10no/cmd/dkname.c, revision 1.1

1.1     ! root        1: #include       <string.h>
        !             2: #include       <fio.h>
        !             3: 
        !             4: #define                MAXARG          256             /* no sys name is longer than this */
        !             5: 
        !             6: #define                DK      "/usr/lib/uucp/Systems.dk"
        !             7: 
        !             8: main(argc, argv)
        !             9:        char **argv;
        !            10: {
        !            11:        int fd;
        !            12:        char *s, *ss, *sss;
        !            13:        register char **ap;
        !            14: 
        !            15:        argv++;
        !            16:        if(--argc <= 0){
        !            17:                Fprint(2, "Usage: dkname sysname ...\n");
        !            18:                exit(1);
        !            19:        }
        !            20:        /* make sure we get plausible length args */
        !            21:        for(ap = argv; *ap; ap++)
        !            22:                if(strlen(*ap) > MAXARG)
        !            23:                        (*ap)[MAXARG] = 0;
        !            24:        if((fd = open(DK, 0)) < 0){
        !            25:                perror(DK);
        !            26:                exit(1);
        !            27:        }
        !            28:        while(s = Frdline(fd)){
        !            29:                if((ss = strchr(s, ' ')) == 0)
        !            30:                        continue;       /* bad line */
        !            31:                *ss++ = 0;
        !            32:                if((ss = strchr(ss, ' ')) == 0)
        !            33:                        continue;       /* bad line */
        !            34:                if((ss = strchr(ss+1, ' ')) == 0)
        !            35:                        continue;       /* bad line */
        !            36:                if((ss = strchr(ss+1, ' ')) == 0)
        !            37:                        continue;       /* bad line */
        !            38:                for(ap = argv; *ap; ap++)
        !            39:                        if(strcmp(*ap, s) == 0){
        !            40:                                **ap = 0;
        !            41:                                argc--;
        !            42:                                sss = ss+1;
        !            43:                                if(ss = strchr(sss, ' '))
        !            44:                                        *ss = 0;
        !            45:                                if(ss = strchr(sss, '.'))
        !            46:                                        *ss = 0;
        !            47:                                Fprint(1, "%s\n", sss);
        !            48:                        }
        !            49:                if(argc == 0) break;
        !            50:        }
        !            51:        for(fd = 0, ap = argv; *ap; ap++)
        !            52:                if(**ap)
        !            53:                        Fprint(2, "`%s' not found\n", *ap), fd = 1;
        !            54:        exit(fd);
        !            55: }

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