Return to ln.c CVS log

Up to [Research Unix] / researchv9 / cmd

Annotation of researchv9/cmd/ln.c, revision 1.1.1.1

1.1       root        1: static char sccsid[] = "@(#)ln.c 4.3 3/31/82";
                      2: /*
                      3:  * ln
                      4:  */
                      5: #include <stdio.h>
                      6: #include <sys/types.h>
                      7: #include <sys/stat.h>
                      8: 
                      9: struct stat stb;
                     10: int    fflag;
                     11: int    sflag;
                     12: char   name[BUFSIZ];
                     13: char   *rindex();
                     14: 
                     15: main(argc, argv)
                     16:        int argc;
                     17:        register char **argv;
                     18: {
                     19:        register int i, r;
                     20: 
                     21:        argc--, argv++;
                     22: again:
                     23:        if (argc && strcmp(argv[0], "-f") == 0) {
                     24:                fflag++;
                     25:                argv++;
                     26:                argc--;
                     27:        }
                     28:        if (argc && strcmp(argv[0], "-s") == 0) {
                     29:                sflag++;
                     30:                argv++;
                     31:                argc--;
                     32:        }
                     33:        if (argc == 0) 
                     34:                goto usage;
                     35:        else if (argc == 1) {
                     36:                argv[argc] = ".";
                     37:                argc++;
                     38:        }
                     39:        if (sflag == 0 && argc > 2) {
                     40:                if (stat(argv[argc-1], &stb) < 0)
                     41:                        goto usage;
                     42:                if ((stb.st_mode&S_IFMT) != S_IFDIR) 
                     43:                        goto usage;
                     44:        }
                     45:        r = 0;
                     46:        for(i = 0; i < argc-1; i++)
                     47:                r |= linkit(argv[i], argv[argc-1]);
                     48:        exit(r);
                     49: usage:
                     50:        fprintf(stderr, "Usage: ln [ -s ] f1\nor: ln [ -s ] f1 f2\nln [ -s ] f1 ... fn d2\n");
                     51:        exit(1);
                     52: }
                     53: 
                     54: int    link(), symlink();
                     55: 
                     56: linkit(from, to)
                     57:        char *from, *to;
                     58: {
                     59:        char *tail;
                     60:        int (*linkf)() = sflag ? symlink : link;
                     61: 
                     62:        /* is target a directory? */
                     63:        if (sflag == 0 && fflag == 0 && stat(from, &stb) >= 0
                     64:            && (stb.st_mode&S_IFMT) == S_IFDIR) {
                     65:                fprintf(stderr, "ln: %s is a directory\n", from);
                     66:                return (1);
                     67:        }
                     68:        if (stat(to, &stb) >= 0 && (stb.st_mode&S_IFMT) == S_IFDIR) {
                     69:                tail = rindex(from, '/');
                     70:                if (tail == 0)
                     71:                        tail = from;
                     72:                else
                     73:                        tail++;
                     74:                sprintf(name, "%s/%s", to, tail);
                     75:                to = name;
                     76:        }
                     77:        if ((*linkf)(from, to) < 0) {
                     78:                lnerror(from, to);
                     79:                return (1);
                     80:        }
                     81:        return (0);
                     82: }
                     83: 
                     84: lnerror(from, to)
                     85: char *from, *to;
                     86: {
                     87:        char buf[BUFSIZ];
                     88: 
                     89:        sprintf(buf, "ln %s %s", from, to);
                     90:        perror(buf);
                     91: }

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