[unix-history] / usr / src / contrib / perl-4.036 / x2p / a2p.h

/* $RCSfile: a2p.h,v $$Revision: 4.0.1.2 $$Date: 92/06/08 16:12:23 $
 *
 *    Copyright (c) 1991, Larry Wall
 *
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 *
 * $Log:	a2p.h,v $
 * Revision 4.0.1.2  92/06/08  16:12:23  lwall
 * patch20: hash tables now split only if the memory is available to do so
 * 
 * Revision 4.0.1.1  91/06/07  12:12:27  lwall
 * patch4: new copyright notice
 * 
 * Revision 4.0  91/03/20  01:57:07  lwall
 * 4.0 baseline.
 * 
 */

#define VOIDUSED 1
#include "../config.h"

#ifndef HAS_BCOPY
#   define bcopy(s1,s2,l) memcpy(s2,s1,l)
#endif
#ifndef HAS_BZERO
#   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 OSUBTRACT	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
#define ODO		70
#define OPOW		71
#define OSUB		72
#define OGSUB		73
#define OMATCH		74
#define OUSERFUN	75
#define OUSERDEF	76
#define OCLOSE		77
#define OATAN2		78
#define OSIN		79
#define OCOS		80
#define ORAND		81
#define OSRAND		82
#define ODELETE		83
#define OSYSTEM		84
#define OCOND		85
#define ORETURN		86
#define ODEFINED	87
#define OSTAR		88

#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",
    "SUBTRACT",
    "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",
    "DO",
    "POW",
    "SUB",
    "GSUB",
    "MATCH",
    "USERFUN",
    "USERDEF",
    "CLOSE",
    "ATAN2",
    "SIN",
    "COS",
    "RAND",
    "SRAND",
    "DELETE",
    "SYSTEM",
    "COND",
    "RETURN",
    "DEFINED",
    "STAR",
    "89"
};
#else
extern char *opname[];
#endif

EXT int mop INIT(1);

union u_ops {
    int ival;
    char *cval;
};
#if defined(iAPX286) || defined(M_I286) || defined(I80286) 	/* 80286 hack */
#define OPSMAX (64000/sizeof(union u_ops))	/* approx. max segment size */
#else
#define OPSMAX 50000
#endif						 	/* 80286 hack */
union u_ops ops[OPSMAX];

#include <stdio.h>
#include <ctype.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[2048];
EXT char *bufptr INIT(buf);

EXT STR *linestr INIT(Nullstr);

EXT char tokenbuf[2048];
EXT int expectterm INIT(TRUE);

#ifdef DEBUGGING
EXT int debug INIT(0);
EXT int dlevel INIT(0);
#define YYDEBUG 1
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 bool saw_altinput INIT(FALSE);

EXT bool nomemok 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;
EXT HASH *curarghash;

#define P_MIN		0
#define P_LISTOP	5
#define P_COMMA		10
#define P_ASSIGN	15
#define P_COND		20
#define P_DOTDOT	25
#define P_OROR		30
#define P_ANDAND	35
#define P_OR		40
#define P_AND		45
#define P_EQ		50
#define P_REL		55
#define P_UNI		60
#define P_FILETEST	65
#define P_SHIFT		70
#define P_ADD		75
#define P_MUL		80
#define P_MATCH		85
#define P_UNARY		90
#define P_POW		95
#define P_AUTO		100
#define P_MAX		999
Commit	Line	Data
a9c128cc C	1	/* $RCSfile: a2p.h,v $$Revision: 4.0.1.2 $$Date: 92/06/08 16:12:23 $
	2	*
	3	* Copyright (c) 1991, Larry Wall
	4	*
	5	* You may distribute under the terms of either the GNU General Public
	6	* License or the Artistic License, as specified in the README file.
	7	*
	8	* $Log: a2p.h,v $
	9	* Revision 4.0.1.2 92/06/08 16:12:23 lwall
	10	* patch20: hash tables now split only if the memory is available to do so
	11	*
	12	* Revision 4.0.1.1 91/06/07 12:12:27 lwall
	13	* patch4: new copyright notice
	14	*
	15	* Revision 4.0 91/03/20 01:57:07 lwall
	16	* 4.0 baseline.
	17	*
	18	*/
	19
	20	#define VOIDUSED 1
	21	#include "../config.h"
	22
	23	#ifndef HAS_BCOPY
	24	# define bcopy(s1,s2,l) memcpy(s2,s1,l)
	25	#endif
	26	#ifndef HAS_BZERO
	27	# define bzero(s,l) memset(s,0,l)
	28	#endif
	29
	30	#include "handy.h"
	31	#define Nullop 0
	32
	33	#define OPROG 1
	34	#define OJUNK 2
	35	#define OHUNKS 3
	36	#define ORANGE 4
	37	#define OPAT 5
	38	#define OHUNK 6
	39	#define OPPAREN 7
	40	#define OPANDAND 8
	41	#define OPOROR 9
	42	#define OPNOT 10
	43	#define OCPAREN 11
	44	#define OCANDAND 12
	45	#define OCOROR 13
	46	#define OCNOT 14
	47	#define ORELOP 15
	48	#define ORPAREN 16
	49	#define OMATCHOP 17
	50	#define OMPAREN 18
	51	#define OCONCAT 19
	52	#define OASSIGN 20
	53	#define OADD 21
	54	#define OSUBTRACT 22
	55	#define OMULT 23
	56	#define ODIV 24
	57	#define OMOD 25
	58	#define OPOSTINCR 26
	59	#define OPOSTDECR 27
	60	#define OPREINCR 28
	61	#define OPREDECR 29
	62	#define OUMINUS 30
	63	#define OUPLUS 31
	64	#define OPAREN 32
65	#define OGETLINE 33
66	#define OSPRINTF 34
67	#define OSUBSTR 35
68	#define OSTRING 36
69	#define OSPLIT 37
70	#define OSNEWLINE 38
71	#define OINDEX 39
72	#define ONUM 40
73	#define OSTR 41
74	#define OVAR 42
75	#define OFLD 43
76	#define ONEWLINE 44
77	#define OCOMMENT 45
78	#define OCOMMA 46
79	#define OSEMICOLON 47
80	#define OSCOMMENT 48
81	#define OSTATES 49
82	#define OSTATE 50
83	#define OPRINT 51
84	#define OPRINTF 52
85	#define OBREAK 53
86	#define ONEXT 54
87	#define OEXIT 55
88	#define OCONTINUE 56
89	#define OREDIR 57
90	#define OIF 58
91	#define OWHILE 59
92	#define OFOR 60
93	#define OFORIN 61
94	#define OVFLD 62
95	#define OBLOCK 63
96	#define OREGEX 64
97	#define OLENGTH 65
98	#define OLOG 66
99	#define OEXP 67
100	#define OSQRT 68
101	#define OINT 69
102	#define ODO 70
103	#define OPOW 71
104	#define OSUB 72
105	#define OGSUB 73
106	#define OMATCH 74
107	#define OUSERFUN 75
108	#define OUSERDEF 76
109	#define OCLOSE 77
110	#define OATAN2 78
111	#define OSIN 79
112	#define OCOS 80
113	#define ORAND 81
114	#define OSRAND 82
115	#define ODELETE 83
116	#define OSYSTEM 84
117	#define OCOND 85
118	#define ORETURN 86
119	#define ODEFINED 87
120	#define OSTAR 88
121
122	#ifdef DOINIT
123	char *opname[] = {
124	"0",
125	"PROG",
126	"JUNK",
127	"HUNKS",
128	"RANGE",
129	"PAT",
130	"HUNK",
131	"PPAREN",
132	"PANDAND",
133	"POROR",
134	"PNOT",
135	"CPAREN",
136	"CANDAND",
137	"COROR",
138	"CNOT",
139	"RELOP",
140	"RPAREN",
141	"MATCHOP",
142	"MPAREN",
143	"CONCAT",
144	"ASSIGN",
145	"ADD",
146	"SUBTRACT",
147	"MULT",
148	"DIV",
149	"MOD",
150	"POSTINCR",
151	"POSTDECR",
152	"PREINCR",
153	"PREDECR",
154	"UMINUS",
155	"UPLUS",
156	"PAREN",
157	"GETLINE",
158	"SPRINTF",
159	"SUBSTR",
160	"STRING",
161	"SPLIT",
162	"SNEWLINE",
163	"INDEX",
164	"NUM",
165	"STR",
166	"VAR",
167	"FLD",
168	"NEWLINE",
169	"COMMENT",
170	"COMMA",
171	"SEMICOLON",
172	"SCOMMENT",
173	"STATES",
174	"STATE",
175	"PRINT",
176	"PRINTF",
177	"BREAK",
178	"NEXT",
179	"EXIT",
180	"CONTINUE",
181	"REDIR",
182	"IF",
183	"WHILE",
184	"FOR",
185	"FORIN",
186	"VFLD",
187	"BLOCK",
188	"REGEX",
189	"LENGTH",
190	"LOG",
191	"EXP",
192	"SQRT",
193	"INT",
194	"DO",
195	"POW",
196	"SUB",
197	"GSUB",
198	"MATCH",
199	"USERFUN",
200	"USERDEF",
201	"CLOSE",
202	"ATAN2",
203	"SIN",
204	"COS",
205	"RAND",
206	"SRAND",
207	"DELETE",
208	"SYSTEM",
209	"COND",
210	"RETURN",
211	"DEFINED",
212	"STAR",
213	"89"
214	};
215	#else
216	extern char *opname[];
217	#endif
218
219	EXT int mop INIT(1);
220
221	union u_ops {
222	int ival;
223	char *cval;
224	};
225	#if defined(iAPX286) \|\| defined(M_I286) \|\| defined(I80286) /* 80286 hack */
226	#define OPSMAX (64000/sizeof(union u_ops)) /* approx. max segment size */
227	#else
228	#define OPSMAX 50000
229	#endif /* 80286 hack */
230	union u_ops ops[OPSMAX];
231
232	#include <stdio.h>
233	#include <ctype.h>
234
235	typedef struct string STR;
236	typedef struct htbl HASH;
237
238	#include "str.h"
239	#include "hash.h"
240
241	/* A string is TRUE if not "" or "0". */
242	#define True(val) (tmps = (val), (tmps && !(tmps == '0' && !tmps[1])))
243	EXT char *Yes INIT("1");
244	EXT char *No INIT("");
245
246	#define str_true(str) (Str = (str), (Str->str_pok ? True(Str->str_ptr) : (Str->str_nok ? (Str->str_nval != 0.0) : 0 )))
247
248	#define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%g)",Str->str_nval),buf) : "" )))
249	#define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
250	#define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_nval : str_2num(Str)))
251	EXT STR *Str;
252
253	#define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
254
255	STR *str_new();
256
257	char *scanpat();
258	char *scannum();
259
260	void str_free();
261
262	EXT int line INIT(0);
263
264	EXT FILE *rsfp;
265	EXT char buf[2048];
266	EXT char *bufptr INIT(buf);
267
268	EXT STR *linestr INIT(Nullstr);
269
270	EXT char tokenbuf[2048];
271	EXT int expectterm INIT(TRUE);
272
273	#ifdef DEBUGGING
274	EXT int debug INIT(0);
275	EXT int dlevel INIT(0);
276	#define YYDEBUG 1
277	extern int yydebug;
278	#endif
279
280	EXT STR *freestrroot INIT(Nullstr);
281
282	EXT STR str_no;
283	EXT STR str_yes;
284
285	EXT bool do_split INIT(FALSE);
286	EXT bool split_to_array INIT(FALSE);
287	EXT bool set_array_base INIT(FALSE);
288	EXT bool saw_RS INIT(FALSE);
289	EXT bool saw_OFS INIT(FALSE);
290	EXT bool saw_ORS INIT(FALSE);
291	EXT bool saw_line_op INIT(FALSE);
292	EXT bool in_begin INIT(TRUE);
293	EXT bool do_opens INIT(FALSE);
294	EXT bool do_fancy_opens INIT(FALSE);
295	EXT bool lval_field INIT(FALSE);
296	EXT bool do_chop INIT(FALSE);
297	EXT bool need_entire INIT(FALSE);
298	EXT bool absmaxfld INIT(FALSE);
299	EXT bool saw_altinput INIT(FALSE);
300
301	EXT bool nomemok INIT(FALSE);
302
303	EXT char const_FS INIT(0);
304	EXT char *namelist INIT(Nullch);
305	EXT char fswitch INIT(0);
306
307	EXT int saw_FS INIT(0);
308	EXT int maxfld INIT(0);
309	EXT int arymax INIT(0);
310	char *nameary[100];
311
312	EXT STR *opens;
313
314	EXT HASH *symtab;
315	EXT HASH *curarghash;
316
317	#define P_MIN 0
318	#define P_LISTOP 5
319	#define P_COMMA 10
320	#define P_ASSIGN 15
321	#define P_COND 20
322	#define P_DOTDOT 25
323	#define P_OROR 30
324	#define P_ANDAND 35
325	#define P_OR 40
326	#define P_AND 45
327	#define P_EQ 50
328	#define P_REL 55
329	#define P_UNI 60
330	#define P_FILETEST 65
331	#define P_SHIFT 70
332	#define P_ADD 75
333	#define P_MUL 80
334	#define P_MATCH 85
335	#define P_UNARY 90
336	#define P_POW 95
337	#define P_AUTO 100
338	#define P_MAX 999