refer8.c

来自「unix v7是最后一个广泛发布的研究型UNIX版本」· C语言 代码 · 共 31 行

# include "refer..c"
static char ahead[1000];
static int peeked 0;
static int noteof 1;
input (s)
	char *s;
{
if (peeked)
	{
	peeked=0;
	if (noteof==0) return(0);
	strcpy (s, ahead);
	return(s);
	}
return(fgets(s, 1000, in));
}
lookat()
{
if (peeked) return(ahead);
noteof=input(ahead);
peeked=1;
return(noteof);
}
addch(s, c)
	char *s;
{
while (*s) s++;
*s++ = c;
*s = 0;
}