[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 WIN32
#define _INC_WIN32_PERL5	/* kludge around win32 stdio layer */
#endif

#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

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