ref: dde3628d54073e0569bf565e6ec861e42cfa35f6
dir: /sys/src/cmd/troff/n5.c/
/*
* troff5.c
*
* misc processing requests
*/
#include "tdef.h"
#include "fns.h"
#include "ext.h"
int iflist[NIF];
int ifx;
int ifnum = 0; /* trying numeric expression for .if or .ie condition */
void casead(void)
{
int i;
ad = 1;
/* leave admod alone */
if (skip())
return;
switch (i = cbits(getch())) {
case 'r': /* right adj, left ragged */
admod = 2;
break;
case 'l': /* left adj, right ragged */
admod = ad = 0; /* same as casena */
break;
case 'c': /*centered adj*/
admod = 1;
break;
case 'b':
case 'n':
admod = 0;
break;
case '0':
case '2':
case '4':
ad = 0;
case '1':
case '3':
case '5':
admod = (i - '0') / 2;
}
}
void casena(void)
{
ad = 0;
}
void casefi(void)
{
tbreak();
fi = 1;
pendnf = 0;
}
void casenf(void)
{
tbreak();
fi = 0;
}
void casers(void)
{
dip->nls = 0;
}
void casens(void)
{
dip->nls++;
}
chget(int c)
{
Tchar i;
if (skip() || ismot(i = getch()) || cbits(i) == ' ' || cbits(i) == '\n') {
ch = i;
return(c);
} else
return cbits(i); /* was (i & BYTEMASK) */
}
void casecc(void)
{
cc = chget('.');
}
void casec2(void)
{
c2 = chget('\'');
}
void casehc(void)
{
ohc = chget(OHC);
}
void casetc(void)
{
tabc = chget(0);
}
void caselc(void)
{
dotc = chget(0);
}
void casehy(void)
{
int i;
hyf = 1;
if (skip())
return;
noscale++;
i = atoi0();
noscale = 0;
if (nonumb)
return;
hyf = max(i, 0);
}
void casenh(void)
{
hyf = 0;
}
max(int aa, int bb)
{
if (aa > bb)
return(aa);
else
return(bb);
}
void casece(void)
{
int i;
noscale++;
skip();
i = max(atoi0(), 0);
if (nonumb)
i = 1;
tbreak();
ce = i;
noscale = 0;
}
void casein(void)
{
int i;
if (skip())
i = in1;
else {
i = max(hnumb(&in), 0);
if (nonumb)
i = in1;
}
tbreak();
in1 = in;
in = i;
if (!nc) {
un = in;
setnel();
}
}
void casell(void)
{
int i;
if (skip())
i = ll1;
else {
i = max(hnumb(&ll), INCH / 10);
if (nonumb)
i = ll1;
}
ll1 = ll;
ll = i;
setnel();
}
void caselt(void)
{
int i;
if (skip())
i = lt1;
else {
i = max(hnumb(<), 0);
if (nonumb)
i = lt1;
}
lt1 = lt;
lt = i;
}
void caseti(void)
{
int i;
if (skip())
return;
i = max(hnumb(&in), 0);
tbreak();
un1 = i;
setnel();
}
void casels(void)
{
int i;
noscale++;
if (skip())
i = ls1;
else {
i = max(inumb(&ls), 1);
if (nonumb)
i = ls1;
}
ls1 = ls;
ls = i;
noscale = 0;
}
void casepo(void)
{
int i;
if (skip())
i = po1;
else {
i = max(hnumb(&po), 0);
if (nonumb)
i = po1;
}
po1 = po;
po = i;
if (TROFF & !ascii)
esc += po - po1;
}
void casepl(void)
{
int i;
skip();
if ((i = vnumb(&pl)) == 0)
pl = 11 * INCH; /*11in*/
else
pl = i;
if (numtabp[NL].val > pl)
numtabp[NL].val = pl;
}
void casewh(void)
{
int i, j, k;
lgf++;
skip();
i = vnumb((int *)0);
if (nonumb)
return;
skip();
j = getrq();
if ((k = findn(i)) != NTRAP) {
mlist[k] = j;
return;
}
for (k = 0; k < NTRAP; k++)
if (mlist[k] == 0)
break;
if (k == NTRAP) {
flusho();
ERROR "cannot plant trap." WARN;
return;
}
mlist[k] = j;
nlist[k] = i;
}
void casech(void)
{
int i, j, k;
lgf++;
skip();
if (!(j = getrq()))
return;
else
for (k = 0; k < NTRAP; k++)
if (mlist[k] == j)
break;
if (k == NTRAP)
return;
skip();
i = vnumb((int *)0);
if (nonumb)
mlist[k] = 0;
nlist[k] = i;
}
findn(int i)
{
int k;
for (k = 0; k < NTRAP; k++)
if ((nlist[k] == i) && (mlist[k] != 0))
break;
return(k);
}
void casepn(void)
{
int i;
skip();
noscale++;
i = max(inumb(&numtabp[PN].val), 0);
noscale = 0;
if (!nonumb) {
npn = i;
npnflg++;
}
}
void casebp(void)
{
int i;
Stack *savframe;
if (dip != d)
return;
savframe = frame;
skip();
if ((i = inumb(&numtabp[PN].val)) < 0)
i = 0;
tbreak();
if (!nonumb) {
npn = i;
npnflg++;
} else if (dip->nls)
return;
eject(savframe);
}
void casetm(void)
{
casetm1(0, stderr);
}
void casefm(void)
{
static struct fcache {
char *name;
FILE *fp;
} fcache[15];
int i;
if ( skip() || !getname()) {
ERROR "fm: missing filename" WARN;
return;
}
for (i = 0; i < 15 && fcache[i].fp != NULL; i++) {
if (strcmp(nextf, fcache[i].name) == 0)
break;
}
if (i >= 15) {
ERROR "fm: too many streams" WARN;
return;
}
if (fcache[i].fp == NULL) {
if( (fcache[i].fp = fopen(nextf, "w")) == NULL) {
ERROR "fm: cannot open %s", nextf WARN;
return;
}
fcache[i].name = strdupl(nextf);
}
casetm1(0, fcache[i].fp);
}
void casetm1(int ab, FILE *out)
{
int i, j, c;
char *p;
char tmbuf[NTM];
lgf++;
copyf++;
if (ab) {
if (skip())
ERROR "User Abort" WARN;
else {
extern int error;
int savtrac = trace;
i = trace = 0;
noscale++;
i = inumb(&trace);
noscale--;
if (i) {
error = i;
if (nlflg || skip())
ERROR "User Abort, exit code %d", i WARN;
}
trace = savtrac;
}
} else
skip();
for (i = 0; i < NTM - 2; ) {
if ((c = cbits(getch())) == '\n' || c == RIGHT)
break;
else if (c == MINUS) { /* special pleading for strange encodings */
tmbuf[i++] = '\\';
tmbuf[i++] = '-';
} else if (c == PRESC) {
tmbuf[i++] = '\\';
tmbuf[i++] = 'e';
} else if (c == FILLER) {
tmbuf[i++] = '\\';
tmbuf[i++] = '&';
} else if (c == UNPAD) {
tmbuf[i++] = '\\';
tmbuf[i++] = ' ';
} else if (c == OHC) {
tmbuf[i++] = '\\';
tmbuf[i++] = '%';
} else if (c >= ALPHABET) {
p = chname(c);
switch (*p) {
case MBchar:
sprintf(&tmbuf[i], p+1);
break;
case Number:
sprintf(&tmbuf[i], "\\N'%s'", p+1);
break;
case Troffchar:
if ((j = strlen(p+1)) == 2)
sprintf(&tmbuf[i], "\\(%s", p+1);
else
sprintf(&tmbuf[i], "\\C'%s'", p+1);
break;
default:
sprintf(&tmbuf[i]," %s? ", p);
break;
}
j = strlen(&tmbuf[i]);
i += j;
} else
tmbuf[i++] = c;
}
tmbuf[i] = 0;
if (ab) /* truncate output */
obufp = obuf; /* should be a function in n2.c */
flusho();
if (i)
fprintf(out, "%s\n", tmbuf);
fflush(out);
copyf--;
lgf--;
}
void casesp(void)
{
casesp1(0);
}
void casesp1(int a)
{
int i, j, savlss;
tbreak();
if (dip->nls || trap)
return;
i = findt1();
if (!a) {
skip();
j = vnumb((int *)0);
if (nonumb)
j = lss;
} else
j = a;
if (j == 0)
return;
if (i < j)
j = i;
savlss = lss;
if (dip != d)
i = dip->dnl;
else
i = numtabp[NL].val;
if ((i + j) < 0)
j = -i;
lss = j;
newline(0);
lss = savlss;
}
void casert(void)
{
int a, *p;
skip();
if (dip != d)
p = &dip->dnl;
else
p = &numtabp[NL].val;
a = vnumb(p);
if (nonumb)
a = dip->mkline;
if ((a < 0) || (a >= *p))
return;
nb++;
casesp1(a - *p);
}
void caseem(void)
{
lgf++;
skip();
em = getrq();
}
void casefl(void)
{
tbreak();
if (!ascii)
ptflush();
flusho();
}
void caseev(void)
{
int nxev;
if (skip()) {
e0:
if (evi == 0)
return;
nxev = evlist[--evi];
goto e1;
}
noscale++;
nxev = atoi0();
noscale = 0;
if (nonumb)
goto e0;
flushi();
if (nxev >= NEV || nxev < 0 || evi >= EVLSZ) {
flusho();
ERROR "cannot do .ev %d", nxev WARN;
if (error)
done2(040);
else
edone(040);
return;
}
evlist[evi++] = ev;
e1:
if (ev == nxev)
return;
ev = nxev;
envp = &env[ev];
}
void envcopy(Env *e1, Env *e2) /* copy env e2 to e1 */
{
*e1 = *e2; /* rumor hath that this fails on some machines */
}
void caseel(void)
{
if (--ifx < 0) {
ifx = 0;
iflist[0] = 0;
}
caseif1(2);
}
void caseie(void)
{
if (ifx >= NIF) {
ERROR "if-else overflow." WARN;
ifx = 0;
edone(040);
}
caseif1(1);
ifx++;
}
void caseif(void)
{
caseif1(0);
}
void caseif1(int x)
{
extern int falsef;
int notflag, true;
Tchar i;
if (x == 2) {
notflag = 0;
true = iflist[ifx];
goto i1;
}
true = 0;
skip();
if ((cbits(i = getch())) == '!') {
notflag = 1;
} else {
notflag = 0;
ch = i;
}
ifnum++;
i = atoi0();
ifnum = 0;
if (!nonumb) {
if (i > 0)
true++;
goto i1;
}
i = getch();
switch (cbits(i)) {
case 'e':
if (!(numtabp[PN].val & 01))
true++;
break;
case 'o':
if (numtabp[PN].val & 01)
true++;
break;
case 'n':
if (NROFF)
true++;
break;
case 't':
if (TROFF)
true++;
break;
case 'h':
case ' ':
break;
default:
true = cmpstr(i);
}
i1:
true ^= notflag;
if (x == 1)
iflist[ifx] = !true;
if (true) {
i2:
while ((cbits(i = getch())) == ' ')
;
if (cbits(i) == LEFT)
goto i2;
ch = i;
nflush++;
} else {
if (!nlflg) {
copyf++;
falsef++;
eatblk(0);
copyf--;
falsef--;
}
}
}
void eatblk(int inblk)
{
int cnt, i;
cnt = 0;
do {
if (ch) {
i = cbits(ch);
ch = 0;
} else
i = cbits(getch0());
if (i == ESC)
cnt++;
else {
if (cnt == 1)
switch (i) {
case '{': i = LEFT; break;
case '}': i = RIGHT; break;
case '\n': i = 'x'; break;
}
cnt = 0;
}
if (i == LEFT) eatblk(1);
} while ((!inblk && (i != '\n')) || (inblk && (i != RIGHT)));
if (i == '\n') {
nlflg++;
if (ip == 0)
numtabp[CD].val++;
}
}
cmpstr(Tchar c)
{
int j, delim;
Tchar i;
int val;
int savapts, savapts1, savfont, savfont1, savpts, savpts1;
Tchar string[1280];
Tchar *sp;
if (ismot(c))
return(0);
delim = cbits(c);
savapts = apts;
savapts1 = apts1;
savfont = font;
savfont1 = font1;
savpts = pts;
savpts1 = pts1;
sp = string;
while ((j = cbits(i = getch()))!=delim && j!='\n' && sp<&string[1280-1])
*sp++ = i;
if (sp >= string + 1280) {
ERROR "too-long string compare." WARN;
edone(0100);
}
if (nlflg) {
val = sp==string;
goto rtn;
}
*sp = 0;
apts = savapts;
apts1 = savapts1;
font = savfont;
font1 = savfont1;
pts = savpts;
pts1 = savpts1;
mchbits();
val = 1;
sp = string;
while ((j = cbits(i = getch())) != delim && j != '\n') {
if (*sp != i) {
eat(delim);
val = 0;
goto rtn;
}
sp++;
}
if (*sp)
val = 0;
rtn:
apts = savapts;
apts1 = savapts1;
font = savfont;
font1 = savfont1;
pts = savpts;
pts1 = savpts1;
mchbits();
return(val);
}
void caserd(void)
{
lgf++;
skip();
getname();
if (!iflg) {
if (quiet) {
if (NROFF) {
echo_off();
flusho();
}
fprintf(stderr, "\007"); /*bell*/
} else {
if (nextf[0]) {
fprintf(stderr, "%s:", nextf);
} else {
fprintf(stderr, "\007"); /*bell*/
}
}
}
collect();
tty++;
pushi(RD_OFFSET, PAIR('r','d'));
}
rdtty(void)
{
char onechar;
onechar = 0;
if (read(0, &onechar, 1) == 1) {
if (onechar == '\n')
tty++;
else
tty = 1;
if (tty != 3)
return(onechar);
}
tty = 0;
if (NROFF && quiet)
echo_on();
return(0);
}
void caseec(void)
{
eschar = chget('\\');
}
void caseeo(void)
{
eschar = 0;
}
void caseta(void)
{
int i, j, k;
tabtab[0] = nonumb = 0;
for (i = 0; ((i < (NTAB - 1)) && !nonumb); i++) {
if (skip())
break;
k = tabtab[max(i-1, 0)] & TABMASK;
if ((j = max(hnumb(&k), 0)) > TABMASK) {
ERROR "Tab too far away" WARN;
j = TABMASK;
}
tabtab[i] = j & TABMASK;
if (!nonumb)
switch (cbits(ch)) {
case 'C':
tabtab[i] |= CTAB;
break;
case 'R':
tabtab[i] |= RTAB;
break;
default: /*includes L*/
break;
}
nonumb = ch = 0;
}
if (!skip())
ERROR "Too many tab stops" WARN;
tabtab[i] = 0;
}
void casene(void)
{
int i, j;
skip();
i = vnumb((int *)0);
if (nonumb)
i = lss;
if (dip == d && numtabp[NL].val == -1) {
newline(1);
return;
}
if (i > (j = findt1())) {
i = lss;
lss = j;
dip->nls = 0;
newline(0);
lss = i;
}
}
void casetr(void)
{
int i, j;
Tchar k;
lgf++;
skip();
while ((i = cbits(k=getch())) != '\n') {
if (ismot(k))
return;
if (ismot(k = getch()))
return;
if ((j = cbits(k)) == '\n')
j = ' ';
trtab[i] = j;
}
}
void casecu(void)
{
cu++;
caseul();
}
void caseul(void)
{
int i;
noscale++;
skip();
i = max(atoi0(), 0);
if (nonumb)
i = 1;
if (ul && (i == 0)) {
font = sfont;
ul = cu = 0;
}
if (i) {
if (!ul) {
sfont = font;
font = ulfont;
}
ul = i;
}
noscale = 0;
mchbits();
}
void caseuf(void)
{
int i, j;
if (skip() || !(i = getrq()) || i == 'S' || (j = findft(i)) == -1)
ulfont = ULFONT; /*default underline position*/
else
ulfont = j;
if (NROFF && ulfont == FT)
ulfont = ULFONT;
}
void caseit(void)
{
int i;
lgf++;
it = itmac = 0;
noscale++;
skip();
i = atoi0();
skip();
if (!nonumb && (itmac = getrq()))
it = i;
noscale = 0;
}
void casemc(void)
{
int i;
if (icf > 1)
ic = 0;
icf = 0;
if (skip())
return;
ic = getch();
icf = 1;
skip();
i = max(hnumb((int *)0), 0);
if (!nonumb)
ics = i;
}
void casemk(void)
{
int i, j;
if (dip != d)
j = dip->dnl;
else
j = numtabp[NL].val;
if (skip()) {
dip->mkline = j;
return;
}
if ((i = getrq()) == 0)
return;
numtabp[findr(i)].val = j;
}
void casesv(void)
{
int i;
skip();
if ((i = vnumb((int *)0)) < 0)
return;
if (nonumb)
i = 1;
sv += i;
caseos();
}
void caseos(void)
{
int savlss;
if (sv <= findt1()) {
savlss = lss;
lss = sv;
newline(0);
lss = savlss;
sv = 0;
}
}
void casenm(void)
{
int i;
lnmod = nn = 0;
if (skip())
return;
lnmod++;
noscale++;
i = inumb(&numtabp[LN].val);
if (!nonumb)
numtabp[LN].val = max(i, 0);
getnm(&ndf, 1);
getnm(&nms, 0);
getnm(&ni, 0);
getnm(&nmwid, 3); /* really kludgy! */
noscale = 0;
nmbits = chbits;
}
/*
* .nm relies on the fact that illegal args are skipped; don't warn
* for illegality of these
*/
void getnm(int *p, int min)
{
int i;
int savtr = trace;
eat(' ');
if (skip())
return;
trace = 0;
i = atoi0();
if (nonumb)
return;
*p = max(i, min);
trace = savtr;
}
void casenn(void)
{
noscale++;
skip();
nn = max(atoi0(), 1);
noscale = 0;
}
void caseab(void)
{
casetm1(1, stderr);
done3(0);
}
/* nroff terminal handling has been pretty well excised */
/* as part of the merge with troff. these are ghostly remnants, */
/* called, but doing nothing. restore them at your peril. */
void save_tty(void) /*save any tty settings that may be changed*/
{
}
void restore_tty(void) /*restore tty settings from beginning*/
{
}
void set_tty(void)
{
}
void echo_off(void) /*turn off ECHO for .rd in "-q" mode*/
{
}
void echo_on(void) /*restore ECHO after .rd in "-q" mode*/
{
}