![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to n1.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 n1.c CVS log | Up to [Research Unix] / researchv10no / cmd / troff / ancient.nroff |
1.1 root 1: /*
2: * roff.src - v 1.123 of 12/5/80
3: *
4: * This is the first file of the nroff/troff program (n1.c).
5: *
6: */
7:
8:
9:
10:
11: #ifdef NROFF
12: char ntversion[] = "@(#)nroff: 1.123";
13: #else
14: char ntversion[] = "@(#)troff: 1.123";
15: #endif
16:
17: #ifndef unix
18: char ntNunix[] = "@(#) non-unix";
19: #define INCORE
20: #define SMALL
21: #define tso
22: #endif
23:
24: #ifdef SMALL
25: char ntSMALL[] = "@(#) SMALL";
26: #define NDIAGS
27: #define NOCOMPACT
28: #endif
29:
30: #ifdef INCORE
31: char ntINC[] = "@(#) incore";
32: #define NOCOMPACT
33: #endif
34:
35: #ifdef NDIAGS
36: char ntDIAGS[] = "@(#) NDIAGS";
37: #endif
38:
39: #ifdef NOCOMPACT
40: char ntNOCOMPACT[] = "@(#) NOCOMPACT";
41: #endif
42:
43:
44:
45: int version = 1123; /* nroff/troff version tag */
46:
47: #ifdef unix
48: #include <sys/types.h>
49: #include <sys/stat.h>
50: #endif
51: #include "tdef.hd"
52: #include "strs.hd"
53: #ifndef INCORE
54: #include "uns.hd"
55: #endif
56: #ifdef NROFF
57: #include "tw.hd"
58: extern struct ttable t;
59: #endif
60: #ifdef unix
61: #include <setjmp.h>
62: jmp_buf sjbuf;
63: #include <sgtty.h>
64: #endif
65: /*
66: troff1.c
67:
68: consume options, initialization, main loop,
69: input routines, escape function calling
70: */
71:
72: extern struct s *frame, *stk, *nxf;
73: extern struct s *ejl;
74: extern struct tmpfaddr ip;
75: #ifndef INCORE
76: extern struct envblock eblock; /* environment block */
77: #else
78: extern struct envblock eblock[NEV]; /* incore environments */
79: extern char *malloc();
80: extern int *argsp;
81: extern int maclev;
82: #endif
83: extern struct d d[NDI], *dip;
84: extern struct datablock dblock; /* compactable data area */
85:
86:
87: #ifndef SMALL
88: extern int fork(), pipe(), dup2();
89: extern int **argpp; /* pointers to request arguments */
90: #endif
91:
92: #ifdef ebcdic
93: extern char atoe[], etoa[]; /* ascii to ebcdic and vice versa */
94: extern char *fname();
95: #endif
96: #ifdef tso
97: char hibuf[NSO][IBUFSZ]; /* input buffers during .so */
98: int heibuf[NSO]; /* end pointers for hibuf */
99: int hibufp[NSO]; /* current pos pointers for hibuf */
100: #endif
101: extern int ev;
102: extern int bdtab[];
103: extern getfont();
104: extern char *mktemp();
105: extern char *ttyname();
106: #ifndef INCORE
107: extern char *setbrk();
108: #endif
109: extern char *ttyname();
110: extern catch(), fpecatch(), kcatch();
111: extern int cd;
112: extern int vflag;
113: extern int dfact;
114: extern int tch[];
115: extern int *cstk[], cstkl;
116: extern int ch_CMASK;
117: extern long atoi0();
118: extern int ndone;
119: extern int stdi;
120: extern int waitf;
121: extern int nofeed;
122: extern int quiet;
123: extern filedes ptid;
124: extern int ascii;
125: extern int npn;
126: extern int xflg;
127: extern int stop;
128: extern char ibuf[IBUFSZ];
129: extern char xbuf[IBUFSZ];
130: extern char *ibufp;
131: extern char *xbufp;
132: extern char *eibuf;
133: extern char *xeibuf;
134: extern int cbuf[NC];
135: extern int nx;
136: extern int mflg;
137: extern int ch;
138: extern int pto;
139: extern int pfrom;
140: extern int cps;
141: extern int suffid;
142: extern char suftab[];
143: extern int ibf;
144: extern filedes ttyod;
145: #ifdef unix
146: extern struct sgttyb ttys;
147: #endif
148: extern int iflg;
149: extern int init;
150: extern int rargc;
151: extern char **argp;
152: extern int lgf;
153: extern int copyf;
154: extern int eschar;
155: extern int cwidth;
156: extern int nlflg;
157: extern int donef;
158: extern int nflush;
159: extern int nfo;
160: extern filedes ifile;
161: extern int fc;
162: extern int padc;
163: extern int raw;
164: extern struct {
165: char buf[NS];
166: } nextf[NSN];
167: char cfname[NSO][NS] = "<standard input"; /* file name stack */
168: extern char newf[];
169: extern int nfi;
170: #ifdef NROFF
171: extern char termtab[];
172: extern int tti;
173: #endif
174: extern filedes ifl[NSO];
175: extern int ifi;
176: extern int flss;
177: extern char ptname[];
178: extern int print;
179: extern int nonumb;
180: extern int pnlist[];
181: extern int *pnp;
182: extern int trap;
183: extern int tflg;
184: extern int ejf;
185: extern int gflag;
186: extern int oline[];
187: extern int *olinep;
188: extern int dpn;
189: extern int noscale;
190: extern char *unlkp;
191: extern int level;
192: extern int ttysave;
193: extern int dotT;
194: extern int tabch, ldrch;
195: extern no_out;
196: #ifndef NROFF
197: extern char codetab[];
198: extern int lg;
199: extern char fontfile[];
200: extern int ffi; /* index into fontfile string (see t6.c) */
201: #else
202: extern int eqflg;
203: extern int hflg;
204: #endif
205: int nnextf = 0; /* index into nextf */
206: struct tmpfaddr ipl[NSO];
207: long offl[NSO];
208: long ioff;
209: char *ttyp;
210: int ms[] = {31,28,31,30,31,30,31,31,30,31,30,31};
211:
212: #ifndef SMALL
213: int unixp; /* pointer into unix call buffer */
214: int unixpt=0; /* top of unix buffer */
215: int unixch=0; /* channel for unix reads */
216: #endif
217:
218: #ifndef NROFF
219: int acctf;
220: #endif
221: int did_mesg = 0;
222:
223: /* definitions for compacted macros */
224:
225: #ifndef NOCOMPACT
226:
227: extern char cmpctf[], cmpctuf[];
228:
229: int cmpcti; /* pointer into cmpctt string */
230: int compact; /* compact flag */
231: char cname[10] = "x."; /* string name for compacted output */
232: int cnamei = 2; /* pointer to end of cname string */
233:
234: #endif
235: main(argc, argv, envp)
236: int argc;
237: char **argv, **envp;
238: {
239: register char *p, *q;
240: register i;
241: #ifndef NOCOMPACT
242: int sargc; /* hold argc, argv for -c */
243: char **sargv;
244: int tversion;
245:
246: sargc = argc;
247: sargv = argv;
248: #endif
249:
250: #ifdef ebcdic
251: cargs(argc, argv); /* convert args to ascii */
252: #endif
253: setsignals();
254: init1(argv[0][0]);
255:
256: #ifdef NROFF
257: for (tti = -1; termtab[++tti]; ) ; /* find end of string */
258: termtab[tti] = '3';
259: termtab[tti+1] = '7'; /* tab37 is default terminal table */
260: #ifdef tso
261: termtab[tti+2] = '.'; /* fudge name (to tabnn.t) */
262: termtab[tti+3] = 't';
263: #endif
264: #else
265: for (ffi = -1; fontfile[++ffi]; ) ; /* find end of string */
266: #endif
267:
268: #ifndef NOCOMPACT
269: for (cmpcti = -1; cmpctf[++cmpcti]; ) ; /* end of comp. macr. names */
270: #endif
271:
272: for (nfi = -1; nextf[0].buf[++nfi]; ) ; /* find end of string */
273:
274: while(--argc > 0 && (++argv)[0][0]=='-')
275: switch(argv[0][1]){
276:
277: case 0:
278: goto start;
279: case 'i':
280: stdi++;
281: continue;
282: case 'q':
283: quiet++;
284: #ifdef unix
285: if(gtty(0, &ttys) >= 0)
286: ttysave = ttys.sg_flags;
287: #endif
288: continue;
289: case 'n':
290: npn = cnum(&argv[0][2]);
291: continue;
292: case 'p':
293: xflg = 0;
294: cps = cnum(&argv[0][2]);
295: continue;
296: case 's':
297: if(!(stop = cnum(&argv[0][2])))stop++;
298: continue;
299: case 'r':
300: vlist[findr(argv[0][2])] = cnum(&argv[0][3]);
301: continue;
302: case 'c': /* read compacted macros */
303: #ifndef NOCOMPACT
304: if (mflg) goto regmac; /* use -m if not first package */
305: else mflg++;
306: p = &cmpctf[cmpcti];
307: q = &argv[0][2];
308: while (*p++ = *q++) ; /* make compacted file name */
309:
310: if ((i = open(cmpctf,0)) < 0)
311: goto regless; /* data area */
312: if ((read(i,&tversion,sizeof(version)) != sizeof(version)) ||
313: (tversion != version ))
314: goto regless; /* wrong version of macros */
315: if ((read(i,&dblock,sizeof(struct datablock))) <
316: sizeof(struct datablock)) {
317: prstr("error reading data area\n");
318: exit(1); }
319:
320: cmpctf[cmpcti-2] = 't'; /* now tmp file */
321: if ((i = open(cmpctf,0)) < 0) {
322: prstr("can't find compacted tmp file\n");
323: exit(1); }
324: Mcp(i, ibf); /* copy tmp file */
325: close(i);
326:
327: p = nextf[nnextf++].buf; /* save name of uncomp. area */
328: q = cmpctuf;
329: while (*p++ = *q++) ;
330: p--; /* point to uncompacted segment */
331: q = &argv[0][2]; /* package name */
332: while (*p++ = *q++) ; /* stow it */
333:
334: for (sargc-=argc; ((--sargc>0)&&((++sargv)[0][0])); )
335: if (sargv[0][1] == 'r') /* re-eval nr settings */
336: vlist[findr(sargv[0][2])] = cnum(&sargv[0][3]);
337:
338: continue;
339:
340: case 'k':
341: p = &cname[cnamei]; /* save name to compact into */
342: q = &argv[0][2];
343: while (*p++ = *q++) ;
344: compact++;
345: continue;
346:
347: regless: mflg--; /* fall into -m */
348: #endif
349: case 'm':
350: regmac:
351: if (mflg++ >= NSN) ertoomp();
352: p = &nextf[nnextf++].buf[nfi];
353: q = &argv[0][2];
354: while((*p++ = *q++) != 0);
355: continue;
356: case 'o':
357: getpn(&argv[0][2]);
358: continue;
359: #ifdef NROFF
360: case 'h':
361: hflg++;
362: continue;
363: case 'z':
364: no_out++;
365: continue;
366: case 'e':
367: eqflg++;
368: continue;
369: case 'T':
370: p = &termtab[tti];
371: q = &argv[0][2];
372: if(!((*q) & 0177))continue;
373: while((*p++ = *q++) != 0);
374: #ifdef tso
375: *p++ = '.'; /* fudge name on tso */
376: *p++ = 't';
377: #endif
378: dotT++;
379: continue;
380: case 'u':
381: bdtab[2] = cnum(&argv[0][2]); /* set emboldening */
382: if ((bdtab[2]<0) || (bdtab[2]>50)) bdtab[2]=0;
383: continue;
384: #endif
385: #ifndef NROFF
386: case 'z':
387: no_out++;
388: case 'a':
389: ascii = 1;
390: nofeed++;
391: case 't':
392: #ifndef tso
393: ptid = 1;
394: #endif
395: continue;
396: case 'w':
397: waitf = 1;
398: continue;
399: case 'f':
400: nofeed++;
401: continue;
402: case 'x':
403: xflg = 0;
404: continue;
405: case 'b':
406: #ifdef unix
407: if(open(ptname,1) < 0)prstr("Busy.\n");
408: else
409: #endif
410: prstr("Available.\n");
411: done3(0);
412: case 'g':
413: stop = gflag = 1;
414: #ifdef unix
415: ptid = 1;
416: #endif
417: dpn = 0;
418: continue;
419: case 'T':
420: ffi -= 2; /* overwrite 'ft' */
421: for (p = &argv[0][2]; (fontfile[ffi] = *p++); ffi++);
422: fontfile[ffi++] = '/'; /* build new path */
423: fontfile[ffi++] = 'f';
424: fontfile[ffi++] = 't';
425: #ifdef tso
426: fontfile[ffi+1] = '.'; /* fudge name on tso */
427: fontfile[ffi+2] = 'f';
428: #endif
429: fontfile[ffi] = 'R'; getfont(0,1); /* get default fonts */
430: fontfile[ffi] = 'I'; getfont(1,1);
431: fontfile[ffi] = 'B'; getfont(2,1);
432: fontfile[ffi] = 'S'; getfont(3,1);
433: continue;
434: #endif
435: default:
436: prstr("Unknown option: ");
437: aprstr(argv[0]);
438: prstr("\n");
439: ferrex();
440: }
441: start:
442: argp = argv;
443: rargc = argc;
444: nnextf = 0;
445: init2();
446: #ifdef unix
447: setjmp(sjbuf);
448: #endif
449: #ifdef tso
450: setexit();
451: #endif
452: loop:
453: copyf = lgf = nb = nflush = nlflg = 0;
454: if(ip.b && (rbf0(&ip)==0) && ejf
455: #ifndef INCORE
456: && (frame->pframe <= ejl)
457: #else
458: && ((maclev-1) <= (int)ejl)
459: #endif
460: ) {
461: nflush++;
462: trap = 0;
463: eject((struct s *)0);
464: goto loop;
465: }
466: i = getch();
467: if(pendt)goto lablt;
468: if(ch_CMASK == XPAR){
469: copyf++;
470: tflg++;
471: for(;ch_CMASK != '\n';)pchar(getch());
472: tflg = 0;
473: copyf--;
474: goto loop;
475: }
476: if((ch_CMASK == cc) || (ch_CMASK == c2)){
477: if(ch_CMASK == c2)nb++;
478: copyf++;
479: do i = getch();
480: while ((ch_CMASK == ' ') || (ch_CMASK == '\t'));
481: ch = i;
482: copyf--;
483: control(getrq(),1);
484: flushi();
485: goto loop;
486: }
487: lablt:
488: ch = i;
489: text();
490: goto loop;
491: }
492: setsignals()
493: {
494: #ifdef unix
495: signal(SIGHUP,catch);
496: if (signal(SIGINT,SIG_IGN) == SIG_IGN){
497: signal(SIGHUP,SIG_IGN);
498: signal(SIGINT,SIG_IGN);
499: signal(SIGQUIT,SIG_IGN); }
500: else signal(SIGINT,catch);
501: signal(SIGFPE,fpecatch);
502: signal(SIGPIPE,catch);
503: signal(SIGTERM,kcatch);
504: #endif
505: }
506: catch(){
507: /*
508: prstr("Interrupt\n");
509: */
510: done3(01);
511: }
512: fpecatch(){
513: prstrfl("Floating Exception.\n");
514: #ifdef unix
515: signal(SIGFPE,fpecatch);
516: #endif
517: }
518: kcatch(){
519: #ifdef unix
520: signal(SIGTERM,SIG_IGN);
521: #endif
522: done3(01);
523: }
524: #ifndef NROFF
525: #ifndef SMALL
526: acctg() {
527: static char *acct_file = "/usr/adm/tracct";
528: acctf = open(acct_file,1);
529: setuid(getuid());
530: }
531: #endif
532: #endif
533: init1(a)
534: char a;
535: {
536: register char *p;
537: register i;
538:
539: #ifndef NROFF
540: #ifndef SMALL
541: acctg();/*open troff actg file while mode 4755*/
542: #endif
543: #endif
544: #ifndef INCORE
545: if((suffid=open(suftab,0)) < 0) errcos();
546: read(suffid, sufind.chr, sizeof(sufind));
547:
548: p = mktemp("/tmp/taXXXXX");
549: if(a == 'a')p = &p[5];
550: if((close(creat(p, 0600))) < 0){
551: prstr("Cannot create temp file.\n");
552: exit(-1);
553: }
554: ibf = open(p, 2);
555: #endif
556: for(i=256; --i;)trtab[i]=i;
557: trtab[UNPAD] = ' ';
558: mchbits();
559: #ifndef INCORE
560: if(a != 'a')unlkp = p;
561: #endif
562: }
563: init2()
564: {
565: register i,j;
566:
567: #ifdef unix
568: ttyod = 2;
569: if(((ttyp=ttyname(j=0)) != (char *)0) ||
570: ((ttyp=ttyname(j=1)) != (char *)0) ||
571: ((ttyp=ttyname(j=2)) != (char *)0)
572: );else
573: #endif
574: ttyp = "notty";
575: #ifdef tso
576: ttyod = stdout;
577: #endif
578: iflg = j;
579: if(ascii)mesg(0);
580:
581: #ifdef unix
582: if (!ptid && !waitf
583: #ifndef NOCOMPACT
584: && !compact
585: #endif
586: ) {
587: if((ptid = open(ptname,1)) < 0){
588: prstr("Typesetter busy.\n");
589: done3(-2);
590: }
591: }
592: #endif
593: #ifdef tso
594: if ((ptid = fopen("OUTPUT", "w,BINARY")) == (FILE *)-1) {
595: prstr("can't create OUTPUT");
596: exit(1); }
597: #endif
598: ptinit();
599: for(i=NEV; i--;)
600: #ifndef INCORE
601: write(ibf, (char *)&eblock, sizeof(struct envblock));
602: #else
603: if (i)
604: { char *p, *q;
605: for (p=(char *)&eblock[i],q=(char *)&eblock[0],j=0; (j<sizeof(struct envblock)); j++)
606: *p++ = *q++; }
607: #endif
608: olinep = oline;
609: ibufp = eibuf = ibuf;
610: v_hp = init = 0;
611: ioff = 0;
612: v_nl = -1;
613: cvtime();
614: #ifndef INCORE
615: frame = stk = (struct s *)setbrk(DELTA);
616: #else
617: frame = stk = (struct s *)malloc(sizeof(struct s));
618: /* incore version */
619: #endif
620: dip = &d[0];
621: #ifndef INCORE
622: nxf = frame + 1;
623: #else
624: nxf = (struct s *)malloc(sizeof(struct s));
625: #endif
626: nx = mflg;
627: }
628: cvtime(){
629:
630: long tt;
631: register i;
632:
633: time(&tt);
634: tt -= 3600*ZONE; /*5hrs for EST*/
635: v_dy = (tt/86400L) + 1;
636: v_dw = (v_dy + 3)%7 + 1;
637: for(v_yr=70;; v_yr++){
638: if((v_yr)%4)ms[1]=28;else ms[1]=29;
639: for(i=0;i<12;){
640: if(v_dy<=ms[i]){
641: v_mo = i+1;
642: return;
643: }
644: v_dy -= ms[i++];
645: }
646: }
647: }
648: cnum(a)
649: char *a;
650: {
651: register i;
652:
653: ibufp = a;
654: for (eibuf = a; *eibuf++; ) ;
655: i = atoi();
656: ch = 0;
657: return(i);
658: }
659: mesg(f)
660: int f;
661: {
662: #ifdef unix
663: static int mode;
664: struct stat statb;
665:
666: if(!f){
667: stat(ttyp,&statb);
668: mode = statb.st_mode;
669: chmod(ttyp,mode & ~0122);
670: did_mesg = 1;
671: }else{
672: if (did_mesg) chmod(ttyp,mode);
673: }
674: #endif
675: }
676: prstrfl(s)
677: char *s;
678: {
679: flusho();
680: prstr(s);
681: }
682: prstr(s)
683: char *s;
684: {
685: register i;
686: register char *j;
687:
688: #ifdef unix
689: j = s;
690: for(i=0;*s;i++)s++;
691: write(ttyod,j,i);
692: #endif
693: #ifdef ebcdic
694: while (i = *s++) {
695: if (putc(i, ttyod) == EOF)
696: exit(1);
697: if (etoa[i] == '\n')
698: fflush(ttyod); }
699: #endif
700: }
701: #ifdef ebcdic
702: aprstrfl(s)
703: char *s;
704: {
705: flusho();
706: aprstr(s);
707: }
708: aprstr(s)
709: char *s;
710: { register i;
711: register char *j;
712:
713: while (i = *s++) {
714: if (putc(atoe[i], ttyod) == EOF)
715: exit(1);
716: if (i == '\n')
717: fflush(ttyod); }
718: }
719: #endif
720: control(a,b)
721: int a,b;
722: {
723: register i,j;
724:
725: i = a;
726: if((i == 0) || ((j = frmname(i)) == -1))return(0);
727: if (nametab[j].ename & MMASK) {
728: nxf->nargs = 0;
729: if(b)collect();
730: flushi();
731: return(pushi((filep)nametab[j].vv.val)); }
732: else {
733: if(!b)return(0);
734: return ((*nametab[j].vv.f)(0)); }
735: }
736:
737: getrq(){
738: register i,j;
739:
740: if(((i=getach()) == 0) ||
741: ((j=getach()) == 0))goto rtn;
742: i = PAIR(i,j);
743: rtn:
744: return(i);
745: }
746: getch(){
747: register int i, j, k;
748:
749: level++;
750: g0:
751: if(ch){
752: if (((ch_CMASK = (i = ch) & CMASK)) == '\n')nlflg++;
753: ch = 0;
754: level--;
755: return(i);
756: }
757:
758: if(nlflg){
759: level--;
760: return(ch_CMASK = '\n');
761: }
762:
763: if((k = (i = getch0()) & CMASK) != ESC){
764: if(i & MOT)goto g2;
765: if(k == FLSS){
766: copyf++; raw++;
767: i = getch0();
768: /* sign extend */
769: if (i & 0100000) i |= (int)~0177777;
770: if(!fi)flss = i;
771: copyf--; raw--;
772: goto g0;
773: }
774: if(!copyf){
775: #ifndef NROFF
776: if((k == 'f') && lg && !lgf){
777: i = getlg(i);
778: goto g2;
779: }
780: #endif
781: if((k == fc) || (k == tabch) || (k == ldrch)){
782: if((i=setfield(k)) == 0)goto g0; else goto g2;
783: }
784: if(k == 010){
785: i = makem(-width(' ' | chbits));
786: goto g2;
787: }
788: }
789: goto g2;
790: }
791: k = (j = getch0()) & CMASK;
792: if(j & MOT){
793: i = j;
794: goto g2;
795: }
796: switch(k){
797:
798: case '\n': /*concealed newline*/
799: goto g0;
800: case 'n': /*number register*/
801: setn();
802: goto g0;
803: case '*': /*string indicator*/
804: setstr();
805: goto g0;
806: case '$': /*argument indicator*/
807: getch();
808: if (((i = ch_CMASK - '0') > 0) && (i <= 9) && (i <= frame->nargs))
809: #ifndef INCORE
810: setap(*((int **)frame + i-1 + (sizeof(struct s)/sizeof(int **))));
811: #else
812: setap((int *)*(argsp + i - 1));
813: #endif
814: goto g0;
815: case '{': /*LEFT*/
816: i = LEFT;
817: goto gx;
818: case '}': /*RIGHT*/
819: i = RIGHT;
820: goto gx;
821: case '"': /*comment*/
822: while(((i=getch0()) & CMASK ) != '\n');
823: goto g2;
824: case ESC: /*double backslash*/
825: i = eschar;
826: goto gx;
827: case 'e': /*printable version of current eschar*/
828: i = PRESC;
829: goto gx;
830: case ' ': /*unpaddable space*/
831: i = UNPAD;
832: goto gx;
833: case '|': /*narrow space*/
834: i = NARSP;
835: goto gx;
836: case '^': /*half of narrow space*/
837: i = HNSP;
838: goto gx;
839: case '\'': /*\(aa*/
840: i = 0222;
841: goto gx;
842: case '`': /*\(ga*/
843: i = 0223;
844: goto gx;
845: case '_': /*\(ul*/
846: i = 0224;
847: goto gx;
848: case '-': /*current font minus*/
849: i = 0210;
850: goto gx;
851: case '&': /*filler*/
852: i = FILLER;
853: goto gx;
854: case 'c': /*to be continued*/
855: i = CONT;
856: goto gx;
857: case ':': /* lem's character */
858: i = COLON;
859: goto gx;
860: case '!': /*transparent indicator*/
861: i = XPAR;
862: goto gx;
863: case 't': /*tab*/
864: i = '\t';
865: goto g2;
866: case 'a': /*leader (SOH)*/
867: i = LEADER;
868: goto g2;
869: case '%': /*ohc*/
870: i = OHC;
871: goto g2;
872: case 'g': /* return format of a number reg */
873: setaf();
874: goto g0;
875: case '.': /*.*/
876: i = '.';
877: gx:
878: i = (j & ~CMASK) | i;
879: goto g2;
880: }
881: if(!copyf)
882: switch(k){
883:
884: case 'p': /*spread*/
885: spread++;
886: goto g0;
887: case '(': /*special char name*/
888: if((i=setch()) == 0)goto g0;
889: break;
890: case 's': /*size indicator*/
891: setps();
892: goto g0;
893: case 'f': /*font indicator*/
894: setfont(0);
895: goto g0;
896: case 'w': /*width function*/
897: setwd();
898: goto g0;
899: case 'v': /*vert mot*/
900: dfact = lss;
901: vflag++;
902: if (i = mot()) break;
903: goto g0;
904: case 'h': /*horiz mot*/
905: #ifdef NROFF
906: dfact = EM;
907: #endif
908: #ifndef NROFF
909: dfact = 6 * (pts & 077);
910: #endif
911: if (i = mot()) break;
912: goto g0;
913: case 'z': /*zero with char*/
914: if (!((i = getch()) & MOT)) i |= ZBIT;
915: break;
916: case 'l': /*hor line*/
917: setline();
918: goto g0;
919: case 'L': /*vert line*/
920: setvline();
921: goto g0;
922: case 'b': /*bracket*/
923: setbra();
924: goto g0;
925: case 'o': /*overstrike*/
926: setov();
927: goto g0;
928: case 'k': /*mark hor place*/
929: if((i=findr(getsn())) == -1)goto g0;
930: vlist[i] = v_hp;
931: goto g0;
932: case 'j': /*mark output hor place*/
933: if(!(i=getach()))goto g0;
934: i = (i<<BYTE) | JREG;
935: break;
936: case '0': /*number space*/
937: i = makem(width('0' | chbits));
938: break;
939: case 'x': /*extra line space*/
940: if(i = xlss())break;
941: goto g0;
942: case 'u': /*half em up*/
943: case 'r': /*full em up*/
944: case 'd': /*half em down*/
945: i = sethl(k);
946: break;
947: default:
948: i = j;
949: }
950: else{
951: setch0(j);
952: i = eschar;
953: }
954: g2:
955: if((ch_CMASK = (i & CMASK)) == '\n'){
956: nlflg++;
957: v_hp = 0;
958: if (!ip.b) cd++;
959: }
960: if(!--level){
961: j = width(i);
962: v_hp += j;
963: cwidth = j;
964: }
965: return(i);
966: }
967: char ifilt[32] = {0,001,002,003,0,005,006,007,010,
968: 011,012,0,0,0,016,017,0,
969: 0,0,0,0,0,0,0,0,
970: 0,0,033};
971: getch0(){
972: register int i, j;
973:
974: again:
975: if (cstkl) { /* characters in stack? */
976: while ((i = *cstk[cstkl]++) == 0) {
977: cstk[cstkl--] = 0; /* that string is depleted */
978: while (cstkl && !cstk[cstkl])
979: cstkl--; /* find next in stack */
980: if (!cstkl) break; } /* out if stack empty */
981: if (cstkl >= RP) return (i);
982: else if (i) goto g5; }
983: ipagain:
984: if (ip.b) /* input from tty or tmp file */
985: i =
986: #ifndef SMALL
987: (ip.b == (filep)-2) ? rdunix() : /* read from unix */
988: #endif
989: (ip.b == (filep)-1) ? rdtty() : /* read from tty */
990: rbf(); /* read from tmp */
991: else {
992: if(donef || ndone)done(0);
993: if(nx || (ibufp >= eibuf)){
994: if(nfo)goto g1;
995: g0:
996: if (nextfile(0)) {
997: if (ip.b) goto ipagain;
998: if (ibufp < eibuf) goto g2; }
999: g1:
1000: nx = 0;
1001: #ifdef unix
1002: if((j=read(ifile,ibuf,IBUFSZ)) <= 0)goto g0;
1003: #endif
1004: #ifdef tso
1005: if ((j=fread(ibuf,1,IBUFSZ,ifile))<=0) goto g0;
1006: #endif
1007: ibufp = ibuf;
1008: eibuf = ibuf + j; }
1009: g2:
1010: #ifndef ebcdic
1011: i = *ibufp++ & 0177;
1012: #else
1013: i = etoa[*ibufp++] & 0177;
1014: #endif
1015: ioff++;
1016: if(i >= 040)goto g4; else i = ifilt[i]; }
1017: g5:
1018: if(raw)return(i);
1019: if((i & CMASK) == IMP)goto again;
1020: if((i == 0) && !init)goto again;
1021: g4:
1022: if((copyf == 0) && ((i & ~BMASK) == 0) && ((i & CMASK) < 0370))
1023: #ifndef NROFF
1024: if(spbits && (i>31) && ((codetab[i-32] & 0200))) i |= spbits;
1025: else
1026: #endif
1027: i |= chbits;
1028: if((i & CMASK) == eschar)i = (i & ~CMASK) | ESC;
1029: return(i);
1030: }
1031: nextfile(nxtog)
1032: int nxtog;
1033: {
1034: register char *p;
1035: register int i;
1036:
1037: n0:
1038: #ifdef unix
1039: if(ifile)close(ifile);
1040: #endif
1041: #ifdef tso
1042: if (ifile) fclose(ifile);
1043: #endif
1044: if(nnextf < mflg){
1045: p = nextf[nnextf++].buf;
1046: goto n1; }
1047: else
1048: if (mflg == nnextf) nnextf++;
1049: if(ifi > 0){
1050: if(popf())goto n0; /*popf error*/
1051: return(1); /*popf ok*/
1052: }
1053: if(rargc-- <= 0) {
1054: if((nfo -= mflg) && !stdi)done(0);
1055: nfo++;
1056: cd = stdi = mflg = 0;
1057: for (i=0,p="<standard input>"; cfname[ifi][i] = p[i]; i++) ;
1058: ifile = (filedes)0;
1059: ioff = 0;
1060: return(0); }
1061: p = (argp++)[0];
1062: n1:
1063: if((p[0] == '-') && (p[1] == 0)){
1064: for (i=0,p="<standard input>"; cfname[ifi][i] = p[i]; i++) ;
1065: ifile = (filedes)0;
1066: }else
1067: #ifdef unix
1068: if((ifile=open(p,0)) >= 0)
1069: #endif
1070: #ifdef tso
1071: if ((ifile=fopen(fname(p),"r")) != NULL)
1072: #endif
1073: for (i=0; cfname[ifi][i] = p[i]; i++) ;
1074: else {
1075: if ((nnextf <= mflg) && !nxtog) {
1076: prstr("Non-existent macro file (");
1077: aprstr(&nextf[nnextf-1].buf[nfi]);
1078: prstr(")"); }
1079: else {
1080: prstr("cannot open file ");
1081: aprstr(p); }
1082: prstr("\n");
1083: nfo -= mflg;
1084: nx = nnextf;
1085: done(02);
1086: }
1087: nfo++;
1088: cd = 0;
1089: ioff = 0;
1090: return(0);
1091: }
1092: popf(){
1093: register i;
1094: register char *p, *q;
1095:
1096: ioff = offl[--ifi];
1097: cptmpfaddr(ip,ipl[ifi]);
1098: if((ifile = ifl[ifi]) == (filedes)0){
1099: p = xbuf;
1100: q = ibuf;
1101: ibufp = xbufp;
1102: eibuf = xeibuf;
1103: while(q < eibuf)*q++ = *p++;
1104: return(0);
1105: }
1106: #ifdef unix
1107: if((lseek(ifile,(long)(ioff & ~(IBUFSZ-1)),0) < (long)0) ||
1108: ((i = read(ifile,ibuf,IBUFSZ)) < 0))return(1);
1109: eibuf = ibuf + i;
1110: ibufp = ibuf;
1111: if(ttyname(ifile) == (char *)0)
1112: ibufp = ibuf + (int)(ioff & (IBUFSZ-1));
1113: #endif
1114: #ifdef tso
1115: eibuf = heibuf[ifi]; /* restore buffers and pointers */
1116: ibufp = hibufp[ifi];
1117: if (ibufp >= eibuf) return (1);
1118: for (p=ibuf,q=hibuf[ifi]; p<=eibuf; )
1119: *p++ = *q++;
1120: #endif
1121: return(0);
1122: }
1123: flushi(){
1124: if(nflush)return;
1125: ch = 0;
1126: if (cstkl == CH0) {
1127: if (tch[0] == '\n') nlflg++;
1128: do cstkl--;
1129: while (cstkl && !cstk[cstkl]); }
1130: copyf++;
1131: while(!nlflg){
1132: if(donef && (frame == stk))break;
1133: getch();
1134: }
1135: copyf--;
1136: v_hp = 0;
1137: }
1138: getach(){
1139: register i;
1140:
1141: lgf++;
1142: if(((i = getch()) & (MOT | 0200)) ||
1143: (ch_CMASK == ' ') ||
1144: (ch_CMASK == '\n')) {
1145: ch = i;
1146: i = 0;
1147: }
1148: lgf--;
1149: return(i & 0177);
1150: }
1151: getname(){
1152: register int i, k;
1153:
1154: lgf++;
1155: for(k=0; k < (NS-1); k++){
1156: i = getch();
1157: if ((ch_CMASK <= ' ') || (ch_CMASK > 0176)) break;
1158: newf[k] = ch_CMASK;
1159: }
1160: newf[k] = 0;
1161: ch = i;
1162: lgf--;
1163: return(newf[0]);
1164: }
1165: casenx(){
1166: register int i;
1167:
1168: lgf++;
1169: skip();
1170: getname();
1171: nx++;
1172: nnextf--;
1173: for (i=0; (nextf[nnextf].buf[i] = newf[i]); i++) ;
1174: i = mflg;
1175: if (mflg <= nnextf) mflg = nnextf + 1;
1176: nextfile(1);
1177: mflg = i;
1178: nlflg++;
1179: cstkl = pendt = ip.b = 0;
1180: cstk[CH0] = cstk[AP] = (int *)0;
1181: frame = stk;
1182: #ifndef INCORE
1183: nxf = frame + 1;
1184: #else
1185: nxf = (struct s *)malloc(sizeof(struct s));
1186: #endif
1187: }
1188: caseso()
1189: {
1190: register filedes i;
1191: register char *p, *q;
1192:
1193: lgf++;
1194: newf[0] = 0;
1195: if(skip() || !getname()
1196: #ifdef unix
1197: || ((i=open(newf,0)) <0)
1198: #endif
1199: #ifdef tso
1200: || ((i=fopen(fname(newf),"r")) == NULL)
1201: #endif
1202: || (ifi >= NSO)) {
1203: prstr("can't open file ");
1204: aprstr(newf);
1205: prstr("\n");
1206: done(02);
1207: }
1208: for (p=cfname[ifi+1],q=newf; *p = *q; p++,q++) ;
1209: flushi();
1210: #ifdef tso
1211: for (p=ibuf,q=hibuf[ifi]; p<eibuf; )
1212: *q++ = *p++;
1213: heibuf[ifi] = eibuf; /* save buffer and pointers */
1214: hibufp[ifi] = ibufp;
1215: #endif
1216: ifl[ifi] = ifile;
1217: ifile = i;
1218: offl[ifi] = ioff;
1219: ioff = 0;
1220: cptmpfaddr(ipl[ifi],ip);
1221: ip.b = 0;
1222: nx++;
1223: nflush++;
1224: if(!ifl[ifi++]){
1225: p = ibuf;
1226: q = xbuf;
1227: xbufp = ibufp;
1228: xeibuf = eibuf;
1229: while(p < eibuf)*q++ = *p++;
1230: }
1231: }
1232: getpn(a)
1233: char *a;
1234: {
1235: register i, neg;
1236: long atoi1();
1237:
1238: if((*a & 0177) == 0)return;
1239: neg = 0;
1240: ibufp = a;
1241: for (eibuf = a; *eibuf++; ) ;
1242: noscale++;
1243: while((i = getch() & CMASK) != 0)switch(i){
1244: case '+':
1245: case ',':
1246: continue;
1247: case '-':
1248: neg = MOT;
1249: goto d2;
1250: default:
1251: ch = i;
1252: d2:
1253: i = atoi1();
1254: if(nonumb)goto fini;
1255: else{
1256: *pnp++ = i | neg;
1257: neg = 0;
1258: if(pnp >= &pnlist[NPN-2]){
1259: prstr("Too many page numbers\n");
1260: done3(-3);
1261: }
1262: }
1263: }
1264: fini:
1265: if(neg)*pnp++ = -2;
1266: *pnp = -1;
1267: ch = noscale = print = 0;
1268: pnp = pnlist;
1269: if(*pnp != -1)chkpn();
1270: }
1271:
1272: /* compacted macros support routines. */
1273:
1274:
1275: #ifndef NOCOMPACT
1276:
1277: Mcp(oldp, newp) /* copy file on oldp to file on newp */
1278: int oldp, newp;
1279: { int n;
1280: char BUF[BSIZE]; /* copy buffer */
1281:
1282: while ((n = read(oldp, BUF, BSIZE)) > 0)
1283:
1284: if (write(newp, BUF, n) != n) {
1285:
1286: prstr("tmp file write error\n");
1287: exit(1); }
1288: }
1289:
1290: #endif
1291:
1292: caseco() /* perform .co request */
1293: {
1294: #ifndef NOCOMPACT
1295: int i;
1296:
1297: if (!compact) return(0);
1298: cname[0] = 'd'; /* data file first */
1299: if ((i = creat(cname, 0666)) < 0) {
1300: prstr("can't create data file\n");
1301: exit(1); }
1302:
1303: write(i, &version, sizeof(version)); /* write current version tag */
1304: write(i, &dblock, sizeof(struct datablock)); /* write data area */
1305: close(i); /* done with data area */
1306:
1307: cname[0] = 't'; /* now the tmp file */
1308: lseek(ibf, (long)(ev*sizeof(struct envblock)), 0); /* write curr env */
1309: write(ibf, (char *)&eblock, sizeof(struct envblock));
1310: lseek(ibf, (long)0, 0); /* rewind */
1311: if ((i = creat(cname, 0666)) < 0) {
1312: prstr("can't create tmp file\n");
1313: exit(1); }
1314: Mcp(ibf, i); /* copy tmp file */
1315: unlink(unlkp); /* remove old tmp file */
1316:
1317: prstr("Compaction completed\n");
1318: exit(1);
1319: #endif
1320: }
1321:
1322: /* error message routines */
1323:
1324: ertoomp() {prstr("Too many macro packages.\n"); exit(-1); }
1325:
1326: #ifndef INCORE
1327: errcos() {prstr("Cannot open suftab.\n"); exit(-1); }
1328: #endif
1329:
1330: ferrex() {
1331: #ifdef unix
1332: #ifndef INCORE
1333: unlink(unlkp);
1334: #endif
1335: #endif
1336: exit(1); }
1337: caseunix() /* read output of command sent to unix */
1338: {
1339: #ifndef SMALL
1340: int fildes[2]; /* file pointers for pipe */
1341: register int i, j;
1342: char argbuf[15*ARGLEN]; /* hold arguments sent to unix */
1343: char *argp[20]; /* pointers to arguments */
1344: register int *p;
1345:
1346: nxf->nargs = 0;
1347: collect(); /* get request arguments */
1348: flushi(); /* flush input */
1349: pipe(fildes); /* open pipe */
1350:
1351: if (fork() == 0) { /* child only code */
1352:
1353: close(1); /* close standard output */
1354: if (dup2(fildes[1], 1) != 1) {
1355: prstr("can't setup command env\n");
1356: exit(1); }
1357: close(fildes[1]); /* close old pipe channel */
1358:
1359: j = 0;
1360: argpp -= nxf->nargs; /* point to args */
1361:
1362: for (i=0; i < nxf->nargs; i++) {
1363: argp[i] = &argbuf[j]; /* point to next string */
1364: for (p = *argpp++; argbuf[j++] = (char)*p++; ) ; }
1365:
1366: argp[nxf->nargs] = 0; /* null after last pointer */
1367: close(0); /* close standard input */
1368: execvp(argp[0], argp); /* call unix program */
1369: prstr("Can't execute ");
1370: prstr(argp[0]);
1371: prstr("\n");
1372: exit(1); }
1373:
1374: else { /* parent only code */
1375:
1376: close(fildes[1]); /* close write side */
1377: unixch = fildes[0]; /* channel for unix reads */
1378: pushi((filep)-2); } /* mark unix read */
1379: }
1380:
1381: rdunix()
1382: {
1383: static char unixb[BSIZE]; /* unix read buffer */
1384:
1385: if (unixp >= unixpt) { /* read a buffer */
1386:
1387: if ((unixpt = read(unixch,unixb,BSIZE)) <= 0) {
1388: close(unixch);
1389: popi(); /* end of file - terminate unix read */
1390: unixch = 0;
1391: return getch0(); }
1392:
1393: else unixp = 0; }
1394:
1395: return unixb[unixp++];
1396: #endif
1397: }
1398:
1399: #ifdef ebcdic
1400:
1401: char *fname(s)
1402: char *s;
1403: { static char fnamebuf[NS];
1404: register char *p;
1405:
1406: for (p = fnamebuf; *s; s++)
1407: if (*s == '/')
1408: p = fnamebuf;
1409: else
1410: *p++ = atoe[*s];
1411: *p++ = 0;
1412: return (fnamebuf);
1413: }
1414:
1415: cargs(rgc, rgv)
1416: int rgc;
1417: char **rgv;
1418: { char *trgv;
1419:
1420: for ( ; (rgc-- > 0); rgv++)
1421:
1422: for (trgv = *rgv; (*trgv); trgv++)
1423:
1424: *trgv = etoa[*trgv];
1425: }
1426:
1427: #endif
1428:
1429: #ifdef tso
1430: abs(i)
1431: int i;
1432: {
1433: if (i >= 0) return i;
1434: else return -i;
1435: }
1436: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.