Return to call.c CVS log

Up to [CSRG BSD Unix] / 42BSD / old

Annotation of 42BSD/old/call.c, revision 1.1

1.1     ! root        1: static char *sccsid = "@(#)call.c      4.1 (Berkeley) 10/1/80";
        !             2: char *dn;
        !             3: 
        !             4: main(argc, argv)
        !             5: char *argv[];
        !             6: {
        !             7:        register f, n, c;
        !             8: 
        !             9: 
        !            10:        if(argc < 2)
        !            11:                goto arg;
        !            12:        dn = "/dev/dn0";
        !            13:        if(*argv[1] == '-') {
        !            14:                dn = argv[1]+1;
        !            15:                argc--;
        !            16:                argv++;
        !            17:        }
        !            18:        if(argc < 2)
        !            19:                goto arg;
        !            20:        c = 0;
        !            21: loop:
        !            22:        f = open(dn, 1);
        !            23:        if(f < 0)
        !            24:                goto slp;
        !            25:        for(n=0; argv[1][n]; n++)
        !            26:                ;
        !            27:        alarm(120);
        !            28:        if(write(f, argv[1], n) == n)
        !            29:                exit(0);
        !            30: 
        !            31: slp:
        !            32:        if(f >= 0)
        !            33:                close(f);
        !            34:        c++;
        !            35:        if(c > 100)
        !            36:                exit(1);
        !            37:        sleep(10);
        !            38:        goto loop;
        !            39: 
        !            40: arg:
        !            41:        printf("arg c\n");
        !            42:        exit(1);
        !            43: }

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