![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ni.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / troff|
Return to ni.c CVS log | Up to [Research Unix] / researchv9 / cmd / troff |
1.1 root 1: #include "tdef.h"
2:
3: /* You may want to change these names */
4:
5: #ifdef NROFF
6:
7: char termtab[NS] = "/usr/lib/term/tab."; /* term type added in ptinit() */
8: char fontdir[NS] = ""; /* not used */
9: char devname[20] = "37";
10:
11: #else
12:
13: char termtab[NS] = "/usr/lib/font"; /* rest added in ptinit() */
14: char fontdir[NS] = "/usr/lib/font"; /* rest added in casefp() */
15: char devname[20] = "202"; /* default typesetter */
16:
17: #endif
18:
19: char obuf[OBUFSZ]; /* characters collected here for typesetter output */
20: char *obufp = obuf;
21: struct numtab numtab[NN] = {
22: { PAIR('%', 0) },
23: { PAIR('n', 'l') },
24: { PAIR('y', 'r') },
25: { PAIR('h', 'p') },
26: { PAIR('c', 't') },
27: { PAIR('d', 'n') },
28: { PAIR('m', 'o') },
29: { PAIR('d', 'y') },
30: { PAIR('d', 'w') },
31: { PAIR('l', 'n') },
32: { PAIR('d', 'l') },
33: { PAIR('s', 't') },
34: { PAIR('s', 'b') },
35: { PAIR('c', '.') },
36: { PAIR('$', '$') },
37: };
38:
39:
40: int pto = 10000;
41: int pfrom = 1;
42: int print = 1;
43: char nextf[NS] = "/usr/lib/tmac/tmac.";
44: char mfiles[NMF][NS];
45: int nmfi = 0;
46: #ifndef NROFF
47: int oldbits = -1;
48: #endif
49: int init = 1;
50: int fc = IMP; /* field character */
51: int eschar = '\\';
52: #ifdef NROFF
53: int pl = 11*INCH;
54: int po = PO;
55: #else
56: int pl;
57: int po;
58: #endif
59: int dfact = 1;
60: int dfactd = 1;
61: int res = 1;
62: int smnt = 0; /* beginning of special fonts */
63: int ascii = ASCII;
64: int ptid = PTID;
65: int lg = LG;
66: int pnlist[NPN] = { -1 };
67:
68:
69: int *pnp = pnlist;
70: int npn = 1;
71: int npnflg = 1;
72: int dpn = -1;
73: int totout = 1;
74: int ulfont = ULFONT;
75: int tabch = TAB;
76: int ldrch = LEADER;
77:
78: extern caseds(), caseas(), casesp(), caseft(), caseps(), casevs(),
79: casenr(), caseif(), casepo(), casetl(), casetm(), casebp(), casech(),
80: casepn(), tbreak(), caseti(), casene(), casenf(), casece(), casefi(),
81: casein(), casell(), casens(), casemk(), casert(), caseam(),
82: casede(), casedi(), caseda(), casewh(), casedt(), caseit(), caserm(),
83: casern(), casead(), casers(), casena(), casepl(), caseta(), casetr(),
84: caseul(), caselt(), casenx(), caseso(), caseig(), casetc(), casefc(),
85: caseec(), caseeo(), caselc(), caseev(), caserd(), caseab(), casefl(),
86: done(), casess(), casefp(), casecs(), casebd(), caselg(), casehc(),
87: casehy(), casenh(), casenm(), casenn(), casesv(), caseos(), casels(),
88: casecc(), casec2(), caseem(), caseaf(), casehw(), casemc(), casepm(),
89: casecu(), casepi(), caserr(), caseuf(), caseie(), caseel(), casepc(),
90: caseht(), casecf(), casesy(), caself();
91:
92: #define C(a,b) {a, 0, b, 0}
93: struct contab contab[NM] = {
94: C(PAIR('d', 's'), caseds),
95: C(PAIR('a', 's'), caseas),
96: C(PAIR('s', 'p'), casesp),
97: C(PAIR('f', 't'), caseft),
98: C(PAIR('p', 's'), caseps),
99: C(PAIR('v', 's'), casevs),
100: C(PAIR('n', 'r'), casenr),
101: C(PAIR('i', 'f'), caseif),
102: C(PAIR('i', 'e'), caseie),
103: C(PAIR('e', 'l'), caseel),
104: C(PAIR('p', 'o'), casepo),
105: C(PAIR('t', 'l'), casetl),
106: C(PAIR('t', 'm'), casetm),
107: C(PAIR('b', 'p'), casebp),
108: C(PAIR('c', 'h'), casech),
109: C(PAIR('p', 'n'), casepn),
110: C(PAIR('b', 'r'), tbreak),
111: C(PAIR('t', 'i'), caseti),
112: C(PAIR('n', 'e'), casene),
113: C(PAIR('n', 'f'), casenf),
114: C(PAIR('c', 'e'), casece),
115: C(PAIR('f', 'i'), casefi),
116: C(PAIR('i', 'n'), casein),
117: C(PAIR('l', 'l'), casell),
118: C(PAIR('n', 's'), casens),
119: C(PAIR('m', 'k'), casemk),
120: C(PAIR('r', 't'), casert),
121: C(PAIR('a', 'm'), caseam),
122: C(PAIR('d', 'e'), casede),
123: C(PAIR('d', 'i'), casedi),
124: C(PAIR('d', 'a'), caseda),
125: C(PAIR('w', 'h'), casewh),
126: C(PAIR('d', 't'), casedt),
127: C(PAIR('i', 't'), caseit),
128: C(PAIR('r', 'm'), caserm),
129: C(PAIR('r', 'r'), caserr),
130: C(PAIR('r', 'n'), casern),
131: C(PAIR('a', 'd'), casead),
132: C(PAIR('r', 's'), casers),
133: C(PAIR('n', 'a'), casena),
134: C(PAIR('p', 'l'), casepl),
135: C(PAIR('t', 'a'), caseta),
136: C(PAIR('t', 'r'), casetr),
137: C(PAIR('u', 'l'), caseul),
138: C(PAIR('c', 'u'), casecu),
139: C(PAIR('l', 't'), caselt),
140: C(PAIR('n', 'x'), casenx),
141: C(PAIR('s', 'o'), caseso),
142: C(PAIR('i', 'g'), caseig),
143: C(PAIR('t', 'c'), casetc),
144: C(PAIR('f', 'c'), casefc),
145: C(PAIR('e', 'c'), caseec),
146: C(PAIR('e', 'o'), caseeo),
147: C(PAIR('l', 'c'), caselc),
148: C(PAIR('e', 'v'), caseev),
149: C(PAIR('r', 'd'), caserd),
150: C(PAIR('a', 'b'), caseab),
151: C(PAIR('f', 'l'), casefl),
152: C(PAIR('e', 'x'), done),
153: C(PAIR('s', 's'), casess),
154: C(PAIR('f', 'p'), casefp),
155: C(PAIR('c', 's'), casecs),
156: C(PAIR('b', 'd'), casebd),
157: C(PAIR('l', 'g'), caselg),
158: C(PAIR('h', 'c'), casehc),
159: C(PAIR('h', 'y'), casehy),
160: C(PAIR('n', 'h'), casenh),
161: C(PAIR('n', 'm'), casenm),
162: C(PAIR('n', 'n'), casenn),
163: C(PAIR('s', 'v'), casesv),
164: C(PAIR('o', 's'), caseos),
165: C(PAIR('l', 's'), casels),
166: C(PAIR('c', 'c'), casecc),
167: C(PAIR('c', '2'), casec2),
168: C(PAIR('e', 'm'), caseem),
169: C(PAIR('a', 'f'), caseaf),
170: C(PAIR('h', 'w'), casehw),
171: C(PAIR('m', 'c'), casemc),
172: C(PAIR('p', 'm'), casepm),
173: C(PAIR('p', 'i'), casepi),
174: C(PAIR('u', 'f'), caseuf),
175: C(PAIR('p', 'c'), casepc),
176: C(PAIR('h', 't'), caseht),
177: C(PAIR('c', 'f'), casecf),
178: C(PAIR('s', 'y'), casesy),
179: C(PAIR('l', 'f'), caself),
180: C(PAIR('!', 0), casesy), /* synonym for .sy */
181: };
182:
183:
184: tchar oline[OLNSIZE];
185:
186: /*
187: * troff environment block
188: */
189:
190: struct env env = {
191: /* int ics */ 0, /* insertion character space, set by .mc */
192: /* int sps */ 0,
193: /* int spacesz */ 0,
194: /* int lss */ 0,
195: /* int lss1 */ 0,
196: /* int ll */ 0,
197: /* int ll1 */ 0,
198: /* int lt */ 0,
199: /* int lt1 */ 0,
200: /* tchar ic */ 0, /* insertion character (= margin character) */
201: /* int icf */ 0, /* insertion character flag */
202: /* tchar chbits */ 0, /* size+font bits for current character */
203: /* tchar spbits */ 0,
204: /* tchar nmbits */ 0, /* size+font bits for number from .nm */
205: /* int apts */ PS, /* actual point size -- as requested by user */
206: /* int apts1 */ PS, /* need not match an existent size */
207: /* int pts */ PS, /* hence, this is the size that really exists */
208: /* int pts1 */ PS,
209: /* int font */ FT,
210: /* int font1 */ FT,
211: /* int ls */ 1,
212: /* int ls1 */ 1,
213: /* int ad */ 1,
214: /* int nms */ 1, /* .nm multiplier */
215: /* int ndf */ 1, /* .nm separator */
216: /* int fi */ 1,
217: /* int cc */ '.',
218: /* int c2 */ '\'',
219: /* int ohc */ OHC,
220: /* int tdelim */ IMP,
221: #ifdef NROFF
222: /* int hyf */ 0,
223: #else
224: /* int hyf */ 1,
225: #endif
226: /* int hyoff */ 0,
227: /* int un1 */ -1,
228: /* int tabc */ 0,
229: /* int dotc */ '.',
230: /* int adsp */ 0, /* add this much space to each padding point */
231: /* int adrem */ 0, /* excess space to add until it runs out */
232: /* int lastl */ 0, /* last text on current output line */
233: /* int nel */ 0, /* how much space left on current output line */
234: /* int admod */ 0, /* adjust mode */
235: /* tchar *wordp */ 0,
236: /* int spflg */ 0, /* probably to indicate space after punctuation needed */
237: /* tchar *linep */ 0,
238: /* tchar *wdend */ 0,
239: /* tchar *wdstart */ 0,
240: /* int wne */ 0,
241: /* int ne */ 0, /* how much space taken on current output line */
242: /* int nc */ 0, /* #characters (incl blank) on output line */
243: /* int nb */ 0,
244: /* int lnmod */ 0, /* line number mode, set by .nm */
245: /* int nwd */ 0, /* number of words on current output line */
246: /* int nn */ 0, /* from .nn command */
247: /* int ni */ 0, /* indent of .nm numbers, probably */
248: /* int ul */ 0,
249: /* int cu */ 0,
250: /* int ce */ 0,
251: /* int in */ 0, /* indent and previous value */
252: /* int in1 */ 0,
253: /* int un */ 0, /* unindent of left margin in some way */
254: /* int wch */ 0,
255: /* int pendt */ 0,
256: /* tchar *pendw */ (tchar *)0,
257: /* int pendnf */ 0,
258: /* int spread */ 0,
259: /* int it */ 0, /* input trap count */
260: /* int itmac */ 0,
261: /* int lnsize */ LNSIZE,
262: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.