void
casetr(int flag)
{
register int i, j;
tchar k;
lgf++;
skip(1);
while ((i = cbits(k=getch())) != '\n') {
if (ismot(k))
return;
if (ismot(k = getch()))
return;
if ((j = cbits(k)) == '\n')
j = ' ';
trtab[i] = j;
if (flag & 1)
trintab[j] = i;
else
trintab[j] = 0;
if (flag & 2)
trnttab[i] = i;
else
trnttab[i] = j;
}
}
void
casehcode(void)
{
tchar c, d;
int k;
lgf++;
if (skip(1))
return;
do {
c = getch();
if (skip(1))
break;
d = getch();
if (c && d && !ismot(c) && !ismot(d)) {
if ((k = cbits(c)) >= nhcode) {
hcode = realloc(hcode, (k+1) * sizeof *hcode);
memset(&hcode[nhcode], 0,
(k+1-nhcode) * sizeof *hcode);
nhcode = k+1;
}
hcode[k] = cbits(d);
}
} while (!skip(0));
}
void n_setwd(void)
{
int base, wid;
Tchar i;
int delim, emsz, k;
int savhp, savapts, savapts1, savfont, savfont1, savpts, savpts1;
base = numtabp[ST].val = wid = numtabp[CT].val = 0;
if (ismot(i = getch()))
return;
delim = cbits(i);
savhp = numtabp[HP].val;
numtabp[HP].val = 0;
savapts = apts;
savapts1 = apts1;
savfont = font;
savfont1 = font1;
savpts = pts;
savpts1 = pts1;
setwdf++;
while (cbits(i = getch()) != delim && !nlflg) {
k = width(i);
wid += k;
numtabp[HP].val += k;
if (!ismot(i)) {
emsz = (INCH * pts + 36) / 72;
} else if (isvmot(i)) {
k = absmot(i);
if (isnmot(i))
k = -k;
base -= k;
emsz = 0;
} else
continue;
if (base < numtabp[SB].val)
numtabp[SB].val = base;
if ((k = base + emsz) > numtabp[ST].val)
numtabp[ST].val = k;
}
setn1(wid, 0, (Tchar) 0);
numtabp[HP].val = savhp;
apts = savapts;
apts1 = savapts1;
font = savfont;
font1 = savfont1;
pts = savpts;
pts1 = savpts1;
mchbits();
setwdf = 0;
}
int
fetchrq(tchar *tp)
{
if (ismot(tp[0]) || !isxfunc(tp[0], RQ))
return 0;
return sbits(tp[0]);
}
void casefc(void)
{
int i;
Tchar j;
gchtab[fc] &= ~FCBIT;
fc = IMP;
padc = ' ';
if (skip() || ismot(j = getch()) || (i = cbits(j)) == '\n')
return;
fc = i;
gchtab[fc] |= FCBIT;
if (skip() || ismot(ch) || (ch = cbits(ch)) == fc)
return;
padc = ch;
}
Tchar gettch(void)
{
extern int c_isalnum;
Tchar i;
int j;
if (TROFF)
return getch();
i = getch();
j = cbits(i);
if (ismot(i) || fbits(i) != ulfont)
return(i);
if (cu) {
if (trtab[j] == ' ') {
setcbits(i, '_');
setfbits(i, FT); /* default */
}
return(i);
}
/* should test here for characters that ought to be underlined */
/* in the old nroff, that was the 200 bit on the width! */
/* for now, just do letters, digits and certain special chars */
if (j <= 127) {
if (!isalnum(j))
setfbits(i, FT);
} else {
if (j < c_isalnum)
setfbits(i, FT);
}
return(i);
}
int realcbits(Tchar c) /* return character bits, or MOTCH if motion */
{
if (ismot(c))
return MOTCH;
else
return c & 0xFFFF;
}
void setbra(void)
{
int k;
Tchar i, *j, dwn;
int cnt, delim;
Tchar brabuf[NC];
if (ismot(i = getch()))
return;
delim = cbits(i);
j = brabuf + 1;
cnt = 0;
if (NROFF)
dwn = (2 * t.Halfline) | MOT | VMOT;
else
dwn = EM | MOT | VMOT;
while ((k = cbits(i = getch())) != delim && k != '\n' && j <= brabuf + NC - 4) {
*j++ = i | ZBIT;
*j++ = dwn;
cnt++;
}
if (--cnt < 0)
return;
else if (!cnt) {
ch = *(j - 2);
return;
}
*j = 0;
if (NROFF)
*--j = *brabuf = (cnt * t.Halfline) | MOT | NMOT | VMOT;
else
*--j = *brabuf = (cnt * EM) / 2 | MOT | NMOT | VMOT;
*--j &= ~ZBIT;
pushback(brabuf);
}
int
setvline(void)
{
int i;
tchar c, rem, ver, neg;
int cnt, delim, v;
tchar vlbuf[NC];
tchar *vlp;
if (ismot(c = getch()))
return (0);
delim = cbits(c);
dfact = lss;
vflag++;
i = quant(atoi(), VERT);
dfact = 1;
if (!i) {
eat(delim);
vflag = 0;
return (0);
}
if ((cbits(c = getch())) == delim) {
c = BOXRULE | chbits; /* default box rule */
} else
getch();
c |= ZBIT;
neg = 0;
if (i < 0) {
i = -i;
neg = NMOT;
}
#ifdef NROFF
v = 2 * t.Halfline;
#endif
#ifndef NROFF
v = EM;
#endif
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;
return (0);
}
int
n_width(Tchar j)
{
int i, k;
if (iszbit(j))
return 0;
if (ismot(j)) {
if (isvmot(j))
return(0);
k = absmot(j);
if (isnmot(j))
k = -k;
return(k);
}
i = cbits(j);
if (i < ' ') {
if (i == '\b')
return(-widthp);
if (i == PRESC)
i = eschar;
else if (i == HX)
return(0);
}
if (i == ohc)
return(0);
i = trtab[i];
if (i < ' ')
return(0);
k = t.width[i] * t.Char;
widthp = k;
return(k);
}
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;
}
Tchar setz(void)
{
Tchar i;
if (!ismot(i = getch()))
i |= ZBIT;
return(i);
}
tchar
setz()
{
tchar i;
if (!ismot(i = getch()))
i |= ZBIT;
return (i);
}
int skip(void)
{
Tchar i;
while (cbits(i = getch()) == ' ' || ismot(i))
;
ch = i;
return(nlflg);
}
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);
}
tchar
setz(void)
{
tchar i;
if (!ismot(i = getch()) && cbits(i) != ohc)
i |= ZBIT;
return(i);
}
int
setline()
{
tchar *i;
tchar c;
int length;
int w, cnt, delim, rem, temp;
tchar linebuf[NC];
if (ismot(c = getch()))
return (0);
delim = cbits(c);
vflag = 0;
dfact = EM;
length = quant(atoi(), HOR);
dfact = 1;
if (!length) {
eat(delim);
return (0);
}
s0:
if ((cbits(c = getch())) == delim) {
ch = c;
c = RULE | chbits;
} else if (cbits(c) == FILLER)
goto s0;
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);
return (0);
}
void
setline(void)
{
register tchar *i;
tchar c, delim;
int length;
int w, cnt, rem, temp;
tchar linebuf[NC];
if (ismot(c = getch()))
return;
delim = c;
vflag = 0;
dfact = EM;
length = quant(hatoi(), HOR);
dfact = 1;
if (!length) {
eat(delim);
return;
}
s0:
if (c = getch(), issame(c, delim)) {
ch = c;
c = RULE | chbits;
} else if (cbits(c) == FILLER)
goto s0;
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 (connectchar(c))
*i++ = c | ZBIT;
*i++ = makem(rem);
}
if (cnt) {
*i++ = RPT;
*i++ = cnt;
*i++ = c;
}
s1:
*i++ = 0;
eat(delim);
pushback(linebuf);
}
int
chget(int c)
{
tchar i = 0;
charf++;
if (skip(0) || ismot(i = getch()) || cbits(i) == ' ' || cbits(i) == '\n') {
ch = i;
return(c);
} else
return(cbits(i));
}
void
setov(void)
{
register int j = 0, k;
tchar i, delim, o[NOV];
int w[NOV];
if (ismot(i = getch()))
return;
delim = i;
for (k = 0; (k < NOV) && (j = cbits(i = getch()), !issame(i, delim)) && (j != '\n'); k++) {
o[k] = i;
w[k] = width(i);
}
if (!issame(j, delim))
nodelim(delim);
o[k] = w[k] = 0;
if (o[0])
for (j = 1; j; ) {
j = 0;
for (k = 1; o[k] ; k++) {
if (w[k-1] < w[k]) {
j++;
i = w[k];
w[k] = w[k-1];
w[k-1] = i;
i = o[k];
o[k] = o[k-1];
o[k-1] = i;
}
}
}
else
return;
pbbuf[pbp++] = makem(w[0] / 2);
for (k = 0; o[k]; k++)
;
while (k>0) {
k--;
if (pbp >= pbsize-4)
if (growpbbuf() == NULL) {
errprint("no space for .ov");
done(2);
}
pbbuf[pbp++] = makem(-((w[k] + w[k+1]) / 2));
pbbuf[pbp++] = o[k];
}
}
static int
getpenalty(int *valp)
{
tchar c, delim;
if (ismot(delim = getch()))
return 0;
if (readpenalty(valp) == 0)
return 0;
c = getch();
if (!issame(c, delim)) {
nodelim(delim);
return 0;
}
return 1;
}
int
setov(void)
{
int j, k;
tchar i, o[NOV];
int delim, w[NOV];
if (ismot(i = getch()))
return (0);
delim = cbits(i);
for (k = 0; (k < NOV) && ((j = cbits(i = getch())) != delim) &&
(j != '\n'); k++) {
o[k] = i;
w[k] = width(i);
}
if (k >= NOV) {
k = NOV - 1;
}
o[k] = w[k] = 0;
if (o[0])
for (j = 1; j; ) {
j = 0;
for (k = 1; o[k]; k++) {
if (w[k-1] < w[k]) {
j++;
i = w[k];
w[k] = w[k-1];
w[k-1] = i;
i = o[k];
o[k] = o[k-1];
o[k-1] = i;
}
}
}
else
return (0);
*pbp++ = makem(w[0] / 2);
for (k = 0; o[k]; k++)
;
while (k > 0) {
k--;
*pbp++ = makem(-((w[k] + w[k+1]) / 2));
*pbp++ = o[k];
}
return (0);
}
static void
propchar(int *tp)
{
int c, *tpp;
tchar i;
if (skip(0)) {
*tp = IMP;
return;
}
tpp = tp;
do {
while (!ismot(c = cbits(i = getch())) &&
c != ' ' && c != '\n')
if (tpp < &tp[NSENT])
*tpp++ = c;
} while (!skip(0));
}
int
setbra(void)
{
int k;
tchar i, *j, dwn;
int cnt, delim;
tchar brabuf[NC];
if (ismot(i = getch()))
return (0);
delim = cbits(i);
j = brabuf + 1;
cnt = 0;
#ifdef NROFF
dwn = (2 * t.Halfline) | MOT | VMOT;
#endif
#ifndef NROFF
dwn = EM | MOT | VMOT;
#endif
while (((k = cbits(i = getch())) != delim) && (k != '\n') &&
(j <= (brabuf + NC - 4))) {
*j++ = i | ZBIT;
*j++ = dwn;
cnt++;
}
if (--cnt < 0)
return (0);
else if (!cnt) {
ch = *(j - 2);
return (0);
}
*j = 0;
#ifdef NROFF
*--j = *brabuf = (cnt * t.Halfline) | MOT | NMOT | VMOT;
#endif
#ifndef NROFF
*--j = *brabuf = (cnt * EM) / 2 | MOT | NMOT | VMOT;
#endif
*--j &= ~ZBIT;
pushback(brabuf);
return (0);
}
void
setbra(void)
{
register int k;
tchar i, *j, dwn, delim;
int cnt;
tchar brabuf[NC];
if (ismot(i = getch()))
return;
delim = i;
j = brabuf + 1;
cnt = 0;
#ifdef NROFF
dwn = sabsmot(2 * t.Halfline) | MOT | VMOT;
#endif
#ifndef NROFF
dwn = sabsmot((int)EM) | MOT | VMOT;
#endif
while ((k = cbits(i = getch()), !issame(delim, i)) && (k != '\n') && (j <= (brabuf + NC - 4))) {
*j++ = i | ZBIT;
*j++ = dwn;
cnt++;
}
if (!issame(i, delim))
nodelim(delim);
if (--cnt < 0)
return;
else if (!cnt) {
ch = *(j - 2);
return;
}
*j = 0;
#ifdef NROFF
*--j = *brabuf = sabsmot(cnt * t.Halfline) | MOT | NMOT | VMOT;
#endif
#ifndef NROFF
*--j = *brabuf = sabsmot((cnt * (int)EM) / 2) | MOT | NMOT | VMOT;
#endif
*--j &= ~ZBIT;
pushback(brabuf);
}
/*
* return 16-bit, ascii/alphabetic character, ignore chars with more bits,
* (internal names), spaces and special cookies (below 040).
* Leave STX ETX ENQ ACK and BELL in to maintain compatibility with v7 troff.
*/
getach(void)
{
Tchar i;
int j;
lgf++;
j = cbits(i = getch());
if (ismot(i)
|| j > SHORTMASK
|| (j <= 040 && j != 002 /*STX*/
&& j != 003 /*ETX*/
&& j != 005 /*ENQ*/
&& j != 006 /*ACK*/
&& j != 007)) { /*BELL*/
ch = i;
j = 0;
}
lgf--;
return j;
}
void setxon(void) /* \X'...' for copy through */
{
Tchar xbuf[NC];
Tchar *i;
Tchar c;
int delim, k;
if (ismot(c = getch()))
return;
delim = cbits(c);
i = xbuf;
*i++ = XON | chbits;
while ((k = cbits(c = getch())) != delim && k != '\n' && i < xbuf+NC-1) {
if (k == ' ')
setcbits(c, WORDSP);
*i++ = c | ZBIT;
}
*i++ = XOFF | chbits;
*i = 0;
pushback(xbuf);
}
void setov(void)
{
int j, k;
Tchar i, o[NOV+1];
int delim, w[NOV+1];
if (ismot(i = getch()))
return;
delim = cbits(i);
for (k = 0; k < NOV && (j = cbits(i = getch())) != delim && j != '\n'; k++) {
o[k] = i;
w[k] = width(i);
}
o[k] = w[k] = 0;
if (o[0])
for (j = 1; j; ) {
j = 0;
for (k = 1; o[k] ; k++) {
if (w[k-1] < w[k]) {
j++;
i = w[k];
w[k] = w[k-1];
w[k-1] = i;
i = o[k];
o[k] = o[k-1];
o[k-1] = i;
}
}
}
else
return;
*pbp++ = makem(w[0] / 2);
for (k = 0; o[k]; k++)
;
while (k>0) {
k--;
*pbp++ = makem(-((w[k] + w[k+1]) / 2));
*pbp++ = o[k];
}
}
void
outascii ( /* print i in best-guess ascii */
tchar i
)
{
int j = cbits(i);
int f = fbits(i);
int k;
if (j == FILLER)
return;
if (isadjspc(i))
return;
if (ismot(i)) {
oput(' ');
return;
}
if ((j < 0177 && j >= ' ') || j == '\n') {
oput(j);
return;
}
if (f == 0)
f = xfont;
if (j == DRAWFCN)
oputs("\\D");
else if (j == HYPHEN || j == MINUS)
oput('-');
else if (j == XON)
oputs("\\X");
else if (islig(i) && lgrevtab && lgrevtab[f] && lgrevtab[f][j]) {
for (k = 0; lgrevtab[f][j][k]; k++)
outmb(sfmask(i) | lgrevtab[f][j][k]);
} else if (j == WORDSP)
; /* nothing at all */
else if (j > 0177)
outmb(i);
}
Tchar getch0(void)
{
Tchar i;
again:
if (pbp > lastpbp)
i = *--pbp;
else if (ip) {
/* i = rbf(); */
i = rbf0(ip);
if (i == 0)
i = rbf();
else {
++ip;
if (pastend(ip)) {
--ip;
rbf();
}
}
} else {
if (donef || ndone)
done(0);
if (nx || 1) { /* BUG: was ibufp >= eibuf, so EOF test is wrong */
if (nfo < 0)
ERROR "in getch0, nfo = %d", nfo WARN;
if (nfo == 0) {
g0:
if (nextfile()) {
if (ip)
goto again;
}
}
nx = 0;
#ifdef UNICODE
if (MB_CUR_MAX > 1)
i = get1ch(ifile);
else
#endif /*UNICODE*/
i = getc(ifile);
if (i == EOF)
goto g0;
if (ip)
goto again;
}
if (i >= 040) /* zapped: && i < 0177 */
goto g4;
i = ifilt[i];
}
if (cbits(i) == IMP && !raw)
goto again;
if (i == 0 && !init && !raw) { /* zapped: || i == 0177 */
goto again;
}
g4:
if (ismot(i))
return i;
if (copyf == 0 && sfbits(i) == 0)
i |= chbits;
if (cbits(i) == eschar && !raw)
setcbits(i, ESC);
return(i);
}
