![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t6.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / troff / ancient.nroff|
Return to t6.c CVS log | Up to [Research Unix] / researchv10no / cmd / troff / ancient.nroff |
1.1 root 1: #include "tdef.hd"
2: #include "strs.hd"
3:
4: /*
5: troff6.c
6:
7: width functions, sizes and fonts
8: */
9:
10: #ifndef INCORE
11: extern struct envblock eblock;
12: #else
13: extern struct envblock eblock[NEV];
14: extern int ev;
15: #endif
16: extern struct datablock dblock;
17:
18: #ifdef ebcdic
19: extern char *fname();
20: #endif
21: extern int *cstk[], cstkl;
22: extern int tch[];
23: extern int ch_CMASK;
24: extern long atoi0();
25: extern int eschar;
26: extern int widthp;
27: extern int xpts;
28: extern int xfont;
29: extern int code;
30: extern int smnt;
31: extern int setwdf;
32: extern int cs;
33: extern int ccs;
34: extern int xbitf;
35: extern int mfont;
36: extern int mpts;
37: extern int pfont;
38: extern int ppts;
39: extern int oldbits;
40: extern int nonumb;
41: extern int noscale;
42: extern int nlflg;
43: extern int nform;
44: extern int dfact;
45: extern int vflag;
46: extern int lg;
47: extern char fontfile[];
48: extern int ffi;
49: extern int bd;
50: extern int level;
51: extern int ch;
52: extern int res;
53: extern filedes ptid;
54: extern char ftR[],ftI[],ftB[],ftS[];
55: int trflg;
56: char *fontab[] = {ftR, ftI, ftB, ftS};
57: int fontlab[] = {'R','I','B','S',0};
58: char pstab[] = {6,7,8,9,10,11,12,14,16,18,20,22,24,28,36,0};
59: char psctab[] = {010,000,001,007,002,003,004,005,0211,006,
60: 0212,0213,0214,0215,0216,0};
61: int cstab[4], ccstab[4];
62: int bdtab[4];
63: int sbold = 0;
64: int spsz = 0;
65: struct fz {
66: char sign;
67: char size;
68: int fzinc;
69: } fz[4];
70: width(c)
71: int c;
72: {
73: register i,j,k;
74:
75: j = c;
76: k = 0;
77: if(j & MOT){
78: if(j & VMOT)goto rtn;
79: k = j & ~MOTV;
80: if(j & NMOT)k = -k;
81: goto rtn;
82: }
83: if((i = (j & CMASK)) == 010){
84: k = -widthp;
85: goto rtn;
86: }
87: if(i == PRESC)i = eschar;
88: if((i == ohc) ||
89: (i >= 0370))goto rtn;
90: if((j>>BYTE) == oldbits){
91: xfont = pfont;
92: xpts = ppts;
93: }else xbits(j);
94: if(j & ZBIT)goto rtn;
95: if(!trflg)i = trtab[i] & BMASK;
96: if((i -= 32) < 0)goto rtn;
97: k = getcw(i);
98: if(bd)k += bd - 1;
99: if(cs)k = cs;
100: widthp = k;
101: rtn:
102: xbitf = trflg = 0;
103: return(k);
104: }
105: getcw(i)
106: int i;
107: {
108: register j,k;
109: register char *p;
110: int x;
111: extern char codetab[];
112:
113: bd = 0;
114: if((code = codetab[i]) & 0200){
115: if(smnt){
116: p = fontab[smnt-1];
117: if(xfont == (sbold-1))bd = bdtab[smnt-1];
118: goto g0;
119: }
120: code = 0;
121: k = 36;
122: goto g1;
123: }
124: p = fontab[xfont];
125: g0:
126: if(!i)k = spacesz;
127: else k = *(p + i) & BMASK;
128: if(setwdf)v_ct |= ((k>>6) & 3);
129: g1:
130: k = (j = (k&077)*(xpts&077))/6;
131: if((j%6) >= 3)k++;
132: if(cs = cstab[xfont]){
133: if(ccs = ccstab[xfont])x = ccs; else x = xpts;
134: cs = (j = (cs&077)*(x&077))/6;
135: if((j%6) >= 3)cs++;
136: }
137: if(!bd)bd = bdtab[xfont];
138: return(k);
139: }
140: xbits(i)
141: int i;
142: {
143: register j, k;
144:
145: j = i >> BYTE;
146: xfont = (j>>1) & 03;
147: if(k = (j>>3) & 017){
148: xpts = pstab[--k];
149: if(psctab[k] < 0)xpts |= DBL;
150: oldbits = j;
151: pfont = xfont;
152: ppts = xpts;
153: goto rtn;
154: }
155: switch(xbitf){
156: case 0:
157: xfont = font;
158: xpts = pts;
159: break;
160: case 1:
161: xfont = pfont;
162: xpts = ppts;
163: break;
164: case 2:
165: xfont = mfont;
166: xpts = mpts;
167: }
168: rtn:
169: xbitf = 0;
170: }
171: setch(){
172: register i,*j,k;
173: extern int chtab[];
174:
175: if((i = getrq()) == 0)return(0);
176: for(j=chtab;*j != i;j++)if(*(j++) == 0)return(0);
177: k = *(++j) | chbits;
178: return(k);
179: }
180: find(i,j)
181: int i,j[];
182: {
183: register k;
184:
185: if(((k = i-'0') >= 1) && (k <= 4) && (k != smnt))return(--k);
186: for(k=0; j[k] != i; k++)if(j[k] == 0)return(-1);
187: return(k);
188: }
189: caseps(){
190: register i;
191:
192: if(skip())i = apts1;
193: else{
194: noscale++;
195: i = inumb(&apts);
196: noscale = 0;
197: if(nonumb)return;
198: }
199: casps1(i);
200: }
201: casps1(i)
202: int i;
203: {
204: if(i <= 0)return;
205: if(fz[font].size){
206: i = getfz(font, i);
207: }
208: apts1 = apts;
209: apts = i;
210: pts1 = pts;
211: pts = findps(i & 077);
212: mchbits();
213: }
214: findps(i)
215: int i;
216: {
217: register j, k;
218:
219: for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
220: if(psctab[j] < 0)k |= DBL;
221: return(k);
222: }
223: mchbits(){
224: register i, j, k;
225:
226: spbits = 0;
227: i = pts & 077;
228: for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
229: chbits = (((++j)<<2) | font) << (BYTE + 1);
230: sps = width(' ' | chbits);
231: if(font == (spsz-1)){
232: i = findps(getfz(smnt-1, apts + fz[font].fzinc));
233: for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
234: spbits = (((++j)<<2) | font) << (BYTE + 1);
235: }
236: }
237: getfz(x,y)
238: int x, y;
239: {
240: register i, j;
241:
242: i = fz[x].size;
243: j = fz[x].sign;
244: if(i || j){
245: if(j == '+')i += y;
246: else if(j == '-')i = y - i;
247: }
248: fz[x].fzinc = y - i;
249: return(i);
250: }
251: setps(){
252: register i,j;
253:
254: if((((i=getch() & CMASK) == '+') || (i == '-')) &&
255: (((j=(ch = getch() & CMASK) - '0') >= 0) && (j <= 9))){
256: if(i == '-')j = -j;
257: ch = 0;
258: casps1(apts+j);
259: return;
260: }
261: if((i -= '0') == 0){
262: casps1(apts1);
263: return;
264: }
265: if((i > 0) && (i <= 9)){
266: if((i <= 3) &&
267: ((j=(ch = getch() & CMASK) - '0') >= 0) && (j <= 9)){
268: i = 10*i +j;
269: ch = 0;
270: }
271: casps1(i);
272: }
273: }
274: caseft(){
275: skip();
276: setfont(1);
277: }
278: setfont(a)
279: int a;
280: {
281: register i,j;
282:
283: if(a)i = getrq();
284: else i = getsn();
285: if(!i || (i == 'P'))
286: j = font1;
287: else if ((i == 'S') || ((j = find(i,fontlab)) == -1)) return;
288: font1 = font;
289: font = j;
290: i = 0;
291: if(fz[font1].size){
292: i++;
293: casps1(apts + fz[font1].fzinc);
294: }else if(fz[font].size){
295: i++;
296: casps1(apts);
297: }
298: if(!i)mchbits();
299: }
300: setwd(){
301: register i, base, wid;
302: int delim, em, k;
303: int savlevel, savhp, savapts, savapts1, savfont, savfont1,
304: savpts, savpts1;
305:
306: base = v_st = v_sb = wid = v_ct = 0;
307: if((delim = getch() & CMASK) & MOT)return;
308: savhp = v_hp;
309: savlevel = level;
310: v_hp = level = 0;
311: savapts = apts;
312: savapts1 = apts1;
313: savfont = font;
314: savfont1 = font1;
315: savpts = pts;
316: savpts1 = pts1;
317: setwdf++;
318: while ((i = getch()) && (ch_CMASK != delim) && !nlflg) {
319: wid += width(i);
320: if(!(i & MOT)){
321: em = (xpts & 077)*6;
322: }else if(i & VMOT){
323: k = i & ~MOTV;
324: if(i & NMOT)k = -k;
325: base -= k;
326: em = 0;
327: }else continue;
328: if(base < v_sb)v_sb = base;
329: if((k=base + em) > v_st)v_st = k;
330: }
331: nform = 0;
332: setn1(wid);
333: v_hp = savhp;
334: level = savlevel;
335: apts = savapts;
336: apts1 = savapts1;
337: font = savfont;
338: font1 = savfont1;
339: pts = savpts;
340: pts1 = savpts1;
341: mchbits();
342: setwdf = 0;
343: }
344: mot(){
345: register i, j;
346:
347: j = HOR;
348: getch(); /*eat delim*/
349: if(i = atoi()){
350: if(vflag)j = VERT;
351: i = makem(quant(i,j));
352: }
353: getch();
354: vflag = 0;
355: dfact = 1;
356: return(i);
357: }
358: sethl(k)
359: int k;
360: {
361: register i;
362:
363: i = 3 * (pts & 077);
364: if(k == 'u')i = -i;
365: else if(k == 'r')i = -2*i;
366: vflag++;
367: i = makem(i);
368: vflag = 0;
369: return(i);
370: }
371: makem(i)
372: int i;
373: {
374: register j;
375:
376: if((j = i) < 0)j = -j;
377: j = (j & ~MOTV) | MOT;
378: if(i < 0)j |= NMOT;
379: if(vflag)j |= VMOT;
380: return(j);
381: }
382: getlg(i)
383: int i;
384: {
385: register j, k;
386:
387: switch((j = getch0()) & CMASK){
388: case 'f':
389: if(lg!=2){switch((k =getch0()) & CMASK){
390: case 'i':
391: j = 0214;
392: break;
393: case 'l':
394: j = 0215;
395: break;
396: default:
397: setch0(k);
398: j = 0213;
399: }
400: }else j = 0213;
401: break;
402: case 'l':
403: j = 0212;
404: break;
405: case 'i':
406: j = 0211;
407: break;
408: default:
409: setch0(j);
410: j = i;
411: }
412: return((i & ~CMASK) | j);
413: }
414: caselg(){
415:
416: lg = 1;
417: if(skip())return;
418: lg = atoi();
419: }
420: casefp(){
421: register i, j;
422: int chr;
423:
424: skip();
425: if(((i = (getch() & CMASK) - '0' -1) < 0) || (i >3)) {
426: prstr("fp: bad font position\n");
427: return; }
428: if(skip() || !(j = getrq())){prstr("fp: no font name\n"); return;}
429: fontfile[ffi] = j & BMASK;
430: fontfile[ffi+1] = j>>BYTE;
431: #ifdef tso
432: if (fontfile[ffi+1]) {
433: fontfile[ffi+2] = '.'; /* fudge file name (to ftxx.f) */
434: fontfile[ffi+3] = 'f'; }
435: else {
436: fontfile[ffi+1] = '.';
437: fontfile[ffi+2] = 'f'; }
438: #endif
439: getfont(i,0); /* read in font table */
440: if(i == (smnt-1)){smnt = 0; sbold = 0; spsz = 0;}
441: if((fontlab[i] = j) == 'S')smnt = i + 1;
442: bdtab[i] = cstab[i] = ccstab[i] = 0;
443: fz[i].fzinc = fz[i].sign = fz[i].size = 0;
444: #ifndef tso
445: if(ptid != 1){
446: #endif
447: prstr("Mount font ");
448: aprstr(&fontfile[ffi]);
449: prstr(" on ");
450: chr = PAIR((i + '1'),0);
451: aprstr(&chr);
452: prstr("\n");
453: #ifndef tso
454: }
455: #endif
456: }
457: getfont(pos,new)
458: int pos,new;
459: {
460: register filedes k;
461:
462: #ifdef unix
463: if((k = open(fontfile,0)) < 0){
464: #endif
465: #ifdef tso
466: if ((k = fopen(fname(fontfile),"r,BINARY"))==NULL) {
467: #endif
468: if (!new) prstr("Non-existent font type");
469: else prstr("Unknown output device");
470: c0:
471: prstr("\n");
472: done(-1);
473: }
474: #ifdef unix
475: if(read(k,fontab[pos],256-32) != 256-32){
476: #endif
477: #ifdef tso
478: if (fread((char *)fontab[pos],1,256-32,k) != 256-32) {
479: #endif
480: prstr("Cannot read font file");
481: goto c0;
482: }
483: #ifdef unix
484: close(k);
485: #endif
486: #ifdef tso
487: fclose(k);
488: #endif
489: }
490: casecs(){
491: register i, j;
492:
493: noscale++;
494: skip();
495: if(!(i=getrq()) ||
496: ((i = find(i,fontlab)) < 0))goto rtn;
497: skip();
498: cstab[i] = atoi();
499: skip();
500: j = atoi();
501: if(!nonumb)ccstab[i] = findps(j);
502: rtn:
503: noscale = 0;
504: }
505: casebd(){
506: register i, j, k;
507:
508: k = 0;
509: bd0:
510: if(skip() || !(i = getrq()) ||
511: ((j = find(i,fontlab)) == -1)){
512: if(k)goto bd1;
513: else return;
514: }
515: if(j == (smnt-1)){
516: k = smnt;
517: goto bd0;
518: }
519: if(k){
520: sbold = j + 1;
521: j = k -1;
522: }
523: bd1:
524: skip();
525: noscale++;
526: bdtab[j] = atoi();
527: noscale = 0;
528: }
529: casevs(){
530: register i;
531:
532: skip();
533: vflag++;
534: dfact = 6; /*default scaling is points!*/
535: res = VERT;
536: i = inumb(&lss);
537: if(nonumb)i = lss1;
538: if(i < VERT)i = VERT;
539: lss1 = lss;
540: lss = i;
541: }
542: casess(){
543: register i;
544:
545: noscale++;
546: skip();
547: if(i = atoi()){
548: spacesz = i& 0177;
549: sps = width(' ' | chbits);
550: }
551: noscale = 0;
552: }
553: xlss(){
554: register i, j;
555:
556: getch();
557: dfact = lss;
558: i = quant(atoi(),VERT);
559: dfact = 1;
560: getch();
561: if((j = i) < 0)j = -j;
562: setch0(((j & 03700)<<3) | HX);
563: if(i < 0) setch0(tch[0] | 040000);
564: return(((j & 077)<<9) | LX);
565: }
566:
567: casepi() {}
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.