Return to refer8.c CVS log

Up to [Research Unix] / researchv10no / cmd / refer

researchv10 Norman

# include "refer..c"
static char ahead[1000];
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()
{
	char *input();
if (peeked) return(ahead);
noteof = input(ahead);
peeked=1;
return(noteof);
}
addch(s, c)
	char *s;
{
while (*s) s++;
*s++ = c;
*s = 0;
}

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