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