[perl5.git] / perl.h

/* $Header: perl.h,v 1.0.1.4 88/01/30 08:54:00 root Exp $
 *
 * $Log:	perl.h,v $
 * Revision 1.0.1.4  88/01/30  08:54:00  root
 * patch9: changed #define YYDEBUG; to #define YYDEBUG 1
 * 
 * Revision 1.0.1.3  88/01/28  10:24:17  root
 * patch8: added eval operator.
 * 
 * Revision 1.0.1.2  88/01/24  03:53:47  root
 * patch 2: hid str_peek() in #ifdef DEBUGGING.
 * 
 * Revision 1.0.1.1  88/01/21  21:29:23  root
 * No longer defines STDSTDIO--gets it from config.h now.
 * 
 * Revision 1.0  87/12/18  13:05:38  root
 * Initial revision
 * 
 */

#define DEBUGGING

#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 <stdio.h>
#include <ctype.h>
#include <setjmp.h>
#include <sys/types.h>
#include <sys/stat.h>

#ifdef TMINSYS
#include <sys/time.h>
#else
#include <time.h>
#endif

#include <sys/times.h>

typedef struct arg ARG;
typedef struct cmd CMD;
typedef struct formcmd FCMD;
typedef struct scanpat SPAT;
typedef struct stab STAB;
typedef struct stio STIO;
typedef struct string STR;
typedef struct atbl ARRAY;
typedef struct htbl HASH;

#include "str.h"
#include "form.h"
#include "stab.h"
#include "spat.h"
#include "arg.h"
#include "cmd.h"
#include "array.h"
#include "hash.h"

#ifdef CHARSPRINTF
    char *sprintf();
#else
    int sprintf();
#endif

/* 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 )))

#ifdef DEBUGGING
#define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%g)",Str->str_nval),buf) : "" )))
#endif

#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)

CMD *add_label();
CMD *block_head();
CMD *append_line();
CMD *make_acmd();
CMD *make_ccmd();
CMD *invert();
CMD *addcond();
CMD *addloop();
CMD *wopt();

SPAT *stab_to_spat();

STAB *stabent();

ARG *stab_to_arg();
ARG *op_new();
ARG *make_op();
ARG *make_lval();
ARG *make_match();
ARG *make_split();
ARG *flipflip();

STR *arg_to_str();
STR *str_new();
STR *stab_str();
STR *eval();		/* this evaluates expressions */
STR *do_eval();		/* this evaluates eval operator */

FCMD *load_format();

char *scanpat();
char *scansubst();
char *scantrans();
char *scanstr();
char *scanreg();
char *reg_get();
char *str_append_till();
char *str_gets();

bool do_match();
bool do_open();
bool do_close();
bool do_print();

int do_subst();

void str_free();
void freearg();

EXT int line INIT(0);
EXT int arybase INIT(0);

struct outrec {
    int o_lines;
    char *o_str;
    int o_len;
};

EXT struct outrec outrec;
EXT struct outrec toprec;

EXT STAB *last_in_stab INIT(Nullstab);
EXT STAB *defstab INIT(Nullstab);
EXT STAB *argvstab INIT(Nullstab);
EXT STAB *envstab INIT(Nullstab);
EXT STAB *sigstab INIT(Nullstab);
EXT STAB *defoutstab INIT(Nullstab);
EXT STAB *curoutstab INIT(Nullstab);
EXT STAB *argvoutstab INIT(Nullstab);

EXT STR *freestrroot INIT(Nullstr);

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

EXT STR *linestr INIT(Nullstr);

EXT char record_separator INIT('\n');
EXT char *ofs INIT(Nullch);
EXT char *ors INIT(Nullch);
EXT char *ofmt INIT(Nullch);
EXT char *inplace INIT(Nullch);

EXT char tokenbuf[256];
EXT int expectterm INIT(TRUE);
EXT int lex_newlines INIT(FALSE);
EXT int in_eval INIT(FALSE);

FILE *popen();
/* char *str_get(); */
STR *interp();
void free_arg();
STIO *stio_new();

EXT struct stat statbuf;
EXT struct tms timesbuf;

#ifdef DEBUGGING
EXT int debug INIT(0);
EXT int dlevel INIT(0);
EXT char debname[40];
EXT char debdelim[40];
#define YYDEBUG 1
extern int yydebug;
#endif

EXT STR str_no;
EXT STR str_yes;

/* runtime control stuff */

EXT struct loop {
    char *loop_label;
    jmp_buf loop_env;
} loop_stack[32];

EXT int loop_ptr INIT(-1);

EXT jmp_buf top_env;
EXT jmp_buf eval_env;

EXT char *goto_targ INIT(Nullch);	/* cmd_exec gets strange when set */

double atof();
long time();
struct tm *gmtime(), *localtime();

#ifdef EUNICE
#define UNLINK(f) while (unlink(f) >= 0)
#else
#define UNLINK unlink
#endif
Commit	Line	Data
d96024cf	1	/* $Header: perl.h,v 1.0.1.4 88/01/30 08:54:00 root Exp $
8d063cd8 LW	2	*
8d063cd8 LW	3	* $Log: perl.h,v $
d96024cf MA	4	* Revision 1.0.1.4 88/01/30 08:54:00 root
	5	* patch9: changed #define YYDEBUG; to #define YYDEBUG 1
	6	*
a559c259 LW	7	* Revision 1.0.1.3 88/01/28 10:24:17 root
	8	* patch8: added eval operator.
	9	*
135863df AB	10	* Revision 1.0.1.2 88/01/24 03:53:47 root
	11	* patch 2: hid str_peek() in #ifdef DEBUGGING.
	12	*
36ce8bec DF	13	* Revision 1.0.1.1 88/01/21 21:29:23 root
	14	* No longer defines STDSTDIO--gets it from config.h now.
	15	*
8d063cd8 LW	16	* Revision 1.0 87/12/18 13:05:38 root
	17	* Initial revision
	18	*
	19	*/
	20
	21	#define DEBUGGING
8d063cd8 LW	22
	23	#define VOIDUSED 1
	24	#include "config.h"
	25
	26	#ifndef BCOPY
	27	# define bcopy(s1,s2,l) memcpy(s2,s1,l);
	28	# define bzero(s,l) memset(s,0,l);
	29	#endif
	30
	31	#include <stdio.h>
	32	#include <ctype.h>
	33	#include <setjmp.h>
	34	#include <sys/types.h>
	35	#include <sys/stat.h>
135863df AB	36
	37	#ifdef TMINSYS
	38	#include <sys/time.h>
	39	#else
8d063cd8	40	#include <time.h>
135863df AB	41	#endif
135863df AB	42
8d063cd8 LW	43	#include <sys/times.h>
	44
	45	typedef struct arg ARG;
	46	typedef struct cmd CMD;
	47	typedef struct formcmd FCMD;
	48	typedef struct scanpat SPAT;
	49	typedef struct stab STAB;
	50	typedef struct stio STIO;
	51	typedef struct string STR;
	52	typedef struct atbl ARRAY;
	53	typedef struct htbl HASH;
	54
	55	#include "str.h"
	56	#include "form.h"
	57	#include "stab.h"
	58	#include "spat.h"
	59	#include "arg.h"
	60	#include "cmd.h"
	61	#include "array.h"
	62	#include "hash.h"
	63
135863df AB	64	#ifdef CHARSPRINTF
	65	char *sprintf();
	66	#else
	67	int sprintf();
	68	#endif
	69
8d063cd8 LW	70	/* A string is TRUE if not "" or "0". */
	71	#define True(val) (tmps = (val), (tmps && !(tmps == '0' && !tmps[1])))
	72	EXT char *Yes INIT("1");
	73	EXT char *No INIT("");
	74
	75	#define str_true(str) (Str = (str), (Str->str_pok ? True(Str->str_ptr) : (Str->str_nok ? (Str->str_nval != 0.0) : 0 )))
	76
135863df	77	#ifdef DEBUGGING
8d063cd8	78	#define str_peek(str) (Str = (str), (Str->str_pok ? Str->str_ptr : (Str->str_nok ? (sprintf(buf,"num(%g)",Str->str_nval),buf) : "" )))
135863df AB	79	#endif
135863df AB	80
8d063cd8 LW	81	#define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
	82	#define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_nval : str_2num(Str)))
	83	EXT STR *Str;
	84
	85	#define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
	86
	87	CMD *add_label();
	88	CMD *block_head();
	89	CMD *append_line();
	90	CMD *make_acmd();
	91	CMD *make_ccmd();
	92	CMD *invert();
	93	CMD *addcond();
	94	CMD *addloop();
	95	CMD *wopt();
	96
	97	SPAT *stab_to_spat();
	98
	99	STAB *stabent();
	100
	101	ARG *stab_to_arg();
	102	ARG *op_new();
	103	ARG *make_op();
	104	ARG *make_lval();
	105	ARG *make_match();
	106	ARG *make_split();
	107	ARG *flipflip();
	108
	109	STR *arg_to_str();
	110	STR *str_new();
	111	STR *stab_str();
a559c259 LW	112	STR eval(); / this evaluates expressions */
a559c259 LW	113	STR do_eval(); / this evaluates eval operator */
8d063cd8 LW	114
	115	FCMD *load_format();
	116
	117	char *scanpat();
	118	char *scansubst();
	119	char *scantrans();
	120	char *scanstr();
	121	char *scanreg();
	122	char *reg_get();
	123	char *str_append_till();
	124	char *str_gets();
	125
	126	bool do_match();
	127	bool do_open();
	128	bool do_close();
	129	bool do_print();
	130
	131	int do_subst();
	132
	133	void str_free();
	134	void freearg();
	135
	136	EXT int line INIT(0);
	137	EXT int arybase INIT(0);
	138
	139	struct outrec {
	140	int o_lines;
	141	char *o_str;
	142	int o_len;
	143	};
	144
	145	EXT struct outrec outrec;
	146	EXT struct outrec toprec;
	147
	148	EXT STAB *last_in_stab INIT(Nullstab);
	149	EXT STAB *defstab INIT(Nullstab);
	150	EXT STAB *argvstab INIT(Nullstab);
	151	EXT STAB *envstab INIT(Nullstab);
	152	EXT STAB *sigstab INIT(Nullstab);
	153	EXT STAB *defoutstab INIT(Nullstab);
	154	EXT STAB *curoutstab INIT(Nullstab);
	155	EXT STAB *argvoutstab INIT(Nullstab);
	156
	157	EXT STR *freestrroot INIT(Nullstr);
	158
	159	EXT FILE *rsfp;
	160	EXT char buf[1024];
	161	EXT char *bufptr INIT(buf);
	162
	163	EXT STR *linestr INIT(Nullstr);
	164
	165	EXT char record_separator INIT('\n');
	166	EXT char *ofs INIT(Nullch);
	167	EXT char *ors INIT(Nullch);
	168	EXT char *ofmt INIT(Nullch);
	169	EXT char *inplace INIT(Nullch);
	170
	171	EXT char tokenbuf[256];
	172	EXT int expectterm INIT(TRUE);
	173	EXT int lex_newlines INIT(FALSE);
a559c259	174	EXT int in_eval INIT(FALSE);
8d063cd8 LW	175
	176	FILE *popen();
	177	/* char str_get(); /
	178	STR *interp();
	179	void free_arg();
	180	STIO *stio_new();
	181
	182	EXT struct stat statbuf;
	183	EXT struct tms timesbuf;
	184
	185	#ifdef DEBUGGING
	186	EXT int debug INIT(0);
	187	EXT int dlevel INIT(0);
	188	EXT char debname[40];
	189	EXT char debdelim[40];
d96024cf	190	#define YYDEBUG 1
8d063cd8 LW	191	extern int yydebug;
	192	#endif
	193
	194	EXT STR str_no;
	195	EXT STR str_yes;
	196
	197	/* runtime control stuff */
	198
	199	EXT struct loop {
	200	char *loop_label;
	201	jmp_buf loop_env;
	202	} loop_stack[32];
	203
	204	EXT int loop_ptr INIT(-1);
	205
	206	EXT jmp_buf top_env;
a559c259	207	EXT jmp_buf eval_env;
8d063cd8 LW	208
	209	EXT char goto_targ INIT(Nullch); / cmd_exec gets strange when set */
	210
	211	double atof();
	212	long time();
	213	struct tm gmtime(), localtime();
	214
8d063cd8 LW	215	#ifdef EUNICE
	216	#define UNLINK(f) while (unlink(f) >= 0)
	217	#else
	218	#define UNLINK unlink
	219	#endif