Return to dirname.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin

Annotation of coherent/b/bin/dirname.c, revision 1.1

1.1     ! root        1: /* (-lgl
        !             2:  *     COHERENT Version 4.0
        !             3:  *     Copyright (c) 1982, 1992 by Mark Williams Company.
        !             4:  *     All rights reserved. May not be copied without permission.
        !             5:  -lgl) */
        !             6: /*
        !             7:  * Print directry name.
        !             8:  */
        !             9: #include <stdio.h>
        !            10: 
        !            11: main(argc, argv)
        !            12: int    argc;
        !            13: char   *argv[];
        !            14: {
        !            15:        extern char     *rindex();
        !            16:        char            *pch;
        !            17: 
        !            18:        if (argc > 2) {
        !            19:                fprintf(stderr, "Usage: dirname [path]\n");
        !            20:                exit(1);
        !            21:        }
        !            22:        
        !            23:        if ((pch = rindex(argv[1], '/')) == NULL)
        !            24:                puts(".");
        !            25:        else 
        !            26:                if (pch == argv[1])
        !            27:                        puts("/");
        !            28:                else {
        !            29:                        *pch ='\0';
        !            30:                        puts(argv[1]);
        !            31:                }
        !            32: }

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