43 lines
533 B
C
43 lines
533 B
C
#ifndef lint
|
|
static char sccsid[] = "@(#)refer8.c 1.1 94/10/31 SMI"; /* from UCB 4.1 5/6/83 */
|
|
#endif
|
|
|
|
#include "refer..c"
|
|
|
|
static char ahead[1024];
|
|
static int peeked = 0;
|
|
static char *noteof = (char *) 1;
|
|
|
|
char *
|
|
input(s)
|
|
char *s;
|
|
{
|
|
if (peeked) {
|
|
peeked = 0;
|
|
if (noteof == 0)
|
|
return(0);
|
|
strcpy(s, ahead);
|
|
return(s);
|
|
}
|
|
return(fgets(s, 1000, in));
|
|
}
|
|
|
|
char *
|
|
lookat()
|
|
{
|
|
if (peeked)
|
|
return(ahead);
|
|
noteof = input(ahead);
|
|
peeked = 1;
|
|
return(noteof);
|
|
}
|
|
|
|
addch(s, c)
|
|
char *s;
|
|
{
|
|
while (*s)
|
|
s++;
|
|
*s++ = c;
|
|
*s = 0;
|
|
}
|