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();
}
ptinit(){
if(ascii || gflag)return;
oput(T_INIT);
esc = T_IESC;
ptesc();
esct = 0;
esc = po;
oput(0140); /*some initial lead*/
}
