Return to refer8.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / refer

Annotation of 43BSDTahoe/usr.bin/refer/refer8.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char *sccsid = "@(#)refer8.c    4.1 (Berkeley) 5/6/83";
                      3: #endif
                      4: 
                      5: #include "refer..c"
                      6: 
                      7: static char ahead[1024];
                      8: static int peeked = 0;
                      9: static char *noteof = (char *) 1;
                     10: 
                     11: char *
                     12: input(s)
                     13: char *s;
                     14: {
                     15:        if (peeked) {
                     16:                peeked = 0;
                     17:                if (noteof == 0)
                     18:                        return(0);
                     19:                strcpy(s, ahead);
                     20:                return(s);
                     21:        }
                     22:        return(fgets(s, 1000, in));
                     23: }
                     24: 
                     25: char *
                     26: lookat()
                     27: {
                     28:        if (peeked)
                     29:                return(ahead);
                     30:        noteof = input(ahead);
                     31:        peeked = 1;
                     32:        return(noteof);
                     33: }
                     34: 
                     35: addch(s, c)
                     36: char *s;
                     37: {
                     38:        while (*s)
                     39:                s++;
                     40:        *s++ = c;
                     41:        *s = 0;
                     42: }

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