1 /****************************************************************
2 Copyright (C) Lucent Technologies 1997
5 Permission to use, copy, modify, and distribute this software and
6 its documentation for any purpose and without fee is hereby
7 granted, provided that the above copyright notice appear in all
8 copies and that both that the copyright notice and this
9 permission notice and warranty disclaimer appear in supporting
10 documentation, and that the name Lucent Technologies or any of
11 its entities not be used in advertising or publicity pertaining
12 to distribution of the software without specific, written prior
15 LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
16 INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
17 IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
18 SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
19 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
20 IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
21 ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
23 ****************************************************************/
25 extern int yywrap(void);
26 extern void setfname(Cell
*);
27 extern int constnode(Node
*);
28 extern char *strnode(Node
*);
29 extern Node
*notnull(Node
*);
30 extern int yyparse(void);
32 extern int yylex(void);
33 extern void startreg(void);
34 extern int input(void);
35 extern void unput(int);
36 extern void unputstr(const char *);
37 extern int yylook(void);
38 extern int yyback(int *, int);
39 extern int yyinput(void);
41 extern fa
*makedfa(const char *, int);
42 extern fa
*mkdfa(const char *, int);
43 extern int makeinit(fa
*, int);
44 extern void penter(Node
*);
45 extern void freetr(Node
*);
46 extern int hexstr(char **);
47 extern int quoted(char **);
48 extern char *cclenter(const char *);
49 extern void overflo(const char *);
50 extern void cfoll(fa
*, Node
*);
51 extern int first(const Node
*);
52 extern void follow(Node
*);
53 extern int member(int, const char *);
54 extern int match(fa
*, const char *);
55 extern int pmatch(fa
*, const char *);
56 extern int nematch(fa
*, const char *);
57 extern Node
*reparse(const char *);
58 extern Node
*regexp(void);
59 extern Node
*primary(void);
60 extern Node
*concat(Node
*);
61 extern Node
*alt(Node
*);
62 extern Node
*unary(Node
*);
63 extern int relex(void);
64 extern int cgoto(fa
*, int, int);
65 extern void freefa(fa
*);
67 extern int pgetc(void);
68 extern char *cursource(void);
70 extern Node
*nodealloc(int);
71 extern Node
*exptostat(Node
*);
72 extern Node
*node1(int, Node
*);
73 extern Node
*node2(int, Node
*, Node
*);
74 extern Node
*node3(int, Node
*, Node
*, Node
*);
75 extern Node
*node4(int, Node
*, Node
*, Node
*, Node
*);
76 extern Node
*stat3(int, Node
*, Node
*, Node
*);
77 extern Node
*op2(int, Node
*, Node
*);
78 extern Node
*op1(int, Node
*);
79 extern Node
*stat1(int, Node
*);
80 extern Node
*op3(int, Node
*, Node
*, Node
*);
81 extern Node
*op4(int, Node
*, Node
*, Node
*, Node
*);
82 extern Node
*stat2(int, Node
*, Node
*);
83 extern Node
*stat4(int, Node
*, Node
*, Node
*, Node
*);
84 extern Node
*celltonode(Cell
*, int);
85 extern Node
*rectonode(void);
86 extern Node
*makearr(Node
*);
87 extern Node
*pa2stat(Node
*, Node
*, Node
*);
88 extern Node
*linkum(Node
*, Node
*);
89 extern void defn(Cell
*, Node
*, Node
*);
90 extern int isarg(const char *);
91 extern char *tokname(int);
92 extern Cell
*(*proctab
[])(Node
**, int);
93 extern int ptoi(void *);
94 extern Node
*itonp(int);
96 extern void syminit(void);
97 extern void arginit(int, char **);
98 extern void envinit(char **);
99 extern Array
*makesymtab(int);
100 extern void freesymtab(const Cell
*);
101 extern void freeelem(const Cell
*, const char *);
102 extern Cell
*setsymtab(const char *, const char *, double, unsigned int, Array
*);
103 extern int hash(const char *, int);
104 extern void rehash(Array
*);
105 extern Cell
*lookup(const char *, const Array
*);
106 extern double setfval(Cell
*, double);
107 extern void funnyvar(Cell
*, const char *);
108 extern char *setsval(Cell
*, const char *);
109 extern double getfval(Cell
*);
110 extern char *getsval(Cell
*);
111 extern char *getpssval(Cell
*); /* for print */
112 extern char *tostring(const char *);
113 extern char *qstring(const char *, int);
115 extern void recinit(unsigned int);
116 extern void initgetrec(void);
117 extern void makefields(int, int);
118 extern void growfldtab(int n
);
119 extern int getrec(char **, int *, int);
120 extern void nextfile(void);
121 extern int readrec(char **buf
, int *bufsize
, FILE *inf
);
122 extern char *getargv(int);
123 extern void setclvar(char *);
124 extern void fldbld(void);
125 extern void cleanfld(int, int);
126 extern void newfld(int);
127 extern int refldbld(const char *, const char *);
128 extern void recbld(void);
129 extern Cell
*fieldadr(int);
130 extern void yyerror(const char *);
131 extern void fpecatch(int);
132 extern void bracecheck(void);
133 extern void bcheck2(int, int, int);
134 extern void SYNTAX(const char *, ...);
135 extern void FATAL(const char *, ...);
136 extern void WARNING(const char *, ...);
137 extern void error(void);
138 extern void eprint(void);
139 extern void bclass(int);
140 extern double errcheck(double, const char *);
141 extern int isclvar(const char *);
142 extern int is_number(const char *);
144 extern int adjbuf(char **pb
, int *sz
, int min
, int q
, char **pbp
, const char *what
);
145 extern void run(Node
*);
146 extern Cell
*execute(Node
*);
147 extern Cell
*program(Node
**, int);
148 extern Cell
*call(Node
**, int);
149 extern Cell
*copycell(Cell
*);
150 extern Cell
*arg(Node
**, int);
151 extern Cell
*jump(Node
**, int);
152 extern Cell
*awkgetline(Node
**, int);
153 extern Cell
*getnf(Node
**, int);
154 extern Cell
*array(Node
**, int);
155 extern Cell
*awkdelete(Node
**, int);
156 extern Cell
*intest(Node
**, int);
157 extern Cell
*matchop(Node
**, int);
158 extern Cell
*boolop(Node
**, int);
159 extern Cell
*relop(Node
**, int);
160 extern void tfree(Cell
*);
161 extern Cell
*gettemp(void);
162 extern Cell
*field(Node
**, int);
163 extern Cell
*indirect(Node
**, int);
164 extern Cell
*substr(Node
**, int);
165 extern Cell
*sindex(Node
**, int);
166 extern int format(char **, int *, const char *, Node
*);
167 extern Cell
*awksprintf(Node
**, int);
168 extern Cell
*awkprintf(Node
**, int);
169 extern Cell
*arith(Node
**, int);
170 extern double ipow(double, int);
171 extern Cell
*incrdecr(Node
**, int);
172 extern Cell
*assign(Node
**, int);
173 extern Cell
*cat(Node
**, int);
174 extern Cell
*pastat(Node
**, int);
175 extern Cell
*dopa2(Node
**, int);
176 extern Cell
*split(Node
**, int);
177 extern Cell
*condexpr(Node
**, int);
178 extern Cell
*ifstat(Node
**, int);
179 extern Cell
*whilestat(Node
**, int);
180 extern Cell
*dostat(Node
**, int);
181 extern Cell
*forstat(Node
**, int);
182 extern Cell
*instat(Node
**, int);
183 extern Cell
*bltin(Node
**, int);
184 extern Cell
*printstat(Node
**, int);
185 extern Cell
*nullproc(Node
**, int);
186 extern FILE *redirect(int, Node
*);
187 extern FILE *openfile(int, const char *);
188 extern const char *filename(FILE *);
189 extern Cell
*closefile(Node
**, int);
190 extern void closeall(void);
191 extern Cell
*sub(Node
**, int);
192 extern Cell
*gsub(Node
**, int);
194 extern FILE *popen(const char *, const char *);
195 extern int pclose(FILE *);
