|
|
1.1 ! root 1: #define EOS '\0' ! 2: #define LOW7 0177 ! 3: #define MAXSYM 5 ! 4: #define PUSH 1 ! 5: #define NOPUSH 0 ! 6: #define OK 0 ! 7: #define NOT_OK 1 ! 8: ! 9: #define SPACE 1 ! 10: #define DIG 2 ! 11: #define ALPH 4 ! 12: #define isspace(c) (type[c]&SPACE) ! 13: #define isdigit(c) (type[c]&DIG) ! 14: #define isalpha(c) (type[c]&ALPH) ! 15: #define alphanum(c) (type[c]&(ALPH|DIG)) ! 16: ! 17: #define getchr() (ip>ipflr?*--ip:\ ! 18: ((C=(feof(ifile[ifx])?EOF:getc(ifile[ifx])))=='\n'?(fline[ifx]++,C):C)) ! 19: #define putbak(c) (ip < ibuflm? (*ip++ = (c)): error(pbmsg,bufsize)) ! 20: #define stkchr(c) (op < obuflm? (*op++ = (c)): error(aofmsg,bufsize)) ! 21: #define sputchr(c,f) (putc(c,f)=='\n'? lnsync(f): 0) ! 22: #define putchr(c) (Cp?stkchr(c):cf?(sflag?sputchr(c,cf):putc(c,cf)):0) ! 23: ! 24: struct bs { ! 25: int (*bfunc)(); ! 26: char *bname; ! 27: }; ! 28: ! 29: struct call { ! 30: char **argp; ! 31: int plev; ! 32: }; ! 33: ! 34: struct nlist { ! 35: char *name; ! 36: char *def; ! 37: char tflag; ! 38: struct nlist *next; ! 39: }; ! 40: ! 41: extern FILE *cf; ! 42: extern FILE *ifile[]; ! 43: extern FILE *ofile[]; ! 44: extern FILE *xfopen(); ! 45: extern char **Ap; ! 46: extern char **argstk; ! 47: extern char *Wrapstr; ! 48: extern char **astklm; ! 49: extern char *calloc(); ! 50: extern char *copy(); ! 51: extern char *fname[]; ! 52: extern char *ibuf; ! 53: extern char *ibuflm; ! 54: extern char *ip; ! 55: extern char *ipflr; ! 56: extern char *ipstk[10]; ! 57: extern char *obuf; ! 58: extern char *obuflm; ! 59: extern char *op; ! 60: extern char *procnam; ! 61: extern char *tempname; ! 62: extern char *token; ! 63: extern char *toklm; ! 64: extern char aofmsg[]; ! 65: extern char astkof[]; ! 66: extern char badfile[]; ! 67: extern char fnbuf[]; ! 68: extern char lcom[]; ! 69: extern char lquote[]; ! 70: extern char nocore[]; ! 71: extern char nullstr[]; ! 72: extern char pbmsg[]; ! 73: extern char rcom[]; ! 74: extern char rquote[]; ! 75: extern char type[]; ! 76: extern int C; ! 77: extern int bufsize; ! 78: extern int catchsig(); ! 79: extern int fline[]; ! 80: extern int hshsize; ! 81: extern int hshval; ! 82: extern int ifx; ! 83: extern int nflag; ! 84: extern int ofx; ! 85: extern int pid; ! 86: extern int sflag; ! 87: extern int stksize; ! 88: extern int sysrval; ! 89: extern int toksize; ! 90: extern int trace; ! 91: extern long ctol(); ! 92: extern struct bs barray[]; ! 93: extern struct call *Cp; ! 94: extern struct call *callst; ! 95: extern struct nlist **hshtab; ! 96: /*extern struct nlist *install(); */ ! 97: extern struct nlist *lookup(); ! 98: extern char *inpmatch(); ! 99: extern char *chkbltin(); ! 100: extern char *mktemp();
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.