OpenSolaris_b135/cmd/troff/n7.c
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License, Version 1.0 only
* (the "License"). You may not use this file except in compliance
* with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2003 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/*
* University Copyright- Copyright (c) 1982, 1986, 1988
* The Regents of the University of California
* All Rights Reserved
*
* University Acknowledgment- Portions of this document are derived from
* software developed by the University of California, Berkeley, and its
* contributors.
*/
#pragma ident "%Z%%M% %I% %E% SMI"
#ifdef EUC
#ifdef NROFF
#include <stdlib.h>
#include <widec.h>
#include <limits.h>
#endif /* NROFF */
#endif /* EUC */
#include "tdef.h"
#ifdef NROFF
#include "tw.h"
#endif
#ifdef NROFF
#define GETCH gettch
tchar gettch();
#endif
#ifndef NROFF
#define GETCH getch
#endif
/*
* troff7.c
*
* text
*/
#include <ctype.h>
#ifdef EUC
#ifdef NROFF
#include <wctype.h>
#endif /* NROFF */
#endif /* EUC */
#include "ext.h"
#ifdef EUC
#ifdef NROFF
char mbbuf2[MB_LEN_MAX + 1];
char *mbbuf2p = mbbuf2;
tchar mtbuf[MB_LEN_MAX + 1];
tchar *mtbufp;
int pendmb = 0;
wchar_t cwc, owc, wceoll;
#endif /* NROFF */
#endif /* EUC */
int brflg;
int
tbreak()
{
int pad, k;
tchar *i, j;
int resol = 0;
#ifdef EUC
#ifdef NROFF
tchar l;
#endif /* NROFF */
#endif /* EUC */
trap = 0;
if (nb)
return (0);
if (dip == d && numtab[NL].val == -1) {
newline(1);
return (0);
}
if (!nc) {
setnel();
if (!wch)
return (0);
if (pendw)
getword(1);
movword();
} else if (pendw && !brflg) {
getword(1);
movword();
}
*linep = dip->nls = 0;
#ifdef NROFF
if (dip == d)
horiz(po);
#endif
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);
#ifdef NROFF
if (adrem % t.Adj)
resol = t.Hor;
else
resol = t.Adj;
#else
resol = HOR;
#endif
adrem = (adrem / resol) * resol;
for (i = line; nc > 0; ) {
#ifndef EUC
if ((cbits(j = *i++)) == ' ') {
#else
#ifndef NROFF
if ((cbits(j = *i++)) == ' ') {
#else
if ((cbits(j = *i++) & ~MBMASK) == ' ') {
#endif /* NROFF */
#endif /* EUC */
pad = 0;
do {
pad += width(j);
nc--;
#ifndef EUC
} while ((cbits(j = *i++)) == ' ');
#else
#ifndef NROFF
} while ((cbits(j = *i++)) == ' ');
#else
} while ((cbits(j = *i++) & ~MBMASK) == ' ');
#endif /* NROFF */
#endif /* EUC */
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 - un - 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 (numtab[NL].val > dip->hnl)
dip->hnl = numtab[NL].val;
}
for (k = ls - 1; k > 0 && !trap; k--)
newline(0);
spread = 0;
return (0);
}
int
donum()
{
int i, nw;
extern int pchar();
nrbits = nmbits;
nw = width('1' | nrbits);
if (nn) {
nn--;
goto d1;
}
if (numtab[LN].val % ndf) {
numtab[LN].val++;
d1:
un += nw * (3 + nms + ni);
return (0);
}
i = 0;
if (numtab[LN].val < 100)
i++;
if (numtab[LN].val < 10)
i++;
horiz(nw * (ni + i));
nform = 0;
fnumb(numtab[LN].val, pchar);
un += nw * nms;
numtab[LN].val++;
return (0);
}
extern int logf;
int
text()
{
tchar i;
static int spcnt;
nflush++;
numtab[HP].val = 0;
if ((dip == d) && (numtab[NL].val == -1)) {
newline(1);
return (0);
}
setnel();
if (ce || !fi) {
nofill();
return (0);
}
if (pendw)
goto t4;
if (pendt)
if (spcnt)
goto t2;
else
goto t3;
pendt++;
if (spcnt)
goto t2;
while ((cbits(i = GETCH())) == ' ') {
spcnt++;
numtab[HP].val += sps;
widthp = sps;
}
if (nlflg) {
t1:
nflush = pendt = ch = spcnt = 0;
callsp();
return (0);
}
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;
return (0);
}
int
nofill()
{
int j;
tchar i;
if (!pendnf) {
over = 0;
tbreak();
if (trap)
goto rtn;
if (nlflg) {
ch = nflush = 0;
callsp();
return (0);
}
adsp = adrem = 0;
nwd = 10000;
}
while ((j = (cbits(i = GETCH()))) != '\n') {
if (j == ohc)
continue;
if (j == CONT) {
pendnf++;
nflush = 0;
flushi();
ckul();
return (0);
}
j = width(i);
widthp = j;
numtab[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;
return (0);
}
int
callsp()
{
int i;
if (flss)
i = flss;
else
i = lss;
flss = 0;
casesp(i);
return (0);
}
int
ckul()
{
if (ul && (--ul == 0)) {
cu = 0;
font = sfont;
mchbits();
}
if (it && (--it == 0) && itmac)
control(itmac, 0);
return (0);
}
int
storeline(c, w)
tchar c;
{
if (linep >= line + lnsize - 1) {
if (!over) {
flusho();
errprint(gettext("Line overflow."));
over++;
c = LEFTHAND;
w = -1;
goto s1;
}
return (0);
}
s1:
if (w == -1)
w = width(c);
ne += w;
nel -= w;
*linep++ = c;
nc++;
return (0);
}
int
newline(a)
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 (0);
}
j = lss;
if (flss)
lss = flss;
nlss = dip->alss + dip->blss + lss;
numtab[NL].val += nlss;
#ifndef NROFF
if (ascii) {
dip->alss = dip->blss = 0;
}
#endif
pchar1((tchar)'\n');
flss = 0;
lss = j;
if (numtab[NL].val < pl)
goto nl2;
nl1:
ejf = dip->hnl = numtab[NL].val = 0;
ejl = frame;
if (donef) {
if ((!nc && !wch) || ndone)
done1(0);
ndone++;
donef = 0;
if (frame == stk)
nflush++;
}
opn = numtab[PN].val;
numtab[PN].val++;
if (npnflg) {
numtab[PN].val = npn;
npn = npnflg = 0;
}
nlpn:
if (numtab[PN].val == pfrom) {
print++;
pfrom = -1;
} else if (opn == pto) {
print = 0;
opn = -1;
chkpn();
goto nlpn;
}
if (print)
newpage(numtab[PN].val); /* supposedly in a clean state so can pause */
if (stop && print) {
dpn++;
if (dpn >= stop) {
dpn = 0;
dostop();
}
}
nl2:
trap = 0;
if (numtab[NL].val == 0) {
if ((j = findn(0)) != NTRAP)
trap = control(mlist[j], 0);
} else if ((i = findt(numtab[NL].val - nlss)) <= nlss) {
if ((j = findn1(numtab[NL].val - nlss + i)) == NTRAP) {
flusho();
errprint(gettext("Trap botch."));
done2(-5);
}
trap = control(mlist[j], 0);
}
return (0);
}
int
findn1(a)
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);
}
int
chkpn()
{
pto = *(pnp++);
pfrom = pto>=0 ? pto : -pto;
if (pto == -32767) {
flusho();
done1(0);
}
if (pto < 0) {
pto = -pto;
print++;
pfrom = 0;
}
return (0);
}
int
findt(a)
int a;
{
int i, j, k;
k = 32767;
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);
}
int
findt1()
{
int i;
if (dip != d)
i = dip->dnl;
else
i = numtab[NL].val;
return(findt(i));
}
int
eject(a)
struct s *a;
{
int savlss;
if (dip != d)
return (0);
ejf++;
if (a)
ejl = a;
else
ejl = frame;
if (trap)
return (0);
e1:
savlss = lss;
lss = findt(numtab[NL].val);
newline(0);
lss = savlss;
if (numtab[NL].val && !trap)
goto e1;
return (0);
}
int
movword()
{
int w;
tchar i, *wp;
int savwch, hys;
over = 0;
wp = wordp;
if (!nwd) {
#ifndef EUC
while (cbits(i = *wp++) == ' ') {
#else
#ifndef NROFF
while (cbits(i = *wp++) == ' ') {
#else
while ((cbits(i = *wp++) & ~MBMASK) == ' ') {
#endif /* NROFF */
#endif /* EUC */
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 */
}
#ifndef NROFF
xbits((tchar)HYPHEN, 1);
#endif
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;
}
int
horiz(i)
int i;
{
vflag = 0;
if (i)
pchar(makem(i));
return (0);
}
int
setnel()
{
if (!nc) {
linep = line;
if (un1 >= 0) {
un = un1;
un1 = -1;
}
nel = ll - un;
ne = adsp = adrem = 0;
}
return (0);
}
int
getword(x)
int x;
{
int j, k;
tchar i, *wp;
int noword;
#ifdef EUC
#ifdef NROFF
wchar_t *wddelim;
char mbbuf3[MB_LEN_MAX + 1];
char *mbbuf3p;
int wbf, n;
tchar m;
#endif /* NROFF */
#endif /* EUC */
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;
#ifdef EUC
#ifdef NROFF
mtbufp = mtbuf;
if (pendmb) {
while(*mtbufp) {
switch(*mtbufp & MBMASK) {
case LASTOFMB:
case BYTE_CHR:
storeword(*mtbufp++, -1);
break;
default:
storeword(*mtbufp++, 0);
}
}
mtbufp = mtbuf;
pendmb = 0;
goto g1;
}
#endif /* NROFF */
#endif /* EUC */
while (1) { /* picks up 1st char of word */
j = cbits(i = GETCH());
#ifdef EUC
#ifdef NROFF
if (multi_locale)
if (collectmb(i))
continue;
#endif /* NROFF */
#endif /* EUC */
if (j == '\n') {
wne = wch = 0;
noword = 1;
goto rtn;
}
if (j == ohc) {
hyoff = 1; /* 1 => don't hyphenate */
continue;
}
if (j == ' ') {
numtab[HP].val += sps;
widthp = sps;
storeword(i, sps);
continue;
}
break;
}
#ifdef EUC
#ifdef NROFF
if (!multi_locale)
goto a0;
if (wddlm && iswprint(wceoll) && iswprint(cwc) &&
(!iswascii(wceoll) || !iswascii(cwc)) &&
!iswspace(wceoll) && !iswspace(cwc)) {
wddelim = (*wddlm)(wceoll, cwc, 1);
wceoll = 0;
if (*wddelim != ' ') {
if (!*wddelim) {
storeword(((*wdbdg)(wceoll, cwc, 1) < 3) ?
ZWDELIM(1) : ZWDELIM(2), 0);
} else {
while (*wddelim) {
if ((n = wctomb(mbbuf3, *wddelim++))
> 0) {
mbbuf3[n] = 0;
n--;
mbbuf3p = mbbuf3 + n;
while(n) {
m = *(mbbuf3p-- - n--) &
0xff | MIDDLEOFMB |
ZBIT;
storeword(m, 0);
}
m = *mbbuf3p & 0xff | LASTOFMB;
storeword(m, -1);
} else {
storeword(' ' | chbits, sps);
break;
}
}
}
spflg = 0;
goto g0;
}
}
a0:
#endif /* NROFF */
#endif /* EUC */
storeword(' ' | chbits, sps);
if (spflg) {
storeword(' ' | chbits, 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)
if (wordp > word + 1) {
hyoff = 2;
*hyp++ = wordp + 1;
if (hyp > (hyptr + NHYP - 1))
hyp = hyptr + NHYP - 1;
}
}
j = width(i);
numtab[HP].val += j;
#ifndef EUC
storeword(i, j);
#else
#ifndef NROFF
storeword(i, j);
#else
if (multi_locale) {
mtbufp = mtbuf;
while(*mtbufp) {
switch(*mtbufp & MBMASK) {
case LASTOFMB:
case BYTE_CHR:
storeword(*mtbufp++, j);
break;
default:
storeword(*mtbufp++, 0);
}
}
mtbufp = mtbuf;
} else {
storeword(i, j);
}
#endif /* NROFF */
#endif /* EUC */
g1:
j = cbits(i = GETCH());
#ifdef EUC
#ifdef NROFF
if (multi_locale)
if (collectmb(i))
goto g1;
#endif /* NROFF */
#endif /* EUC */
if (j != ' ') {
static char *sentchar = ".?!:"; /* sentence terminators */
if (j != '\n')
#ifdef EUC
#ifdef NROFF
if (!multi_locale)
#endif /* NROFF */
#endif /* EUC */
goto g0;
#ifdef EUC
#ifdef NROFF
else {
if (!wdbdg || (iswascii(cwc) && iswascii(owc)))
goto g0;
if ((wbf = (*wdbdg)(owc, cwc, 1)) < 5) {
pendmb++;
storeword((wbf < 3) ? ZWDELIM(1) :
ZWDELIM(2), 0);
*wordp = 0;
goto rtn;
} else goto g0;
}
#endif /* NROFF */
#endif /* EUC */
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;
}
}
#ifdef EUC
#ifdef NROFF
wceoll = owc;
#endif /* NROFF */
#endif /* EUC */
*wordp = 0;
numtab[HP].val += sps;
rtn:
for (wp = word; *wp; wp++) {
j = cbits(*wp);
if (j == ' ')
continue;
if (!ischar(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);
}
int
storeword(c, w)
tchar c;
int w;
{
if (wordp >= &word[WDSIZE - 3]) {
if (!over) {
flusho();
errprint(gettext("Word overflow."));
over++;
c = LEFTHAND;
w = -1;
goto s1;
}
return (0);
}
s1:
if (w == -1)
w = width(c);
widthp = w;
wne += w;
*wordp++ = c;
wch++;
return (0);
}
#ifdef NROFF
tchar gettch()
{
extern int c_isalnum;
tchar i;
int j;
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);
}
#endif
#ifdef EUC
#ifdef NROFF
int
collectmb(i)
tchar i;
{
int busy;
*mtbufp++ = i;
*mbbuf2p++ = i & BYTEMASK;
*mtbufp = *mbbuf2p = 0;
if (ismot(i)) {
mtbufp = mtbuf;
mbbuf2p = mbbuf2;
owc = 0;
cwc = 0;
return(busy = 0);
}
if ((i & MBMASK) == MIDDLEOFMB) {
if (mtbufp <= (mtbuf + MB_CUR_MAX)) {
busy = 1;
} else {
*(mtbufp - 1) &= ~MBMASK;
goto gotmb;
}
} else {
if ((i & MBMASK) == LASTOFMB)
*(mtbufp - 1) &= ~MBMASK;
gotmb:
mtbufp = mtbuf;
owc = cwc;
if (mbtowc(&cwc, mbbuf2, MB_CUR_MAX) <= 0) {
mtbufp = mtbuf;
while (*mtbufp) {
setcbits(*mtbufp, (*mtbufp & 0x1ff));
mtbufp++;
}
mtbufp = mtbuf;
}
mbbuf2p = mbbuf2;
busy = 0;
}
return(busy);
}
#endif /* NROFF */
#endif /* EUC */