void n_casebd(void)
{
int i, j, k;
k = 0;
bd0:
if (skip() || !(i = getrq()) || (j = findft(i)) == -1) {
if (k)
goto bd1;
else
return;
}
if (j == smnt) {
k = smnt;
goto bd0;
}
if (k) {
sbold = j;
j = k;
}
bd1:
skip();
noscale++;
bdtab[j] = atoi0();
noscale = 0;
}
void setvline(void)
{
int i;
Tchar c, rem, ver, neg;
int cnt, delim, v;
Tchar vlbuf[NC];
Tchar *vlp;
if (ismot(c = getch()))
return;
delim = cbits(c);
dfact = lss;
vflag++;
i = quant(atoi0(), VERT);
dfact = 1;
if (!i) {
eat(delim);
vflag = 0;
return;
}
if ((cbits(c = getch())) == delim) {
c = BOXRULE | chbits; /*default box rule*/
} else
getch();
c |= ZBIT;
neg = 0;
if (i < 0) {
i = -i;
neg = NMOT;
}
if (NROFF)
v = 2 * t.Halfline;
else {
v = EM;
if (v < VERT) /* ATT EVK hack: Erik van Konijnenburg, */
v = VERT; /* hvlpb!evkonij, ATT NSI Hilversum, Holland */
}
cnt = i / v;
rem = makem(i % v) | neg;
ver = makem(v) | neg;
vlp = vlbuf;
if (!neg)
*vlp++ = ver;
if (absmot(rem) != 0) {
*vlp++ = c;
*vlp++ = rem;
}
while (vlp < vlbuf + NC - 3 && cnt--) {
*vlp++ = c;
*vlp++ = ver;
}
*(vlp - 2) &= ~ZBIT;
if (!neg)
vlp--;
*vlp = 0;
pushback(vlbuf);
vflag = 0;
}
static int
warn1(void)
{
char name[NC];
int n, sign;
size_t i;
tchar c;
switch (cbits(c = getch())) {
case '-':
c = getch();
sign = -1;
break;
case '+':
c = getch();
sign = 1;
break;
default:
sign = 0;
break;
case 0:
return 1;
}
ch = c;
n = atoi0();
if ((i = cbits(ch)) != 0 && i != ' ' && i != '\n') {
if (c != ch) {
while (getach());
errprint("illegal number, char %c", i);
return 1;
}
for (i = 0; i < sizeof name - 2; i++) {
if ((c = getach()) == 0)
break;
name[i] = c;
}
name[i] = 0;
for (i = 0; warnnames[i].s; i++)
if (strcmp(name, warnnames[i].s) == 0) {
n = warnnames[i].n;
break;
}
if (warnnames[i].s == NULL) {
errprint("unknown warning category %s", name);
return 1;
}
}
switch (sign) {
case 1:
warn |= n;
break;
case -1:
warn &= ~n;
break;
default:
warn = n;
}
return 0;
}
void setline(void)
{
Tchar *i;
Tchar c;
int length;
int j, w, cnt, delim, rem, temp;
Tchar linebuf[NC];
if (ismot(c = getch()))
return;
delim = cbits(c);
vflag = 0;
dfact = EM;
length = quant(atoi0(), HOR);
dfact = 1;
if (!length) {
eat(delim);
return;
}
s0:
if ((j = cbits(c = getch())) == delim || j == '\n') {
ch = c;
c = RULE | chbits;
} else if (cbits(c) == FILLER)
goto s0;
w = width(c);
if (w <= 0) {
ERROR "zero-width underline character ignored" WARN;
c = RULE | chbits;
w = width(c);
}
i = linebuf;
if (length < 0) {
*i++ = makem(length);
length = -length;
}
if (!(cnt = length / w)) {
*i++ = makem(-(temp = ((w - length) / 2)));
*i++ = c;
*i++ = makem(-(w - length - temp));
goto s1;
}
if (rem = length % w) {
if (cbits(c) == RULE || cbits(c) == UNDERLINE || cbits(c) == ROOTEN)
*i++ = c | ZBIT;
*i++ = makem(rem);
}
if (cnt) {
*i++ = RPT;
*i++ = cnt;
*i++ = c;
}
s1:
*i = 0;
eat(delim);
pushback(linebuf);
}
int32_t ckph(void)
{
Tchar i;
int32_t j;
if (cbits(i = getch()) == '(')
j = atoi0();
else {
j = atoi1(i);
}
return(j);
}
void
getnm(int *p, int min)
{
register int i;
eat(' ');
if (skip(0))
return;
i = atoi0();
if (nonumb)
return;
*p = max(i, min);
}
void caself(void) /* set line number and file */
{
int n;
if (skip())
return;
n = atoi0();
if (!nonumb)
cfline[ifi] = numtabp[CD].val = n - 1;
if (!skip())
if (getname()) { /* eats '\n' ? */
strcpy(cfname[ifi], nextf);
if (!nonumb)
numtabp[CD].val--;
}
}
Tchar n_mot(void)
{
int j, n;
Tchar i;
j = HOR;
getch(); /*eat delim*/
if ((n = atoi0())) {
if (vflag)
j = VERT;
i = makem(quant(n, j));
} else
i = 0;
getch();
vflag = 0;
dfact = 1;
return(i);
}
Tchar n_xlss(void)
{
/* stores \x'...' into
* two successive Tchars.
* the first contains HX, the second the value,
* encoded as a vertical motion.
* decoding is done in n2.c by pchar().
*/
int i;
getch();
dfact = lss;
i = quant(atoi0(), VERT);
dfact = 1;
getch();
if (i >= 0)
*pbp++ = MOT | VMOT | i;
else
*pbp++ = MOT | VMOT | NMOT | -i;
return(HX);
}
int inumb(int *n)
{
int i, j, f;
Tchar ii;
f = 0;
if (n) {
if ((j = cbits(ii = getch())) == '+')
f = 1;
else if (j == '-')
f = -1;
else
ch = ii;
}
i = atoi0();
if (n && f)
i = *n + f * i;
i = quant(i, res);
vflag = 0;
res = dfactd = dfact = 1;
if (nonumb)
i = 0;
return(i);
}
/*
* .nr request; if tracing, don't check optional
* 2nd argument because tbl generates .in 1.5n
*/
void casenr(void)
{
int i, j;
int savtr = trace;
lgf++;
skip();
if ((i = findr(getrq())) == -1)
goto rtn;
skip();
j = inumb(&numtabp[i].val);
if (nonumb)
goto rtn;
numtabp[i].val = j;
skip();
trace = 0;
j = atoi0(); /* BUG??? */
trace = savtr;
if (nonumb)
goto rtn;
numtabp[i].inc = j;
rtn:
return;
}
int32_t atoi0(void)
{
int c, k, cnt;
Tchar ii;
int32_t i, acc;
acc = 0;
nonumb = 0;
cnt = -1;
a0:
cnt++;
ii = getch();
c = cbits(ii);
switch (c) {
default:
ch = ii;
if (cnt)
break;
case '+':
i = ckph();
if (nonumb)
break;
acc += i;
goto a0;
case '-':
i = ckph();
if (nonumb)
break;
acc -= i;
goto a0;
case '*':
i = ckph();
if (nonumb)
break;
acc *= i;
goto a0;
case '/':
i = ckph();
if (nonumb)
break;
if (i == 0) {
flusho();
ERROR "divide by zero." WARN;
acc = 0;
} else
acc /= i;
goto a0;
case '%':
i = ckph();
if (nonumb)
break;
acc %= i;
goto a0;
case '&': /*and*/
i = ckph();
if (nonumb)
break;
if ((acc > 0) && (i > 0))
acc = 1;
else
acc = 0;
goto a0;
case ':': /*or*/
i = ckph();
if (nonumb)
break;
if ((acc > 0) || (i > 0))
acc = 1;
else
acc = 0;
goto a0;
case '=':
if (cbits(ii = getch()) != '=')
ch = ii;
i = ckph();
if (nonumb) {
acc = 0;
break;
}
if (i == acc)
acc = 1;
else
acc = 0;
goto a0;
case '>':
k = 0;
if (cbits(ii = getch()) == '=')
k++;
else
ch = ii;
i = ckph();
if (nonumb) {
acc = 0;
break;
}
if (acc > (i - k))
acc = 1;
else
acc = 0;
goto a0;
case '<':
k = 0;
if (cbits(ii = getch()) == '=')
k++;
else
ch = ii;
i = ckph();
if (nonumb) {
acc = 0;
break;
}
if (acc < (i + k))
acc = 1;
else
acc = 0;
goto a0;
case ')':
break;
case '(':
acc = atoi0();
goto a0;
}
return(acc);
}
void
caseif(int x)
{
extern int falsef;
register int notflag, true;
tchar i, j;
enum warn w = warn;
int flt = 0;
if (x == 3)
goto i2;
if (x == 2) {
notflag = 0;
true = iflist ? iflist[ifx] : 0;
goto i1;
}
true = 0;
skip(1);
if ((cbits(i = getch())) == '!') {
notflag = 1;
if (xflag == 0)
/*EMPTY*/;
else if ((cbits(i = getch())) == 'f')
flt = 1;
else
ch = i;
} else if (xflag && cbits(i) == 'f') {
flt = 1;
notflag = 0;
} else {
notflag = 0;
ch = i;
}
if (flt)
i = atof0() > 0;
else
i = (int)atoi0();
if (!nonumb) {
if (i > 0)
true++;
goto i1;
}
i = getch();
switch (cbits(i)) {
case 'e':
if (!(numtab[PN].val & 01))
true++;
break;
case 'o':
if (numtab[PN].val & 01)
true++;
break;
#ifdef NROFF
case 'n':
true++;
case 't':
#endif
#ifndef NROFF
case 't':
true++;
case 'n':
#endif
break;
case 'c':
if (xflag == 0)
goto dfl;
warn &= ~WARN_CHAR;
tryglf++;
if (!skip(1)) {
j = getch();
true = !ismot(j) && cbits(j) && cbits(j) != ' ';
}
tryglf--;
warn = w;
break;
case 'r':
case 'd':
if (xflag == 0)
goto dfl;
warn &= ~(WARN_MAC|WARN_SPACE|WARN_REG);
if (!skip(1)) {
j = getrq(2);
true = (cbits(i) == 'r' ?
usedr(j) != NULL : findmn(j) != NULL);
}
warn = w;
break;
case ' ':
break;
default:
dfl: true = cmpstr(i);
}
i1:
true ^= notflag;
if (x == 1) {
if (ifx >= NIF)
growiflist();
iflist[ifx] = !true;
}
if (true) {
if (frame->loopf & LOOP_EVAL) {
if (nonumb)
goto i3;
frame->loopf &= ~LOOP_EVAL;
frame->loopf |= LOOP_NEXT;
}
i2:
while ((cbits(i = getch())) == ' ')
;
if (cbits(i) == LEFT)
goto i2;
ch = i;
nflush++;
} else {
i3:
if (frame->loopf & LOOP_EVAL)
frame->loopf = LOOP_FREE;
copyf++;
falsef++;
eatblk(0);
copyf--;
falsef--;
}
}
void setdraw(void) /* generate internal cookies for a drawing function */
{
int i, j, k, dx[NPAIR], dy[NPAIR], delim, type;
Tchar c, drawbuf[NC];
int drawch = '.'; /* character to draw with */
/* 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 ... */
/* b x c:
built-up character of type c, ht x */
/* f dx dy ...: f is any other char: like spline */
if (ismot(c = getch()))
return;
delim = cbits(c);
numerr.escarg = type = cbits(getch());
if (type == '~') /* head off the .tr ~ problem */
type = 's';
for (i = 0; i < NPAIR ; i++) {
skip();
vflag = 0;
dfact = EM;
dx[i] = quant(atoi0(), HOR);
if (dx[i] > MAXMOT)
dx[i] = MAXMOT;
else if (dx[i] < -MAXMOT)
dx[i] = -MAXMOT;
skip();
if (type == 'c') {
dy[i] = 0;
goto eat;
}
vflag = 1;
dfact = lss;
dy[i] = quant(atoi0(), VERT);
if (dy[i] > MAXMOT)
dy[i] = MAXMOT;
else if (dy[i] < -MAXMOT)
dy[i] = -MAXMOT;
eat:
if (cbits(c = getch()) != ' ') { /* must be the end */
if (cbits(c) != delim) {
drawch = cbits(c);
getch();
}
i++;
break;
}
}
dfact = 1;
vflag = 0;
if (TROFF) {
drawbuf[0] = DRAWFCN | chbits | ZBIT;
drawbuf[1] = type | chbits | ZBIT;
drawbuf[2] = drawch | chbits | ZBIT;
for (k = 0, j = 3; k < i; k++) {
drawbuf[j++] = MOT | ((dx[k] >= 0) ? dx[k] : (NMOT | -dx[k]));
drawbuf[j++] = MOT | VMOT | ((dy[k] >= 0) ? dy[k] : (NMOT | -dy[k]));
}
if (type == DRAWELLIPSE) {
drawbuf[5] = drawbuf[4] | NMOT; /* so the net vertical is zero */
j = 6;
} else if (type == DRAWBUILD) {
drawbuf[4] = drawbuf[3] | NMOT; /* net horizontal motion is zero */
drawbuf[2] &= ~ZBIT; /* width taken from drawing char */
j = 5;
}
drawbuf[j++] = DRAWFCN | chbits | ZBIT; /* marks end for ptout */
drawbuf[j] = 0;
pushback(drawbuf);
}
}
