void casecf(void)
{ /* copy file without change */
FILE *fd;
char *eof, *p;
extern int hpos, esc, po;
/* this may not make much sense in nroff... */
lgf++;
nextf[0] = 0;
if (!skip() && getname()) {
if (strncmp("<<", nextf, 2) != 0) {
if ((fd = fopen(nextf, "r")) == NULL) {
ERROR "can't open file %s", nextf WARN;
done(02);
}
eof = (char *) NULL;
} else { /* current file */
if (pbp > lastpbp || ip) {
ERROR "casecf: not reading from file" WARN;
done(02);
}
eof = &nextf[2];
if (!*eof) {
ERROR "casecf: missing end of input token" WARN;
done(02);
}
p = eof;
while(*++p)
;
*p++ = '\n';
*p = 0;
fd = ifile;
}
} else {
ERROR "casecf: no argument" WARN;
lgf--;
return;
}
lgf--;
/* make it into a clean state, be sure that everything is out */
tbreak();
hpos = po;
esc = 0;
ptesc(); /* to left margin */
esc = un;
ptesc();
ptlead();
ptps();
ptfont();
flusho();
cpout(fd, eof);
ptps();
ptfont();
}
void
done2(int x)
{
ptlead();
#ifndef NROFF
if (!ascii)
ptstop();
#endif
flusho();
done3(x);
}
void
done1(int x)
{
error |= x;
if (numtab[NL].val) {
trap = 0;
eject((struct s *)0);
longjmp(sjbuf, 1);
}
if (nofeed) {
ptlead();
flusho();
done3(0);
} else {
pttrailer();
done2(0);
}
}
