[p5sagit/p5-mst-13.2.git] / x2p / a2p.h

/* $Header: a2p.h,v 3.0.1.1 89/11/11 05:07:00 lwall Locked $
 *
 *    Copyright (c) 1989, Larry Wall
 *
 *    You may distribute under the terms of the GNU General Public License
 *    as specified in the README file that comes with the perl 3.0 kit.
 *
 * $Log:	a2p.h,v $
 * Revision 3.0.1.1  89/11/11  05:07:00  lwall
 * patch2: Configure may now set -DDEBUGGING
 * 
 * Revision 3.0  89/10/18  15:34:14  lwall
 * 3.0 baseline
 * 
 */

#define VOIDUSED 1
#include "../config.h"

#ifndef BCOPY
#   define bcopy(s1,s2,l) memcpy(s2,s1,l);
#   define bzero(s,l) memset(s,0,l);
#endif

#include "handy.h"
#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);

#define OPSMAX 50000
union {
    int ival;
    char *cval;
} ops[OPSMAX];		/* hope they have 200k to spare */

#include <stdio.h>
#include <ctype.h>

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)

STR *str_new();

char *scanpat();
char *scannum();

void str_free();

EXT int line INIT(0);

EXT FILE *rsfp;
EXT char buf[1024];
EXT char *bufptr INIT(buf);

EXT STR *linestr INIT(Nullstr);

EXT char tokenbuf[256];
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 char const_FS INIT(0);
EXT char *namelist INIT(Nullch);
EXT char fswitch INIT(0);

EXT int saw_FS INIT(0);
EXT int maxfld INIT(0);
EXT int arymax INIT(0);
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
Commit	Line	Data
bf38876a	1	/* $Header: a2p.h,v 3.0.1.1 89/11/11 05:07:00 lwall Locked $
a687059c	2	*
	3	* Copyright (c) 1989, Larry Wall
	4	*
	5	* You may distribute under the terms of the GNU General Public License
	6	* as specified in the README file that comes with the perl 3.0 kit.
8d063cd8	7	*
8d063cd8	8	* $Log: a2p.h,v $
bf38876a	9	* Revision 3.0.1.1 89/11/11 05:07:00 lwall
	10	* patch2: Configure may now set -DDEBUGGING
	11	*
a687059c	12	* Revision 3.0 89/10/18 15:34:14 lwall
a687059c	13	* 3.0 baseline
8d063cd8	14	*
	15	*/
	16
be04251a	17	#define VOIDUSED 1
	18	#include "../config.h"
	19
	20	#ifndef BCOPY
	21	# define bcopy(s1,s2,l) memcpy(s2,s1,l);
	22	# define bzero(s,l) memset(s,0,l);
	23	#endif
	24
8d063cd8	25	#include "handy.h"
	26	#define Nullop 0
	27
	28	#define OPROG 1
	29	#define OJUNK 2
	30	#define OHUNKS 3
	31	#define ORANGE 4
	32	#define OPAT 5
	33	#define OHUNK 6
	34	#define OPPAREN 7
	35	#define OPANDAND 8
	36	#define OPOROR 9
	37	#define OPNOT 10
	38	#define OCPAREN 11
	39	#define OCANDAND 12
	40	#define OCOROR 13
	41	#define OCNOT 14
	42	#define ORELOP 15
	43	#define ORPAREN 16
	44	#define OMATCHOP 17
	45	#define OMPAREN 18
	46	#define OCONCAT 19
	47	#define OASSIGN 20
	48	#define OADD 21
a687059c	49	#define OSUBTRACT 22
8d063cd8	50	#define OMULT 23
	51	#define ODIV 24
	52	#define OMOD 25
	53	#define OPOSTINCR 26
	54	#define OPOSTDECR 27
	55	#define OPREINCR 28
	56	#define OPREDECR 29
	57	#define OUMINUS 30
	58	#define OUPLUS 31
	59	#define OPAREN 32
	60	#define OGETLINE 33
	61	#define OSPRINTF 34
	62	#define OSUBSTR 35
	63	#define OSTRING 36
	64	#define OSPLIT 37
	65	#define OSNEWLINE 38
	66	#define OINDEX 39
	67	#define ONUM 40
	68	#define OSTR 41
	69	#define OVAR 42
	70	#define OFLD 43
	71	#define ONEWLINE 44
	72	#define OCOMMENT 45
	73	#define OCOMMA 46
	74	#define OSEMICOLON 47
	75	#define OSCOMMENT 48
	76	#define OSTATES 49
	77	#define OSTATE 50
	78	#define OPRINT 51
	79	#define OPRINTF 52
	80	#define OBREAK 53
	81	#define ONEXT 54
	82	#define OEXIT 55
	83	#define OCONTINUE 56
	84	#define OREDIR 57
	85	#define OIF 58
	86	#define OWHILE 59
	87	#define OFOR 60
	88	#define OFORIN 61
	89	#define OVFLD 62
	90	#define OBLOCK 63
	91	#define OREGEX 64
	92	#define OLENGTH 65
	93	#define OLOG 66
	94	#define OEXP 67
	95	#define OSQRT 68
	96	#define OINT 69
a687059c	97	#define ODO 70
	98	#define OPOW 71
	99	#define OSUB 72
	100	#define OGSUB 73
	101	#define OMATCH 74
	102	#define OUSERFUN 75
	103	#define OUSERDEF 76
	104	#define OCLOSE 77
	105	#define OATAN2 78
	106	#define OSIN 79
	107	#define OCOS 80
	108	#define ORAND 81
	109	#define OSRAND 82
	110	#define ODELETE 83
	111	#define OSYSTEM 84
	112	#define OCOND 85
	113	#define ORETURN 86
	114	#define ODEFINED 87
	115	#define OSTAR 88
8d063cd8	116
	117	#ifdef DOINIT
	118	char *opname[] = {
	119	"0",
	120	"PROG",
	121	"JUNK",
	122	"HUNKS",
	123	"RANGE",
	124	"PAT",
	125	"HUNK",
	126	"PPAREN",
	127	"PANDAND",
	128	"POROR",
	129	"PNOT",
	130	"CPAREN",
	131	"CANDAND",
	132	"COROR",
	133	"CNOT",
	134	"RELOP",
	135	"RPAREN",
	136	"MATCHOP",
	137	"MPAREN",
	138	"CONCAT",
	139	"ASSIGN",
	140	"ADD",
a687059c	141	"SUBTRACT",
8d063cd8	142	"MULT",
	143	"DIV",
	144	"MOD",
	145	"POSTINCR",
	146	"POSTDECR",
	147	"PREINCR",
	148	"PREDECR",
	149	"UMINUS",
	150	"UPLUS",
	151	"PAREN",
	152	"GETLINE",
	153	"SPRINTF",
	154	"SUBSTR",
	155	"STRING",
	156	"SPLIT",
	157	"SNEWLINE",
	158	"INDEX",
	159	"NUM",
	160	"STR",
	161	"VAR",
	162	"FLD",
	163	"NEWLINE",
	164	"COMMENT",
	165	"COMMA",
	166	"SEMICOLON",
	167	"SCOMMENT",
	168	"STATES",
	169	"STATE",
	170	"PRINT",
	171	"PRINTF",
	172	"BREAK",
	173	"NEXT",
	174	"EXIT",
	175	"CONTINUE",
	176	"REDIR",
	177	"IF",
	178	"WHILE",
	179	"FOR",
	180	"FORIN",
	181	"VFLD",
	182	"BLOCK",
	183	"REGEX",
	184	"LENGTH",
	185	"LOG",
	186	"EXP",
	187	"SQRT",
	188	"INT",
a687059c	189	"DO",
	190	"POW",
	191	"SUB",
	192	"GSUB",
	193	"MATCH",
	194	"USERFUN",
	195	"USERDEF",
	196	"CLOSE",
	197	"ATAN2",
	198	"SIN",
	199	"COS",
	200	"RAND",
	201	"SRAND",
	202	"DELETE",
	203	"SYSTEM",
	204	"COND",
	205	"RETURN",
	206	"DEFINED",
	207	"STAR",
	208	"89"
8d063cd8	209	};
	210	#else
	211	extern char *opname[];
	212	#endif
	213
a687059c	214	EXT int mop INIT(1);
	215
	216	#define OPSMAX 50000
8d063cd8	217	union {
	218	int ival;
	219	char *cval;
a687059c	220	} ops[OPSMAX]; /* hope they have 200k to spare */
8d063cd8	221
8d063cd8	222	#include <stdio.h>
8d063cd8	223	#include <ctype.h>
8d063cd8	224
	225	typedef struct string STR;
	226	typedef struct htbl HASH;
	227
	228	#include "str.h"
	229	#include "hash.h"
	230
	231	/* A string is TRUE if not "" or "0". */
	232	#define True(val) (tmps = (val), (tmps && !(tmps == '0' && !tmps[1])))
	233	EXT char *Yes INIT("1");
	234	EXT char *No INIT("");
	235
	236	#define str_true(str) (Str = (str), (Str->str_pok ? True(Str->str_ptr) : (Str->str_nok ? (Str->str_nval != 0.0) : 0 )))
	237
	238	#define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%g)",Str->str_nval),buf) : "" )))
	239	#define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
	240	#define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_nval : str_2num(Str)))
	241	EXT STR *Str;
	242
	243	#define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
	244
	245	STR *str_new();
	246
	247	char *scanpat();
	248	char *scannum();
	249
	250	void str_free();
	251
	252	EXT int line INIT(0);
	253
	254	EXT FILE *rsfp;
	255	EXT char buf[1024];
	256	EXT char *bufptr INIT(buf);
	257
	258	EXT STR *linestr INIT(Nullstr);
	259
	260	EXT char tokenbuf[256];
	261	EXT int expectterm INIT(TRUE);
	262
	263	#ifdef DEBUGGING
	264	EXT int debug INIT(0);
	265	EXT int dlevel INIT(0);
9bb9d9f7	266	#define YYDEBUG 1
8d063cd8	267	extern int yydebug;
	268	#endif
	269
	270	EXT STR *freestrroot INIT(Nullstr);
	271
	272	EXT STR str_no;
	273	EXT STR str_yes;
	274
	275	EXT bool do_split INIT(FALSE);
	276	EXT bool split_to_array INIT(FALSE);
	277	EXT bool set_array_base INIT(FALSE);
	278	EXT bool saw_RS INIT(FALSE);
	279	EXT bool saw_OFS INIT(FALSE);
	280	EXT bool saw_ORS INIT(FALSE);
	281	EXT bool saw_line_op INIT(FALSE);
	282	EXT bool in_begin INIT(TRUE);
	283	EXT bool do_opens INIT(FALSE);
	284	EXT bool do_fancy_opens INIT(FALSE);
	285	EXT bool lval_field INIT(FALSE);
	286	EXT bool do_chop INIT(FALSE);
	287	EXT bool need_entire INIT(FALSE);
	288	EXT bool absmaxfld INIT(FALSE);
a687059c	289	EXT bool saw_altinput INIT(FALSE);
8d063cd8	290
	291	EXT char const_FS INIT(0);
	292	EXT char *namelist INIT(Nullch);
	293	EXT char fswitch INIT(0);
	294
	295	EXT int saw_FS INIT(0);
	296	EXT int maxfld INIT(0);
	297	EXT int arymax INIT(0);
	298	char *nameary[100];
	299
	300	EXT STR *opens;
	301
	302	EXT HASH *symtab;
a687059c	303	EXT HASH *curarghash;
	304
	305	#define P_MIN 0
	306	#define P_LISTOP 5
	307	#define P_COMMA 10
	308	#define P_ASSIGN 15
	309	#define P_COND 20
	310	#define P_DOTDOT 25
	311	#define P_OROR 30
	312	#define P_ANDAND 35
	313	#define P_OR 40
	314	#define P_AND 45
	315	#define P_EQ 50
	316	#define P_REL 55
	317	#define P_UNI 60
	318	#define P_FILETEST 65
	319	#define P_SHIFT 70
	320	#define P_ADD 75
	321	#define P_MUL 80
	322	#define P_MATCH 85
	323	#define P_UNARY 90
	324	#define P_POW 95
	325	#define P_AUTO 100
	326	#define P_MAX 999