projects
/
unix-history
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
BSD 4_3_Reno release
[unix-history]
/
usr
/
src
/
usr.bin
/
refer
/
refer
/
refer8.c
#ifndef lint
static char
*
sccsid
=
"@(#)refer8.c 4.1 (Berkeley) 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
;
}