blob: d303b96ed56344055a2bce9e958027dba918cdc1 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include "lroff.h"
.help rawcopy
.nf ________________________________________________________________________
RAWCOPY -- Copy an unformatted help block without modification, except
for moving to the desired left margin. Stop only when the .endhelp
directive is seen, or at EOF. Ignore all other directives.
.endhelp ___________________________________________________________________
procedure rawcopy (in, out, linebuf)
extern in(), out()
char linebuf[ARB]
int ip, in(), input(), nextcmd()
errchk input, outline
include "lroff.com"
begin
while (input (in, linebuf) != EOF)
if (nextcmd (linebuf, ip) == ENDHELP)
break
else
call outline (out, linebuf)
end
|
