Return to lrntee.c CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.bin / learn

Annotation of 42BSD/usr.bin/learn/lrntee.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char sccsid[] = "@(#)lrntee.c   4.2     (Berkeley)      4/26/83";
                      3: #endif not lint
                      4: 
                      5: main()
                      6: {
                      7:        int f, c;
                      8: 
                      9:        f = creat(".ocopy", 0666);
                     10:        while (read(0, &c, 1) == 1) {
                     11:                write (1, &c, 1);
                     12:                put(c, f);
                     13:        }
                     14:        fl(f);
                     15:        close(f);
                     16: }
                     17: 
                     18: static char ln[512];
                     19: char *p = ln;
                     20: put(c, f)
                     21: {
                     22:        *p++ = c;
                     23:        if (c == '\n') {
                     24:                fl(f);
                     25:                p=ln;
                     26:        }
                     27: }
                     28: fl(f)
                     29: {
                     30:        register char *s;
                     31: 
                     32:        s = ln;
                     33:        while (*s == '%' && *(s+1) == ' ')
                     34:                s += 2;
                     35:        write(f, s, p-s);
                     36: }

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