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