home *** CD-ROM | disk | FTP | other *** search
- #include "tdef.h"
- char obuf[OBUFSZ];
- char *obufp = obuf;
- int r[NN] = {
- PAIR('%',0),
- PAIR('n','l'),
- PAIR('y','r'),
- PAIR('h','p'),
- PAIR('c','t'),
- PAIR('d','n'),
- PAIR('m','o'),
- PAIR('d','y'),
- PAIR('d','w'),
- PAIR('l','n'),
- PAIR('d','l'),
- PAIR('s','t'),
- PAIR('s','b'),
- PAIR('c','.')};
- int pto = 10000;
- int pfrom = 1;
- int print = 1;
- char nextf[NS] = "/usr/lib/tmac/tmac.xxxxx";
- int nfi = 19;
- #ifdef NROFF
- char termtab[NS] = "/usr/lib/term/tab37";
- int tti = 17;
- #endif
- #ifndef NROFF
- int oldbits = -1;
- #endif
- int init = 1;
- int fc = IMP;
- int eschar = '\\';
- int pl = 11*INCH;
- int po = PO;
- int dfact = 1;
- int dfactd = 1;
- int res = 1;
- int smnt = 4;
- int ascii = ASCII;
- int ptid = PTID;
- char ptname[] = "/dev/cat";
- int lg = LG;
- int pnlist[NPN] = {-1};
- int *pnp = pnlist;
- int npn = 1;
- int npnflg = 1;
- int xflg = 1;
- int dpn = -1;
- int totout = 1;
- int ulfont = 1;
- int ulbit = 1<<9;
- int tabch = TAB;
- int ldrch = LEADER;
- int xxx;
- extern caseds(), caseas(), casesp(), caseft(), caseps(), casevs(),
- casenr(), caseif(), casepo(), casetl(), casetm(), casebp(), casech(),
- casepn(), tbreak(), caseti(), casene(), casenf(), casece(), casefi(),
- casein(), caseli(), casell(), casens(), casemk(), casert(), caseam(),
- casede(), casedi(), caseda(), casewh(), casedt(), caseit(), caserm(),
- casern(), casead(), casers(), casena(), casepl(), caseta(), casetr(),
- caseul(), caselt(), casenx(), caseso(), caseig(), casetc(), casefc(),
- caseec(), caseeo(), caselc(), caseev(), caserd(), caseab(), casefl(),
- done(), casess(), casefp(), casecs(), casebd(), caselg(), casehc(),
- casehy(), casenh(), casenm(), casenn(), casesv(), caseos(), casels(),
- casecc(), casec2(), caseem(), caseaf(), casehw(), casemc(), casepm(),
- casecu(), casepi(), caserr(), caseuf(), caseie(), caseel(), casepc(),
- caseht();
- #ifndef NROFF
- extern casefz();
- #endif
- extern casecf();
- struct contab {
- int rq;
- /*
- union {
- */
- int (*f)();
- /*
- unsigned mx;
- }x;
- */
- }contab[NM]= {
- PAIR('d','s'),caseds,
- PAIR('a','s'),caseas,
- PAIR('s','p'),casesp,
- PAIR('f','t'),caseft,
- PAIR('p','s'),caseps,
- PAIR('v','s'),casevs,
- PAIR('n','r'),casenr,
- PAIR('i','f'),caseif,
- PAIR('i','e'),caseie,
- PAIR('e','l'),caseel,
- PAIR('p','o'),casepo,
- PAIR('t','l'),casetl,
- PAIR('t','m'),casetm,
- PAIR('b','p'),casebp,
- PAIR('c','h'),casech,
- PAIR('p','n'),casepn,
- PAIR('b','r'),tbreak,
- PAIR('t','i'),caseti,
- PAIR('n','e'),casene,
- PAIR('n','f'),casenf,
- PAIR('c','e'),casece,
- PAIR('f','i'),casefi,
- PAIR('i','n'),casein,
- PAIR('l','i'),caseli,
- PAIR('l','l'),casell,
- PAIR('n','s'),casens,
- PAIR('m','k'),casemk,
- PAIR('r','t'),casert,
- PAIR('a','m'),caseam,
- PAIR('d','e'),casede,
- PAIR('d','i'),casedi,
- PAIR('d','a'),caseda,
- PAIR('w','h'),casewh,
- PAIR('d','t'),casedt,
- PAIR('i','t'),caseit,
- PAIR('r','m'),caserm,
- PAIR('r','r'),caserr,
- PAIR('r','n'),casern,
- PAIR('a','d'),casead,
- PAIR('r','s'),casers,
- PAIR('n','a'),casena,
- PAIR('p','l'),casepl,
- PAIR('t','a'),caseta,
- PAIR('t','r'),casetr,
- PAIR('u','l'),caseul,
- PAIR('c','u'),casecu,
- PAIR('l','t'),caselt,
- PAIR('n','x'),casenx,
- PAIR('s','o'),caseso,
- PAIR('i','g'),caseig,
- PAIR('t','c'),casetc,
- PAIR('f','c'),casefc,
- PAIR('e','c'),caseec,
- PAIR('e','o'),caseeo,
- PAIR('l','c'),caselc,
- PAIR('e','v'),caseev,
- PAIR('r','d'),caserd,
- PAIR('a','b'),caseab,
- PAIR('f','l'),casefl,
- PAIR('e','x'),done,
- PAIR('s','s'),casess,
- PAIR('f','p'),casefp,
- PAIR('c','s'),casecs,
- PAIR('b','d'),casebd,
- PAIR('l','g'),caselg,
- PAIR('h','c'),casehc,
- PAIR('h','y'),casehy,
- PAIR('n','h'),casenh,
- PAIR('n','m'),casenm,
- PAIR('n','n'),casenn,
- PAIR('s','v'),casesv,
- PAIR('o','s'),caseos,
- PAIR('l','s'),casels,
- PAIR('c','c'),casecc,
- PAIR('c','2'),casec2,
- PAIR('e','m'),caseem,
- PAIR('a','f'),caseaf,
- PAIR('h','w'),casehw,
- PAIR('m','c'),casemc,
- PAIR('p','m'),casepm,
- #ifdef NROFF
- PAIR('p','i'),casepi,
- #endif
- PAIR('u','f'),caseuf,
- PAIR('p','c'),casepc,
- PAIR('h','t'),caseht,
- #ifndef NROFF
- PAIR('f','z'),casefz,
- #endif
- PAIR('c', 'f'),casecf,
- };
-
- /*
- troff environment block
- */
-
- int block = 0;
- int ics = ICS;
- int ic = 0;
- int icf = 0;
- int chbits = 0;
- int spbits = 0;
- int nmbits = 0;
- int apts = PS;
- int apts1 = PS;
- int pts = PS;
- int pts1 = PS;
- int font = FT;
- int font1 = FT;
- int sps = SPS;
- int spacesz = SS;
- int lss = VS;
- int lss1 = VS;
- int ls = 1;
- int ls1 = 1;
- int ll = LL;
- int ll1 = LL;
- int lt = LL;
- int lt1 = LL;
- int ad = 1;
- int nms = 1;
- int ndf = 1;
- int fi = 1;
- int cc = '.';
- int c2 = '\'';
- int ohc = OHC;
- int tdelim = IMP;
- int hyf = 1;
- int hyoff = 0;
- int un1 = -1;
- int tabc = 0;
- int dotc = '.';
- int adsp = 0;
- int adrem = 0;
- int lastl = 0;
- int nel = 0;
- int admod = 0;
- int *wordp = 0;
- int spflg = 0;
- int *linep = 0;
- int *wdend = 0;
- int *wdstart = 0;
- int wne = 0;
- int ne = 0;
- int nc = 0;
- int nb = 0;
- int lnmod = 0;
- int nwd = 0;
- int nn = 0;
- int ni = 0;
- int ul = 0;
- int cu = 0;
- int ce = 0;
- int in = 0;
- int in1 = 0;
- int un = 0;
- int wch = 0;
- int pendt = 0;
- int *pendw = 0;
- int pendnf = 0;
- int spread = 0;
- int it = 0;
- int itmac = 0;
- int lnsize = LNSIZE;
- int *hyptr[NHYP] = {0};
- int tabtab[NTAB] = {DTAB,DTAB*2,DTAB*3,DTAB*4,DTAB*5,DTAB*6,DTAB*7,DTAB*8,
- DTAB*9,DTAB*10,DTAB*11,DTAB*12,DTAB*13,DTAB*14,DTAB*15,0};
- int line[LNSIZE] = {0};
- int word[WDSIZE] = {0};
- int blockxxx[EVS-68-NHYP-NTAB-WDSIZE-LNSIZE] = {0};
- /*spare 5 words*/
- int oline[LNSIZE+1];
-