Return to learn.c CVS log

Up to [Research Unix] / researchv10no / cmd / learn

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

1.1     ! root        1: #include "stdio.h"
        !             2: #include "lrndef"
        !             3: #include "lrnref"
        !             4: #include "signal.h"
        !             5: 
        !             6: main(argc,argv)
        !             7: char *argv[];
        !             8: {
        !             9:        extern hangup(), intrpt();
        !            10:        extern char * getlogin();
        !            11:        char *malloc();
        !            12: 
        !            13:        speed = 0;
        !            14:        more = 1;
        !            15:        pwline = getlogin();
        !            16:        setbuf(stdout, malloc(BUFSIZ));
        !            17:        selsub(argc, argv);
        !            18:        signal(SIGHUP, hangup);
        !            19:        signal(SIGINT, intrpt);
        !            20:        while (more) {
        !            21:                selunit();
        !            22:                dounit();
        !            23:                whatnow();
        !            24:        }
        !            25:        wrapup(0);
        !            26: }
        !            27: 
        !            28: hangup()
        !            29: {
        !            30:        wrapup(1);
        !            31: }
        !            32: 
        !            33: intrpt()
        !            34: {
        !            35:        char response[20], *p;
        !            36: 
        !            37:        signal(SIGINT, hangup);
        !            38:        write(2, "\nInterrupt.\nWant to go on?  ", 28);
        !            39:        p = response;
        !            40:        *p = 'n';
        !            41:        while (read(0, p, 1) == 1 && *p != '\n')
        !            42:                p++;
        !            43:        if (response[0] != 'y')
        !            44:                wrapup(1);
        !            45:        ungetc('\n', stdin);
        !            46:        signal(SIGINT, intrpt);
        !            47: }

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