|
|
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();
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.