|
|
1.1 root 1: extern int yywrap(void);
2: extern void setfname(Cell *);
3: extern int constnode(Node *);
4: extern uchar *strnode(Node *);
5: extern Node *notnull(Node *);
6: extern int yyparse(void);
7:
8: extern int yylex(void);
9: extern void startreg(void);
10: extern int input(void);
11: extern void unput(int);
12: extern void unputstr(char *);
13: extern int yylook(void);
14: extern int yyback(int *, int);
15: extern int yyinput(void);
16:
17: extern fa *makedfa(uchar *, int);
18: extern fa *mkdfa(uchar *, int);
19: extern int makeinit(fa *, int);
20: extern void penter(Node *);
21: extern void freetr(Node *);
22: extern int hexstr(char **);
23: extern int quoted(char **);
24: extern uchar *cclenter(uchar *);
25: extern void overflo(uchar *);
26: extern void cfoll(fa *, Node *);
27: extern int first(Node *);
28: extern void follow(Node *);
29: extern int member(int, uchar *);
30: extern int match(fa *, uchar *);
31: extern int pmatch(fa *, uchar *);
32: extern int nematch(fa *, uchar *);
33: extern Node *reparse(uchar *);
34: extern Node *regexp(void);
35: extern Node *primary(void);
36: extern Node *concat(Node *);
37: extern Node *alt(Node *);
38: extern Node *unary(Node *);
39: extern int relex(void);
40: extern int cgoto(fa *, int, int);
41: extern void freefa(fa *);
42:
43: extern int main(int, uchar **);
44: extern int pgetc(void);
45:
46: extern Node *nodealloc(int);
47: extern Node *exptostat(Node *);
48: extern Node *node1(int, Node *);
49: extern Node *node2(int, Node *, Node *);
50: extern Node *node3(int, Node *, Node *, Node *);
51: extern Node *node4(int, Node *, Node *, Node *, Node *);
52: extern Node *stat3(int, Node *, Node *, Node *);
53: extern Node *op2(int, Node *, Node *);
54: extern Node *op1(int, Node *);
55: extern Node *stat1(int, Node *);
56: extern Node *op3(int, Node *, Node *, Node *);
57: extern Node *op4(int, Node *, Node *, Node *, Node *);
58: extern Node *stat2(int, Node *, Node *);
59: extern Node *stat4(int, Node *, Node *, Node *, Node *);
60: extern Node *valtonode(Cell *, int);
61: extern Node *rectonode(void);
62: extern Node *makearr(Node *);
63: extern Node *pa2stat(Node *, Node *, Node *);
64: extern Node *linkum(Node *, Node *);
65: extern void defn(Cell *, Node *, Node *);
66: extern int isarg(uchar *);
67: extern uchar *tokname(int);
68: extern Cell *(*proctab[])(Node **, int);
69:
70: extern void syminit(void);
71: extern void arginit(int, uchar **);
72: extern void envinit(uchar **);
73: extern Array *makesymtab(int);
74: extern void freesymtab(Cell *);
75: extern void freeelem(Cell *, uchar *);
76: extern Cell *setsymtab(uchar *, uchar *, double, unsigned int, Array *);
77: extern int hash(uchar *, int);
78: extern void rehash(Array *);
79: extern Cell *lookup(uchar *, Array *);
80: extern double setfval(Cell *, double);
81: extern void funnyvar(Cell *, char *);
82: extern uchar *setsval(Cell *, uchar *);
83: extern double r_getfval(Cell *);
84: extern uchar *r_getsval(Cell *);
85: extern uchar *tostring(uchar *);
86: extern uchar *qstring(uchar *, int);
87:
88: extern void recinit(unsigned int);
89: extern void initgetrec(void);
90: extern int getrec(uchar *);
91: extern int readrec(uchar *buf, int bufsize, FILE *inf);
92: extern uchar *getargv(int);
93: extern void setclvar(uchar *);
94: extern void fldbld(void);
95: extern void cleanfld(int, int);
96: extern void newfld(int);
97: extern int refldbld(uchar *, uchar *);
98: extern void recbld(void);
99: extern Cell *fieldadr(int);
100: extern void yyerror(char *);
101: extern void fpecatch(int);
102: extern void bracecheck(void);
103: extern void bcheck2(int, int, int);
104: extern void error(int, char *);
105: extern void eprint(void);
106: extern void bclass(int);
107: extern double errcheck(double, uchar *);
108: extern int isclvar(uchar *);
109: extern int isnumber(uchar *);
110:
111: extern void run(Node *);
112: extern Cell *r_execute(Node *);
113: extern Cell *program(Node **, int);
114: extern Cell *call(Node **, int);
115: extern Cell *copycell(Cell *);
116: extern Cell *arg(Node **, int);
117: extern Cell *jump(Node **, int);
118: extern Cell *getline(Node **, int);
119: extern Cell *getnf(Node **, int);
120: extern Cell *array(Node **, int);
121: extern Cell *adelete(Node **, int);
122: extern Cell *intest(Node **, int);
123: extern Cell *matchop(Node **, int);
124: extern Cell *boolop(Node **, int);
125: extern Cell *relop(Node **, int);
126: extern void tfree(Cell *);
127: extern Cell *gettemp(void);
128: extern Cell *field(Node **, int);
129: extern Cell *indirect(Node **, int);
130: extern Cell *substr(Node **, int);
131: extern Cell *sindex(Node **, int);
132: extern int format(uchar *, int, uchar *, Node *);
133: extern Cell *asprintf(Node **, int);
134: extern Cell *aprintf(Node **, int);
135: extern Cell *arith(Node **, int);
136: extern double ipow(double, int);
137: extern Cell *incrdecr(Node **, int);
138: extern Cell *assign(Node **, int);
139: extern Cell *cat(Node **, int);
140: extern Cell *pastat(Node **, int);
141: extern Cell *dopa2(Node **, int);
142: extern Cell *split(Node **, int);
143: extern Cell *condexpr(Node **, int);
144: extern Cell *ifstat(Node **, int);
145: extern Cell *whilestat(Node **, int);
146: extern Cell *dostat(Node **, int);
147: extern Cell *forstat(Node **, int);
148: extern Cell *instat(Node **, int);
149: extern Cell *bltin(Node **, int);
150: extern Cell *printstat(Node **, int);
151: extern Cell *nullproc(Node **, int);
152: extern FILE *redirect(int, Node *);
153: extern FILE *openfile(int, uchar *);
154: extern uchar *filename(FILE *);
155: extern Cell *closefile(Node **, int);
156: extern void closeall(void);
157: extern Cell *sub(Node **, int);
158: extern Cell *gsub(Node **, int);
159:
160: extern FILE *popen(const char *, const char *);
161: extern int pclose(FILE *);
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.