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