Commit | Line | Data |
---|---|---|
2b1a705e TL |
1 | # include "refer..c" |
2 | static char ahead[1000]; | |
3 | static int peeked = 0; | |
4 | static int noteof = 1; | |
5 | char * | |
6 | input (s) | |
7 | char *s; | |
8 | { | |
9 | if (peeked) | |
10 | { | |
11 | peeked=0; | |
12 | if (noteof==0) return(0); | |
13 | strcpy (s, ahead); | |
14 | return(s); | |
15 | } | |
16 | return(fgets(s, 1000, in)); | |
17 | } | |
18 | char * | |
19 | lookat() | |
20 | { | |
21 | if (peeked) return(ahead); | |
22 | noteof=input(ahead); | |
23 | peeked=1; | |
24 | return(noteof); | |
25 | } | |
26 | addch(s, c) | |
27 | char *s; | |
28 | { | |
29 | while (*s) s++; | |
30 | *s++ = c; | |
31 | *s = 0; | |
32 | } |