#pragma ident "%Z%%M% %I% %E% SMI"

char *xxxvers = "@(#)roff:n1.c 2.13";

#include <ctype.h>

#include <signal.h>

#include <sys/types.h>

#include <sys/stat.h>

#include <setjmp.h>

#include <time.h>

#include <stdarg.h>

#include <locale.h>

#include <fcntl.h>

#include <stdlib.h>

#include <string.h>

#ifdef EUC

#ifdef NROFF

#include <stddef.h>

#include <limits.h>

#endif /* NROFF */

#endif /* EUC */

#include "tdef.h"

#include "ext.h"

#ifdef NROFF

#include "tw.h"

#endif

#define MAX_RECURSION_DEPTH 512

jmp_buf sjbuf;

extern void fdprintf(int, char *, ...);

extern char *roff_sprintf(char *, char *, ...);

filep ipl[NSO];

long offl[NSO];

long ioff;

char *ttyp;

char cfname[NSO+1][NS]; /*file name stack*/

int cfline[NSO]; /*input line count stack*/

char *progname; /* program name (troff) */

#ifdef EUC

#ifdef NROFF

char mbbuf1[MB_LEN_MAX + 1];

char *mbbuf1p = mbbuf1;

wchar_t twc = 0;

#endif /* NROFF */

#endif /* EUC */

#ifdef DEBUG

int debug = 0; /*debug flag*/

#endif DEBUG

main(argc, argv)

int argc;

char **argv;

{

register char *p, *q;

register j;

register tchar i;

int eileenct; /*count to test for "Eileen's loop"*/

extern void catch(), kcatch();

char **oargv, *getenv();

(void)setlocale(LC_ALL, "");

#if !defined(TEXT_DOMAIN)

#define TEXT_DOMAIN "SYS_TEST"

#endif

(void)textdomain(TEXT_DOMAIN);

progname = argv[0];

if (signal(SIGHUP, SIG_IGN) != SIG_IGN)

signal(SIGHUP, catch);

if (signal(SIGINT, catch) == SIG_IGN) {

signal(SIGHUP, SIG_IGN);

signal(SIGINT, SIG_IGN);

signal(SIGQUIT, SIG_IGN);

}

signal(SIGPIPE, catch);

signal(SIGTERM, kcatch);

oargv = argv;

strcpy(cfname[0], "<standard input>");

mrehash();

nrehash();

init0();

#ifdef EUC

#ifdef NROFF

(void)localize();

#endif /* NROFF */

#endif /* EUC */

if ((p = getenv("TYPESETTER")) != 0)

strcpy(devname, p);

while (--argc > 0 && (++argv)[0][0] == '-')

switch (argv[0][1]) {

case 'F': /* switch font tables from default */

if (argv[0][2] != '\0') {

strcpy(termtab, &argv[0][2]);

strcpy(fontfile, &argv[0][2]);

} else {

argv++; argc--;

if (argv[0] != '\0') {

strcpy(termtab, argv[0]);

strcpy(fontfile, argv[0]);

} else

errprint(gettext("missing the font directory"));

}

continue;

case 0:

goto start;

case 'i':

stdi++;

continue;

case 'q':

#ifdef NROFF

quiet++;

save_tty();

#else

errprint(gettext("-q option ignored in troff"));

#endif NROFF

continue;

case 'n':

npn = ctoi(&argv[0][2]);

continue;

case 'u': /* set emboldening amount */

bdtab[3] = ctoi(&argv[0][2]);

if (bdtab[3] < 0 || bdtab[3] > 50)

bdtab[3] = 0;

continue;

case 's':

if (!(stop = ctoi(&argv[0][2])))

stop++;

continue;

case 't':

ptid = 1;

continue;

case 'r':

if (&argv[0][2] != '\0' && strlen(&argv[0][2]) >= 2 && &argv[0][3] != '\0')

eibuf = roff_sprintf(ibuf+strlen(ibuf), ".nr %c %s\n",

argv[0][2], &argv[0][3]);

else

errprint(gettext("wrong options"));

continue;

case 'c':

case 'm':

if (mflg++ >= NMF) {

errprint(gettext("Too many macro packages: %s"),

argv[0]);

continue;

}

if (argv[0][2] == '\0') {

errprint(gettext("No library provided with -m"));

done(02);

}

if (getenv("TROFFMACS") != '\0') {

if (tryfile(getenv("TROFFMACS"), &argv[0][2], nmfi))

nmfi++;

} else

if (tryfile("/usr/share/lib/tmac/", &argv[0][2], nmfi)

|| tryfile("/usr/share/lib/tmac/tmac.", &argv[0][2], nmfi))

nmfi++;

else {

errprint(gettext("Cannot find library %s\n"),

argv[0]);

done(02);

}

continue;

case 'o':

getpn(&argv[0][2]);

continue;

case 'T':

strcpy(devname, &argv[0][2]);

dotT++;

continue;

#ifdef NROFF

case 'h':

hflg++;

continue;

case 'z':

no_out++;

continue;

case 'e':

eqflg++;

continue;

#endif

#ifndef NROFF

case 'z':

no_out++;

case 'a':

ascii = 1;

nofeed++;

continue;

case 'f':

nofeed++;

continue;

#endif

case '#':

#ifdef DEBUG

debug = ctoi(&argv[0][2]);

#else

errprint("DEBUG not enabled");

#endif DEBUG

continue;

default:

errprint(gettext("unknown option %s"), argv[0]);

done(02);

}

start:

init1(oargv[0][0]);

argp = argv;

rargc = argc;

nmfi = 0;

init2();

setjmp(sjbuf);

eileenct = 0; /*reset count for "Eileen's loop"*/

loop:

copyf = lgf = nb = nflush = nlflg = 0;

if (ip && rbf0(ip) == 0 && ejf && frame->pframe <= ejl) {

nflush++;

trap = 0;

eject((struct s *)0);

#ifdef DEBUG

if (debug & DB_LOOP)

fdprintf(stderr, "loop: NL=%d, ejf=%d, lss=%d, eileenct=%d\n",

numtab[NL].val, ejf, lss, eileenct);

#endif DEBUG

if (eileenct > 20) {

errprint(gettext("job looping; check abuse of macros"));

ejf = 0; /*try to break Eileen's loop*/

eileenct = 0;

} else

eileenct++;

goto loop;

}

eileenct = 0; /*reset count for "Eileen's loop"*/

i = getch();

if (pendt)

goto Lt;

if ((j = cbits(i)) == XPAR) {

copyf++;

tflg++;

while (cbits(i) != '\n')

pchar(i = getch());

tflg = 0;

copyf--;

goto loop;

}

if (j == cc || j == c2) {

if (j == c2)

nb++;

copyf++;

while ((j = cbits(i = getch())) == ' ' || j == '\t')

;

ch = i;

copyf--;

control(getrq(), 1);

flushi();

goto loop;

}

Lt:

ch = i;

text();

if (nlflg)

numtab[HP].val = 0;

goto loop;

}

tryfile(pat, fn, idx)

register char *pat, *fn;

int idx;

{

strcpy(mfiles[idx], pat);

strcat(mfiles[idx], fn);

if (access(mfiles[idx], 4) == -1)

return(0);

else return(1);

}

void catch()

{

done3(01);

}

void kcatch()

{

signal(SIGTERM, SIG_IGN);

done3(01);

}

init0()

{

eibuf = ibufp = ibuf;

ibuf[0] = 0;

numtab[NL].val = -1;

}

init1(a)

char a;

{

register char *p;

register i;

p = tmp_name;

if (a == 'a')

p = &p[9];

if ((ibf = mkstemp(p)) == -1) {

errprint(gettext("cannot create temp file."));

exit(-1);

}

unlkp = p;

for (i = NTRTAB; --i; )

trtab[i] = i;

trtab[UNPAD] = ' ';

}

init2()

{

register i, j;

extern char *setbrk();

extern char *ttyname();

ttyod = 2;

if ((ttyp=ttyname(j=0)) != 0 || (ttyp=ttyname(j=1)) != 0 || (ttyp=ttyname(j=2)) != 0)

;

else

ttyp = "notty";

iflg = j;

if (ascii)

mesg(0);

obufp = obuf;

ptinit();

mchbits();

cvtime();

numtab[PID].val = getpid();

olinep = oline;

ioff = 0;

numtab[HP].val = init = 0;

numtab[NL].val = -1;

nfo = 0;

ifile = 0;

copyf = raw = 0;

eibuf = roff_sprintf(ibuf+strlen(ibuf), ".ds .T %s\n", devname);

numtab[CD].val = -1; /* compensation */

cpushback(ibuf);

ibufp = ibuf;

nx = mflg;

frame = stk = (struct s *)setbrk(DELTA);

dip = &d[0];

nxf = frame + 1;

#ifdef INCORE

for (i = 0; i < NEV; i++) {

extern tchar corebuf[];

*(struct env *)&corebuf[i * sizeof(env)/sizeof(tchar)] = env;

}

#else

for (i = NEV; i--; )

write(ibf, (char *) & env, sizeof(env));

#endif

}

cvtime()

{

time_t tt;

register struct tm *tm;

tt = time((time_t *) 0);

tm = localtime(&tt);

numtab[DY].val = tm->tm_mday;

numtab[DW].val = tm->tm_wday + 1;

numtab[YR].val = tm->tm_year;

numtab[MO].val = tm->tm_mon + 1;

}

ctoi(s)

register char *s;

{

register n;

while (*s == ' ')

s++;

n = 0;

while (isdigit((unsigned char)*s))

n = 10 * n + *s++ - '0';

return n;

}

mesg(f)

int f;

{

static int mode;

struct stat stbuf;

if (!f) {

stat(ttyp, &stbuf);

mode = stbuf.st_mode;

chmod(ttyp, mode & ~0122); /* turn off writing for others */

} else {

if (ttyp && *ttyp && mode)

chmod(ttyp, mode);

}

}

errprint(s, s1, s2, s3, s4, s5) /* error message printer */

char *s, *s1, *s2, *s3, *s4, *s5;

{

fdprintf(stderr, "%s: ", progname);

fdprintf(stderr, s, s1, s2, s3, s4, s5);

if (numtab[CD].val > 0)

fdprintf(stderr, gettext("; line %d, file %s"), numtab[CD].val,

cfname[ifi]);

fdprintf(stderr, "\n");

stackdump();

#ifdef DEBUG

if (debug)

abort();

#endif DEBUG

}

#undef putchar

#define putchar(n) (*pfbp++ = (n)) /* NO CHECKING! */

static char pfbuf[NTM];

static char *pfbp = pfbuf;

int stderr = 2; /* NOT stdio value */

fdprintf(int fd, char *fmt, ...)

{

register c;

char *s;

register i;

va_list ap;

pfbp = pfbuf;

va_start(ap, fmt);

loop:

while ((c = *fmt++) != '%') {

if (c == '\0') {

if (fd == stderr)

write(stderr, pfbuf, pfbp - pfbuf);

else {

*pfbp = 0;

pfbp = pfbuf;

while (*pfbp) {

*obufp++ = *pfbp++;

if (obufp >= &obuf[OBUFSZ])

flusho();

}

}

va_end(ap);

return;

}

putchar(c);

}

c = *fmt++;

if (c == 'd') {

i = va_arg(ap, int);

if (i < 0) {

putchar('-');

i = -i;

}

printn((long)i, 10);

} else if (c == 'u' || c == 'o' || c == 'x')

printn(va_arg(ap, long), c == 'o' ? 8 : (c == 'x' ? 16 : 10));

else if (c == 'c') {

if (c > 0177 || c < 040)

putchar('\\');

putchar(va_arg(ap, int) & 0177);

} else if (c == 's') {

s = va_arg(ap, char *);

while (c = *s++)

putchar(c);

} else if (c == 'D') {

printn(va_arg(ap, long), 10);

} else if (c == 'O') {

printn(va_arg(ap, long), 8);

}

goto loop;

}

static printn(n, b)

register long n;

{

register long a;

if (n < 0) { /* shouldn't happen */

putchar('-');

n = -n;

}

if (a = n / b)

printn(a, b);

putchar("0123456789ABCDEF"[(int)(n%b)]);

}

char *roff_sprintf(char *str, char *fmt, ...)

{

register c;

char *sprintn();

char *s;

register i;

va_list ap;

va_start(ap, fmt);

loop:

while ((c = *fmt++) != '%') {

if (c == '\0') {

*str = 0;

va_end(ap);

return str;

}

*str++ = c;

}

c = *fmt++;

if (c == 'd') {

i = va_arg(ap, int);

if (i < 0) {

*str++ = '-';

i = -i;

}

str = sprintn(str, (long)i, 10);

} else if (c == 'u' || c == 'o' || c == 'x')

str = sprintn(str, va_arg(ap, long), c == 'o' ? 8 : (c == 'x' ? 16 : 10));

else if (c == 'c') {

if (c > 0177 || c < 040)

*str++ = '\\';

*str++ = va_arg(ap, int) & 0177;

} else if (c == 's') {

s = va_arg(ap, char *);

while (c = *s++)

*str++ = c;

} else if (c == 'D') {

str = sprintn(str, va_arg(ap, long), 10);

} else if (c == 'O') {

str = sprintn(str, va_arg(ap, unsigned) , 8);

}

goto loop;

}

static char *sprintn(s, n, b)

register char *s;

register long n;

{

register long a;

if (n < 0) { /* shouldn't happen */

*s++ = '-';

n = -n;

}

if (a = n / b)

s = sprintn(s, a, b);

*s++ = "0123456789ABCDEF"[(int)(n%b)];

return s;

}

control(a, b)

register int a, b;

{

register int j;

if (a == 0 || (j = findmn(a)) == -1)

return(0);

/*

if (frame != stk) {

int frame_cnt = 0;

struct s *p;

for (p = frame; p != stk; p = p->pframe)

frame_cnt++;

if (frame_cnt > MAX_RECURSION_DEPTH) {

errprint(

gettext("Exceeded maximum stack size (%d) when "

"executing macro %c%c. Stack dump follows"),

MAX_RECURSION_DEPTH,

frame->mname & 0177, (frame->mname >> BYTE) & 0177);

edone(02);

}

}

#ifdef DEBUG

if (debug & DB_MAC)

fdprintf(stderr, "control: macro %c%c, contab[%d]\n",

a&0177, (a>>BYTE)&0177 ? (a>>BYTE)&0177 : ' ', j);

#endif DEBUG

if (contab[j].f == 0) {

nxf->nargs = 0;

if (b)

collect();

flushi();

return pushi((filep)contab[j].mx, a);

} else if (b)

return((*contab[j].f)(0));

else

return(0);

}

getrq()

{

register i, j;

if (((i = getach()) == 0) || ((j = getach()) == 0))

goto rtn;

i = PAIR(i, j);

rtn:

return(i);

}

gchtab[] = {

000,004,000,000,010,000,000,000, /* fc, ldr */

001,002,001,000,001,000,000,000, /* \b, tab, nl, RPT */

000,000,000,000,000,000,000,000,

000,001,000,000,000,000,000,000, /* FLSS */

000,000,000,000,000,000,000,000,

000,000,000,000,000,000,000,000,

000,000,000,000,000,000,000,000,

000,000,000,000,000,000,000,000,

000,000,000,000,000,000,000,000,

000,000,000,000,000,000,000,000,

000,000,000,000,000,000,000,000,

000,000,000,000,000,000,000,000,

000,000,000,000,000,000,001,000, /* f */

000,000,000,000,000,000,000,000,

000,000,000,000,000,000,000,000,

000,000,000,000,000,000,000,000,

};

getch()

{

register int k;

register tchar i, j;

tchar setht(), setslant();

g0:

if (i = ch) {

#ifdef DEBUG

if (debug & DB_GETC)

fdprintf(stderr, "getch: ch is %x (%c)\n",

ch, (ch&0177) < 040 ? 0177 : ch&0177);

#endif DEBUG

if (cbits(i) == '\n')

nlflg++;

ch = 0;

return(i);

}

#ifdef DEBUG

if (nlflg)

if (debug & DB_GETC)

fdprintf(stderr,"getch: nlflg is %x\n", nlflg);

#endif DEBUG

if (nlflg)

return('\n');

i = getch0();

#ifdef DEBUG

if (debug & DB_GETC)

fdprintf(stderr, "getch: getch0 returns %x (%c)\n",

i, (i&0177) < 040 ? 0177 : i&0177);

#endif DEBUG

if (ismot(i))

return(i);

k = cbits(i);

if (k != ESC) {

/*

if (!isascii(k) || gchtab[k]==0)

return(i);

if (k == '\n') {

if (cbits(i) == '\n') {

nlflg++;

if (ip == 0)

numtab[CD].val++; /* line number */

}

return(k);

}

if (k == FLSS) {

copyf++;

raw++;

i = getch0();

if (!fi)

flss = i;

copyf--;

raw--;

goto g0;

}

if (k == RPT) {

setrpt();

goto g0;

}

if (!copyf) {

if (k == 'f' && lg && !lgf) {

i = getlg(i);

return(i);

}

if (k == fc || k == tabch || k == ldrch) {

if ((i = setfield(k)) == 0)

goto g0;

else

return(i);

}

if (k == '\b') {

i = makem(-width(' ' | chbits));

return(i);

}

}

return(i);

}

k = cbits(j = getch0());

if (ismot(j))

return(j);

switch (k) {

case 'X': /* \X'...' for copy through */

setxon();

goto g0;

case '\n': /* concealed newline */

goto g0;

case 'n': /* number register */

setn();

goto g0;

case '*': /* string indicator */

setstr();

goto g0;

case '$': /* argument indicator */

seta();

goto g0;

case '{': /* LEFT */

i = LEFT;

goto gx;

case '}': /* RIGHT */

i = RIGHT;

goto gx;

case '"': /* comment */

while (cbits(i = getch0()) != '\n')

;

nlflg++;

if (ip == 0)

numtab[CD].val++;

return(i);

case ESC: /* double backslash */

i = eschar;

goto gx;

case 'e': /* printable version of current eschar */

i = PRESC;

goto gx;

case ' ': /* unpaddable space */

i = UNPAD;

goto gx;

case '\'': /* \(aa */

i = ACUTE;

goto gx;

case '`': /* \(ga */

i = GRAVE;

goto gx;

case '_': /* \(ul */

i = UNDERLINE;

goto gx;

case '-': /* current font minus */

i = MINUS;

goto gx;

case '&': /* filler */

i = FILLER;

goto gx;

case 'c': /* to be continued */

i = CONT;

goto gx;

case '!': /* transparent indicator */

i = XPAR;

goto gx;

case 't': /* tab */

i = '\t';

return(i);

case 'a': /* leader (SOH) */

i = LEADER;

return(i);

case '%': /* ohc */

i = OHC;

return(i);

case 'g': /* return format of a number register */

setaf();

goto g0;

case 'N': /* absolute character number */

i = setabs();

goto gx;

case '.': /* . */

i = '.';

gx:

setsfbits(i, sfbits(j));

return(i);

}

if (copyf) {

*pbp++ = j;

return(eschar);

}

switch (k) {

case 'p': /* spread */

spread++;

goto g0;

case '(': /* special char name */

if ((i = setch()) == 0)

goto g0;

return(i);

case 's': /* size indicator */

setps();

goto g0;

case 'H': /* character height */

return(setht());

case 'S': /* slant */

return(setslant());

case 'f': /* font indicator */

setfont(0);

goto g0;

case 'w': /* width function */

setwd();

goto g0;

case 'v': /* vert mot */

if (i = vmot())

return(i);

goto g0;

case 'h': /* horiz mot */

if (i = hmot())

return(i);

goto g0;

case 'z': /* zero with char */

return(setz());

case 'l': /* hor line */

setline();

goto g0;

case 'L': /* vert line */

setvline();

goto g0;

case 'D': /* drawing function */

setdraw();

goto g0;

case 'b': /* bracket */

setbra();

goto g0;

case 'o': /* overstrike */

setov();

goto g0;

case 'k': /* mark hor place */

if ((k = findr(getsn())) != -1) {

numtab[k].val = numtab[HP].val;

}

goto g0;

case '0': /* number space */

return(makem(width('0' | chbits)));

#ifdef NROFF

case '|':

case '^':

goto g0;

#else

case '|': /* narrow space */

return(makem((int)(EM)/6));

case '^': /* half narrow space */

return(makem((int)(EM)/12));

#endif

case 'x': /* extra line space */

if (i = xlss())

return(i);

goto g0;

case 'u': /* half em up */

case 'r': /* full em up */

case 'd': /* half em down */

return(sethl(k));

default:

return(j);

}

/* NOTREACHED */

}

setxon() /* \X'...' for copy through */

{

tchar xbuf[NC];

register tchar *i;

tchar c;

int delim, k;

if (ismot(c = getch()))

return;

delim = cbits(c);

i = xbuf;

*i++ = XON;

while ((k = cbits(c = getch())) != delim && k != '\n' && i < xbuf+NC-1) {

if (k == ' ')

setcbits(c, UNPAD);

*i++ = c | ZBIT;

}

*i++ = XOFF;

*i = 0;

pushback(xbuf);

}

char ifilt[32] = {

0, 001, 002, 003, 0, 005, 006, 007, 010, 011, 012};

tchar getch0()

{

register int j;

register tchar i;

#ifdef EUC

#ifdef NROFF

register int n;

int col_index;

#endif /* NROFF */

#endif /* EUC */

again:

if (pbp > lastpbp)

i = *--pbp;

else if (ip) {

#ifdef INCORE

extern tchar corebuf[];

i = corebuf[ip];

if (i == 0)

i = rbf();

else {

if ((++ip & (BLK - 1)) == 0) {

--ip;

(void)rbf();

}

}

#else

i = rbf();

#endif

} else {

if (donef || ndone)

done(0);

if (nx || ibufp >= eibuf) {

if (nfo==0) {

g0:

if (nextfile()) {

if (ip)

goto again;

if (ibufp < eibuf)

goto g2;

}

}

nx = 0;

if ((j = read(ifile, ibuf, IBUFSZ)) <= 0)

goto g0;

ibufp = ibuf;

eibuf = ibuf + j;

if (ip)

goto again;

}

g2:

#ifndef EUC

i = *ibufp++ & 0177;

ioff++;

if (i >= 040 && i < 0177)

#else

#ifndef NROFF

i = *ibufp++ & 0177;

ioff++;

if (i >= 040 && i < 0177)

#else

i = *ibufp++ & 0377;

*mbbuf1p++ = i;

*mbbuf1p = 0;

if (!multi_locale) {

twc = 0;

mbbuf1p = mbbuf1;

} else if ((n = mbtowc(&twc, mbbuf1, MB_CUR_MAX)) <= 0) {

if (mbbuf1p >= mbbuf1 + MB_CUR_MAX) {

i &= ~(MBMASK | CSMASK);

twc = 0;

mbbuf1p = mbbuf1;

*mbbuf1p = 0;

} else {

i |= (MIDDLEOFMB);

}

} else {

if (n > 1)

i |= (LASTOFMB);

else

i |= (BYTE_CHR);

if (isascii(twc)) {

col_index = 0;

} else {

if ((col_index = wcwidth(twc)) < 0)

col_index = 0;

}

setcsbits(i, col_index);

twc = 0;

mbbuf1p = mbbuf1;

}

ioff++;

if (i >= 040 && i != 0177)

#endif /* NROFF */

#endif /* EUC */

goto g4;

if (i != 0177)

i = ifilt[i];

}

if (cbits(i) == IMP && !raw)

goto again;

if ((i == 0 || i == 0177) && !init && !raw) {

goto again;

}

g4:

#ifndef EUC

if (copyf == 0 && (i & ~BYTEMASK) == 0)

#else

#ifndef NROFF

if (copyf == 0 && (i & ~BYTEMASK) == 0)

#else

if (copyf == 0 && (i & ~CHMASK) == 0)

#endif /* NROFF */

#endif /* EUC */

i |= chbits;

#ifdef EUC

#ifdef NROFF

if (multi_locale)

if (i & MBMASK1)

i |= ZBIT;

#endif /* NROFF */

#endif /* EUC */

if (cbits(i) == eschar && !raw)

setcbits(i, ESC);

return(i);

}

pushback(b)

register tchar *b;

{

register tchar *ob = b;

while (*b++)

;

b--;

while (b > ob && pbp < &pbbuf[NC-3])

*pbp++ = *--b;

if (pbp >= &pbbuf[NC-3]) {

errprint(gettext("pushback overflow"));

done(2);

}

}

cpushback(b)

register char *b;

{

register char *ob = b;

while (*b++)

;

b--;

while (b > ob && pbp < &pbbuf[NC-3])

*pbp++ = *--b;

if (pbp >= &pbbuf[NC-3]) {

errprint(gettext("cpushback overflow"));

done(2);

}

}

nextfile()

{

register char *p;

n0:

if (ifile)

close(ifile);

if (nx || nmfi < mflg) {

p = mfiles[nmfi++];

if (*p != 0)

goto n1;

}

if (ifi > 0) {

if (popf())

goto n0; /* popf error */

return(1); /* popf ok */

}

if (rargc-- <= 0) {

if ((nfo -= mflg) && !stdi)

done(0);

nfo++;

numtab[CD].val = ifile = stdi = mflg = 0;

strcpy(cfname[ifi], "<standard input>");

ioff = 0;

return(0);

}

p = (argp++)[0];

n1:

numtab[CD].val = 0;

if (p[0] == '-' && p[1] == 0) {

ifile = 0;

strcpy(cfname[ifi], "<standard input>");

} else if ((ifile = open(p, 0)) < 0) {

errprint(gettext("cannot open file %s"), p);

nfo -= mflg;

done(02);

} else

strcpy(cfname[ifi],p);

nfo++;

ioff = 0;

return(0);

}

popf()

{

register i;

register char *p, *q;

extern char *ttyname();

ioff = offl[--ifi];

numtab[CD].val = cfline[ifi]; /*restore line counter*/

ip = ipl[ifi];

if ((ifile = ifl[ifi]) == 0) {

p = xbuf;

q = ibuf;

ibufp = xbufp;

eibuf = xeibuf;

while (q < eibuf)

*q++ = *p++;

return(0);

}

if (lseek(ifile, (long)(ioff & ~(IBUFSZ-1)), 0) == (long) -1

|| (i = read(ifile, ibuf, IBUFSZ)) < 0)

return(1);

eibuf = ibuf + i;

ibufp = ibuf;

if (ttyname(ifile) == 0)

/* was >= ... */

if ((ibufp = ibuf + (int)(ioff & (IBUFSZ - 1))) > eibuf)

return(1);

return(0);

}

flushi()

{

if (nflush)

return;

ch = 0;

copyf++;

while (!nlflg) {

if (donef && (frame == stk))

break;

getch();

}

copyf--;

}

getach()

{

register tchar i;

register j;

lgf++;

j = cbits(i = getch());

#ifndef EUC

if (ismot(i) || j == ' ' || j == '\n' || j & 0200) {

#else

#ifndef NROFF

if (ismot(i) || j == ' ' || j == '\n' || j & 0200) {

#else

if (ismot(i) || j == ' ' || j == '\n' || j > 0200) {

#endif /* NROFF */

#endif /* EUC */

ch = i;

j = 0;

}

lgf--;

return(j & 0177);

}

casenx()

{

lgf++;

skip();

getname();

nx++;

if (nmfi > 0)

nmfi--;

strcpy(mfiles[nmfi], nextf);

nextfile();

nlflg++;

ip = 0;

pendt = 0;

frame = stk;

nxf = frame + 1;

}

getname()

{

register int j, k;

tchar i;

lgf++;

for (k = 0; k < (NS - 1); k++) {

#ifndef EUC

if (((j = cbits(i = getch())) <= ' ') || (j > 0176))

#else

#ifndef NROFF

if (((j = cbits(i = getch())) <= ' ') || (j > 0176))

#else

if (((j = cbits(i = getch())) <= ' ') || (j == 0177))

#endif /* NROFF */

#endif /* EUC */

break;

nextf[k] = j & BYTEMASK;

}

nextf[k] = 0;

ch = i;

lgf--;

return(nextf[0]);

}

caseso()

{

register i;

register char *p, *q;

lgf++;

nextf[0] = 0;

if (skip() || !getname() || ((i = open(nextf, 0)) < 0) || (ifi >= NSO)) {

errprint(gettext("can't open file %s"), nextf);

done(02);

}

strcpy(cfname[ifi+1], nextf);

cfline[ifi] = numtab[CD].val; /*hold line counter*/

numtab[CD].val = 0;

flushi();

ifl[ifi] = ifile;

ifile = i;

offl[ifi] = ioff;

ioff = 0;

ipl[ifi] = ip;

ip = 0;

nx++;

nflush++;

if (!ifl[ifi++]) {

p = ibuf;

q = xbuf;

xbufp = ibufp;

xeibuf = eibuf;

while (p < eibuf)

*q++ = *p++;

}

}

caself() /* set line number and file */

{

int n;

if (skip())

return;

n = atoi();

cfline[ifi] = numtab[CD].val = n - 2;

if (skip())

return;

if (getname())

strcpy(cfname[ifi], nextf);

}

casecf()

{ /* copy file without change */

#ifndef NROFF

int fd, n;

char buf[512];

extern int hpos, esc, po;

nextf[0] = 0;

if (skip() || !getname() || (fd = open(nextf, 0)) < 0) {

errprint(gettext("can't open file %s"), nextf);

done(02);

}

tbreak();

/* make it into a clean state, be sure that everything is out */

hpos = po;

esc = un;

ptesc();

ptlead();

ptps();

ptfont();

flusho();

while ((n = read(fd, buf, sizeof buf)) > 0)

write(ptid, buf, n);

close(fd);

#endif

}

casesy() /* call system */

{

char sybuf[NTM];

int i;

lgf++;

copyf++;

skip();

for (i = 0; i < NTM - 2; i++)

if ((sybuf[i] = getch()) == '\n')

break;

sybuf[i] = 0;

system(sybuf);

copyf--;

lgf--;

}

getpn(a)

register char *a;

{

register int n, neg;

if (*a == 0)

return;

neg = 0;

for ( ; *a; a++)

switch (*a) {

case '+':

case ',':

continue;

case '-':

neg = 1;

continue;

default:

n = 0;

if (isdigit((unsigned char)*a)) {

do

n = 10 * n + *a++ - '0';

while (isdigit((unsigned char)*a));

a--;

} else

n = 9999;

*pnp++ = neg ? -n : n;

neg = 0;

if (pnp >= &pnlist[NPN-2]) {

errprint(gettext("too many page numbers"));

done3(-3);

}

}

if (neg)

*pnp++ = -9999;

*pnp = -32767;

print = 0;

pnp = pnlist;

if (*pnp != -32767)

chkpn();

}

setrpt()

{

tchar i, j;

copyf++;

raw++;

i = getch0();

copyf--;

raw--;

if (i < 0 || cbits(j = getch0()) == RPT)

return;

i &= BYTEMASK;

while (i>0 && pbp < &pbbuf[NC-3]) {

i--;

*pbp++ = j;

}

}

casedb()

{

#ifdef DEBUG

debug = 0;

if (skip())

return;

noscale++;

debug = max(atoi(), 0);

noscale = 0;

#endif DEBUG

}