void init2(void)
{
int i;
char buf[100];
for (i = NTRTAB; --i; )
trtab[i] = i;
trtab[UNPAD] = ' ';
iflg = 0;
obufp = obuf;
if (TROFF)
t_ptinit();
else
n_ptinit();
mchbits();
cvtime();
numtabp[PID].val = getpid();
numtabp[HP].val = init = 0;
numtabp[NL].val = -1;
nfo = 0;
copyf = raw = 0;
sprintf(buf, ".ds .T %s\n", devname);
cpushback(buf);
sprintf(buf, ".ds .P %s\n", DWBhomedir);
cpushback(buf);
numtabp[CD].val = -1; /* compensation */
nx = mflg;
frame = stk = (Stack *)setbrk(STACKSIZE);
dip = &d[0];
nxf = frame + 1;
for (i = 1; i < NEV; i++) /* propagate the environment */
envcopy(&env[i], &env[0]);
for (i = 0; i < NEV; i++) {
if ((env[i]._word._bufp = (Tchar *)calloc(WDSIZE, sizeof(Tchar))) == NULL) {
ERROR "not enough room for word buffers" WARN;
done2(1);
}
env[i]._word._size = WDSIZE;
if ((env[i]._line._bufp = (Tchar *)calloc(LNSIZE, sizeof(Tchar))) == NULL) {
ERROR "not enough room for line buffers" WARN;
done2(1);
}
env[i]._line._size = LNSIZE;
}
if ((oline = (Tchar *)calloc(OLNSIZE, sizeof(Tchar))) == NULL) {
ERROR "not enough room for line buffers" WARN;
done2(1);
}
olinep = oline;
olnsize = OLNSIZE;
blockinit();
}
static void
drawat(int x, int y, char *s) {
size_t l = 0;
char buf[100];
x -= po + in + ne;
y -= numtab[NL].val;
cpushback(".sp -1\n");
if (x) {
snprintf(buf, sizeof(buf), "\\h'%du'", x);
l = strlen(buf);
}
if (y) {
snprintf(buf + l, sizeof(buf) - l, "\\v'%du'", y);
l = strlen(buf);
}
snprintf(buf + l, sizeof(buf) - l, "%s\n", utf8 ? s : "+");
cpushback(buf);
}
main(int argc, char *argv[])
{
char *p;
int j;
Tchar i;
char buf[100];
buf[0] = '\0'; /* make sure it's empty (silly 3b2) */
progname = argv[0];
if ((p = strrchr(progname, '/')) == NULL)
p = progname;
else
p++;
DWBinit(progname, dwbpaths);
if (strcmp(p, "nroff") == 0)
TROFF = 0;
#ifdef UNICODE
alphabet = 128; /* unicode for plan 9 */
#endif /*UNICODE*/
mnspace();
nnspace();
mrehash();
nrehash();
numtabp[NL].val = -1;
while (--argc > 0 && (++argv)[0][0] == '-')
switch (argv[0][1]) {
case 'N': /* ought to be used first... */
TROFF = 0;
break;
case 'd':
fprintf(stderr, "troff/nroff version %s\n", Version);
break;
case 'F': /* switch font tables from default */
if (argv[0][2] != '\0') {
strcpy(termtab, &argv[0][2]);
strcpy(fontdir, &argv[0][2]);
} else {
argv++; argc--;
strcpy(termtab, argv[0]);
strcpy(fontdir, argv[0]);
}
break;
case 0:
goto start;
case 'i':
stdi++;
break;
case 'n':
npn = atoi(&argv[0][2]);
break;
case 'u': /* set emboldening amount */
bdtab[3] = atoi(&argv[0][2]);
if (bdtab[3] < 0 || bdtab[3] > 50)
bdtab[3] = 0;
break;
case 's':
if (!(stop = atoi(&argv[0][2])))
stop++;
break;
case 'r':
sprintf(buf + strlen(buf), ".nr %c %s\n",
argv[0][2], &argv[0][3]);
/* not yet cpushback(buf);*/
/* dotnr(&argv[0][2], &argv[0][3]); */
break;
case 'm':
if (mflg++ >= NMF) {
ERROR "Too many macro packages: %s", argv[0] WARN;
break;
}
strcpy(mfiles[nmfi], nextf);
strcat(mfiles[nmfi++], &argv[0][2]);
break;
case 'o':
getpn(&argv[0][2]);
break;
case 'T':
strcpy(devname, &argv[0][2]);
dotT++;
break;
case 'a':
ascii = 1;
break;
case 'h':
hflg++;
break;
case 'e':
eqflg++;
break;
case 'q':
quiet++;
save_tty();
break;
case 'V':
fprintf(stdout, "%croff: DWB %s\n",
TROFF ? 't' : 'n', DWBVERSION);
exit(0);
case 't':
if (argv[0][2] != '\0')
trace = trace1 = argv[0][2];
break; /* for the sake of compatibility */
default:
ERROR "unknown option %s", argv[0] WARN;
done(02);
}
start:
/*
* cpushback maintains a LIFO, so push pack the -r arguments
* in reverse order to maintain a FIFO in case someone did -rC1 -rC3
*/
if (buf[0]) {
char *p = buf;
while(*p++)
;
while(p > buf) {
while(strncmp(p, ".nr", 3) != 0)
p--;
cpushback(p);
*p-- = '\0';
}
}
argp = argv;
rargc = argc;
nmfi = 0;
init2();
setjmp(sjbuf);
loop:
copyf = lgf = nb = nflush = nlflg = 0;
if (ip && rbf0(ip) == 0 && ejf && frame->pframe <= ejl && dip == d) {
nflush++;
trap = 0;
eject((Stack *)0);
goto loop;
}
i = getch();
if (pendt)
goto Lt;
if ((j = cbits(i)) == XPAR) {
copyf++;
tflg++;
while (cbits(i) != '\n')
pchar(i = getch());
tflg = 0;
copyf--; /* pointless */
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)
numtabp[HP].val = 0;
goto loop;
}
void setn(void)
{
int i, j, f;
Tchar ii;
Uchar *p;
char buf[NTM]; /* for \n(.S */
f = nform = 0;
if ((i = cbits(ii = getach())) == '+')
f = 1;
else if (i == '-')
f = -1;
else if (ii) /* don't put it back if it's already back (thanks to jaap) */
ch = ii;
if (falsef)
f = 0;
if ((i = getsn()) == 0)
return;
p = unpair(i);
if (p[0] == '.')
switch (p[1]) {
case 's':
i = pts;
break;
case 'v':
i = lss;
break;
case 'f':
i = font;
break;
case 'p':
i = pl;
break;
case 't':
i = findt1();
break;
case 'o':
i = po;
break;
case 'l':
i = ll;
break;
case 'i':
i = in;
break;
case '$':
i = frame->nargs;
break;
case 'A':
i = ascii;
break;
case 'c':
i = numtabp[CD].val;
break;
case 'n':
i = lastl;
break;
case 'a':
i = ralss;
break;
case 'h':
i = dip->hnl;
break;
case 'd':
if (dip != d)
i = dip->dnl;
else
i = numtabp[NL].val;
break;
case 'u':
i = fi;
break;
case 'j':
i = ad + 2 * admod;
break;
case 'w':
i = widthp;
break;
case 'x':
i = nel;
break;
case 'y':
i = un;
break;
case 'T':
i = dotT;
break; /* -Tterm used in nroff */
case 'V':
i = VERT;
break;
case 'H':
i = HOR;
break;
case 'k':
i = ne;
break;
case 'P':
i = print;
break;
case 'L':
i = ls;
break;
case 'R': /* maximal # of regs that can be addressed */
i = 255*256 - regcnt;
break;
case 'z':
p = unpair(dip->curd);
*pbp++ = p[1]; /* watch order */
*pbp++ = p[0];
return;
case 'b':
i = bdtab[font];
break;
case 'F':
cpushback(cfname[ifi]);
return;
case 'S':
buf[0] = j = 0;
for( i = 0; tabtab[i] != 0 && i < NTAB; i++) {
if (i > 0)
buf[j++] = ' ';
sprintf(&buf[j], "%d", tabtab[i] & TABMASK);
j = strlen(buf);
if ( tabtab[i] & RTAB)
sprintf(&buf[j], "uR");
else if (tabtab[i] & CTAB)
sprintf(&buf[j], "uC");
else
sprintf(&buf[j], "uL");
j += 2;
}
cpushback(buf);
return;
default:
goto s0;
}
else {
s0:
if ((j = findr(i)) == -1)
i = 0;
else {
i = numtabp[j].val = numtabp[j].val + numtabp[j].inc * f;
nform = numtabp[j].fmt;
}
}
setn1(i, nform, (Tchar) 0);
}
setn()
{
register i, j;
register tchar ii;
int f;
f = nform = 0;
if ((i = cbits(ii = getach())) == '+')
f = 1;
else if (i == '-')
f = -1;
else
ch = ii;
if (falsef)
f = 0;
if ((i = getsn()) == 0)
return;
if ((i & 0177) == '.')
switch (i >> BYTE) {
case 's':
i = pts;
break;
case 'v':
i = lss;
break;
case 'f':
i = font;
break;
case 'p':
i = pl;
break;
case 't':
i = findt1();
break;
case 'o':
i = po;
break;
case 'l':
i = ll;
break;
case 'i':
i = in;
break;
case '$':
i = frame->nargs;
break;
case 'A':
i = ascii;
break;
case 'c':
i = numtab[CD].val;
break;
case 'n':
i = lastl;
break;
case 'a':
i = ralss;
break;
case 'h':
i = dip->hnl;
break;
case 'd':
if (dip != d)
i = dip->dnl;
else
i = numtab[NL].val;
break;
case 'u':
i = fi;
break;
case 'j':
i = ad + 2 * admod;
break;
case 'w':
i = widthp;
break;
case 'x':
i = nel;
break;
case 'y':
i = un;
break;
case 'T':
i = dotT;
break; /*-Tterm used in nroff*/
case 'V':
i = VERT;
break;
case 'H':
i = HOR;
break;
case 'k':
i = ne;
break;
case 'P':
i = print;
break;
case 'L':
i = ls;
break;
case 'R':
i = NN - regcnt;
break;
case 'z':
i = dip->curd;
*pbp++ = (i >> BYTE) & BYTEMASK;
*pbp++ = i & BYTEMASK;
return;
case 'b':
i = bdtab[font];
break;
case 'F':
cpushback(cfname[ifi]);
return;
default:
goto s0;
}
else {
void
setdraw (void) /* generate internal cookies for a drawing function */
{
int i, dx[NPAIR], dy[NPAIR], type;
tchar c, delim;
#ifndef NROFF
int hpos, vpos;
int j, k;
tchar drawbuf[NC];
#else
extern int tlp, utf8;
char drawbuf[NC];
#endif /* NROFF */
/* input is \D'f dx dy dx dy ... c' (or at least it had better be) */
/* this does drawing function f with character c and the */
/* specified dx,dy pairs interpreted as appropriate */
/* pairs are deltas from last point, except for radii */
/* l dx dy: line from here by dx,dy */
/* c x: circle of diameter x, left side here */
/* e x y: ellipse of diameters x,y, left side here */
/* a dx1 dy1 dx2 dy2:
ccw arc: ctr at dx1,dy1, then end at dx2,dy2 from there */
/* ~ dx1 dy1 dx2 dy2...:
spline to dx1,dy1 to dx2,dy2 ... */
/* f dx dy ...: f is any other char: like spline */
if (ismot(c = getch()))
return;
delim = c;
type = cbits(getch());
for (i = 0; i < NPAIR ; i++) {
do {
c = getch();
if (issame(c, delim)) goto argend;
} while (cbits(c) == ' ');
/* ought to pick up optional drawing character */
if (cbits(c) != ' ')
ch = c;
vflag = 0;
dfact = type == DRAWTHICKNESS ? 1 : EM;
dx[i] = quant(hatoi(), HOR);
if (dx[i] > MAXMOT)
dx[i] = MAXMOT;
else if (dx[i] < -MAXMOT)
dx[i] = -MAXMOT;
do {
c = getch();
if (issame(c, delim)) {
dy[i++] = 0;
goto argend;
}
} while (cbits(c) == ' ');
if (cbits(c) != ' ')
ch = c;
vflag = 1;
dfact = lss;
dy[i] = quant(hatoi(), VERT);
if (type == DRAWTHICKNESS)
dy[i] = 0;
else if (dy[i] > MAXMOT)
dy[i] = MAXMOT;
else if (dy[i] < -MAXMOT)
dy[i] = -MAXMOT;
}
argend:
dfact = 1;
vflag = 0;
#ifndef NROFF
drawbuf[0] = DRAWFCN | chbits | ZBIT;
drawbuf[1] = type | chbits | ZBIT;
drawbuf[2] = '.' | chbits | ZBIT; /* use default drawing character */
hpos = vpos = 0;
for (k = 0, j = 3; k < i; k++) {
drawbuf[j++] = MOT | ((dx[k] >= 0) ?
sabsmot(dx[k]) : (NMOT | sabsmot(-dx[k])));
drawbuf[j++] = MOT | VMOT | ((dy[k] >= 0) ?
sabsmot(dy[k]) : (NMOT | sabsmot(-dy[k])));
hpos += dx[k];
vpos += dy[k];
}
if (type == DRAWELLIPSE || type == DRAWELLIPSEFI) {
drawbuf[5] = drawbuf[4] | NMOT; /* so the net vertical is zero */
j = 6;
}
if (gflag && (type == DRAWPOLYGON || type == DRAWPOLYGONFI) &&
(hpos || vpos)) {
drawbuf[j++] = MOT | ((hpos < 0) ?
sabsmot(-hpos) : (NMOT | sabsmot(hpos)));
drawbuf[j++] = MOT | VMOT | ((vpos < 0) ?
sabsmot(-vpos) : (NMOT | sabsmot(vpos)));
}
drawbuf[j++] = DRAWFCN | chbits | ZBIT; /* marks end for ptout */
drawbuf[j] = 0;
pushback(drawbuf);
#else
switch (type) {
case 'l':
if (dx[0] && !dy[0]) {
if (dx[0] < 0) {
snprintf(drawbuf, sizeof(drawbuf), "\\h'%du'",
dx[0]);
cpushback(drawbuf);
}
snprintf(drawbuf, sizeof(drawbuf), "\\l'%du%s'",
dx[0], tlp ? "\\&-" : utf8 ? "\\U'2500'" : "");
cpushback(drawbuf);
} else if (dy[0] && !dx[0]) {
snprintf(drawbuf, sizeof(drawbuf), "\\L'%du%s'",
dy[0], tlp ? "|" : utf8 ? "\\U'2502'" : "");
cpushback(drawbuf);
}
}
#endif
}
