![[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 [CSRG BSD Unix] / 43BSDReno / usr.bin / roff / common_source|
Return to n1.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / usr.bin / roff / common_source |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)n1.c 4.10 6/2/90";
3: #endif lint
4:
5: #include "tdef.h"
6: #include "pathnames.h"
7: #include <sys/types.h>
8: #include <sys/stat.h>
9: #include <time.h>
10: extern
11: #include "d.h"
12: extern
13: #include "v.h"
14: #ifdef NROFF
15: extern
16: #include "tw.h"
17: #endif
18: #include "sdef.h"
19: #include <setjmp.h>
20: jmp_buf sjbuf;
21: #include <sgtty.h>
22: /*
23: troff1.c
24:
25: consume options, initialization, main loop,
26: input routines, escape function calling
27: */
28:
29: int inchar[LNSIZE], *pinchar = inchar; /* XXX */
30: extern struct s *frame, *stk, *nxf;
31: extern struct s *ejl, *litlev;
32: extern filep ip;
33: extern filep offset;
34: extern filep nextb;
35:
36:
37: extern int stdi;
38: extern int waitf;
39: extern int nofeed;
40: extern int quiet;
41: extern int ptid;
42: extern int ascii;
43: extern int npn;
44: extern int xflg;
45: extern int stop;
46: extern char ibuf[IBUFSZ];
47: extern char xbuf[IBUFSZ];
48: extern char *ibufp;
49: extern char *xbufp;
50: extern char *eibuf;
51: extern char *xeibuf;
52: extern int cbuf[NC];
53: extern int *cp;
54: extern int *vlist;
55: extern int nx;
56: extern int mflg;
57: extern int ch;
58: extern int pto;
59: extern int pfrom;
60: extern int cps;
61: extern int chbits;
62: extern int ibf;
63: extern int ttyod;
64: extern struct sgttyb ttys;
65: extern int iflg;
66: extern int init;
67: extern int rargc;
68: extern char **argp;
69: extern char trtab[256];
70: extern int lgf;
71: extern int copyf;
72: extern int eschar;
73: extern int ch0;
74: extern int cwidth;
75: extern int nlflg;
76: extern int *ap;
77: extern int donef;
78: extern int nflush;
79: extern int nchar;
80: extern int rchar;
81: extern int nfo;
82: extern int ifile;
83: extern int fc;
84: extern int padc;
85: extern int tabc;
86: extern int dotc;
87: extern int raw;
88: extern int tabtab[NTAB];
89: extern char nextf[];
90: extern int nfi;
91: #ifdef NROFF
92: extern char termtab[];
93: extern int tti;
94: #endif
95: extern int ifl[NSO];
96: extern int ifi;
97: extern int pendt;
98: extern int flss;
99: extern int fi;
100: extern int lg;
101: extern char ptname[];
102: extern int print;
103: extern int nonumb;
104: extern int pnlist[];
105: extern int *pnp;
106: extern int nb;
107: extern int trap;
108: extern int tflg;
109: extern int ejf;
110: extern int lit;
111: extern int cc;
112: extern int c2;
113: extern int spread;
114: extern int gflag;
115: extern int oline[];
116: extern int *olinep;
117: extern int dpn;
118: extern int noscale;
119: extern char *unlkp;
120: extern int pts;
121: extern int level;
122: extern int ttysave;
123: extern int tdelim;
124: extern int dotT;
125: extern int tabch, ldrch;
126: extern int eqflg;
127: extern no_out;
128: extern int hflg;
129: #ifndef NROFF
130: extern char codetab[];
131: extern int spbits;
132: #endif
133: extern int xxx;
134: int stopmesg;
135: filep ipl[NSO];
136: long offl[NSO];
137: long ioff;
138: char *ttyp;
139: extern struct contab {
140: int rq;
141: union {
142: int (*f)();
143: unsigned mx;
144: }x;
145: }contab[NM];
146: int ms[] = {31,28,31,30,31,30,31,31,30,31,30,31};
147: #ifndef NROFF
148: int acctf;
149: #endif
150:
151: main(argc,argv)
152: int argc;
153: char **argv;
154: {
155: char *p, *q;
156: register i, j;
157: extern catch(), fpecatch(), kcatch();
158:
159: signal(SIGHUP,catch);
160: if(signal(SIGINT,catch) == SIG_IGN){
161: signal(SIGHUP,SIG_IGN);
162: signal(SIGINT,SIG_IGN);
163: signal(SIGQUIT,SIG_IGN);
164: }
165: signal(SIGFPE,fpecatch);
166: signal(SIGPIPE,catch);
167: signal(SIGTERM,kcatch);
168: init1(argv[0][0]);
169: options:
170: while(--argc > 0 && (++argv)[0][0]=='-')
171: switch(argv[0][1]){
172:
173: case 0:
174: goto start;
175: case 'i':
176: stdi++;
177: continue;
178: case 'q':
179: quiet++;
180: if(gtty(0, &ttys) >= 0)
181: ttysave = ttys.sg_flags;
182: continue;
183: case 'n':
184: npn = cnum(&argv[0][2]);
185: continue;
186: case 'p':
187: xflg = 0;
188: cps = cnum(&argv[0][2]);
189: continue;
190: case 'S':
191: stopmesg++;
192: continue;
193: case 's':
194: if(!(stop = cnum(&argv[0][2])))stop++;
195: continue;
196: case 'r':
197: vlist[findr(argv[0][2])] = cnum(&argv[0][3]);
198: continue;
199: case 'm':
200: p = &nextf[nfi];
201: q = &argv[0][2];
202: while((*p++ = *q++) != 0);
203: if (access(nextf, 4) < 0) {
204: char local[NS];
205:
206: strcpy(local, _PATH_LOCAL_TMAC);
207: strcat(local, &argv[0][2]);
208: if (access(local, 4) == 0)
209: strcpy(nextf, local);
210: }
211: mflg++;
212: continue;
213: case 'o':
214: getpn(&argv[0][2]);
215: continue;
216: #ifdef NROFF
217: case 'h':
218: hflg++;
219: continue;
220: case 'z':
221: no_out++;
222: continue;
223: case 'e':
224: eqflg++;
225: continue;
226: case 'T':
227: p = &termtab[tti];
228: q = &argv[0][2];
229: if(!((*q) & 0177))continue;
230: while((*p++ = *q++) != 0);
231: dotT++;
232: continue;
233: #endif
234: #ifndef NROFF
235: case 'z':
236: no_out++;
237: case 'a':
238: ascii = 1;
239: nofeed++;
240: case 't':
241: ptid = 1;
242: continue;
243: case 'w':
244: waitf = 1;
245: continue;
246: case 'f':
247: nofeed++;
248: continue;
249: case 'x':
250: xflg = 0;
251: continue;
252: case 'b':
253: if(open(ptname,1) < 0)prstr("Busy.\n");
254: else prstr("Available.\n");
255: done3(0);
256: case 'g':
257: stop = ptid = gflag = 1;
258: dpn = 0;
259: continue;
260: case 'F':
261: {
262: extern char *fontfile;
263: fontfile = &argv[0][2];
264: }
265: continue;
266: #endif
267: default:
268: pto = cnum(&argv[0][1]);
269: continue;
270: }
271:
272: if(argv[0][0] == '+'){
273: pfrom = cnum(&argv[0][1]);
274: print = 0;
275: if(argc > 0)goto options;
276: }
277:
278: start:
279: argp = argv;
280: rargc = argc;
281: init2();
282: setjmp(sjbuf);
283: loop:
284: copyf = lgf = nb = nflush = nlflg = 0;
285: if(ip && (rbf0(ip)==0) && ejf && (frame->pframe <= ejl)){
286: nflush++;
287: trap = 0;
288: eject((struct s *)0);
289: goto loop;
290: }
291: i = getch();
292: if(pendt)goto lt;
293: if(lit && (frame <= litlev)){
294: lit--;
295: goto lt;
296: }
297: if((j = (i & CMASK)) == XPAR){
298: copyf++;
299: tflg++;
300: for(;(i & CMASK) != '\n';)pchar(i = getch());
301: tflg = 0;
302: copyf--;
303: goto loop;
304: }
305: if((j == cc) || (j == c2)){
306: if(j == c2)nb++;
307: copyf++;
308: while(((j=((i=getch()) & CMASK)) == ' ') ||
309: (j == '\t'));
310: ch = i;
311: copyf--;
312: control(getrq(),1);
313: flushi();
314: goto loop;
315: }
316: lt:
317: ch = i;
318: text();
319: goto loop;
320: }
321: catch(){
322: /*
323: prstr("Interrupt\n");
324: */
325: done3(01);
326: }
327: fpecatch(){
328: prstrfl("Floating Exception.\n");
329: signal(SIGFPE,fpecatch);
330: }
331: kcatch(){
332: signal(SIGTERM,SIG_IGN);
333: done3(01);
334: }
335: #ifndef NROFF
336: acctg() {
337: static char *acct_file = "/usr/adm/tracct";
338: acctf = open(acct_file,1);
339: setuid(getuid());
340: }
341: #endif
342: init1(a)
343: char a;
344: {
345: register char *p;
346: char *mktemp();
347: static char tempname[] = "/tmp/taXXXXX";
348: register i;
349:
350: #ifndef NROFF
351: acctg();/*open troff actg file while mode 4755*/
352: #endif
353: p = mktemp(tempname);
354: if(a == 'a')p = &p[5];
355: if((close(creat(p, 0600))) < 0){
356: prstr("Cannot create temp file.\n");
357: exit(-1);
358: }
359: ibf = open(p, 2);
360: for(i=256; --i;)trtab[i]=i;
361: trtab[UNPAD] = ' ';
362: mchbits();
363: if(a != 'a')unlkp = p;
364: }
365: init2()
366: {
367: register i,j;
368: extern int block;
369: extern char *setbrk();
370: extern char *ttyname();
371:
372: ttyod = 2;
373: if(((ttyp=ttyname(j=0)) != (char *)0) ||
374: ((ttyp=ttyname(j=1)) != (char *)0) ||
375: ((ttyp=ttyname(j=2)) != (char *)0)
376: );else ttyp = "notty";
377: iflg = j;
378: if(ascii)mesg(0);
379:
380: if((!ptid) && (!waitf)){
381: if((ptid = open(ptname,1)) < 0){
382: prstr("Typesetter busy.\n");
383: done3(-2);
384: }
385: }
386: ptinit();
387: for(i=NEV; i--;)write(ibf, (char *)&block, EVS*sizeof(int));
388: olinep = oline;
389: ibufp = eibuf = ibuf;
390: v.hp = init = 0;
391: pinchar = inchar; /* XXX */
392: ioff = 0;
393: v.nl = -1;
394: cvtime();
395: frame = stk = (struct s *)setbrk(DELTA);
396: dip = &d[0];
397: nxf = frame + 1;
398: nx = mflg;
399: }
400: cvtime()
401: {
402: extern time_t time();
403: time_t t;
404: register struct tm *tmp;
405:
406: t = time((time_t *)0);
407: tmp = localtime(&t);
408: v.dy = tmp->tm_mday;
409: v.dw = tmp->tm_wday + 1;
410: v.yr = tmp->tm_year;
411: v.mo = tmp->tm_mon + 1;
412: }
413: cnum(a)
414: char *a;
415: {
416: register i;
417:
418: ibufp = a;
419: eibuf = (char *) MAXPTR;
420: i = atoi();
421: ch = 0;
422: return(i);
423: }
424: mesg(f)
425: int f;
426: {
427: static int mode;
428:
429: if (ttyp==0)
430: return;
431: if(!f){
432: stat(ttyp,cbuf);
433: mode = ((struct stat *)(cbuf))->st_mode;
434: chmod(ttyp,mode & ~022);
435: }else{
436: chmod(ttyp,mode);
437: }
438: }
439: prstrfl(s)
440: char *s;
441: {
442: flusho();
443: prstr(s);
444: }
445: prstr(s)
446: char *s;
447: {
448: register i;
449: register char *j;
450:
451: j = s;
452: for(i=0;*s;i++)s++;
453: write(ttyod,j,i);
454: }
455: control(a,b)
456: int a,b;
457: {
458: register i,j;
459: extern filep boff();
460:
461: i = a;
462: if((i == 0) || ((j = findmn(i)) == -1))return(0);
463: if(contab[j].rq & MMASK){
464: nxf->nargs = 0;
465: if(b)collect();
466: flushi();
467: return(pushi(((filep)contab[j].x.mx)<<BLKBITS));
468: }else{
469: if(!b)return(0);
470: return((*contab[j].x.f)(0));
471: }
472: }
473:
474: getrq(){
475: register i,j;
476:
477: if(((i=getach()) == 0) ||
478: ((j=getach()) == 0))goto rtn;
479: i = PAIR(i,j);
480: rtn:
481: return(i);
482: }
483: getch(){
484: register int i, j, k;
485:
486: level++;
487: g0:
488: if(ch){
489: if(((i = ch) & CMASK) == '\n')nlflg++;
490: ch = 0;
491: level--;
492: return(i);
493: }
494:
495: if(nlflg){
496: level--;
497: return('\n');
498: }
499:
500: if((k = (i = getch0()) & CMASK) != ESC){
501: if(i & MOT)goto g2;
502: if(k == FLSS){
503: copyf++; raw++;
504: i = getch0();
505: if(!fi)flss = i;
506: copyf--; raw--;
507: goto g0;
508: }
509: if(k == RPT){
510: setrpt();
511: goto g0;
512: }
513: if(!copyf){
514: if((k == 'f') && lg && !lgf){
515: i = getlg(i);
516: goto g2;
517: }
518: if((k == fc) || (k == tabch) || (k == ldrch)){
519: if((i=setfield(k)) == 0)goto g0; else goto g2;
520: }
521: if(k == 010){
522: i = makem(-width(' ' | chbits));
523: goto g2;
524: }
525: }
526: goto g2;
527: }
528: k = (j = getch0()) & CMASK;
529: if(j & MOT){
530: i = j;
531: goto g2;
532: }
533: /*
534: if(k == tdelim){
535: i = TDELIM;
536: tdelim = IMP;
537: goto g2;
538: }
539: */
540: switch(k){
541:
542: case '\n': /*concealed newline*/
543: goto g0;
544: case 'n': /*number register*/
545: setn();
546: goto g0;
547: case '*': /*string indicator*/
548: setstr();
549: goto g0;
550: case '$': /*argument indicator*/
551: seta();
552: goto g0;
553: case '{': /*LEFT*/
554: i = LEFT;
555: goto gx;
556: case '}': /*RIGHT*/
557: i = RIGHT;
558: goto gx;
559: case '"': /*comment*/
560: while(((i=getch0()) & CMASK ) != '\n');
561: goto g2;
562: case ESC: /*double backslash*/
563: i = eschar;
564: goto gx;
565: case 'e': /*printable version of current eschar*/
566: i = PRESC;
567: goto gx;
568: case ' ': /*unpaddable space*/
569: i = UNPAD;
570: goto gx;
571: case '|': /*narrow space*/
572: i = NARSP;
573: goto gx;
574: case '^': /*half of narrow space*/
575: i = HNSP;
576: goto gx;
577: case '\'': /*\(aa*/
578: i = 0222;
579: goto gx;
580: case '`': /*\(ga*/
581: i = 0223;
582: goto gx;
583: case '_': /*\(ul*/
584: i = 0224;
585: goto gx;
586: case '-': /*current font minus*/
587: i = 0210;
588: goto gx;
589: case '&': /*filler*/
590: i = FILLER;
591: goto gx;
592: case 'c': /*to be continued*/
593: i = CONT;
594: goto gx;
595: case ':': /*lem's char*/
596: i = COLON;
597: goto gx;
598: case '!': /*transparent indicator*/
599: i = XPAR;
600: goto gx;
601: case 't': /*tab*/
602: i = '\t';
603: goto g2;
604: case 'a': /*leader (SOH)*/
605: i = LEADER;
606: goto g2;
607: case '%': /*ohc*/
608: i = OHC;
609: goto g2;
610: case '.': /*.*/
611: i = '.';
612: gx:
613: i = (j & ~CMASK) | i;
614: goto g2;
615: }
616: if(!copyf)
617: switch(k){
618:
619: case 'p': /*spread*/
620: spread++;
621: goto g0;
622: case '(': /*special char name*/
623: if((i=setch()) == 0)goto g0;
624: break;
625: case 's': /*size indicator*/
626: setps();
627: goto g0;
628: case 'f': /*font indicator*/
629: setfont(0);
630: goto g0;
631: case 'w': /*width function*/
632: setwd();
633: goto g0;
634: case 'v': /*vert mot*/
635: if(i = vmot())break;
636: goto g0;
637: case 'h': /*horiz mot*/
638: if(i = hmot())break;
639: goto g0;
640: case 'z': /*zero with char*/
641: i = setz();
642: break;
643: case 'l': /*hor line*/
644: setline();
645: goto g0;
646: case 'L': /*vert line*/
647: setvline();
648: goto g0;
649: case 'b': /*bracket*/
650: setbra();
651: goto g0;
652: case 'o': /*overstrike*/
653: setov();
654: goto g0;
655: case 'k': /*mark hor place*/
656: if((i=findr(getsn())) == -1)goto g0;
657: vlist[i] = v.hp = sumhp(); /* XXX */
658: goto g0;
659: case 'j': /*mark output hor place*/
660: if(!(i=getach()))goto g0;
661: i = (i<<BYTE) | JREG;
662: break;
663: case '0': /*number space*/
664: i = makem(width('0' | chbits));
665: break;
666: case 'x': /*extra line space*/
667: if(i = xlss())break;
668: goto g0;
669: case 'u': /*half em up*/
670: case 'r': /*full em up*/
671: case 'd': /*half em down*/
672: i = sethl(k);
673: break;
674: default:
675: i = j;
676: }
677: else{
678: ch0 = j;
679: i = eschar;
680: }
681: g2:
682: if((i & CMASK) == '\n'){
683: nlflg++;
684: v.hp = 0;
685: pinchar = inchar; /* XXX */
686: if(ip == 0)v.cd++;
687: }
688: if(!--level){
689: /* j = width(i); */
690: /* v.hp += j; */
691: /* cwidth = j; */
692: if (pinchar >= inchar + LNSIZE) { /* XXX */
693: inchar[0] = makem(sumhp());
694: pinchar = &inchar[1];
695: }
696: *pinchar++ = i; /* XXX */
697: }
698: return(i);
699: }
700:
701: sumhp() /* XXX - add up widths in inchar array */
702: {
703: register int n;
704: register int *p;
705:
706: n = 0;
707: for (p = inchar; p < pinchar; p++)
708: n += width(*p);
709: return(n);
710: }
711: char ifilt[32] = {0,001,002,003,0,005,006,007,010,011,012};
712: getch0(){
713: register int i, j;
714:
715: if(ch0){i=ch0; ch0=0; return(i);}
716: if(nchar){nchar--; return(rchar);}
717:
718: again:
719: if(cp){
720: if((i = *cp++) == 0){
721: cp = 0;
722: goto again;
723: }
724: }else if(ap){
725: if((i = *ap++) == 0){
726: ap = 0;
727: goto again;
728: }
729: }else if(ip){
730: if(ip == -1)i = rdtty();
731: else i = rbf();
732: }else{
733: if(donef)done(0);
734: if(nx || ((ibufp >= eibuf) && (eibuf != (char *) MAXPTR))){
735: if(nfo)goto g1;
736: g0:
737: if(nextfile()){
738: if(ip)goto again;
739: if(ibufp < eibuf)goto g2;
740: }
741: g1:
742: nx = 0;
743: if((j=read(ifile,ibuf,IBUFSZ)) <= 0)goto g0;
744: ibufp = ibuf;
745: eibuf = ibuf + j;
746: if(ip)goto again;
747: }
748: g2:
749: i = *ibufp++ & 0177;
750: ioff++;
751: if(i >= 040)goto g4; else i = ifilt[i];
752: }
753: if(raw)return(i);
754: if((j = i & CMASK) == IMP)goto again;
755: if((i == 0) && !init)goto again;
756: g4:
757: if((copyf == 0) && ((i & ~BMASK) == 0) && ((i & CMASK) < 0370))
758: #ifndef NROFF
759: if(spbits && (i>31) && ((codetab[i-32] & 0200))) i |= spbits;
760: else
761: #endif
762: i |= chbits;
763: if((i & CMASK) == eschar)i = (i & ~CMASK) | ESC;
764: return(i);
765: }
766: nextfile(){
767: register char *p;
768:
769: n0:
770: if(ifile)close(ifile);
771: if(nx){
772: p = nextf;
773: if(*p != 0)goto n1;
774: }
775: if(ifi > 0){
776: if(popf())goto n0; /*popf error*/
777: return(1); /*popf ok*/
778: }
779: if(rargc-- <= 0)goto n2;
780: p = (argp++)[0];
781: n1:
782: if((p[0] == '-') && (p[1] == 0)){
783: ifile = 0;
784: }else if((ifile=open(p,0)) < 0){
785: prstr("Cannot open ");
786: prstr(p);
787: prstr("\n");
788: nfo -= mflg;
789: done(02);
790: }
791: nfo++;
792: v.cd = 0;
793: ioff = 0;
794: return(0);
795: n2:
796: if((nfo -= mflg) && !stdi)done(0);
797: nfo++;
798: v.cd = ifile = stdi = mflg = 0;
799: ioff = 0;
800: return(0);
801: }
802: popf(){
803: register i;
804: register char *p, *q;
805: extern char *ttyname();
806:
807: ioff = offl[--ifi];
808: ip = ipl[ifi];
809: if((ifile = ifl[ifi]) == 0){
810: p = xbuf;
811: q = ibuf;
812: ibufp = xbufp;
813: eibuf = xeibuf;
814: while(q < eibuf)*q++ = *p++;
815: return(0);
816: }
817: if((lseek(ifile,(long)(ioff & ~(IBUFSZ-1)),0) < 0) ||
818: ((i = read(ifile,ibuf,IBUFSZ)) < 0))return(1);
819: eibuf = ibuf + i;
820: ibufp = ibuf;
821: if(ttyname(ifile) == (char *)0)
822: if((ibufp = ibuf + (int)(ioff & (IBUFSZ-1))) >= eibuf)return(1);
823: return(0);
824: }
825: flushi(){
826: if(nflush)return;
827: ch = 0;
828: if((ch0 & CMASK) == '\n')nlflg++;
829: ch0 = 0;
830: copyf++;
831: while(!nlflg){
832: if(donef && (frame == stk))break;
833: getch();
834: }
835: copyf--;
836: v.hp = 0;
837: pinchar = inchar; /* XXX */
838: }
839: getach(){
840: register i;
841:
842: lgf++;
843: if(((i = getch()) & MOT) ||
844: ((i&CMASK) == ' ') ||
845: ((i&CMASK) == '\n')||
846: (i & 0200)){
847: ch = i;
848: i = 0;
849: }
850: lgf--;
851: return(i & 0177);
852: }
853: casenx(){
854: lgf++;
855: skip();
856: getname();
857: nx++;
858: nextfile();
859: nlflg++;
860: ip = 0;
861: ap = 0;
862: nchar = pendt = 0;
863: frame = stk;
864: nxf = frame + 1;
865: }
866: getname(){
867: register int i, j, k;
868:
869: lgf++;
870: for(k=0; k < (NS-1); k++){
871: if(((j=(i=getch()) & CMASK) <= ' ') ||
872: (j > 0176))break;
873: nextf[k] = j;
874: }
875: nextf[k] = 0;
876: ch = i;
877: lgf--;
878: return(nextf[0]);
879: }
880: caseso(){
881: register i;
882: register char *p, *q;
883:
884: lgf++;
885: nextf[0] = 0;
886: if(skip() || !getname() || ((i=open(nextf,0)) <0) || (ifi >= NSO)) {
887: prstr("can't open file ");
888: prstr(nextf);
889: prstr("\n");
890: done(02);
891: }
892: flushi();
893: ifl[ifi] = ifile;
894: ifile = i;
895: offl[ifi] = ioff;
896: ioff = 0;
897: ipl[ifi] = ip;
898: ip = 0;
899: nx++;
900: nflush++;
901: if(!ifl[ifi++]){
902: p = ibuf;
903: q = xbuf;
904: xbufp = ibufp;
905: xeibuf = eibuf;
906: while(p < eibuf)*q++ = *p++;
907: }
908: }
909:
910: casecf(){ /* copy file without change */
911: int fd, i, n;
912: char buf[OBUFSZ];
913:
914: flusho();
915: lgf++;
916: nextf[0] = 0;
917: if(skip() || !getname() || ((fd=open(nextf,0)) <0) || (ifi >= NSO)) {
918: prstr("can't open file ");
919: prstr(nextf);
920: prstr("\n");
921: done(02);
922: }
923: while ((n = read(fd, buf, OBUFSZ)) > 0)
924: for (i = 0; i < n; i++)
925: oput(buf[i]);
926: flusho();
927: close(fd);
928: }
929: getpn(a)
930: char *a;
931: {
932: register i, neg;
933: long atoi1();
934:
935: if((*a & 0177) == 0)return;
936: neg = 0;
937: ibufp = a;
938: eibuf = (char *) MAXPTR;
939: noscale++;
940: while((i = getch() & CMASK) != 0)switch(i){
941: case '+':
942: case ',':
943: continue;
944: case '-':
945: neg = MOT;
946: goto d2;
947: default:
948: ch = i;
949: d2:
950: i = atoi1();
951: if(nonumb)goto fini;
952: else{
953: *pnp++ = i | neg;
954: neg = 0;
955: if(pnp >= &pnlist[NPN-2]){
956: prstr("Too many page numbers\n");
957: done3(-3);
958: }
959: }
960: }
961: fini:
962: if(neg)*pnp++ = -2;
963: *pnp = -1;
964: ch = noscale = print = 0;
965: pnp = pnlist;
966: if(*pnp != -1)chkpn();
967: }
968: setrpt(){
969: register i, j;
970:
971: copyf++;raw++;
972: i = getch0();
973: copyf--;raw--;
974: if((i < 0) ||
975: (((j = getch0()) & CMASK) == RPT))return;
976: rchar = j;
977: nchar = i & BMASK;
978: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.