projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Bell 32V development
[unix-history]
/
usr
/
src
/
cmd
/
refer
/
refer8.c
# include
"refer..c"
static char
ahead
[
1000
];
static int
peeked
=
0
;
static int
noteof
=
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
;
}