void newline(int a)
{
int i, j, nlss;
int opn;
nlss = 0;
if (a)
goto nl1;
if (dip != d) {
j = lss;
pchar1((Tchar)FLSS);
if (flss)
lss = flss;
i = lss + dip->blss;
dip->dnl += i;
pchar1((Tchar)i);
pchar1((Tchar)'\n');
lss = j;
dip->blss = flss = 0;
if (dip->alss) {
pchar1((Tchar)FLSS);
pchar1((Tchar)dip->alss);
pchar1((Tchar)'\n');
dip->dnl += dip->alss;
dip->alss = 0;
}
if (dip->ditrap && !dip->ditf && dip->dnl >= dip->ditrap && dip->dimac)
if (control(dip->dimac, 0)) {
trap++;
dip->ditf++;
}
return;
}
j = lss;
if (flss)
lss = flss;
nlss = dip->alss + dip->blss + lss;
numtabp[NL].val += nlss;
if (TROFF && ascii) {
dip->alss = dip->blss = 0;
}
pchar1((Tchar)'\n');
flss = 0;
lss = j;
if (numtabp[NL].val < pl)
goto nl2;
nl1:
ejf = dip->hnl = numtabp[NL].val = 0;
ejl = frame;
if (donef) {
if ((!nc && !wch) || ndone)
done1(0);
ndone++;
donef = 0;
if (frame == stk)
nflush++;
}
opn = numtabp[PN].val;
numtabp[PN].val++;
if (npnflg) {
numtabp[PN].val = npn;
npn = npnflg = 0;
}
nlpn:
if (numtabp[PN].val == pfrom) {
print++;
pfrom = -1;
} else if (opn == pto) {
print = 0;
opn = -1;
chkpn();
goto nlpn;
}
if (print)
ptpage(numtabp[PN].val); /* supposedly in a clean state so can pause */
if (stop && print) {
dpn++;
if (dpn >= stop) {
dpn = 0;
ptpause();
}
}
nl2:
trap = 0;
if (numtabp[NL].val == 0) {
if ((j = findn(0)) != NTRAP)
trap = control(mlist[j], 0);
} else if ((i = findt(numtabp[NL].val - nlss)) <= nlss) {
if ((j = findn1(numtabp[NL].val - nlss + i)) == NTRAP) {
flusho();
ERROR "Trap botch." WARN;
done2(-5);
}
trap = control(mlist[j], 0);
}
}
int
pchar(register tchar i)
{
register int j;
static int hx = 0; /* records if have seen HX */
static int xon = 0; /* records if have seen XON */
static int drawfcn = 0; /* records if have seen DRAWFCN */
if (hx) {
hx = 0;
j = absmot(i);
if (isnmot(i)) {
if (j > dip->blss)
dip->blss = j;
} else {
if (j > dip->alss)
dip->alss = j;
ralss = dip->alss;
}
return 1;
}
if (ismot(i)) {
pchar1(i);
return 1;
}
switch (j = cbits(i)) {
case 0:
case IMP:
case RIGHT:
case LEFT:
if (xflag) {
i = j = FILLER; /* avoid kerning in output routine */
goto dfl;
}
return 1;
case HX:
hx = 1;
if (xflag) {
i = j = FILLER; /* avoid kerning in output routine */
goto dfl;
}
return 1;
case XON:
xon = 1;
goto dfl;
case XOFF:
xon = 0;
goto dfl;
case DRAWFCN:
drawfcn = !drawfcn;
goto dfl;
case PRESC:
if (dip == &d[0])
j = eschar; /* fall through */
default:
dfl:
#ifndef NROFF
if (html) {
if (!xflag || !isdi(i)) {
setcbits(i, j >= NCHARS ? j :
tflg ? trnttab[j] : trtab[j]);
if (xon == 0 && drawfcn == 0 && i < NCHARS)
setcbits(i, ftrans(fbits(i),
cbits(i)));
}
} else
#endif
if (!xflag || !isdi(i)) {
setcbits(i, tflg ? trnttab[j] : trtab[j]);
if (xon == 0 && drawfcn == 0)
setcbits(i, ftrans(fbits(i), cbits(i)));
}
}
#ifdef NROFF
if (xon && xflag)
return 1;
#endif /* NROFF */
pchar1(i);
return 1;
}
