perl5.000 patch.0k: MakeMaker 4.06 and to fix minor portability and build problems...
[perl.git] / x2p / a2p.h
1 /* $RCSfile: a2p.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:09 $
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  */
10
11 #define VOIDUSED 1
12 #include "../config.h"
13
14 #if defined(__STDC__) || defined(vax11c) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus)
15 # define STANDARD_C 1
16 #endif
17
18 /* Use all the "standard" definitions? */
19 #if defined(STANDARD_C) && defined(I_STDLIB)
20 #   include <stdlib.h>
21 #endif /* STANDARD_C */
22
23 #include <stdio.h>
24
25 #ifdef I_MATH
26 #include <math.h>
27 #endif
28
29 #ifdef I_SYS_TYPES
30 #  include <sys/types.h>
31 #endif
32
33
34 #ifdef USE_NEXT_CTYPE 
35 #include <appkit/NXCType.h>
36 #else
37 #include <ctype.h>
38 #endif
39
40 #define MEM_SIZE Size_t
41
42 #if defined(I_STRING) || defined(__cplusplus)
43 #   include <string.h>
44 #else
45 #   include <strings.h>
46 #endif
47
48 #ifndef HAS_BCOPY
49 #   define bcopy(s1,s2,l) memcpy(s2,s1,l)
50 #endif
51 #ifndef HAS_BZERO
52 #   define bzero(s,l) memset(s,0,l)
53 #endif
54
55 #if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)
56 #define strchr index
57 #define strrchr rindex
58 #endif
59
60
61 #ifdef I_TIME
62 #   include <time.h>
63 #endif
64
65 #ifdef I_SYS_TIME
66 #   ifdef I_SYS_TIME_KERNEL
67 #       define KERNEL
68 #   endif
69 #   include <sys/time.h>
70 #   ifdef I_SYS_TIME_KERNEL
71 #       undef KERNEL
72 #   endif
73 #endif
74
75 #ifndef MSDOS
76 #  if defined(HAS_TIMES) && defined(I_SYS_TIMES)
77 #    include <sys/times.h>
78 #  endif
79 #endif
80
81 #ifndef STANDARD_C
82 /* All of these are in stdlib.h or time.h for ANSI C */
83 Time_t time();
84 struct tm *gmtime(), *localtime();
85 char *strchr(), *strrchr();
86 char *strcpy(), *strcat();
87 #endif /* ! STANDARD_C */
88
89 #include "handy.h"
90 #define Nullop 0
91
92 #define OPROG           1
93 #define OJUNK           2
94 #define OHUNKS          3
95 #define ORANGE          4
96 #define OPAT            5
97 #define OHUNK           6
98 #define OPPAREN         7
99 #define OPANDAND        8
100 #define OPOROR          9
101 #define OPNOT           10
102 #define OCPAREN         11
103 #define OCANDAND        12
104 #define OCOROR          13
105 #define OCNOT           14
106 #define ORELOP          15
107 #define ORPAREN         16
108 #define OMATCHOP        17
109 #define OMPAREN         18
110 #define OCONCAT         19
111 #define OASSIGN         20
112 #define OADD            21
113 #define OSUBTRACT       22
114 #define OMULT           23
115 #define ODIV            24
116 #define OMOD            25
117 #define OPOSTINCR       26
118 #define OPOSTDECR       27
119 #define OPREINCR        28
120 #define OPREDECR        29
121 #define OUMINUS         30
122 #define OUPLUS          31
123 #define OPAREN          32
124 #define OGETLINE        33
125 #define OSPRINTF        34
126 #define OSUBSTR         35
127 #define OSTRING         36
128 #define OSPLIT          37
129 #define OSNEWLINE       38
130 #define OINDEX          39
131 #define ONUM            40
132 #define OSTR            41
133 #define OVAR            42
134 #define OFLD            43
135 #define ONEWLINE        44
136 #define OCOMMENT        45
137 #define OCOMMA          46
138 #define OSEMICOLON      47
139 #define OSCOMMENT       48
140 #define OSTATES         49
141 #define OSTATE          50
142 #define OPRINT          51
143 #define OPRINTF         52
144 #define OBREAK          53
145 #define ONEXT           54
146 #define OEXIT           55
147 #define OCONTINUE       56
148 #define OREDIR          57
149 #define OIF             58
150 #define OWHILE          59
151 #define OFOR            60
152 #define OFORIN          61
153 #define OVFLD           62
154 #define OBLOCK          63
155 #define OREGEX          64
156 #define OLENGTH         65
157 #define OLOG            66
158 #define OEXP            67
159 #define OSQRT           68
160 #define OINT            69
161 #define ODO             70
162 #define OPOW            71
163 #define OSUB            72
164 #define OGSUB           73
165 #define OMATCH          74
166 #define OUSERFUN        75
167 #define OUSERDEF        76
168 #define OCLOSE          77
169 #define OATAN2          78
170 #define OSIN            79
171 #define OCOS            80
172 #define ORAND           81
173 #define OSRAND          82
174 #define ODELETE         83
175 #define OSYSTEM         84
176 #define OCOND           85
177 #define ORETURN         86
178 #define ODEFINED        87
179 #define OSTAR           88
180
181 #ifdef DOINIT
182 char *opname[] = {
183     "0",
184     "PROG",
185     "JUNK",
186     "HUNKS",
187     "RANGE",
188     "PAT",
189     "HUNK",
190     "PPAREN",
191     "PANDAND",
192     "POROR",
193     "PNOT",
194     "CPAREN",
195     "CANDAND",
196     "COROR",
197     "CNOT",
198     "RELOP",
199     "RPAREN",
200     "MATCHOP",
201     "MPAREN",
202     "CONCAT",
203     "ASSIGN",
204     "ADD",
205     "SUBTRACT",
206     "MULT",
207     "DIV",
208     "MOD",
209     "POSTINCR",
210     "POSTDECR",
211     "PREINCR",
212     "PREDECR",
213     "UMINUS",
214     "UPLUS",
215     "PAREN",
216     "GETLINE",
217     "SPRINTF",
218     "SUBSTR",
219     "STRING",
220     "SPLIT",
221     "SNEWLINE",
222     "INDEX",
223     "NUM",
224     "STR",
225     "VAR",
226     "FLD",
227     "NEWLINE",
228     "COMMENT",
229     "COMMA",
230     "SEMICOLON",
231     "SCOMMENT",
232     "STATES",
233     "STATE",
234     "PRINT",
235     "PRINTF",
236     "BREAK",
237     "NEXT",
238     "EXIT",
239     "CONTINUE",
240     "REDIR",
241     "IF",
242     "WHILE",
243     "FOR",
244     "FORIN",
245     "VFLD",
246     "BLOCK",
247     "REGEX",
248     "LENGTH",
249     "LOG",
250     "EXP",
251     "SQRT",
252     "INT",
253     "DO",
254     "POW",
255     "SUB",
256     "GSUB",
257     "MATCH",
258     "USERFUN",
259     "USERDEF",
260     "CLOSE",
261     "ATAN2",
262     "SIN",
263     "COS",
264     "RAND",
265     "SRAND",
266     "DELETE",
267     "SYSTEM",
268     "COND",
269     "RETURN",
270     "DEFINED",
271     "STAR",
272     "89"
273 };
274 #else
275 extern char *opname[];
276 #endif
277
278 EXT int mop INIT(1);
279
280 union u_ops {
281     int ival;
282     char *cval;
283 };
284 #if defined(iAPX286) || defined(M_I286) || defined(I80286)      /* 80286 hack */
285 #define OPSMAX (64000/sizeof(union u_ops))      /* approx. max segment size */
286 #else
287 #define OPSMAX 50000
288 #endif                                                  /* 80286 hack */
289 EXT union u_ops ops[OPSMAX];
290
291 typedef struct string STR;
292 typedef struct htbl HASH;
293
294 #include "str.h"
295 #include "hash.h"
296
297
298 /* A string is TRUE if not "" or "0". */
299 #define True(val) (tmps = (val), (*tmps && !(*tmps == '0' && !tmps[1])))
300 EXT char *Yes INIT("1");
301 EXT char *No INIT("");
302
303 #define str_true(str) (Str = (str), (Str->str_pok ? True(Str->str_ptr) : (Str->str_nok ? (Str->str_nval != 0.0) : 0 )))
304
305 #define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%g)",Str->str_nval),buf) : "" )))
306 #define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
307 #define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_nval : str_2num(Str)))
308 EXT STR *Str;
309
310 #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
311
312 /* Prototypes for things in a2p.c */
313 int aryrefarg _(( int arg ));
314 int bl _(( int arg, int maybe ));
315 void dump _(( int branch ));
316 int fixfargs _(( int name, int arg, int prevargs ));
317 int fixrargs _(( char *name, int arg, int prevargs ));
318 void fixup _(( STR *str ));
319 int numary _(( int arg ));
320 int oper0 _(( int type ));
321 int oper1 _(( int type, int arg1 ));
322 int oper2 _(( int type, int arg1, int arg2 ));
323 int oper3 _(( int type, int arg1, int arg2, int arg3 ));
324 int oper4 _(( int type, int arg1, int arg2, int arg3, int arg4 ));
325 int oper5 _(( int type, int arg1, int arg2, int arg3, int arg4, int arg5 ));
326 void putlines _(( STR *str ));
327 void putone _(( void ));
328 int rememberargs _(( int arg ));
329 char * scannum _(( char *s ));
330 char * scanpat _(( char *s ));
331 int string _(( char *ptr, int len ));
332 void yyerror _(( char *s ));
333 int yylex _(( void ));
334
335 EXT int line INIT(0);
336
337 EXT FILE *rsfp;
338 EXT char buf[2048];
339 EXT char *bufptr INIT(buf);
340
341 EXT STR *linestr INIT(Nullstr);
342
343 EXT char tokenbuf[2048];
344 EXT int expectterm INIT(TRUE);
345
346 #ifdef DEBUGGING
347 EXT int debug INIT(0);
348 EXT int dlevel INIT(0);
349 #define YYDEBUG 1
350 extern int yydebug;
351 #endif
352
353 EXT STR *freestrroot INIT(Nullstr);
354
355 EXT STR str_no;
356 EXT STR str_yes;
357
358 EXT bool do_split INIT(FALSE);
359 EXT bool split_to_array INIT(FALSE);
360 EXT bool set_array_base INIT(FALSE);
361 EXT bool saw_RS INIT(FALSE);
362 EXT bool saw_OFS INIT(FALSE);
363 EXT bool saw_ORS INIT(FALSE);
364 EXT bool saw_line_op INIT(FALSE);
365 EXT bool in_begin INIT(TRUE);
366 EXT bool do_opens INIT(FALSE);
367 EXT bool do_fancy_opens INIT(FALSE);
368 EXT bool lval_field INIT(FALSE);
369 EXT bool do_chop INIT(FALSE);
370 EXT bool need_entire INIT(FALSE);
371 EXT bool absmaxfld INIT(FALSE);
372 EXT bool saw_altinput INIT(FALSE);
373
374 EXT bool nomemok INIT(FALSE);
375
376 EXT char const_FS INIT(0);
377 EXT char *namelist INIT(Nullch);
378 EXT char fswitch INIT(0);
379
380 EXT int saw_FS INIT(0);
381 EXT int maxfld INIT(0);
382 EXT int arymax INIT(0);
383 EXT char *nameary[100];
384
385 EXT STR *opens;
386
387 EXT HASH *symtab;
388 EXT HASH *curarghash;
389
390 #define P_MIN           0
391 #define P_LISTOP        5
392 #define P_COMMA         10
393 #define P_ASSIGN        15
394 #define P_COND          20
395 #define P_DOTDOT        25
396 #define P_OROR          30
397 #define P_ANDAND        35
398 #define P_OR            40
399 #define P_AND           45
400 #define P_EQ            50
401 #define P_REL           55
402 #define P_UNI           60
403 #define P_FILETEST      65
404 #define P_SHIFT         70
405 #define P_ADD           75
406 #define P_MUL           80
407 #define P_MATCH         85
408 #define P_UNARY         90
409 #define P_POW           95
410 #define P_AUTO          100
411 #define P_MAX           999
412
413 EXT int an;