1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
|
/* $Header: a2p.h,v 1.0.1.1 88/01/26 09:52:30 root Exp $
*
* $Log: a2p.h,v $
* Revision 1.0.1.1 88/01/26 09:52:30 root
* patch 5: a2p didn't use config.h.
*
* Revision 1.0 87/12/18 13:06:58 root
* Initial revision
*
*/
#define VOIDUSED 1
#include "../config.h"
#ifndef BCOPY
# define bcopy(s1,s2,l) memcpy(s2,s1,l);
# define bzero(s,l) memset(s,0,l);
#endif
#include "handy.h"
#define Nullop 0
#define OPROG 1
#define OJUNK 2
#define OHUNKS 3
#define ORANGE 4
#define OPAT 5
#define OHUNK 6
#define OPPAREN 7
#define OPANDAND 8
#define OPOROR 9
#define OPNOT 10
#define OCPAREN 11
#define OCANDAND 12
#define OCOROR 13
#define OCNOT 14
#define ORELOP 15
#define ORPAREN 16
#define OMATCHOP 17
#define OMPAREN 18
#define OCONCAT 19
#define OASSIGN 20
#define OADD 21
#define OSUB 22
#define OMULT 23
#define ODIV 24
#define OMOD 25
#define OPOSTINCR 26
#define OPOSTDECR 27
#define OPREINCR 28
#define OPREDECR 29
#define OUMINUS 30
#define OUPLUS 31
#define OPAREN 32
#define OGETLINE 33
#define OSPRINTF 34
#define OSUBSTR 35
#define OSTRING 36
#define OSPLIT 37
#define OSNEWLINE 38
#define OINDEX 39
#define ONUM 40
#define OSTR 41
#define OVAR 42
#define OFLD 43
#define ONEWLINE 44
#define OCOMMENT 45
#define OCOMMA 46
#define OSEMICOLON 47
#define OSCOMMENT 48
#define OSTATES 49
#define OSTATE 50
#define OPRINT 51
#define OPRINTF 52
#define OBREAK 53
#define ONEXT 54
#define OEXIT 55
#define OCONTINUE 56
#define OREDIR 57
#define OIF 58
#define OWHILE 59
#define OFOR 60
#define OFORIN 61
#define OVFLD 62
#define OBLOCK 63
#define OREGEX 64
#define OLENGTH 65
#define OLOG 66
#define OEXP 67
#define OSQRT 68
#define OINT 69
#ifdef DOINIT
char *opname[] = {
"0",
"PROG",
"JUNK",
"HUNKS",
"RANGE",
"PAT",
"HUNK",
"PPAREN",
"PANDAND",
"POROR",
"PNOT",
"CPAREN",
"CANDAND",
"COROR",
"CNOT",
"RELOP",
"RPAREN",
"MATCHOP",
"MPAREN",
"CONCAT",
"ASSIGN",
"ADD",
"SUB",
"MULT",
"DIV",
"MOD",
"POSTINCR",
"POSTDECR",
"PREINCR",
"PREDECR",
"UMINUS",
"UPLUS",
"PAREN",
"GETLINE",
"SPRINTF",
"SUBSTR",
"STRING",
"SPLIT",
"SNEWLINE",
"INDEX",
"NUM",
"STR",
"VAR",
"FLD",
"NEWLINE",
"COMMENT",
"COMMA",
"SEMICOLON",
"SCOMMENT",
"STATES",
"STATE",
"PRINT",
"PRINTF",
"BREAK",
"NEXT",
"EXIT",
"CONTINUE",
"REDIR",
"IF",
"WHILE",
"FOR",
"FORIN",
"VFLD",
"BLOCK",
"REGEX",
"LENGTH",
"LOG",
"EXP",
"SQRT",
"INT",
"70"
};
#else
extern char *opname[];
#endif
union {
int ival;
char *cval;
} ops[50000]; /* hope they have 200k to spare */
EXT int mop INIT(1);
#define DEBUGGING
#include <stdio.h>
#include <ctype.h>
#include <setjmp.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <time.h>
#include <sys/times.h>
typedef struct string STR;
typedef struct htbl HASH;
#include "str.h"
#include "hash.h"
/* A string is TRUE if not "" or "0". */
#define True(val) (tmps = (val), (*tmps && !(*tmps == '0' && !tmps[1])))
EXT char *Yes INIT("1");
EXT char *No INIT("");
#define str_true(str) (Str = (str), (Str->str_pok ? True(Str->str_ptr) : (Str->str_nok ? (Str->str_nval != 0.0) : 0 )))
#define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%g)",Str->str_nval),buf) : "" )))
#define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
#define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_nval : str_2num(Str)))
EXT STR *Str;
#define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
STR *str_new();
char *scanpat();
char *scannum();
void str_free();
EXT int line INIT(0);
EXT FILE *rsfp;
EXT char buf[1024];
EXT char *bufptr INIT(buf);
EXT STR *linestr INIT(Nullstr);
EXT char tokenbuf[256];
EXT int expectterm INIT(TRUE);
#ifdef DEBUGGING
EXT int debug INIT(0);
EXT int dlevel INIT(0);
#define YYDEBUG;
extern int yydebug;
#endif
EXT STR *freestrroot INIT(Nullstr);
EXT STR str_no;
EXT STR str_yes;
EXT bool do_split INIT(FALSE);
EXT bool split_to_array INIT(FALSE);
EXT bool set_array_base INIT(FALSE);
EXT bool saw_RS INIT(FALSE);
EXT bool saw_OFS INIT(FALSE);
EXT bool saw_ORS INIT(FALSE);
EXT bool saw_line_op INIT(FALSE);
EXT bool in_begin INIT(TRUE);
EXT bool do_opens INIT(FALSE);
EXT bool do_fancy_opens INIT(FALSE);
EXT bool lval_field INIT(FALSE);
EXT bool do_chop INIT(FALSE);
EXT bool need_entire INIT(FALSE);
EXT bool absmaxfld INIT(FALSE);
EXT char const_FS INIT(0);
EXT char *namelist INIT(Nullch);
EXT char fswitch INIT(0);
EXT int saw_FS INIT(0);
EXT int maxfld INIT(0);
EXT int arymax INIT(0);
char *nameary[100];
EXT STR *opens;
EXT HASH *symtab;
|
