source: trunk/essentials/dev-lang/perl/x2p/a2p.h@ 3187

Last change on this file since 3187 was 3181, checked in by bird, 19 years ago

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