Return to dirname.c CVS log

Up to [Research Unix] / researchv10no / cmd

Annotation of researchv10no/cmd/dirname.c, revision 1.1.1.1

1.1       root        1: main(argc, argv)
                      2: char **argv;
                      3: {
                      4:        char *p;
                      5:        if(argc<2 || *argv[1]==0)
                      6:                fini(".");
                      7:        for(p=argv[1]; *p; p++)
                      8:                continue;
                      9:        while(p>=argv[1] && *--p=='/')
                     10:                ;
                     11:        if(p < argv[1])
                     12:                fini("/");
                     13:        while(p>=argv[1] && *p!='/')
                     14:                p--;
                     15:        if(p < argv[1])
                     16:                fini(".");
                     17:        while(p>=argv[1] && *p=='/')
                     18:                p--;
                     19:        if(p < argv[1])
                     20:                fini("/");
                     21:        p[1] = 0;
                     22:        fini(argv[1]);
                     23: }
                     24: 
                     25: fini(s)
                     26: char *s;
                     27: {
                     28:        printf("%s\n",s);
                     29:        exit(0);
                     30: }

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