2 5cedca1b 2004-05-15 devnull * troff3.c
4 5cedca1b 2004-05-15 devnull * macro and string routines, storage allocation
7 5cedca1b 2004-05-15 devnull #include "tdef.h"
8 5cedca1b 2004-05-15 devnull #include "fns.h"
9 5cedca1b 2004-05-15 devnull #include "ext.h"
11 5cedca1b 2004-05-15 devnull Tchar *argtop;
12 5cedca1b 2004-05-15 devnull int pagech = '%';
13 5cedca1b 2004-05-15 devnull int strflg;
15 5cedca1b 2004-05-15 devnull #define MHASHSIZE 128 /* must be 2**n */
16 5cedca1b 2004-05-15 devnull #define MHASH(x) ((x>>6)^x) & (MHASHSIZE-1)
17 5cedca1b 2004-05-15 devnull Contab *mhash[MHASHSIZE];
20 5cedca1b 2004-05-15 devnull Blockp *blist; /* allocated blocks for macros and strings */
21 5cedca1b 2004-05-15 devnull int nblist; /* how many there are */
22 5cedca1b 2004-05-15 devnull int bfree = -1; /* first (possible) free block in the list */
24 5cedca1b 2004-05-15 devnull Contab *contabp = NULL;
25 5cedca1b 2004-05-15 devnull #define MDELTA 500
26 5cedca1b 2004-05-15 devnull int nm = 0;
28 5cedca1b 2004-05-15 devnull int savname; /* name of macro/string being defined */
29 5cedca1b 2004-05-15 devnull int savslot; /* place in Contab of savname */
30 5cedca1b 2004-05-15 devnull int freeslot = -1; /* first (possible) free slot in contab */
32 5cedca1b 2004-05-15 devnull void prcontab(Contab *p)
35 5cedca1b 2004-05-15 devnull for (i = 0; i < nm; i++)
37 5cedca1b 2004-05-15 devnull if (p[i].rq != 0)
38 5cedca1b 2004-05-15 devnull fprintf(stderr, "slot %d, %-2.2s\n", i, unpair(p[i].rq));
40 5cedca1b 2004-05-15 devnull fprintf(stderr, "slot %d empty\n", i);
42 5cedca1b 2004-05-15 devnull fprintf(stderr, "slot %d empty\n", i);
46 5cedca1b 2004-05-15 devnull void blockinit(void)
48 5cedca1b 2004-05-15 devnull blist = (Blockp *) calloc(NBLIST, sizeof(Blockp));
49 5cedca1b 2004-05-15 devnull if (blist == NULL) {
50 5cedca1b 2004-05-15 devnull ERROR "not enough room for %d blocks", NBLIST WARN;
51 5cedca1b 2004-05-15 devnull done2(1);
53 5cedca1b 2004-05-15 devnull nblist = NBLIST;
54 5cedca1b 2004-05-15 devnull blist[0].nextoff = blist[1].nextoff = -1;
55 5cedca1b 2004-05-15 devnull blist[0].bp = (Tchar *) calloc(BLK, sizeof(Tchar));
56 5cedca1b 2004-05-15 devnull blist[1].bp = (Tchar *) calloc(BLK, sizeof(Tchar));
57 5cedca1b 2004-05-15 devnull /* -1 prevents blist[0] from being used; temporary fix */
58 5cedca1b 2004-05-15 devnull /* for a design botch: offset==0 is overloaded. */
59 5cedca1b 2004-05-15 devnull /* blist[1] reserved for .rd indicator -- also unused. */
60 5cedca1b 2004-05-15 devnull /* but someone unwittingly looks at these, so allocate something */
61 5cedca1b 2004-05-15 devnull bfree = 2;
65 5cedca1b 2004-05-15 devnull char *grow(char *ptr, int num, int size) /* make array bigger */
69 5cedca1b 2004-05-15 devnull if (ptr == NULL)
70 5cedca1b 2004-05-15 devnull p = (char *) calloc(num, size);
72 5cedca1b 2004-05-15 devnull p = (char *) realloc(ptr, num * size);
73 5cedca1b 2004-05-15 devnull return p;
76 5cedca1b 2004-05-15 devnull void mnspace(void)
78 5cedca1b 2004-05-15 devnull nm = sizeof(contab)/sizeof(Contab) + MDELTA;
79 5cedca1b 2004-05-15 devnull freeslot = sizeof(contab)/sizeof(Contab) + 1;
80 5cedca1b 2004-05-15 devnull contabp = (Contab *) grow((char *) contabp, nm, sizeof(Contab));
81 5cedca1b 2004-05-15 devnull if (contabp == NULL) {
82 5cedca1b 2004-05-15 devnull ERROR "not enough memory for namespace of %d marcos", nm WARN;
85 5cedca1b 2004-05-15 devnull contabp = (Contab *) memcpy((char *) contabp, (char *)contab,
86 5cedca1b 2004-05-15 devnull sizeof(contab));
87 5cedca1b 2004-05-15 devnull if (contabp == NULL) {
88 5cedca1b 2004-05-15 devnull ERROR "Cannot reinitialize macro/request name list" WARN;
94 5cedca1b 2004-05-15 devnull void caseig(void)
97 5cedca1b 2004-05-15 devnull Offset oldoff = offset;
99 5cedca1b 2004-05-15 devnull offset = 0;
100 5cedca1b 2004-05-15 devnull i = copyb();
101 5cedca1b 2004-05-15 devnull offset = oldoff;
102 5cedca1b 2004-05-15 devnull if (i != '.')
103 5cedca1b 2004-05-15 devnull control(i, 1);
107 5cedca1b 2004-05-15 devnull void casern(void)
109 5cedca1b 2004-05-15 devnull int i, j, k;
113 5cedca1b 2004-05-15 devnull if ((i = getrq()) == 0 || (oldmn = findmn(i)) < 0)
116 5cedca1b 2004-05-15 devnull clrmn(findmn(j = getrq()));
117 5cedca1b 2004-05-15 devnull if (j) {
118 5cedca1b 2004-05-15 devnull munhash(&contabp[oldmn]);
119 5cedca1b 2004-05-15 devnull contabp[oldmn].rq = j;
120 5cedca1b 2004-05-15 devnull maddhash(&contabp[oldmn]);
121 5cedca1b 2004-05-15 devnull if (dip != d )
122 5cedca1b 2004-05-15 devnull for (k = dilev; k; k--)
123 5cedca1b 2004-05-15 devnull if (d[k].curd == i)
124 5cedca1b 2004-05-15 devnull d[k].curd = j;
128 5cedca1b 2004-05-15 devnull void maddhash(Contab *rp)
130 5cedca1b 2004-05-15 devnull Contab **hp;
132 5cedca1b 2004-05-15 devnull if (rp->rq == 0)
134 5cedca1b 2004-05-15 devnull hp = &mhash[MHASH(rp->rq)];
135 5cedca1b 2004-05-15 devnull rp->link = *hp;
136 5cedca1b 2004-05-15 devnull *hp = rp;
139 5cedca1b 2004-05-15 devnull void munhash(Contab *mp)
141 5cedca1b 2004-05-15 devnull Contab *p;
142 5cedca1b 2004-05-15 devnull Contab **lp;
144 5cedca1b 2004-05-15 devnull if (mp->rq == 0)
146 5cedca1b 2004-05-15 devnull lp = &mhash[MHASH(mp->rq)];
147 5cedca1b 2004-05-15 devnull p = *lp;
148 5cedca1b 2004-05-15 devnull while (p) {
149 5cedca1b 2004-05-15 devnull if (p == mp) {
150 5cedca1b 2004-05-15 devnull *lp = p->link;
151 5cedca1b 2004-05-15 devnull p->link = 0;
154 5cedca1b 2004-05-15 devnull lp = &p->link;
155 5cedca1b 2004-05-15 devnull p = p->link;
159 5cedca1b 2004-05-15 devnull void mrehash(void)
161 5cedca1b 2004-05-15 devnull Contab *p;
164 5cedca1b 2004-05-15 devnull for (i=0; i < MHASHSIZE; i++)
165 5cedca1b 2004-05-15 devnull mhash[i] = 0;
166 5cedca1b 2004-05-15 devnull for (p=contabp; p < &contabp[nm]; p++)
167 5cedca1b 2004-05-15 devnull p->link = 0;
168 5cedca1b 2004-05-15 devnull for (p=contabp; p < &contabp[nm]; p++) {
169 5cedca1b 2004-05-15 devnull if (p->rq == 0)
170 5cedca1b 2004-05-15 devnull continue;
171 5cedca1b 2004-05-15 devnull i = MHASH(p->rq);
172 5cedca1b 2004-05-15 devnull p->link = mhash[i];
173 5cedca1b 2004-05-15 devnull mhash[i] = p;
177 5cedca1b 2004-05-15 devnull void caserm(void)
180 5cedca1b 2004-05-15 devnull int k = 0;
184 5cedca1b 2004-05-15 devnull while (!skip() && (j = getrq()) != 0) {
185 5cedca1b 2004-05-15 devnull if (dip != d)
186 5cedca1b 2004-05-15 devnull for (k = dilev; k; k--)
187 5cedca1b 2004-05-15 devnull if (d[k].curd == j) {
188 5cedca1b 2004-05-15 devnull ERROR "cannot remove diversion %s during definition",
189 5cedca1b 2004-05-15 devnull unpair(j) WARN;
190 5cedca1b 2004-05-15 devnull goto g0;
192 5cedca1b 2004-05-15 devnull clrmn(findmn(j));
198 5cedca1b 2004-05-15 devnull void caseas(void)
201 5cedca1b 2004-05-15 devnull caseds();
205 5cedca1b 2004-05-15 devnull void caseds(void)
208 5cedca1b 2004-05-15 devnull casede();
212 5cedca1b 2004-05-15 devnull void caseam(void)
215 5cedca1b 2004-05-15 devnull casede();
219 5cedca1b 2004-05-15 devnull void casede(void)
221 5cedca1b 2004-05-15 devnull int i, req;
222 5cedca1b 2004-05-15 devnull Offset savoff;
224 5cedca1b 2004-05-15 devnull req = '.';
227 5cedca1b 2004-05-15 devnull if ((i = getrq()) == 0)
228 5cedca1b 2004-05-15 devnull goto de1;
229 5cedca1b 2004-05-15 devnull if ((offset = finds(i)) == 0)
230 5cedca1b 2004-05-15 devnull goto de1;
231 5cedca1b 2004-05-15 devnull if (newmn)
232 5cedca1b 2004-05-15 devnull savslot = newmn;
234 5cedca1b 2004-05-15 devnull savslot = findmn(i);
235 5cedca1b 2004-05-15 devnull savname = i;
237 5cedca1b 2004-05-15 devnull copys();
239 5cedca1b 2004-05-15 devnull req = copyb();
240 5cedca1b 2004-05-15 devnull clrmn(oldmn);
241 5cedca1b 2004-05-15 devnull if (newmn) {
242 5cedca1b 2004-05-15 devnull if (contabp[newmn].rq)
243 5cedca1b 2004-05-15 devnull munhash(&contabp[newmn]);
244 5cedca1b 2004-05-15 devnull contabp[newmn].rq = i;
245 5cedca1b 2004-05-15 devnull maddhash(&contabp[newmn]);
248 5cedca1b 2004-05-15 devnull if (apptr) {
249 5cedca1b 2004-05-15 devnull savoff = offset;
250 5cedca1b 2004-05-15 devnull offset = apptr;
251 5cedca1b 2004-05-15 devnull wbf((Tchar) IMP);
252 5cedca1b 2004-05-15 devnull offset = savoff;
254 5cedca1b 2004-05-15 devnull offset = dip->op;
255 5cedca1b 2004-05-15 devnull if (req != '.')
256 5cedca1b 2004-05-15 devnull control(req, 1);
258 5cedca1b 2004-05-15 devnull ds = app = 0;
262 5cedca1b 2004-05-15 devnull int findmn(int i)
264 5cedca1b 2004-05-15 devnull Contab *p;
266 5cedca1b 2004-05-15 devnull for (p = mhash[MHASH(i)]; p; p = p->link)
267 5cedca1b 2004-05-15 devnull if (i == p->rq)
268 5cedca1b 2004-05-15 devnull return(p - contabp);
269 5cedca1b 2004-05-15 devnull return(-1);
273 5cedca1b 2004-05-15 devnull void clrmn(int i)
275 5cedca1b 2004-05-15 devnull if (i >= 0) {
276 5cedca1b 2004-05-15 devnull if (contabp[i].mx)
277 5cedca1b 2004-05-15 devnull ffree(contabp[i].mx);
278 5cedca1b 2004-05-15 devnull munhash(&contabp[i]);
279 5cedca1b 2004-05-15 devnull contabp[i].rq = 0;
280 5cedca1b 2004-05-15 devnull contabp[i].mx = 0;
281 5cedca1b 2004-05-15 devnull contabp[i].emx = 0;
282 5cedca1b 2004-05-15 devnull contabp[i].f = 0;
283 5cedca1b 2004-05-15 devnull if (contabp[i].divsiz != NULL) {
284 5cedca1b 2004-05-15 devnull free(contabp[i].divsiz);
285 5cedca1b 2004-05-15 devnull contabp[i].divsiz = NULL;
287 5cedca1b 2004-05-15 devnull if (freeslot > i)
288 5cedca1b 2004-05-15 devnull freeslot = i;
292 5cedca1b 2004-05-15 devnull void growcontab(void)
294 5cedca1b 2004-05-15 devnull nm += MDELTA;
295 5cedca1b 2004-05-15 devnull contabp = (Contab *) grow((char *) contabp , nm, sizeof(Contab));
296 5cedca1b 2004-05-15 devnull if (contabp == NULL) {
297 5cedca1b 2004-05-15 devnull ERROR "Too many (%d) string/macro names", nm WARN;
298 5cedca1b 2004-05-15 devnull done2(02);
299 5cedca1b 2004-05-15 devnull } else {
300 5cedca1b 2004-05-15 devnull memset((char *)(contabp) + (nm - MDELTA) * sizeof(Contab),
301 5cedca1b 2004-05-15 devnull 0, MDELTA * sizeof(Contab));
302 5cedca1b 2004-05-15 devnull mrehash();
307 5cedca1b 2004-05-15 devnull Offset finds(int mn)
310 5cedca1b 2004-05-15 devnull Offset savip;
312 5cedca1b 2004-05-15 devnull oldmn = findmn(mn);
313 5cedca1b 2004-05-15 devnull newmn = 0;
314 5cedca1b 2004-05-15 devnull apptr = 0;
315 5cedca1b 2004-05-15 devnull if (app && oldmn >= 0 && contabp[oldmn].mx) {
316 5cedca1b 2004-05-15 devnull savip = ip;
317 5cedca1b 2004-05-15 devnull ip = contabp[oldmn].emx;
318 5cedca1b 2004-05-15 devnull oldmn = -1;
319 5cedca1b 2004-05-15 devnull apptr = ip;
320 5cedca1b 2004-05-15 devnull if (!diflg)
321 5cedca1b 2004-05-15 devnull ip = incoff(ip);
322 5cedca1b 2004-05-15 devnull nextb = ip;
323 5cedca1b 2004-05-15 devnull ip = savip;
324 5cedca1b 2004-05-15 devnull } else {
325 5cedca1b 2004-05-15 devnull for (i = freeslot; i < nm; i++) {
326 5cedca1b 2004-05-15 devnull if (contabp[i].rq == 0)
329 5cedca1b 2004-05-15 devnull if (i == nm)
330 5cedca1b 2004-05-15 devnull growcontab();
331 5cedca1b 2004-05-15 devnull freeslot = i + 1;
332 5cedca1b 2004-05-15 devnull if ((nextb = alloc()) == -1) {
333 5cedca1b 2004-05-15 devnull app = 0;
334 5cedca1b 2004-05-15 devnull if (macerr++ > 1)
335 5cedca1b 2004-05-15 devnull done2(02);
336 5cedca1b 2004-05-15 devnull if (nextb == 0)
337 5cedca1b 2004-05-15 devnull ERROR "Not enough space for string/macro names" WARN;
338 5cedca1b 2004-05-15 devnull edone(04);
339 5cedca1b 2004-05-15 devnull return(offset = 0);
341 5cedca1b 2004-05-15 devnull contabp[i].mx = nextb;
342 5cedca1b 2004-05-15 devnull if (!diflg) {
343 5cedca1b 2004-05-15 devnull newmn = i;
344 5cedca1b 2004-05-15 devnull if (oldmn == -1)
345 5cedca1b 2004-05-15 devnull contabp[i].rq = -1;
346 5cedca1b 2004-05-15 devnull } else {
347 5cedca1b 2004-05-15 devnull contabp[i].rq = mn;
348 5cedca1b 2004-05-15 devnull maddhash(&contabp[i]);
351 5cedca1b 2004-05-15 devnull app = 0;
352 5cedca1b 2004-05-15 devnull return(offset = nextb);
355 5cedca1b 2004-05-15 devnull int skip(void)
357 5cedca1b 2004-05-15 devnull Tchar i;
359 5cedca1b 2004-05-15 devnull while (cbits(i = getch()) == ' ' || ismot(i))
362 5cedca1b 2004-05-15 devnull return(nlflg);
366 5cedca1b 2004-05-15 devnull int copyb(void)
368 5cedca1b 2004-05-15 devnull int i, j, state;
369 5cedca1b 2004-05-15 devnull Tchar ii;
370 5cedca1b 2004-05-15 devnull int req, k;
371 5cedca1b 2004-05-15 devnull Offset savoff;
372 5cedca1b 2004-05-15 devnull Uchar *p;
374 c5561c23 2004-05-16 devnull savoff = 0;
375 5cedca1b 2004-05-15 devnull if (skip() || !(j = getrq()))
376 5cedca1b 2004-05-15 devnull j = '.';
377 5cedca1b 2004-05-15 devnull req = j;
378 5cedca1b 2004-05-15 devnull p = unpair(j);
379 5cedca1b 2004-05-15 devnull /* was: k = j >> BYTE; j &= BYTEMASK; */
380 5cedca1b 2004-05-15 devnull j = p[0];
381 5cedca1b 2004-05-15 devnull k = p[1];
382 5cedca1b 2004-05-15 devnull copyf++;
383 5cedca1b 2004-05-15 devnull flushi();
384 5cedca1b 2004-05-15 devnull nlflg = 0;
385 5cedca1b 2004-05-15 devnull state = 1;
387 5cedca1b 2004-05-15 devnull /* state 0 eat up
388 5cedca1b 2004-05-15 devnull * state 1 look for .
389 5cedca1b 2004-05-15 devnull * state 2 look for first char of end macro
390 5cedca1b 2004-05-15 devnull * state 3 look for second char of end macro
393 5cedca1b 2004-05-15 devnull while (1) {
394 5cedca1b 2004-05-15 devnull i = cbits(ii = getch());
395 5cedca1b 2004-05-15 devnull if (state == 3) {
396 5cedca1b 2004-05-15 devnull if (i == k)
398 5cedca1b 2004-05-15 devnull if (!k) {
399 5cedca1b 2004-05-15 devnull ch = ii;
400 5cedca1b 2004-05-15 devnull i = getach();
401 5cedca1b 2004-05-15 devnull ch = ii;
405 5cedca1b 2004-05-15 devnull state = 0;
406 5cedca1b 2004-05-15 devnull goto c0;
408 5cedca1b 2004-05-15 devnull if (i == '\n') {
409 5cedca1b 2004-05-15 devnull state = 1;
410 5cedca1b 2004-05-15 devnull nlflg = 0;
411 5cedca1b 2004-05-15 devnull goto c0;
413 5cedca1b 2004-05-15 devnull if (state == 1 && i == '.') {
414 5cedca1b 2004-05-15 devnull state++;
415 5cedca1b 2004-05-15 devnull savoff = offset;
416 5cedca1b 2004-05-15 devnull goto c0;
418 5cedca1b 2004-05-15 devnull if (state == 2 && i == j) {
419 5cedca1b 2004-05-15 devnull state++;
420 5cedca1b 2004-05-15 devnull goto c0;
422 5cedca1b 2004-05-15 devnull state = 0;
424 5cedca1b 2004-05-15 devnull if (offset)
425 5cedca1b 2004-05-15 devnull wbf(ii);
427 5cedca1b 2004-05-15 devnull if (offset) {
428 5cedca1b 2004-05-15 devnull offset = savoff;
429 5cedca1b 2004-05-15 devnull wbf((Tchar)0);
431 5cedca1b 2004-05-15 devnull copyf--;
432 5cedca1b 2004-05-15 devnull return(req);
436 5cedca1b 2004-05-15 devnull void copys(void)
438 5cedca1b 2004-05-15 devnull Tchar i;
440 5cedca1b 2004-05-15 devnull copyf++;
441 5cedca1b 2004-05-15 devnull if (skip())
442 5cedca1b 2004-05-15 devnull goto c0;
443 5cedca1b 2004-05-15 devnull if (cbits(i = getch()) != '"')
445 5cedca1b 2004-05-15 devnull while (cbits(i = getch()) != '\n')
448 5cedca1b 2004-05-15 devnull wbf((Tchar)0);
449 5cedca1b 2004-05-15 devnull copyf--;
453 5cedca1b 2004-05-15 devnull Offset alloc(void) /* return free Offset in nextb */
455 5cedca1b 2004-05-15 devnull int i, j;
457 5cedca1b 2004-05-15 devnull for (i = bfree; i < nblist; i++)
458 5cedca1b 2004-05-15 devnull if (blist[i].nextoff == 0)
460 5cedca1b 2004-05-15 devnull if (i == nblist) {
461 5cedca1b 2004-05-15 devnull blist = (Blockp *) realloc((char *) blist, 2 * nblist * sizeof(Blockp));
462 5cedca1b 2004-05-15 devnull if (blist == NULL) {
463 5cedca1b 2004-05-15 devnull ERROR "can't grow blist for string/macro defns" WARN;
464 5cedca1b 2004-05-15 devnull done2(2);
466 5cedca1b 2004-05-15 devnull nblist *= 2;
467 5cedca1b 2004-05-15 devnull for (j = i; j < nblist; j++) {
468 5cedca1b 2004-05-15 devnull blist[j].nextoff = 0;
469 5cedca1b 2004-05-15 devnull blist[j].bp = 0;
472 5cedca1b 2004-05-15 devnull blist[i].nextoff = -1; /* this block is the end */
473 5cedca1b 2004-05-15 devnull bfree = i + 1;
474 5cedca1b 2004-05-15 devnull if (blist[i].bp == 0)
475 5cedca1b 2004-05-15 devnull blist[i].bp = (Tchar *) calloc(BLK, sizeof(Tchar));
476 5cedca1b 2004-05-15 devnull if (blist[i].bp == NULL) {
477 5cedca1b 2004-05-15 devnull ERROR "can't allocate memory for string/macro definitions" WARN;
478 5cedca1b 2004-05-15 devnull done2(2);
480 5cedca1b 2004-05-15 devnull nextb = (Offset) i * BLK;
481 5cedca1b 2004-05-15 devnull return nextb;
485 5cedca1b 2004-05-15 devnull void ffree(Offset i) /* free list of blocks starting at blist(o) */
486 5cedca1b 2004-05-15 devnull { /* (doesn't actually free the blocks, just the pointers) */
489 5cedca1b 2004-05-15 devnull for ( ; blist[j = bindex(i)].nextoff != -1; ) {
490 5cedca1b 2004-05-15 devnull if (bfree > j)
491 5cedca1b 2004-05-15 devnull bfree = j;
492 5cedca1b 2004-05-15 devnull i = blist[j].nextoff;
493 5cedca1b 2004-05-15 devnull blist[j].nextoff = 0;
495 5cedca1b 2004-05-15 devnull blist[j].nextoff = 0;
499 5cedca1b 2004-05-15 devnull void wbf(Tchar i) /* store i into offset, get ready for next one */
501 5cedca1b 2004-05-15 devnull int j, off;
503 5cedca1b 2004-05-15 devnull if (!offset)
505 5cedca1b 2004-05-15 devnull j = bindex(offset);
506 5cedca1b 2004-05-15 devnull if (i == 0)
507 5cedca1b 2004-05-15 devnull contabp[savslot].emx = offset;
508 5cedca1b 2004-05-15 devnull off = boffset(offset);
509 5cedca1b 2004-05-15 devnull blist[j].bp[off++] = i;
510 5cedca1b 2004-05-15 devnull offset++;
511 5cedca1b 2004-05-15 devnull if (pastend(offset)) { /* off the end of this block */
512 5cedca1b 2004-05-15 devnull if (blist[j].nextoff == -1) {
513 5cedca1b 2004-05-15 devnull if ((nextb = alloc()) == -1) {
514 5cedca1b 2004-05-15 devnull ERROR "Out of temp file space" WARN;
515 5cedca1b 2004-05-15 devnull done2(01);
517 5cedca1b 2004-05-15 devnull blist[j].nextoff = nextb;
519 5cedca1b 2004-05-15 devnull offset = blist[j].nextoff;
524 5cedca1b 2004-05-15 devnull Tchar rbf(void) /* return next char from blist[] block */
526 5cedca1b 2004-05-15 devnull Tchar i, j;
528 5cedca1b 2004-05-15 devnull if (ip == RD_OFFSET) { /* for rdtty */
529 5cedca1b 2004-05-15 devnull if (j = rdtty())
530 5cedca1b 2004-05-15 devnull return(j);
532 5cedca1b 2004-05-15 devnull return(popi());
535 5cedca1b 2004-05-15 devnull i = rbf0(ip);
536 5cedca1b 2004-05-15 devnull if (i == 0) {
537 5cedca1b 2004-05-15 devnull if (!app)
538 5cedca1b 2004-05-15 devnull i = popi();
539 5cedca1b 2004-05-15 devnull return(i);
541 5cedca1b 2004-05-15 devnull ip = incoff(ip);
542 5cedca1b 2004-05-15 devnull return(i);
546 5cedca1b 2004-05-15 devnull Offset xxxincoff(Offset p) /* get next blist[] block */
549 5cedca1b 2004-05-15 devnull if (pastend(p)) { /* off the end of this block */
550 5cedca1b 2004-05-15 devnull if ((p = blist[bindex(p-1)].nextoff) == -1) { /* and nothing was allocated after it */
551 5cedca1b 2004-05-15 devnull ERROR "Bad storage allocation" WARN;
552 5cedca1b 2004-05-15 devnull done2(-5);
555 5cedca1b 2004-05-15 devnull return(p);
559 5cedca1b 2004-05-15 devnull Tchar popi(void)
561 5cedca1b 2004-05-15 devnull Stack *p;
563 5cedca1b 2004-05-15 devnull if (frame == stk)
564 5cedca1b 2004-05-15 devnull return(0);
565 5cedca1b 2004-05-15 devnull if (strflg)
566 5cedca1b 2004-05-15 devnull strflg--;
567 5cedca1b 2004-05-15 devnull p = nxf = frame;
568 5cedca1b 2004-05-15 devnull p->nargs = 0;
569 5cedca1b 2004-05-15 devnull frame = p->pframe;
570 5cedca1b 2004-05-15 devnull ip = p->pip;
571 5cedca1b 2004-05-15 devnull pendt = p->ppendt;
572 5cedca1b 2004-05-15 devnull lastpbp = p->lastpbp;
573 5cedca1b 2004-05-15 devnull return(p->pch);
577 5cedca1b 2004-05-15 devnull * test that the end of the allocation is above a certain location
578 5cedca1b 2004-05-15 devnull * in memory
580 5cedca1b 2004-05-15 devnull #define SPACETEST(base, size) \
581 5cedca1b 2004-05-15 devnull if ((char*)base + size >= (char*)stk+STACKSIZE) \
582 5cedca1b 2004-05-15 devnull ERROR "Stacksize overflow in n3" WARN
584 5cedca1b 2004-05-15 devnull Offset pushi(Offset newip, int mname)
586 5cedca1b 2004-05-15 devnull Stack *p;
588 5cedca1b 2004-05-15 devnull SPACETEST(nxf, sizeof(Stack));
589 5cedca1b 2004-05-15 devnull p = nxf;
590 5cedca1b 2004-05-15 devnull p->pframe = frame;
591 5cedca1b 2004-05-15 devnull p->pip = ip;
592 5cedca1b 2004-05-15 devnull p->ppendt = pendt;
593 5cedca1b 2004-05-15 devnull p->pch = ch;
594 5cedca1b 2004-05-15 devnull p->lastpbp = lastpbp;
595 5cedca1b 2004-05-15 devnull p->mname = mname;
596 5cedca1b 2004-05-15 devnull lastpbp = pbp;
597 5cedca1b 2004-05-15 devnull pendt = ch = 0;
598 5cedca1b 2004-05-15 devnull frame = nxf;
599 5cedca1b 2004-05-15 devnull if (nxf->nargs == 0)
600 5cedca1b 2004-05-15 devnull nxf += 1;
602 5cedca1b 2004-05-15 devnull nxf = (Stack *)argtop;
603 5cedca1b 2004-05-15 devnull return(ip = newip);
607 5cedca1b 2004-05-15 devnull void *setbrk(int x)
609 5cedca1b 2004-05-15 devnull char *i;
611 5cedca1b 2004-05-15 devnull if ((i = (char *) calloc(x, 1)) == 0) {
612 5cedca1b 2004-05-15 devnull ERROR "Core limit reached" WARN;
613 5cedca1b 2004-05-15 devnull edone(0100);
615 5cedca1b 2004-05-15 devnull return(i);
619 5cedca1b 2004-05-15 devnull int getsn(void)
623 5cedca1b 2004-05-15 devnull if ((i = getach()) == 0)
624 5cedca1b 2004-05-15 devnull return(0);
625 5cedca1b 2004-05-15 devnull if (i == '(')
626 5cedca1b 2004-05-15 devnull return(getrq());
628 5cedca1b 2004-05-15 devnull return(i);
632 5cedca1b 2004-05-15 devnull Offset setstr(void)
634 5cedca1b 2004-05-15 devnull int i, j;
637 5cedca1b 2004-05-15 devnull if ((i = getsn()) == 0 || (j = findmn(i)) == -1 || !contabp[j].mx) {
639 5cedca1b 2004-05-15 devnull return(0);
640 5cedca1b 2004-05-15 devnull } else {
641 5cedca1b 2004-05-15 devnull SPACETEST(nxf, sizeof(Stack));
642 5cedca1b 2004-05-15 devnull nxf->nargs = 0;
643 5cedca1b 2004-05-15 devnull strflg++;
645 5cedca1b 2004-05-15 devnull return pushi(contabp[j].mx, i);
651 5cedca1b 2004-05-15 devnull void collect(void)
654 5cedca1b 2004-05-15 devnull Tchar i, *strp, *lim, **argpp, **argppend;
655 5cedca1b 2004-05-15 devnull int quote;
656 5cedca1b 2004-05-15 devnull Stack *savnxf;
658 5cedca1b 2004-05-15 devnull copyf++;
659 5cedca1b 2004-05-15 devnull nxf->nargs = 0;
660 5cedca1b 2004-05-15 devnull savnxf = nxf;
661 5cedca1b 2004-05-15 devnull if (skip())
662 5cedca1b 2004-05-15 devnull goto rtn;
665 5cedca1b 2004-05-15 devnull char *memp;
666 5cedca1b 2004-05-15 devnull memp = (char *)savnxf;
668 5cedca1b 2004-05-15 devnull * 1 s structure for the macro descriptor
669 5cedca1b 2004-05-15 devnull * APERMAC Tchar *'s for pointers into the strings
670 5cedca1b 2004-05-15 devnull * space for the Tchar's themselves
672 5cedca1b 2004-05-15 devnull memp += sizeof(Stack);
674 5cedca1b 2004-05-15 devnull * CPERMAC = the total # of characters for ALL arguments
676 5cedca1b 2004-05-15 devnull #define CPERMAC 200
677 5cedca1b 2004-05-15 devnull #define APERMAC 9
678 5cedca1b 2004-05-15 devnull memp += APERMAC * sizeof(Tchar *);
679 5cedca1b 2004-05-15 devnull memp += CPERMAC * sizeof(Tchar);
680 5cedca1b 2004-05-15 devnull nxf = (Stack *)memp;
682 5cedca1b 2004-05-15 devnull lim = (Tchar *)nxf;
683 5cedca1b 2004-05-15 devnull argpp = (Tchar **)(savnxf + 1);
684 5cedca1b 2004-05-15 devnull argppend = &argpp[APERMAC];
685 5cedca1b 2004-05-15 devnull SPACETEST(argppend, sizeof(Tchar *));
686 5cedca1b 2004-05-15 devnull strp = (Tchar *)argppend;
688 5cedca1b 2004-05-15 devnull * Zero out all the string pointers before filling them in.
690 5cedca1b 2004-05-15 devnull for (j = 0; j < APERMAC; j++)
691 5cedca1b 2004-05-15 devnull argpp[j] = 0;
692 5cedca1b 2004-05-15 devnull /* ERROR "savnxf=0x%x,nxf=0x%x,argpp=0x%x,strp=argppend=0x%x, lim=0x%x",
693 5cedca1b 2004-05-15 devnull * savnxf, nxf, argpp, strp, lim WARN;
695 5cedca1b 2004-05-15 devnull strflg = 0;
696 5cedca1b 2004-05-15 devnull while (argpp != argppend && !skip()) {
697 5cedca1b 2004-05-15 devnull *argpp++ = strp;
698 5cedca1b 2004-05-15 devnull quote = 0;
699 5cedca1b 2004-05-15 devnull if (cbits(i = getch()) == '"')
700 5cedca1b 2004-05-15 devnull quote++;
703 5cedca1b 2004-05-15 devnull while (1) {
704 5cedca1b 2004-05-15 devnull i = getch();
705 5cedca1b 2004-05-15 devnull /* fprintf(stderr, "collect %c %d\n", cbits(i), cbits(i)); */
706 5cedca1b 2004-05-15 devnull if (nlflg || (!quote && argpp != argppend && cbits(i) == ' '))
707 5cedca1b 2004-05-15 devnull break; /* collects rest into $9 */
708 5cedca1b 2004-05-15 devnull if ( quote
709 5cedca1b 2004-05-15 devnull && cbits(i) == '"'
710 5cedca1b 2004-05-15 devnull && cbits(i = getch()) != '"') {
714 5cedca1b 2004-05-15 devnull *strp++ = i;
715 5cedca1b 2004-05-15 devnull if (strflg && strp >= lim) {
716 5cedca1b 2004-05-15 devnull /* ERROR "strp=0x%x, lim = 0x%x", strp, lim WARN; */
717 5cedca1b 2004-05-15 devnull ERROR "Macro argument too long" WARN;
718 5cedca1b 2004-05-15 devnull copyf--;
719 5cedca1b 2004-05-15 devnull edone(004);
721 5cedca1b 2004-05-15 devnull SPACETEST(strp, 3 * sizeof(Tchar));
723 5cedca1b 2004-05-15 devnull *strp++ = 0;
725 5cedca1b 2004-05-15 devnull nxf = savnxf;
726 5cedca1b 2004-05-15 devnull nxf->nargs = argpp - (Tchar **)(savnxf + 1);
727 5cedca1b 2004-05-15 devnull argtop = strp;
729 5cedca1b 2004-05-15 devnull copyf--;
733 5cedca1b 2004-05-15 devnull void seta(void)
737 5cedca1b 2004-05-15 devnull i = cbits(getch()) - '0';
738 5cedca1b 2004-05-15 devnull if (i > 0 && i <= APERMAC && i <= frame->nargs)
739 5cedca1b 2004-05-15 devnull pushback(*(((Tchar **)(frame + 1)) + i - 1));
743 5cedca1b 2004-05-15 devnull void caseda(void)
746 5cedca1b 2004-05-15 devnull casedi();
749 5cedca1b 2004-05-15 devnull void casegd(void)
751 5cedca1b 2004-05-15 devnull int i, j;
754 5cedca1b 2004-05-15 devnull if ((i = getrq()) == 0)
756 5cedca1b 2004-05-15 devnull if ((j = findmn(i)) >= 0) {
757 5cedca1b 2004-05-15 devnull if (contabp[j].divsiz != NULL) {
758 5cedca1b 2004-05-15 devnull numtabp[DN].val = contabp[j].divsiz->dix;
759 5cedca1b 2004-05-15 devnull numtabp[DL].val = contabp[j].divsiz->diy;
764 5cedca1b 2004-05-15 devnull #define FINDDIV(o) if ((o = findmn(dip->curd)) < 0) \
765 5cedca1b 2004-05-15 devnull ERROR "lost diversion %s", unpair(dip->curd) WARN
767 5cedca1b 2004-05-15 devnull void casedi(void)
769 5cedca1b 2004-05-15 devnull int i, j, *k;
772 5cedca1b 2004-05-15 devnull if (skip() || (i = getrq()) == 0) {
773 5cedca1b 2004-05-15 devnull if (dip != d) {
774 5cedca1b 2004-05-15 devnull FINDDIV(savslot);
775 5cedca1b 2004-05-15 devnull wbf((Tchar)0);
777 5cedca1b 2004-05-15 devnull if (dilev > 0) {
778 5cedca1b 2004-05-15 devnull numtabp[DN].val = dip->dnl;
779 5cedca1b 2004-05-15 devnull numtabp[DL].val = dip->maxl;
780 5cedca1b 2004-05-15 devnull FINDDIV(j);
781 5cedca1b 2004-05-15 devnull if ((contabp[j].divsiz = (Divsiz *) malloc(sizeof(Divsiz))) == NULL) {
782 5cedca1b 2004-05-15 devnull ERROR "Cannot alloc diversion size" WARN;
783 5cedca1b 2004-05-15 devnull done2(1);
784 5cedca1b 2004-05-15 devnull } else {
785 5cedca1b 2004-05-15 devnull contabp[j].divsiz->dix = numtabp[DN].val;
786 5cedca1b 2004-05-15 devnull contabp[j].divsiz->diy = numtabp[DL].val;
788 5cedca1b 2004-05-15 devnull dip = &d[--dilev];
789 5cedca1b 2004-05-15 devnull offset = dip->op;
791 5cedca1b 2004-05-15 devnull goto rtn;
793 5cedca1b 2004-05-15 devnull if (++dilev == NDI) {
794 5cedca1b 2004-05-15 devnull --dilev;
795 5cedca1b 2004-05-15 devnull ERROR "Diversions nested too deep" WARN;
796 5cedca1b 2004-05-15 devnull edone(02);
798 5cedca1b 2004-05-15 devnull if (dip != d) {
799 5cedca1b 2004-05-15 devnull FINDDIV(j);
800 5cedca1b 2004-05-15 devnull savslot = j;
801 5cedca1b 2004-05-15 devnull wbf((Tchar)0);
803 5cedca1b 2004-05-15 devnull diflg++;
804 5cedca1b 2004-05-15 devnull dip = &d[dilev];
805 5cedca1b 2004-05-15 devnull dip->op = finds(i);
806 5cedca1b 2004-05-15 devnull dip->curd = i;
807 5cedca1b 2004-05-15 devnull clrmn(oldmn);
808 5cedca1b 2004-05-15 devnull k = (int *) & dip->dnl;
809 5cedca1b 2004-05-15 devnull for (j = 0; j < 10; j++)
810 5cedca1b 2004-05-15 devnull k[j] = 0; /*not op and curd*/
812 5cedca1b 2004-05-15 devnull app = 0;
813 5cedca1b 2004-05-15 devnull diflg = 0;
817 5cedca1b 2004-05-15 devnull void casedt(void)
820 5cedca1b 2004-05-15 devnull dip->dimac = dip->ditrap = dip->ditf = 0;
822 5cedca1b 2004-05-15 devnull dip->ditrap = vnumb((int *)0);
823 5cedca1b 2004-05-15 devnull if (nonumb)
826 5cedca1b 2004-05-15 devnull dip->dimac = getrq();
829 5cedca1b 2004-05-15 devnull #define LNSIZE 4000
830 5cedca1b 2004-05-15 devnull void casetl(void)
833 5cedca1b 2004-05-15 devnull int w[3];
834 5cedca1b 2004-05-15 devnull Tchar buf[LNSIZE];
835 5cedca1b 2004-05-15 devnull Tchar *tp;
836 5cedca1b 2004-05-15 devnull Tchar i, delim;
839 5cedca1b 2004-05-15 devnull * bug fix
841 5cedca1b 2004-05-15 devnull * if .tl is the first thing in the file, the p1
842 5cedca1b 2004-05-15 devnull * doesn't come out, also the pagenumber will be 0
844 5cedca1b 2004-05-15 devnull * tends too confuse the device filter (and the user as well)
846 5cedca1b 2004-05-15 devnull if (dip == d && numtabp[NL].val == -1)
847 5cedca1b 2004-05-15 devnull newline(1);
848 5cedca1b 2004-05-15 devnull dip->nls = 0;
850 5cedca1b 2004-05-15 devnull if (ismot(delim = getch())) {
851 5cedca1b 2004-05-15 devnull ch = delim;
852 5cedca1b 2004-05-15 devnull delim = '\'';
854 5cedca1b 2004-05-15 devnull delim = cbits(delim);
855 5cedca1b 2004-05-15 devnull tp = buf;
856 5cedca1b 2004-05-15 devnull numtabp[HP].val = 0;
857 5cedca1b 2004-05-15 devnull w[0] = w[1] = w[2] = 0;
859 5cedca1b 2004-05-15 devnull while (cbits(i = getch()) != '\n') {
860 5cedca1b 2004-05-15 devnull if (cbits(i) == cbits(delim)) {
861 5cedca1b 2004-05-15 devnull if (j < 3)
862 5cedca1b 2004-05-15 devnull w[j] = numtabp[HP].val;
863 5cedca1b 2004-05-15 devnull numtabp[HP].val = 0;
864 5cedca1b 2004-05-15 devnull if (w[j] != 0)
865 5cedca1b 2004-05-15 devnull *tp++ = WORDSP;
867 5cedca1b 2004-05-15 devnull *tp++ = 0;
868 5cedca1b 2004-05-15 devnull } else {
869 5cedca1b 2004-05-15 devnull if (cbits(i) == pagech) {
870 5cedca1b 2004-05-15 devnull setn1(numtabp[PN].val, numtabp[findr('%')].fmt,
871 5cedca1b 2004-05-15 devnull i&SFMASK);
872 5cedca1b 2004-05-15 devnull continue;
874 5cedca1b 2004-05-15 devnull numtabp[HP].val += width(i);
875 5cedca1b 2004-05-15 devnull if (tp < &buf[LNSIZE-10]) {
876 5cedca1b 2004-05-15 devnull if (cbits(i) == ' ' && *tp != WORDSP)
877 5cedca1b 2004-05-15 devnull *tp++ = WORDSP;
878 5cedca1b 2004-05-15 devnull *tp++ = i;
879 5cedca1b 2004-05-15 devnull } else {
880 5cedca1b 2004-05-15 devnull ERROR "Overflow in casetl" WARN;
884 5cedca1b 2004-05-15 devnull if (j<3)
885 5cedca1b 2004-05-15 devnull w[j] = numtabp[HP].val;
886 5cedca1b 2004-05-15 devnull *tp++ = 0;
887 5cedca1b 2004-05-15 devnull *tp++ = 0;
888 5cedca1b 2004-05-15 devnull *tp = 0;
889 5cedca1b 2004-05-15 devnull tp = buf;
890 5cedca1b 2004-05-15 devnull if (NROFF)
891 5cedca1b 2004-05-15 devnull horiz(po);
892 5cedca1b 2004-05-15 devnull while (i = *tp++)
893 5cedca1b 2004-05-15 devnull pchar(i);
894 5cedca1b 2004-05-15 devnull if (w[1] || w[2])
895 5cedca1b 2004-05-15 devnull horiz(j = quant((lt - w[1]) / 2 - w[0], HOR));
896 5cedca1b 2004-05-15 devnull while (i = *tp++)
897 5cedca1b 2004-05-15 devnull pchar(i);
898 5cedca1b 2004-05-15 devnull if (w[2]) {
899 5cedca1b 2004-05-15 devnull horiz(lt - w[0] - w[1] - w[2] - j);
900 5cedca1b 2004-05-15 devnull while (i = *tp++)
901 5cedca1b 2004-05-15 devnull pchar(i);
903 5cedca1b 2004-05-15 devnull newline(0);
904 5cedca1b 2004-05-15 devnull if (dip != d) {
905 5cedca1b 2004-05-15 devnull if (dip->dnl > dip->hnl)
906 5cedca1b 2004-05-15 devnull dip->hnl = dip->dnl;
907 5cedca1b 2004-05-15 devnull } else {
908 5cedca1b 2004-05-15 devnull if (numtabp[NL].val > dip->hnl)
909 5cedca1b 2004-05-15 devnull dip->hnl = numtabp[NL].val;
914 5cedca1b 2004-05-15 devnull void casepc(void)
916 5cedca1b 2004-05-15 devnull pagech = chget(IMP);
920 5cedca1b 2004-05-15 devnull void casepm(void)
922 5cedca1b 2004-05-15 devnull int i, k;
923 5cedca1b 2004-05-15 devnull int xx, cnt, tcnt, kk, tot;
924 5cedca1b 2004-05-15 devnull Offset j;
926 5cedca1b 2004-05-15 devnull kk = cnt = tcnt = 0;
927 5cedca1b 2004-05-15 devnull tot = !skip();
928 5cedca1b 2004-05-15 devnull stackdump();
929 5cedca1b 2004-05-15 devnull for (i = 0; i < nm; i++) {
930 5cedca1b 2004-05-15 devnull if ((xx = contabp[i].rq) == 0 || contabp[i].mx == 0)
931 5cedca1b 2004-05-15 devnull continue;
933 5cedca1b 2004-05-15 devnull j = contabp[i].mx;
934 5cedca1b 2004-05-15 devnull for (k = 1; (j = blist[bindex(j)].nextoff) != -1; )
937 5cedca1b 2004-05-15 devnull kk += k;
938 5cedca1b 2004-05-15 devnull if (!tot)
939 5cedca1b 2004-05-15 devnull fprintf(stderr, "%-2.2s %d\n", unpair(xx), k);
941 5cedca1b 2004-05-15 devnull fprintf(stderr, "pm: total %d, macros %d, space %d\n", tcnt, cnt, kk);
944 5cedca1b 2004-05-15 devnull void stackdump(void) /* dumps stack of macros in process */
946 5cedca1b 2004-05-15 devnull Stack *p;
948 5cedca1b 2004-05-15 devnull if (frame != stk) {
949 5cedca1b 2004-05-15 devnull fprintf(stderr, "stack: ");
950 5cedca1b 2004-05-15 devnull for (p = frame; p != stk; p = p->pframe)
951 5cedca1b 2004-05-15 devnull fprintf(stderr, "%s ", unpair(p->mname));
952 5cedca1b 2004-05-15 devnull fprintf(stderr, "\n");