OpenSolaris_b135/cmd/troff/n1.c
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2004 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/*
* University Copyright- Copyright (c) 1982, 1986, 1988
* The Regents of the University of California
* All Rights Reserved
*
* University Acknowledgment- Portions of this document are derived from
* software developed by the University of California, Berkeley, and its
* contributors.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
char *xxxvers = "@(#)roff:n1.c 2.13";
/*
* n1.c
*
* consume options, initialization, main loop,
* input routines, escape function calling
*/
#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 */
static char *sprintn(char *, long, int);
static int printn(long, int);
int
main(int argc, char **argv)
{
char *p, *q;
int j;
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;
}
int
tryfile(pat, fn, idx)
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);
}
int
init0()
{
eibuf = ibufp = ibuf;
ibuf[0] = 0;
numtab[NL].val = -1;
return (0);
}
int
init1(a)
char a;
{
char *p;
int 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] = ' ';
return (0);
}
int
init2()
{
int 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
return (0);
}
int
cvtime()
{
time_t tt;
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;
return (0);
}
int
ctoi(s)
char *s;
{
int n;
while (*s == ' ')
s++;
n = 0;
while (isdigit((unsigned char)*s))
n = 10 * n + *s++ - '0';
return n;
}
int
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);
}
return (0);
}
int
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 */
return (0);
}
/*
* Scaled down version of C Library printf.
* Only %s %u %d (==%u) %o %c %x %D are recognized.
*/
#undef putchar
#define putchar(n) (*pfbp++ = (n)) /* NO CHECKING! */
static char pfbuf[NTM];
static char *pfbp = pfbuf;
int stderr = 2; /* NOT stdio value */
void
fdprintf(int fd, char *fmt, ...)
{
int c;
char *s;
int 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;
}
/*
* Print an unsigned integer in base b.
*/
static int
printn(n, b)
long n;
int b;
{
long a;
if (n < 0) { /* shouldn't happen */
putchar('-');
n = -n;
}
if (a = n / b)
printn(a, b);
putchar("0123456789ABCDEF"[(int)(n%b)]);
return (0);
}
/* scaled down version of library roff_sprintf */
/* same limits as fdprintf */
/* returns pointer to \0 that ends the string */
/* VARARGS2 */
char *roff_sprintf(char *str, char *fmt, ...)
{
int c;
char *s;
int 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;
}
/*
* Print an unsigned integer in base b.
*/
static char *sprintn(s, n, b)
char *s;
long n;
int b;
{
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;
}
int
control(a, b)
int a, b;
{
int j;
if (a == 0 || (j = findmn(a)) == -1)
return(0);
/*
* Attempt to find endless recursion at runtime. Arbitrary
* recursion limit of MAX_RECURSION_DEPTH was chosen as
* it is extremely unlikely that a correct nroff/troff
* invocation would exceed this value.
*/
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);
}
int
getrq()
{
int i, j;
if (((i = getach()) == 0) || ((j = getach()) == 0))
goto rtn;
i = PAIR(i, j);
rtn:
return(i);
}
/*
* table encodes some special characters, to speed up tests
* in getchar, viz FLSS, RPT, f, \b, \n, fc, tabch, ldrch
*/
char
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,
};
tchar
getch()
{
int k;
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) {
/*
* gchtab[] has only 128 entries
* if k is out of the range, it should be
* handled as gchtab[k] == 0
*/
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 */
}
int
setxon() /* \X'...' for copy through */
{
tchar xbuf[NC];
tchar *i;
tchar c;
int delim, k;
if (ismot(c = getch()))
return (0);
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);
return (0);
}
char ifilt[32] = {
0, 001, 002, 003, 0, 005, 006, 007, 010, 011, 012};
tchar getch0()
{
int j;
tchar i;
#ifdef EUC
#ifdef NROFF
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);
}
int
pushback(b)
tchar *b;
{
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);
}
return (0);
}
int
cpushback(b)
char *b;
{
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);
}
return (0);
}
int
nextfile()
{
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);
}
int
popf()
{
int i;
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);
}
int
flushi()
{
if (nflush)
return (0);
ch = 0;
copyf++;
while (!nlflg) {
if (donef && (frame == stk))
break;
getch();
}
copyf--;
return (0);
}
int
getach()
{
tchar i;
int 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);
}
int
casenx()
{
lgf++;
skip();
getname();
nx++;
if (nmfi > 0)
nmfi--;
strcpy(mfiles[nmfi], nextf);
nextfile();
nlflg++;
ip = 0;
pendt = 0;
frame = stk;
nxf = frame + 1;
return (0);
}
int
getname()
{
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((int)nextf[0]);
}
int
caseso()
{
int i;
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++;
}
return (0);
}
int
caself() /* set line number and file */
{
int n;
if (skip())
return (0);
n = atoi();
cfline[ifi] = numtab[CD].val = n - 2;
if (skip())
return (0);
if (getname())
strcpy(cfname[ifi], nextf);
return (0);
}
int
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
return (0);
}
int
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--;
return (0);
}
int
getpn(a)
char *a;
{
int n, neg;
if (*a == 0)
return (0);
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();
return (0);
}
int
setrpt()
{
tchar i, j;
copyf++;
raw++;
i = getch0();
copyf--;
raw--;
if (i < 0 || cbits(j = getch0()) == RPT)
return (0);
i &= BYTEMASK;
while (i>0 && pbp < &pbbuf[NC-3]) {
i--;
*pbp++ = j;
}
return (0);
}
int
casedb()
{
#ifdef DEBUG
debug = 0;
if (skip())
return (0);
noscale++;
debug = max(atoi(), 0);
noscale = 0;
#endif /* DEBUG */
return (0);
}