[perl5.git] / x2p / a2p.h

/* $RCSfile: a2p.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:09 $
 *
 *    Copyright (c) 1991-1997, 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 $
 */

#define VOIDUSED 1
#ifdef VMS
#  include "config.h"
#else
#  include "../config.h"
#endif

#if defined(__STDC__) || defined(vax11c) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus)
# define STANDARD_C 1
#endif

/* Use all the "standard" definitions? */
#if defined(STANDARD_C) && defined(I_STDLIB)
#   include <stdlib.h>
#endif /* STANDARD_C */

#include <stdio.h>

#ifdef I_MATH
#include <math.h>
#endif

#ifdef I_SYS_TYPES
#  include <sys/types.h>
#endif

#ifdef USE_NEXT_CTYPE

#if NX_CURRENT_COMPILER_RELEASE >= 400
#include <objc/NXCType.h>
#else /*  NX_CURRENT_COMPILER_RELEASE < 400 */
#include <appkit/NXCType.h>
#endif /*  NX_CURRENT_COMPILER_RELEASE >= 400 */

#else /* !USE_NEXT_CTYPE */
#include <ctype.h>
#endif /* USE_NEXT_CTYPE */

#define MEM_SIZE Size_t

#ifdef STANDARD_C
#   include <stdlib.h>
#else
    Malloc_t malloc _((MEM_SIZE nbytes));
    Malloc_t calloc _((MEM_SIZE elements, MEM_SIZE size));
    Malloc_t realloc _((Malloc_t where, MEM_SIZE nbytes));
    Free_t   free _((Malloc_t where));
#endif

#if defined(I_STRING) || defined(__cplusplus)
#   include <string.h>
#else
#   include <strings.h>
#endif

#if !defined(HAS_BCOPY) || defined(__cplusplus)
#   define bcopy(s1,s2,l) memcpy(s2,s1,l)
#endif
#if !defined(HAS_BZERO) || defined(__cplusplus)
#   define bzero(s,l) memset(s,0,l)
#endif

#if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)
#define strchr index
#define strrchr rindex
#endif


#ifdef I_TIME
#   include <time.h>
#endif

#ifdef I_SYS_TIME
#   ifdef I_SYS_TIME_KERNEL
#	define KERNEL
#   endif
#   include <sys/time.h>
#   ifdef I_SYS_TIME_KERNEL
#	undef KERNEL
#   endif
#endif

#ifndef MSDOS
#  if defined(HAS_TIMES) && defined(I_SYS_TIMES)
#    include <sys/times.h>
#  endif
#endif

#ifdef DOSISH
# if defined(OS2)
#   include "../os2ish.h"
# else
#   include "../dosish.h"
# endif
#else
# if defined(VMS)
#   define NO_PERL_TYPEDEFS
#   include "vmsish.h"
# endif
#endif

#ifndef STANDARD_C
/* All of these are in stdlib.h or time.h for ANSI C */
Time_t time();
struct tm *gmtime(), *localtime();
char *strchr(), *strrchr();
char *strcpy(), *strcat();
#endif /* ! STANDARD_C */

#ifdef VMS
#  include "handy.h"
#else 
#  include "../handy.h"
#endif

#undef Nullfp
#define Nullfp Null(FILE*)

#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 */
EXT union u_ops ops[OPSMAX];

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)

/* Prototypes for things in a2p.c */
int aryrefarg _(( int arg ));
int bl _(( int arg, int maybe ));
void dump _(( int branch ));
int fixfargs _(( int name, int arg, int prevargs ));
int fixrargs _(( char *name, int arg, int prevargs ));
void fixup _(( STR *str ));
int numary _(( int arg ));
int oper0 _(( int type ));
int oper1 _(( int type, int arg1 ));
int oper2 _(( int type, int arg1, int arg2 ));
int oper3 _(( int type, int arg1, int arg2, int arg3 ));
int oper4 _(( int type, int arg1, int arg2, int arg3, int arg4 ));
int oper5 _(( int type, int arg1, int arg2, int arg3, int arg4, int arg5 ));
void putlines _(( STR *str ));
void putone _(( void ));
int rememberargs _(( int arg ));
char * scannum _(( char *s ));
char * scanpat _(( char *s ));
int string _(( char *ptr, int len ));
void yyerror _(( char *s ));
int yylex _(( void ));

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 bool old_awk INIT(0);

EXT int saw_FS INIT(0);
EXT int maxfld INIT(0);
EXT int arymax INIT(0);
EXT 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

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