perl5.git.perl.org Git - perl5.git/blame_incremental

... / ...

Commit	Line	Data
	1	/* $RCSfile: perl.h,v $$Revision: 4.0.1.5 $$Date: 91/11/11 16:41:07 $
	2	*
	3	* Copyright (c) 1991, Larry Wall
	4	*
	5	* You may distribute under the terms of either the GNU General Public
	6	* License or the Artistic License, as specified in the README file.
	7	*
	8	* $Log: perl.h,v $
	9	* Revision 4.0.1.5 91/11/11 16:41:07 lwall
	10	* patch19: uts wrongly defines S_ISDIR() et al
	11	* patch19: too many preprocessors can't expand a macro right in #if
	12	* patch19: added little-endian pack/unpack options
	13	*
	14	* Revision 4.0.1.4 91/11/05 18:06:10 lwall
	15	* patch11: various portability fixes
	16	* patch11: added support for dbz
	17	* patch11: added some support for 64-bit integers
	18	* patch11: hex() didn't understand leading 0x
	19	*
	20	* Revision 4.0.1.3 91/06/10 01:25:10 lwall
	21	* patch10: certain pattern optimizations were botched
	22	*
	23	* Revision 4.0.1.2 91/06/07 11:28:33 lwall
	24	* patch4: new copyright notice
	25	* patch4: made some allowances for "semi-standard" C
	26	* patch4: many, many itty-bitty portability fixes
	27	*
	28	* Revision 4.0.1.1 91/04/11 17:49:51 lwall
	29	* patch1: hopefully straightened out some of the Xenix mess
	30	*
	31	* Revision 4.0 91/03/20 01:37:56 lwall
	32	* 4.0 baseline.
	33	*
	34	*/
	35
	36	#define VOIDWANT 1
	37	#include "config.h"
	38
	39	#ifdef MYMALLOC
	40	# ifdef HIDEMYMALLOC
	41	# define malloc Mymalloc
	42	# define realloc Myremalloc
	43	# define free Myfree
	44	# endif
	45	# define safemalloc malloc
	46	# define saferealloc realloc
	47	# define safefree free
	48	#endif
	49
	50	/* work around some libPW problems */
	51	#define fatal Myfatal
	52	#ifdef DOINIT
	53	char Error[1];
	54	#endif
	55
	56	#ifdef MSDOS
	57	/* This stuff now in the MS-DOS config.h file. */
	58	#else /* !MSDOS */
	59
	60	/*
	61	* The following symbols are defined if your operating system supports
	62	* functions by that name. All Unixes I know of support them, thus they
	63	* are not checked by the configuration script, but are directly defined
	64	* here.
	65	*/
	66	#define HAS_ALARM
	67	#define HAS_CHOWN
	68	#define HAS_CHROOT
	69	#define HAS_FORK
	70	#define HAS_GETLOGIN
	71	#define HAS_GETPPID
	72	#define HAS_KILL
	73	#define HAS_LINK
	74	#define HAS_PIPE
	75	#define HAS_WAIT
	76	#define HAS_UMASK
	77	/*
	78	* The following symbols are defined if your operating system supports
	79	* password and group functions in general. All Unix systems do.
	80	*/
	81	#define HAS_GROUP
	82	#define HAS_PASSWD
	83
	84	#endif /* !MSDOS */
	85
	86	#if defined(__STDC__) \|\| defined(_AIX) \|\| defined(__stdc__)
	87	# define STANDARD_C 1
	88	#endif
	89
	90	#if defined(HASVOLATILE) \|\| defined(STANDARD_C)
	91	#define VOLATILE volatile
	92	#else
	93	#define VOLATILE
	94	#endif
	95
	96	#ifdef IAMSUID
	97	# ifndef TAINT
	98	# define TAINT
	99	# endif
	100	#endif
	101
	102	#ifndef HAS_VFORK
	103	# define vfork fork
	104	#endif
	105
	106	#ifdef HAS_GETPGRP2
	107	# ifndef HAS_GETPGRP
	108	# define HAS_GETPGRP
	109	# endif
	110	# define getpgrp getpgrp2
	111	#endif
	112
	113	#ifdef HAS_SETPGRP2
	114	# ifndef HAS_SETPGRP
	115	# define HAS_SETPGRP
	116	# endif
	117	# define setpgrp setpgrp2
	118	#endif
	119
	120	#include <stdio.h>
	121	#include <ctype.h>
	122	#include <setjmp.h>
	123	#ifndef MSDOS
	124	#ifdef PARAM_NEEDS_TYPES
	125	#include <sys/types.h>
	126	#endif
	127	#include <sys/param.h>
	128	#endif
	129	#ifdef STANDARD_C
	130	/* Use all the "standard" definitions */
	131	#include <stdlib.h>
	132	#include <string.h>
	133	#endif /* STANDARD_C */
	134
	135	#if defined(HAS_MEMCMP) && defined(mips) && BYTEORDER == 0x1234
	136	#undef HAS_MEMCMP
	137	#endif
	138
	139	#ifdef HAS_MEMCPY
	140
	141	# ifndef STANDARD_C
	142	# ifndef memcpy
	143	extern char * memcpy(), *memset();
	144	extern int memcmp();
	145	# endif /* ndef memcpy */
	146	# endif /* ndef STANDARD_C */
	147
	148	# ifndef bcopy
	149	# define bcopy(s1,s2,l) memcpy(s2,s1,l)
	150	# endif
	151	# ifndef bzero
	152	# define bzero(s,l) memset(s,0,l)
	153	# endif
	154	#endif /* HAS_MEMCPY */
	155
	156	#ifndef HAS_BCMP /* prefer bcmp slightly 'cuz it doesn't order */
	157	# ifndef bcmp
	158	# define bcmp(s1,s2,l) memcmp(s1,s2,l)
	159	# endif
	160	#endif
	161
	162	#ifndef _TYPES_ /* If types.h defines this it's easy. */
	163	#ifndef major /* Does everyone's types.h define this? */
	164	#include <sys/types.h>
	165	#endif
	166	#endif
	167
	168	#ifdef I_NETINET_IN
	169	#include <netinet/in.h>
	170	#endif
	171
	172	#include <sys/stat.h>
	173	#ifdef uts
	174	#undef S_ISDIR
	175	#undef S_ISCHR
	176	#undef S_ISBLK
	177	#undef S_ISREG
	178	#undef S_ISFIFO
	179	#undef S_ISLNK
	180	#define S_ISDIR(P) (((P)&S_IFMT)==S_IFDIR)
	181	#define S_ISCHR(P) (((P)&S_IFMT)==S_IFCHR)
	182	#define S_ISBLK(P) (((P)&S_IFMT)==S_IFBLK)
	183	#define S_ISREG(P) (((P)&S_IFMT)==S_IFREG)
	184	#define S_ISFIFO(P) (((P)&S_IFMT)==S_IFIFO)
	185	#define S_ISLNK(P) (((P)&S_IFMT)==S_IFLNK)
	186	#endif
	187
	188	#ifdef I_TIME
	189	# include <time.h>
	190	#endif
	191
	192	#ifdef I_SYS_TIME
	193	# ifdef SYSTIMEKERNEL
	194	# define KERNEL
	195	# endif
	196	# include <sys/time.h>
	197	# ifdef SYSTIMEKERNEL
	198	# undef KERNEL
	199	# endif
	200	#endif
	201
	202	#ifndef MSDOS
	203	#include <sys/times.h>
	204	#endif
	205
	206	#if defined(HAS_STRERROR) && (!defined(HAS_MKDIR) \|\| !defined(HAS_RMDIR))
	207	#undef HAS_STRERROR
	208	#endif
	209
	210	#include <errno.h>
	211	#ifndef MSDOS
	212	#ifndef errno
	213	extern int errno; /* ANSI allows errno to be an lvalue expr */
	214	#endif
	215	#endif
	216
	217	#ifndef strerror
	218	#ifdef HAS_STRERROR
	219	char *strerror();
	220	#else
	221	extern int sys_nerr;
	222	extern char *sys_errlist[];
	223	#define strerror(e) ((e) < 0 \|\| (e) >= sys_nerr ? "(unknown)" : sys_errlist[e])
	224	#endif
	225	#endif
	226
	227	#ifdef I_SYSIOCTL
	228	#ifndef _IOCTL_
	229	#include <sys/ioctl.h>
	230	#endif
	231	#endif
	232
	233	#if defined(mc300) \|\| defined(mc500) \|\| defined(mc700) /* MASSCOMP */
	234	#ifdef HAS_SOCKETPAIR
	235	#undef HAS_SOCKETPAIR
	236	#endif
	237	#ifdef HAS_NDBM
	238	#undef HAS_NDBM
	239	#endif
	240	#endif
	241
	242	#ifdef WANT_DBZ
	243	#include <dbz.h>
	244	#define SOME_DBM
	245	#define dbm_fetch(db,dkey) fetch(dkey)
	246	#define dbm_delete(db,dkey) fatal("dbz doesn't implement delete")
	247	#define dbm_store(db,dkey,dcontent,flags) store(dkey,dcontent)
	248	#define dbm_close(db) dbmclose()
	249	#define dbm_firstkey(db) (fatal("dbz doesn't implement traversal"),fetch())
	250	#define nextkey() (fatal("dbz doesn't implement traversal"),fetch())
	251	#define dbm_nextkey(db) (fatal("dbz doesn't implement traversal"),fetch())
	252	#ifdef HAS_NDBM
	253	#undef HAS_NDBM
	254	#endif
	255	#ifndef HAS_ODBM
	256	#define HAS_ODBM
	257	#endif
	258	#else
	259	#ifdef HAS_GDBM
	260	#ifdef I_GDBM
	261	#include <gdbm.h>
	262	#endif
	263	#define SOME_DBM
	264	#ifdef HAS_NDBM
	265	#undef HAS_NDBM
	266	#endif
	267	#ifdef HAS_ODBM
	268	#undef HAS_ODBM
	269	#endif
	270	#else
	271	#ifdef HAS_NDBM
	272	#include <ndbm.h>
	273	#define SOME_DBM
	274	#ifdef HAS_ODBM
	275	#undef HAS_ODBM
	276	#endif
	277	#else
	278	#ifdef HAS_ODBM
	279	#ifdef NULL
	280	#undef NULL /* suppress redefinition message */
	281	#endif
	282	#include <dbm.h>
	283	#ifdef NULL
	284	#undef NULL
	285	#endif
	286	#define NULL 0 /* silly thing is, we don't even use this */
	287	#define SOME_DBM
	288	#define dbm_fetch(db,dkey) fetch(dkey)
	289	#define dbm_delete(db,dkey) delete(dkey)
	290	#define dbm_store(db,dkey,dcontent,flags) store(dkey,dcontent)
	291	#define dbm_close(db) dbmclose()
	292	#define dbm_firstkey(db) firstkey()
	293	#endif /* HAS_ODBM */
	294	#endif /* HAS_NDBM */
	295	#endif /* HAS_GDBM */
	296	#endif /* WANT_DBZ */
	297	#ifdef SOME_DBM
	298	EXT char *dbmkey;
	299	EXT int dbmlen;
	300	#endif
	301
	302	#if INTSIZE == 2
	303	#define htoni htons
	304	#define ntohi ntohs
	305	#else
	306	#define htoni htonl
	307	#define ntohi ntohl
	308	#endif
	309
	310	#if defined(I_DIRENT)
	311	# include <dirent.h>
	312	# define DIRENT dirent
	313	#else
	314	# ifdef I_SYS_NDIR
	315	# include <sys/ndir.h>
	316	# define DIRENT direct
	317	# else
	318	# ifdef I_SYS_DIR
	319	# ifdef hp9000s500
	320	# include <ndir.h> /* may be wrong in the future */
	321	# else
	322	# include <sys/dir.h>
	323	# endif
	324	# define DIRENT direct
	325	# endif
	326	# endif
	327	#endif
	328
	329	#ifdef FPUTS_BOTCH
	330	/* work around botch in SunOS 4.0.1 and 4.0.2 */
	331	# ifndef fputs
	332	# define fputs(str,fp) fprintf(fp,"%s",str)
	333	# endif
	334	#endif
	335
	336	/*
	337	* The following gobbledygook brought to you on behalf of __STDC__.
	338	* (I could just use #ifndef __STDC__, but this is more bulletproof
	339	* in the face of half-implementations.)
	340	*/
	341
	342	#ifndef S_IFMT
	343	# ifdef _S_IFMT
	344	# define S_IFMT _S_IFMT
	345	# else
	346	# define S_IFMT 0170000
	347	# endif
	348	#endif
	349
	350	#ifndef S_ISDIR
	351	# define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR)
	352	#endif
	353
	354	#ifndef S_ISCHR
	355	# define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR)
	356	#endif
	357
	358	#ifndef S_ISBLK
	359	# ifdef S_IFBLK
	360	# define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK)
	361	# else
	362	# define S_ISBLK(m) (0)
	363	# endif
	364	#endif
	365
	366	#ifndef S_ISREG
	367	# define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
	368	#endif
	369
	370	#ifndef S_ISFIFO
	371	# ifdef S_IFIFO
	372	# define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO)
	373	# else
	374	# define S_ISFIFO(m) (0)
	375	# endif
	376	#endif
	377
	378	#ifndef S_ISLNK
	379	# ifdef _S_ISLNK
	380	# define S_ISLNK(m) _S_ISLNK(m)
	381	# else
	382	# ifdef _S_IFLNK
	383	# define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK)
	384	# else
	385	# ifdef S_IFLNK
	386	# define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK)
	387	# else
	388	# define S_ISLNK(m) (0)
	389	# endif
	390	# endif
	391	# endif
	392	#endif
	393
	394	#ifndef S_ISSOCK
	395	# ifdef _S_ISSOCK
	396	# define S_ISSOCK(m) _S_ISSOCK(m)
	397	# else
	398	# ifdef _S_IFSOCK
	399	# define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK)
	400	# else
	401	# ifdef S_IFSOCK
	402	# define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK)
	403	# else
	404	# define S_ISSOCK(m) (0)
	405	# endif
	406	# endif
	407	# endif
	408	#endif
	409
	410	#ifndef S_IRUSR
	411	# ifdef S_IREAD
	412	# define S_IRUSR S_IREAD
	413	# define S_IWUSR S_IWRITE
	414	# define S_IXUSR S_IEXEC
	415	# else
	416	# define S_IRUSR 0400
	417	# define S_IWUSR 0200
	418	# define S_IXUSR 0100
	419	# endif
	420	# define S_IRGRP (S_IRUSR>>3)
	421	# define S_IWGRP (S_IWUSR>>3)
	422	# define S_IXGRP (S_IXUSR>>3)
	423	# define S_IROTH (S_IRUSR>>6)
	424	# define S_IWOTH (S_IWUSR>>6)
	425	# define S_IXOTH (S_IXUSR>>6)
	426	#endif
	427
	428	#ifndef S_ISUID
	429	# define S_ISUID 04000
	430	#endif
	431
	432	#ifndef S_ISGID
	433	# define S_ISGID 02000
	434	#endif
	435
	436	#ifdef f_next
	437	#undef f_next
	438	#endif
	439
	440	#if defined(cray) \|\| defined(gould)
	441	# define SLOPPYDIVIDE
	442	#endif
	443
	444	#if defined(cray) \|\| defined(convex) \|\| defined (uts) \|\| BYTEORDER > 0xffff
	445	# define QUAD
	446	#endif
	447
	448	#ifdef QUAD
	449	# ifdef cray
	450	# define quad int
	451	# else
	452	# if defined(convex) \|\| defined (uts)
	453	# define quad long long
	454	# else
	455	# define quad long
	456	# endif
	457	# endif
	458	#endif
	459
	460	typedef unsigned int STRLEN;
	461
	462	typedef struct arg ARG;
	463	typedef struct cmd CMD;
	464	typedef struct formcmd FCMD;
	465	typedef struct scanpat SPAT;
	466	typedef struct stio STIO;
	467	typedef struct sub SUBR;
	468	typedef struct string STR;
	469	typedef struct atbl ARRAY;
	470	typedef struct htbl HASH;
	471	typedef struct regexp REGEXP;
	472	typedef struct stabptrs STBP;
	473	typedef struct stab STAB;
	474	typedef struct callsave CSV;
	475
	476	#include "handy.h"
	477	#include "regexp.h"
	478	#include "str.h"
	479	#include "util.h"
	480	#include "form.h"
	481	#include "stab.h"
	482	#include "spat.h"
	483	#include "arg.h"
	484	#include "cmd.h"
	485	#include "array.h"
	486	#include "hash.h"
	487
	488	#if defined(iAPX286) \|\| defined(M_I286) \|\| defined(I80286)
	489	# define I286
	490	#endif
	491
	492	#ifndef STANDARD_C
	493	#ifdef CHARSPRINTF
	494	char *sprintf();
	495	#else
	496	int sprintf();
	497	#endif
	498	#endif
	499
	500	EXT char *Yes INIT("1");
	501	EXT char *No INIT("");
	502
	503	/* "gimme" values */
	504
	505	/* Note: cmd.c assumes that it can use && to produce one of these values! */
	506	#define G_SCALAR 0
	507	#define G_ARRAY 1
	508
	509	#ifdef CRIPPLED_CC
	510	int str_true();
	511	#else /* !CRIPPLED_CC */
	512	#define str_true(str) (Str = (str), \
	513	(Str->str_pok ? \
	514	((*Str->str_ptr > '0' \|\| \
	515	Str->str_cur > 1 \|\| \
	516	(Str->str_cur && *Str->str_ptr != '0')) ? 1 : 0) \
	517	: \
	518	(Str->str_nok ? (Str->str_u.str_nval != 0.0) : 0 ) ))
	519	#endif /* CRIPPLED_CC */
	520
	521	#ifdef DEBUGGING
	522	#define str_peek(str) (Str = (str), \
	523	(Str->str_pok ? \
	524	Str->str_ptr : \
	525	(Str->str_nok ? \
	526	(sprintf(tokenbuf,"num(%g)",Str->str_u.str_nval), \
	527	(char*)tokenbuf) : \
	528	"" )))
	529	#endif
	530
	531	#ifdef CRIPPLED_CC
	532	char *str_get();
	533	#else
	534	#ifdef TAINT
	535	#define str_get(str) (Str = (str), tainted \|= Str->str_tainted, \
	536	(Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
	537	#else
	538	#define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
	539	#endif /* TAINT */
	540	#endif /* CRIPPLED_CC */
	541
	542	#ifdef CRIPPLED_CC
	543	double str_gnum();
	544	#else /* !CRIPPLED_CC */
	545	#ifdef TAINT
	546	#define str_gnum(str) (Str = (str), tainted \|= Str->str_tainted, \
	547	(Str->str_nok ? Str->str_u.str_nval : str_2num(Str)))
	548	#else /* !TAINT */
	549	#define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_u.str_nval : str_2num(Str)))
	550	#endif /* TAINT*/
	551	#endif /* CRIPPLED_CC */
	552	EXT STR *Str;
	553
	554	#define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
	555
	556	#ifndef MSDOS
	557	#define STR_GROW(str,len) if ((str)->str_len < (len)) str_grow(str,len)
	558	#define Str_Grow str_grow
	559	#else
	560	/* extra parentheses intentionally NOT placed around "len"! */
	561	#define STR_GROW(str,len) if ((str)->str_len < (unsigned long)len) \
	562	str_grow(str,(unsigned long)len)
	563	#define Str_Grow(str,len) str_grow(str,(unsigned long)(len))
	564	#endif /* MSDOS */
	565
	566	#ifndef BYTEORDER
	567	#define BYTEORDER 0x1234
	568	#endif
	569
	570	#if defined(htonl) && !defined(HAS_HTONL)
	571	#define HAS_HTONL
	572	#endif
	573	#if defined(htons) && !defined(HAS_HTONS)
	574	#define HAS_HTONS
	575	#endif
	576	#if defined(ntohl) && !defined(HAS_NTOHL)
	577	#define HAS_NTOHL
	578	#endif
	579	#if defined(ntohs) && !defined(HAS_NTOHS)
	580	#define HAS_NTOHS
	581	#endif
	582	#ifndef HAS_HTONL
	583	#if (BYTEORDER & 0xffff) != 0x4321
	584	#define HAS_HTONS
	585	#define HAS_HTONL
	586	#define HAS_NTOHS
	587	#define HAS_NTOHL
	588	#define MYSWAP
	589	#define htons my_swap
	590	#define htonl my_htonl
	591	#define ntohs my_swap
	592	#define ntohl my_ntohl
	593	#endif
	594	#else
	595	#if (BYTEORDER & 0xffff) == 0x4321
	596	#undef HAS_HTONS
	597	#undef HAS_HTONL
	598	#undef HAS_NTOHS
	599	#undef HAS_NTOHL
	600	#endif
	601	#endif
	602
	603	/*
	604	* Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'.
	605	* -DWS
	606	*/
	607	#if BYTEORDER != 0x1234
	608	# define HAS_VTOHL
	609	# define HAS_VTOHS
	610	# define HAS_HTOVL
	611	# define HAS_HTOVS
	612	# if BYTEORDER == 0x4321
	613	# define vtohl(x) ((((x)&0xFF)<<24) \
	614	+(((x)>>24)&0xFF) \
	615	+(((x)&0x0000FF00)<<8) \
	616	+(((x)&0x00FF0000)>>8) )
	617	# define vtohs(x) ((((x)&0xFF)<<8) + (((x)>>8)&0xFF))
	618	# define htovl(x) vtohl(x)
	619	# define htovs(x) vtohs(x)
	620	# endif
	621	/* otherwise default to functions in util.c */
	622	#endif
	623
	624	#ifdef CASTNEGFLOAT
	625	#define U_S(what) ((unsigned short)(what))
	626	#define U_I(what) ((unsigned int)(what))
	627	#define U_L(what) ((unsigned long)(what))
	628	#else
	629	unsigned long castulong();
	630	#define U_S(what) ((unsigned int)castulong(what))
	631	#define U_I(what) ((unsigned int)castulong(what))
	632	#define U_L(what) (castulong(what))
	633	#endif
	634
	635	CMD *add_label();
	636	CMD *block_head();
	637	CMD *append_line();
	638	CMD *make_acmd();
	639	CMD *make_ccmd();
	640	CMD *make_icmd();
	641	CMD *invert();
	642	CMD *addcond();
	643	CMD *addloop();
	644	CMD *wopt();
	645	CMD *over();
	646
	647	STAB *stabent();
	648	STAB *genstab();
	649
	650	ARG *stab2arg();
	651	ARG *op_new();
	652	ARG *make_op();
	653	ARG *make_match();
	654	ARG *make_split();
	655	ARG *rcatmaybe();
	656	ARG *listish();
	657	ARG *maybelistish();
	658	ARG *localize();
	659	ARG *fixeval();
	660	ARG *jmaybe();
	661	ARG *l();
	662	ARG *fixl();
	663	ARG *mod_match();
	664	ARG *make_list();
	665	ARG *cmd_to_arg();
	666	ARG *addflags();
	667	ARG *hide_ary();
	668	ARG *cval_to_arg();
	669
	670	STR *str_new();
	671	STR *stab_str();
	672
	673	int do_each();
	674	int do_subr();
	675	int do_match();
	676	int do_unpack();
	677	int eval(); /* this evaluates expressions */
	678	int do_eval(); /* this evaluates eval operator */
	679	int do_assign();
	680
	681	SUBR *make_sub();
	682
	683	FCMD *load_format();
	684
	685	char *scanpat();
	686	char *scansubst();
	687	char *scantrans();
	688	char *scanstr();
	689	char *scanident();
	690	char *str_append_till();
	691	char *str_gets();
	692	char *str_grow();
	693
	694	bool do_open();
	695	bool do_close();
	696	bool do_print();
	697	bool do_aprint();
	698	bool do_exec();
	699	bool do_aexec();
	700
	701	int do_subst();
	702	int cando();
	703	int ingroup();
	704
	705	void str_replace();
	706	void str_inc();
	707	void str_dec();
	708	void str_free();
	709	void stab_clear();
	710	void do_join();
	711	void do_sprintf();
	712	void do_accept();
	713	void do_pipe();
	714	void do_vecset();
	715	void do_unshift();
	716	void do_execfree();
	717	void magicalize();
	718	void magicname();
	719	void savelist();
	720	void saveitem();
	721	void saveint();
	722	void savelong();
	723	void savesptr();
	724	void savehptr();
	725	void restorelist();
	726	void repeatcpy();
	727	HASH *savehash();
	728	ARRAY *saveary();
	729
	730	EXT char **origargv;
	731	EXT int origargc;
	732	EXT char **origenviron;
	733	extern char **environ;
	734
	735	EXT long subline INIT(0);
	736	EXT STR *subname INIT(Nullstr);
	737	EXT int arybase INIT(0);
	738
	739	struct outrec {
	740	long o_lines;
	741	char *o_str;
	742	int o_len;
	743	};
	744
	745	EXT struct outrec outrec;
	746	EXT struct outrec toprec;
	747
	748	EXT STAB *stdinstab INIT(Nullstab);
	749	EXT STAB *last_in_stab INIT(Nullstab);
	750	EXT STAB *defstab INIT(Nullstab);
	751	EXT STAB *argvstab INIT(Nullstab);
	752	EXT STAB *envstab INIT(Nullstab);
	753	EXT STAB *sigstab INIT(Nullstab);
	754	EXT STAB *defoutstab INIT(Nullstab);
	755	EXT STAB *curoutstab INIT(Nullstab);
	756	EXT STAB *argvoutstab INIT(Nullstab);
	757	EXT STAB *incstab INIT(Nullstab);
	758	EXT STAB *leftstab INIT(Nullstab);
	759	EXT STAB *amperstab INIT(Nullstab);
	760	EXT STAB *rightstab INIT(Nullstab);
	761	EXT STAB *DBstab INIT(Nullstab);
	762	EXT STAB *DBline INIT(Nullstab);
	763	EXT STAB *DBsub INIT(Nullstab);
	764
	765	EXT HASH defstash; / main symbol table */
	766	EXT HASH curstash; / symbol table for current package */
	767	EXT HASH debstash; / symbol table for perldb package */
	768
	769	EXT STR curstname; / name of current package */
	770
	771	EXT STR *freestrroot INIT(Nullstr);
	772	EXT STR *lastretstr INIT(Nullstr);
	773	EXT STR *DBsingle INIT(Nullstr);
	774	EXT STR *DBtrace INIT(Nullstr);
	775	EXT STR *DBsignal INIT(Nullstr);
	776
	777	EXT int lastspbase;
	778	EXT int lastsize;
	779
	780	EXT char *hexdigit INIT("0123456789abcdef0123456789ABCDEFx");
	781	EXT char *origfilename;
	782	EXT FILE * VOLATILE rsfp;
	783	EXT char buf[1024];
	784	EXT char *bufptr;
	785	EXT char *oldbufptr;
	786	EXT char *oldoldbufptr;
	787	EXT char *bufend;
	788
	789	EXT STR *linestr INIT(Nullstr);
	790
	791	EXT char *rs INIT("\n");
	792	EXT int rschar INIT('\n'); /* final char of rs, or 0777 if none */
	793	EXT int rslen INIT(1);
	794	EXT char *ofs INIT(Nullch);
	795	EXT int ofslen INIT(0);
	796	EXT char *ors INIT(Nullch);
	797	EXT int orslen INIT(0);
	798	EXT char *ofmt INIT(Nullch);
	799	EXT char *inplace INIT(Nullch);
	800	EXT char *nointrp INIT("");
	801
	802	EXT bool preprocess INIT(FALSE);
	803	EXT bool minus_n INIT(FALSE);
	804	EXT bool minus_p INIT(FALSE);
	805	EXT bool minus_l INIT(FALSE);
	806	EXT bool minus_a INIT(FALSE);
	807	EXT bool doswitches INIT(FALSE);
	808	EXT bool dowarn INIT(FALSE);
	809	EXT bool doextract INIT(FALSE);
	810	EXT bool allstabs INIT(FALSE); /* init all customary symbols in symbol table?*/
	811	EXT bool sawampersand INIT(FALSE); /* must save all match strings */
	812	EXT bool sawstudy INIT(FALSE); /* do fbminstr on all strings */
	813	EXT bool sawi INIT(FALSE); /* study must assume case insensitive */
	814	EXT bool sawvec INIT(FALSE);
	815	EXT bool localizing INIT(FALSE); /* are we processing a local() list? */
	816
	817	#ifndef MAXSYSFD
	818	# define MAXSYSFD 2
	819	#endif
	820	EXT int maxsysfd INIT(MAXSYSFD); /* top fd to pass to subprocesses */
	821
	822	#ifdef CSH
	823	char *cshname INIT(CSH);
	824	int cshlen INIT(0);
	825	#endif /* CSH */
	826
	827	#ifdef TAINT
	828	EXT bool tainted INIT(FALSE); /* using variables controlled by $< */
	829	#endif
	830
	831	#ifndef MSDOS
	832	#define TMPPATH "/tmp/perl-eXXXXXX"
	833	#else
	834	#define TMPPATH "plXXXXXX"
	835	#endif /* MSDOS */
	836	EXT char *e_tmpname;
	837	EXT FILE *e_fp INIT(Nullfp);
	838
	839	EXT char tokenbuf[256];
	840	EXT int expectterm INIT(TRUE); /* how to interpret ambiguous tokens */
	841	EXT VOLATILE int in_eval INIT(FALSE); /* trap fatal errors? */
	842	EXT int multiline INIT(0); /* $--do strings hold >1 line? /
	843	EXT int forkprocess; /* so do_open \|- can return proc# */
	844	EXT int do_undump INIT(0); /* -u or dump seen? */
	845	EXT int error_count INIT(0); /* how many errors so far, max 10 */
	846	EXT int multi_start INIT(0); /* 1st line of multi-line string */
	847	EXT int multi_end INIT(0); /* last line of multi-line string */
	848	EXT int multi_open INIT(0); /* delimiter of said string */
	849	EXT int multi_close INIT(0); /* delimiter of said string */
	850
	851	FILE *popen();
	852	/* char str_get(); /
	853	STR *interp();
	854	void free_arg();
	855	STIO *stio_new();
	856	void hoistmust();
	857	void scanconst();
	858
	859	EXT struct stat statbuf;
	860	EXT struct stat statcache;
	861	STAB *statstab INIT(Nullstab);
	862	STR *statname;
	863	#ifndef MSDOS
	864	EXT struct tms timesbuf;
	865	#endif
	866	EXT int uid;
	867	EXT int euid;
	868	EXT int gid;
	869	EXT int egid;
	870	UIDTYPE getuid();
	871	UIDTYPE geteuid();
	872	GIDTYPE getgid();
	873	GIDTYPE getegid();
	874	EXT int unsafe;
	875
	876	#ifdef DEBUGGING
	877	EXT VOLATILE int debug INIT(0);
	878	EXT int dlevel INIT(0);
	879	EXT int dlmax INIT(128);
	880	EXT char *debname;
	881	EXT char *debdelim;
	882	#define YYDEBUG 1
	883	#endif
	884	EXT int perldb INIT(0);
	885	#define YYMAXDEPTH 300
	886
	887	EXT line_t cmdline INIT(NOLINE);
	888
	889	EXT STR str_undef;
	890	EXT STR str_no;
	891	EXT STR str_yes;
	892
	893	/* runtime control stuff */
	894
	895	EXT struct loop {
	896	char loop_label; / what the loop was called, if anything */
	897	int loop_sp; /* stack pointer to copy stuff down to */
	898	jmp_buf loop_env;
	899	} *loop_stack;
	900
	901	EXT int loop_ptr INIT(-1);
	902	EXT int loop_max INIT(128);
	903
	904	EXT jmp_buf top_env;
	905
	906	EXT char * VOLATILE goto_targ INIT(Nullch); /* cmd_exec gets strange when set */
	907
	908	struct ufuncs {
	909	int (*uf_val)();
	910	int (*uf_set)();
	911	int uf_index;
	912	};
	913
	914	EXT ARRAY stack; / THE STACK */
	915
	916	EXT ARRAY * VOLATILE savestack; /* to save non-local values on */
	917
	918	EXT ARRAY tosave; / strings to save on recursive subroutine */
	919
	920	EXT ARRAY lineary; / lines of script for debugger */
	921	EXT ARRAY dbargs; / args to call listed by caller function */
	922
	923	EXT ARRAY fdpid; / keep fd-to-pid mappings for mypopen */
	924	EXT HASH pidstatus; / keep pid-to-status mappings for waitpid */
	925
	926	EXT int di; / for tmp use in debuggers */
	927	EXT char *dc;
	928	EXT short *ds;
	929
	930	/* Fix these up for __STDC__ */
	931	EXT long basetime INIT(0);
	932	char *mktemp();
	933	#ifndef STANDARD_C
	934	/* All of these are in stdlib.h or time.h for ANSI C */
	935	double atof();
	936	long time();
	937	struct tm gmtime(), localtime();
	938	char index(), rindex();
	939	char strcpy(), strcat();
	940	#endif /* ! STANDARD_C */
	941
	942	#ifdef EUNICE
	943	#define UNLINK unlnk
	944	int unlnk();
	945	#else
	946	#define UNLINK unlink
	947	#endif
	948
	949	#ifndef HAS_SETREUID
	950	#ifdef HAS_SETRESUID
	951	#define setreuid(r,e) setresuid(r,e,-1)
	952	#define HAS_SETREUID
	953	#endif
	954	#endif
	955	#ifndef HAS_SETREGID
	956	#ifdef HAS_SETRESGID
	957	#define setregid(r,e) setresgid(r,e,-1)
	958	#define HAS_SETREGID
	959	#endif
	960	#endif