ref: a3f2d6d23ed1be69fee607bdedadc0438fd01305
dir: /sys/src/cmd/troff/n7.c/
#include "tdef.h" #include "fns.h" #include "ext.h" #ifdef STRICT /* not in ANSI or POSIX */ #define isascii(a) ((a) >= 0 && (a) <= 127) #endif #define GETCH gettch Tchar gettch(void); /* * troff7.c * * text */ int brflg; void tbreak(void) { int pad, k; Tchar *i, j; int resol; int un0 = un; trap = 0; if (nb) return; if (dip == d && numtabp[NL].val == -1) { newline(1); return; } if (!nc) { setnel(); if (!wch) return; if (pendw) getword(1); movword(); } else if (pendw && !brflg) { getword(1); movword(); } *linep = dip->nls = 0; if (NROFF && dip == d) horiz(po); if (lnmod) donum(); lastl = ne; if (brflg != 1) { totout = 0; } else if (ad) { if ((lastl = ll - un) < ne) lastl = ne; } if (admod && ad && (brflg != 2)) { lastl = ne; adsp = adrem = 0; if (admod == 1) un += quant(nel / 2, HOR); else if (admod == 2) un += nel; } totout++; brflg = 0; if (lastl + un > dip->maxl) dip->maxl = lastl + un; horiz(un); if (NROFF) { if (adrem % t.Adj) resol = t.Hor; else resol = t.Adj; } else resol = HOR; lastl = ne + (nwd-1) * adsp + adrem; for (i = line; nc > 0; ) { if ((cbits(j = *i++)) == ' ') { pad = 0; do { pad += width(j); nc--; } while ((cbits(j = *i++)) == ' '); i--; pad += adsp; --nwd; if (adrem) { if (adrem < 0) { pad -= resol; adrem += resol; } else if ((totout & 01) || adrem / resol >= nwd) { pad += resol; adrem -= resol; } } pchar((Tchar) WORDSP); horiz(pad); } else { pchar(j); nc--; } } if (ic) { if ((k = ll - un0 - lastl + ics) > 0) horiz(k); pchar(ic); } if (icf) icf++; else ic = 0; ne = nwd = 0; un = in; setnel(); newline(0); if (dip != d) { if (dip->dnl > dip->hnl) dip->hnl = dip->dnl; } else { if (numtabp[NL].val > dip->hnl) dip->hnl = numtabp[NL].val; } for (k = ls - 1; k > 0 && !trap; k--) newline(0); spread = 0; } void donum(void) { int i, nw; int lnv = numtabp[LN].val; nrbits = nmbits; nw = width('1' | nrbits); if (nn) { nn--; goto d1; } if (lnv % ndf) { numtabp[LN].val++; d1: un += nw * (nmwid + nms + ni); return; } i = 0; do { /* count digits in numtabp[LN].val */ i++; } while ((lnv /= 10) > 0); horiz(nw * (ni + max(nmwid-i, 0))); nform = 0; fnumb(numtabp[LN].val, pchar); un += nw * nms; numtabp[LN].val++; } void text(void) { Tchar i; static int spcnt; nflush++; numtabp[HP].val = 0; if ((dip == d) && (numtabp[NL].val == -1)) { newline(1); return; } setnel(); if (ce || !fi) { nofill(); return; } if (pendw) goto t4; if (pendt) if (spcnt) goto t2; else goto t3; pendt++; if (spcnt) goto t2; while ((cbits(i = GETCH())) == ' ') { spcnt++; numtabp[HP].val += sps; widthp = sps; } if (nlflg) { t1: nflush = pendt = ch = spcnt = 0; callsp(); return; } ch = i; if (spcnt) { t2: tbreak(); if (nc || wch) goto rtn; un += spcnt * sps; spcnt = 0; setnel(); if (trap) goto rtn; if (nlflg) goto t1; } t3: if (spread) goto t5; if (pendw || !wch) t4: if (getword(0)) goto t6; if (!movword()) goto t3; t5: if (nlflg) pendt = 0; adsp = adrem = 0; if (ad) { if (nwd == 1) adsp = nel; else adsp = nel / (nwd - 1); adsp = (adsp / HOR) * HOR; adrem = nel - adsp*(nwd-1); } brflg = 1; tbreak(); spread = 0; if (!trap) goto t3; if (!nlflg) goto rtn; t6: pendt = 0; ckul(); rtn: nflush = 0; } void nofill(void) { int j; Tchar i; if (!pendnf) { over = 0; tbreak(); if (trap) goto rtn; if (nlflg) { ch = nflush = 0; callsp(); return; } adsp = adrem = 0; nwd = 10000; } while ((j = (cbits(i = GETCH()))) != '\n') { if (j == ohc) continue; if (j == CONT) { pendnf++; nflush = 0; flushi(); ckul(); return; } j = width(i); widthp = j; numtabp[HP].val += j; storeline(i, j); } if (ce) { ce--; if ((i = quant(nel / 2, HOR)) > 0) un += i; } if (!nc) storeline((Tchar)FILLER, 0); brflg = 2; tbreak(); ckul(); rtn: pendnf = nflush = 0; } void callsp(void) { int i; if (flss) i = flss; else i = lss; flss = 0; casesp1(i); } void ckul(void) { if (ul && (--ul == 0)) { cu = 0; font = sfont; mchbits(); } if (it && --it == 0 && itmac) control(itmac, 0); } void storeline(Tchar c, int w) { int diff; if (linep >= line + lnsize - 2) { lnsize += LNSIZE; diff = linep - line; if (( line = (Tchar *)realloc((char *)line, lnsize * sizeof(Tchar))) != NULL) { if (linep && diff) linep = line + diff; } else { if (over) { return; } else { flusho(); ERROR "Line overflow." WARN; over++; *linep++ = LEFTHAND; w = width(LEFTHAND); nc++; c = '\n'; } } } *linep++ = c; ne += w; nel -= w; nc++; } void newline(int a) { int i, j, nlss; int opn; 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); } } findn1(int a) { int i, j; for (i = 0; i < NTRAP; i++) { if (mlist[i]) { if ((j = nlist[i]) < 0) j += pl; if (j == a) break; } } return(i); } void chkpn(void) { pto = *(pnp++); pfrom = pto>=0 ? pto : -pto; if (pto == -INT_MAX) { flusho(); done1(0); } if (pto < 0) { pto = -pto; print++; pfrom = 0; } } findt(int a) { int i, j, k; k = INT_MAX; if (dip != d) { if (dip->dimac && (i = dip->ditrap - a) > 0) k = i; return(k); } for (i = 0; i < NTRAP; i++) { if (mlist[i]) { if ((j = nlist[i]) < 0) j += pl; if ((j -= a) <= 0) continue; if (j < k) k = j; } } i = pl - a; if (k > i) k = i; return(k); } findt1(void) { int i; if (dip != d) i = dip->dnl; else i = numtabp[NL].val; return(findt(i)); } void eject(Stack *a) { int savlss; if (dip != d) return; ejf++; if (a) ejl = a; else ejl = frame; if (trap) return; e1: savlss = lss; lss = findt(numtabp[NL].val); newline(0); lss = savlss; if (numtabp[NL].val && !trap) goto e1; } movword(void) { int w; Tchar i, *wp; int savwch, hys; over = 0; wp = wordp; if (!nwd) { while (cbits(*wp++) == ' ') { wch--; wne -= sps; } wp--; } if (wne > nel && !hyoff && hyf && (!nwd || nel > 3 * sps) && (!(hyf & 02) || (findt1() > lss))) hyphen(wp); savwch = wch; hyp = hyptr; nhyp = 0; while (*hyp && *hyp <= wp) hyp++; while (wch) { if (hyoff != 1 && *hyp == wp) { hyp++; if (!wdstart || (wp > wdstart + 1 && wp < wdend && (!(hyf & 04) || wp < wdend - 1) && /* 04 => last 2 */ (!(hyf & 010) || wp > wdstart + 2))) { /* 010 => 1st 2 */ nhyp++; storeline((Tchar)IMP, 0); } } i = *wp++; w = width(i); wne -= w; wch--; storeline(i, w); } if (nel >= 0) { nwd++; return(0); /* line didn't fill up */ } if (TROFF) xbits((Tchar)HYPHEN, 1); hys = width((Tchar)HYPHEN); m1: if (!nhyp) { if (!nwd) goto m3; if (wch == savwch) goto m4; } if (*--linep != IMP) goto m5; if (!(--nhyp)) if (!nwd) goto m2; if (nel < hys) { nc--; goto m1; } m2: if ((i = cbits(*(linep - 1))) != '-' && i != EMDASH) { *linep = (*(linep - 1) & SFMASK) | HYPHEN; w = width(*linep); nel -= w; ne += w; linep++; } m3: nwd++; m4: wordp = wp; return(1); /* line filled up */ m5: nc--; w = width(*linep); ne -= w; nel += w; wne += w; wch++; wp--; goto m1; } void horiz(int i) { vflag = 0; if (i) pchar(makem(i)); } void setnel(void) { if (!nc) { linep = line; if (un1 >= 0) { un = un1; un1 = -1; } nel = ll - un; ne = adsp = adrem = 0; } } getword(int x) { int j, k; Tchar i, *wp; int noword; int obits; noword = 0; if (x) if (pendw) { *pendw = 0; goto rtn; } if (wordp = pendw) goto g1; hyp = hyptr; wordp = word; over = wne = wch = 0; hyoff = 0; obits = chbits; while (1) { /* picks up 1st char of word */ j = cbits(i = GETCH()); if (j == '\n') { wne = wch = 0; noword = 1; goto rtn; } if (j == ohc) { hyoff = 1; /* 1 => don't hyphenate */ continue; } if (j == ' ') { numtabp[HP].val += sps; widthp = sps; storeword(i, sps); continue; } break; } storeword(' ' | obits, sps); if (spflg) { storeword(' ' | obits, sps); spflg = 0; } g0: if (j == CONT) { pendw = wordp; nflush = 0; flushi(); return(1); } if (hyoff != 1) { if (j == ohc) { hyoff = 2; *hyp++ = wordp; if (hyp > hyptr + NHYP - 1) hyp = hyptr + NHYP - 1; goto g1; } if (((j == '-' || j == EMDASH)) && !(i & ZBIT)) /* zbit avoids \X */ if (wordp > word + 1) { hyoff = 2; *hyp++ = wordp + 1; if (hyp > hyptr + NHYP - 1) hyp = hyptr + NHYP - 1; } } j = width(i); numtabp[HP].val += j; storeword(i, j); g1: j = cbits(i = GETCH()); if (j != ' ') { static char *sentchar = ".?!"; /* sentence terminators */ if (j != '\n') goto g0; wp = wordp-1; /* handle extra space at end of sentence */ while (wp >= word) { j = cbits(*wp--); if (j=='"' || j=='\'' || j==')' || j==']' || j=='*' || j==DAGGER) continue; for (k = 0; sentchar[k]; k++) if (j == sentchar[k]) { spflg++; break; } break; } } *wordp = 0; numtabp[HP].val += sps; rtn: for (wp = word; *wp; wp++) { if (ismot(j)) break; /* drechsler */ j = cbits(*wp); if (j == ' ') continue; if (!(isascii(j) && isdigit(j)) && j != '-') break; } if (*wp == 0) /* all numbers, so don't hyphenate */ hyoff = 1; wdstart = 0; wordp = word; pendw = 0; *hyp++ = 0; setnel(); return(noword); } void storeword(Tchar c, int w) { Tchar *savp; int i; if (wordp >= word + wdsize - 2) { wdsize += WDSIZE; savp = word; if (( word = (Tchar *)realloc((char *)word, wdsize * sizeof(Tchar))) != NULL) { if (wordp) wordp = word + (wordp - savp); if (pendw) pendw = word + (pendw - savp); if (wdstart) wdstart = word + (wdstart - savp); if (wdend) wdend = word + (wdend - savp); for (i = 0; i < NHYP; i++) if (hyptr[i]) hyptr[i] = word + (hyptr[i] - savp); } else { if (over) { return; } else { flusho(); ERROR "Word overflow." WARN; over++; c = LEFTHAND; w = width(LEFTHAND); } } } widthp = w; wne += w; *wordp++ = c; wch++; } 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); }