1 /*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
7 *
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
12 *
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 *
19 * CDDL HEADER END
20 */
21
22 /*
23 * Copyright (c) 1989, 2010, Oracle and/or its affiliates. All rights reserved.
24 */
25
26 /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
27 /* All Rights Reserved */
28
29 #ifndef AWK_H
30 #define AWK_H
31
32 #include <sys/types.h>
33 #include <ctype.h>
34 #include <stdio.h>
35 #include <stdlib.h>
36 #include <string.h>
37 #include <libintl.h>
38 #include <limits.h>
39
40 typedef double Awkfloat;
41 typedef unsigned char uchar;
42
43 #define xfree(a) { if ((a) != NULL) { free(a); a = NULL; } }
44
45 #define DEBUG
46 #ifdef DEBUG
47 /* uses have to be doubly parenthesized */
48 #define dprintf(x) if (dbg) (void) printf x
49 #else
50 #define dprintf(x)
51 #endif
52
53 extern char errbuf[200];
54 extern void error(int, char *);
55 #define ERROR (void) snprintf(errbuf, sizeof (errbuf),
56 /*CSTYLED*/
57 #define FATAL ), error(1, errbuf)
58 /*CSTYLED*/
59 #define WARNING ), error(0, errbuf)
60 /*CSTYLED*/
61 #define SYNTAX ), yyerror(errbuf)
62 /*CSTYLED*/
63 #define CONT )
64
65 extern int compile_time; /* 1 if compiling, 0 if running */
66
67 #define FLD_INCR 64
68 #define LINE_INCR 256
69
70 /* ensure that there is extra 1 byte in the buffer */
71 #define expand_buf(p, n, r) \
72 if (*(n) == 0 || (r) >= (*(n) - 1)) r_expand_buf(p, n, r)
73
74 extern uchar **FS;
75 extern uchar **RS;
76 extern uchar **ORS;
77 extern uchar **OFS;
78 extern uchar **OFMT;
79 extern Awkfloat *NR;
80 extern Awkfloat *FNR;
81 extern Awkfloat *NF;
82 extern uchar **FILENAME;
83 extern uchar **SUBSEP;
84 extern Awkfloat *RSTART;
85 extern Awkfloat *RLENGTH;
86
87 extern uchar *record;
88 extern size_t record_size;
89 extern int errorflag;
90 extern int donefld; /* 1 if record broken into fields */
91 extern int donerec; /* 1 if record is valid (no fld has changed */
92
93 extern uchar *patbeg; /* beginning of pattern matched */
94 extern int patlen; /* length. set in b.c */
95
96 /* Cell: all information about a variable or constant */
97
98 typedef struct Cell {
99 uchar ctype; /* OCELL, OBOOL, OJUMP, etc. */
100 uchar csub; /* CCON, CTEMP, CFLD, etc. */
101 uchar *nval; /* name, for variables only */
102 uchar *sval; /* string value */
103 Awkfloat fval; /* value as number */
104 unsigned tval;
105 /* type info: STR|NUM|ARR|FCN|FLD|CON|DONTFREE */
106 struct Cell *cnext; /* ptr to next if chained */
107 } Cell;
108
109 typedef struct { /* symbol table array */
110 int nelem; /* elements in table right now */
111 int size; /* size of tab */
112 Cell **tab; /* hash table pointers */
113 } Array;
114
115 #define NSYMTAB 50 /* initial size of a symbol table */
116 extern Array *symtab, *makesymtab(int);
117 extern Cell *setsymtab(uchar *, uchar *, Awkfloat, unsigned int, Array *);
118 extern Cell *lookup(uchar *, Array *);
119
120 extern Cell *recloc; /* location of input record */
121 extern Cell *nrloc; /* NR */
122 extern Cell *fnrloc; /* FNR */
123 extern Cell *nfloc; /* NF */
124 extern Cell *rstartloc; /* RSTART */
125 extern Cell *rlengthloc; /* RLENGTH */
126
127 /* Cell.tval values: */
128 #define NUM 01 /* number value is valid */
129 #define STR 02 /* string value is valid */
130 #define DONTFREE 04 /* string space is not freeable */
131 #define CON 010 /* this is a constant */
132 #define ARR 020 /* this is an array */
133 #define FCN 040 /* this is a function name */
134 #define FLD 0100 /* this is a field $1, $2, ... */
135 #define REC 0200 /* this is $0 */
136
137 #define freeable(p) (!((p)->tval & DONTFREE))
138
139 extern Awkfloat setfval(Cell *, Awkfloat), getfval(Cell *), r_getfval(Cell *);
140 extern uchar *setsval(Cell *, uchar *), *getsval(Cell *), *r_getsval(Cell *);
141 extern uchar *tostring(uchar *), *tokname(int), *qstring(uchar *, int);
142
143 #define getfval(p) \
144 (((p)->tval & (ARR|FLD|REC|NUM)) == NUM ? (p)->fval : r_getfval(p))
145 #define getsval(p) \
146 (((p)->tval & (ARR|FLD|REC|STR)) == STR ? (p)->sval : r_getsval(p))
147
148 /* function types */
149 #define FLENGTH 1
150 #define FSQRT 2
151 #define FEXP 3
152 #define FLOG 4
153 #define FINT 5
154 #define FSYSTEM 6
155 #define FRAND 7
156 #define FSRAND 8
157 #define FSIN 9
158 #define FCOS 10
159 #define FATAN 11
160 #define FTOUPPER 12
161 #define FTOLOWER 13
162
163 /* Node: parse tree is made of nodes, with Cell's at bottom */
164
165 typedef struct Node {
166 int ntype;
167 struct Node *nnext;
168 off_t lineno;
169 int nobj;
170 struct Node *narg[1];
171 /* variable: actual size set by calling malloc */
172 } Node;
173
174 #define NIL ((Node *)0)
175
176 extern Node *winner;
177 extern Node *nullstat;
178 extern Node *nullnode;
179
180 /* ctypes */
181 #define OCELL 1
182 #define OBOOL 2
183 #define OJUMP 3
184
185 /* Cell subtypes: csub */
186 #define CFREE 7
187 #define CCOPY 6
188 #define CCON 5
189 #define CTEMP 4
190 #define CNAME 3
191 #define CVAR 2
192 #define CFLD 1
193
194 /* bool subtypes */
195 #define BTRUE 11
196 #define BFALSE 12
197
198 /* jump subtypes */
199 #define JEXIT 21
200 #define JNEXT 22
201 #define JBREAK 23
202 #define JCONT 24
203 #define JRET 25
204
205 /* node types */
206 #define NVALUE 1
207 #define NSTAT 2
208 #define NEXPR 3
209 #define NFIELD 4
210
211 extern Cell *(*proctab[])(Node **, int);
212 extern Cell *nullproc(Node **, int);
213 extern int pairstack[], paircnt;
214
215 extern Node *stat1(int, Node *), *stat2(int, Node *, Node *);
216 extern Node *stat3(int, Node *, Node *, Node *);
217 extern Node *stat4(int, Node *, Node *, Node *, Node *);
218 extern Node *pa2stat(Node *, Node *, Node *);
219 extern Node *op1(int, Node *), *op2(int, Node *, Node *);
220 extern Node *op3(int, Node *, Node *, Node *);
221 extern Node *op4(int, Node *, Node *, Node *, Node *);
222 extern Node *linkum(Node *, Node *), *valtonode(Cell *, int);
223 extern Node *rectonode(void), *exptostat(Node *);
224 extern Node *makearr(Node *);
225
226 #define notlegal(n) \
227 (n <= FIRSTTOKEN || n >= LASTTOKEN || proctab[n-FIRSTTOKEN] == nullproc)
228 #define isvalue(n) ((n)->ntype == NVALUE)
229 #define isexpr(n) ((n)->ntype == NEXPR)
230 #define isjump(n) ((n)->ctype == OJUMP)
231 #define isexit(n) ((n)->csub == JEXIT)
232 #define isbreak(n) ((n)->csub == JBREAK)
233 #define iscont(n) ((n)->csub == JCONT)
234 #define isnext(n) ((n)->csub == JNEXT)
235 #define isret(n) ((n)->csub == JRET)
236 #define isstr(n) ((n)->tval & STR)
237 #define isnum(n) ((n)->tval & NUM)
238 #define isarr(n) ((n)->tval & ARR)
239 #define isfunc(n) ((n)->tval & FCN)
240 #define istrue(n) ((n)->csub == BTRUE)
241 #define istemp(n) ((n)->csub == CTEMP)
242
243 #define NCHARS (256+1)
244 #define NSTATES 32
245
246 typedef struct rrow {
247 int ltype;
248 int lval;
249 int *lfollow;
250 } rrow;
251
252 typedef struct fa {
253 uchar *restr;
254 int anchor;
255 int use;
256 uchar gototab[NSTATES][NCHARS];
257 int *posns[NSTATES];
258 uchar out[NSTATES];
259 int initstat;
260 int curstat;
261 int accept;
262 int reset;
263 struct rrow re[1];
264 } fa;
265
266 /* b.c */
267 extern fa *makedfa(uchar *, int);
268 extern int nematch(fa *, uchar *);
269 extern int match(fa *, uchar *);
270 extern int pmatch(fa *, uchar *);
271
272 /* lib.c */
273 extern int isclvar(uchar *);
274 extern int is_number(uchar *);
275 extern void setclvar(uchar *);
276 extern int readrec(uchar **, size_t *, FILE *);
277 extern void bracecheck(void);
278 extern void syminit(void);
279 extern void yyerror(char *);
280 extern void fldbld(void);
281 extern void recbld(void);
282 extern int getrec(uchar **, size_t *);
283 extern Cell *fieldadr(int);
284 extern void newfld(int);
285 extern Cell *getfld(int);
286 extern int fldidx(Cell *);
287 extern double errcheck(double, char *);
288 extern void fpecatch(int);
289 extern void init_buf(uchar **, size_t *, size_t);
290 extern void adjust_buf(uchar **, size_t);
291 extern void r_expand_buf(uchar **, size_t *, size_t);
292
293 extern int donefld;
294 extern int donerec;
295 extern uchar *record;
296 extern size_t record_size;
297
298 /* main.c */
299 extern int dbg;
300 extern uchar *cmdname;
301 extern uchar *lexprog;
302 extern int compile_time;
303 extern char radixpoint;
304
305 /* tran.c */
306 extern void syminit(void);
307 extern void arginit(int, uchar **);
308 extern void envinit(uchar **);
309 extern void freesymtab(Cell *);
310 extern void freeelem(Cell *, uchar *);
311 extern void funnyvar(Cell *, char *);
312 extern int hash(uchar *, int);
313 extern Awkfloat *ARGC;
314
315 /* run.c */
316 extern void run(Node *);
317
318 extern int paircnt;
319 extern Node *winner;
320
321 #ifndef input
322 extern int input(void);
323 #endif
324 extern int yyparse(void);
325 extern FILE *yyin;
326 extern off_t lineno;
327
328 /* proc */
329 extern Cell *nullproc(Node **, int);
330 extern Cell *program(Node **, int);
331 extern Cell *boolop(Node **, int);
332 extern Cell *relop(Node **, int);
333 extern Cell *array(Node **, int);
334 extern Cell *indirect(Node **, int);
335 extern Cell *substr(Node **, int);
336 extern Cell *sub(Node **, int);
337 extern Cell *gsub(Node **, int);
338 extern Cell *sindex(Node **, int);
339 extern Cell *a_sprintf(Node **, int);
340 extern Cell *arith(Node **, int);
341 extern Cell *incrdecr(Node **, int);
342 extern Cell *cat(Node **, int);
343 extern Cell *pastat(Node **, int);
344 extern Cell *dopa2(Node **, int);
345 extern Cell *matchop(Node **, int);
346 extern Cell *intest(Node **, int);
347 extern Cell *aprintf(Node **, int);
348 extern Cell *print(Node **, int);
349 extern Cell *closefile(Node **, int);
350 extern Cell *delete(Node **, int);
351 extern Cell *split(Node **, int);
352 extern Cell *assign(Node **, int);
353 extern Cell *condexpr(Node **, int);
354 extern Cell *ifstat(Node **, int);
355 extern Cell *whilestat(Node **, int);
356 extern Cell *forstat(Node **, int);
357 extern Cell *dostat(Node **, int);
358 extern Cell *instat(Node **, int);
359 extern Cell *jump(Node **, int);
360 extern Cell *bltin(Node **, int);
361 extern Cell *call(Node **, int);
362 extern Cell *arg(Node **, int);
363 extern Cell *getnf(Node **, int);
364 extern Cell *getaline(Node **, int);
365
366 #endif /* AWK_H */