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

... / ...

Commit	Line	Data
	1	/* perl.h
	2	*
	3	* Copyright (c) 1987-1997, 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	*/
	9	#ifndef H_PERL
	10	#define H_PERL 1
	11
	12	#ifdef PERL_FOR_X2P
	13	/*
	14	* This file is being used for x2p stuff.
	15	* Above symbol is defined via -D in 'x2p/Makefile.SH'
	16	* Decouple x2p stuff from some of perls more extreme eccentricities.
	17	*/
	18	#undef MULTIPLICITY
	19	#undef USE_STDIO
	20	#define USE_STDIO
	21	#endif /* PERL_FOR_X2P */
	22
	23	#ifdef PERL_OBJECT
	24
	25	/* PERL_OBJECT explained - DickH and DougL @ ActiveState.com
	26
	27	Defining PERL_OBJECT turns on creation of a C++ object that
	28	contains all writable core perl global variables and functions.
	29	Stated another way, all necessary global variables and functions
	30	are members of a big C++ object. This object's class is CPerlObj.
	31	This allows a Perl Host to have multiple, independent perl
	32	interpreters in the same process space. This is very important on
	33	Win32 systems as the overhead of process creation is quite high --
	34	this could be even higher than the script compile and execute time
	35	for small scripts.
	36
	37	The perl executable implementation on Win32 is composed of perl.exe
	38	(the Perl Host) and perlX.dll. (the Perl Core). This allows the
	39	same Perl Core to easily be embedded in other applications that use
	40	the perl interpreter.
	41
	42	+-----------+
	43	\| Perl Host \|
	44	+-----------+
	45	^
	46	\|
	47	v
	48	+-----------+ +-----------+
	49	\| Perl Core \|<->\| Extension \|
	50	+-----------+ +-----------+ ...
	51
	52	Defining PERL_OBJECT has the following effects:
	53
	54	PERL CORE
	55	1. CPerlObj is defined (this is the PERL_OBJECT)
	56	2. all static functions that needed to access either global
	57	variables or functions needed are made member functions
	58	3. all writable static variables are made member variables
	59	4. all global variables and functions are defined as:
	60	#define var CPerlObj::PL_var
	61	#define func CPerlObj::Perl_func
	62	* these are in embed.h
	63	This necessitated renaming some local variables and functions that
	64	had the same name as a global variable or function. This was
	65	probably a _good_ thing anyway.
	66
	67
	68	EXTENSIONS
	69	1. Access to global variables and perl functions is through a
	70	pointer to the PERL_OBJECT. This pointer type is CPerlObj*. This is
	71	made transparent to extension developers by the following macros:
	72	#define var pPerl->PL_var
	73	#define func pPerl->Perl_func
	74	* these are done in objXSUB.h
	75	This requires that the extension be compiled as C++, which means
	76	that the code must be ANSI C and not K&R C. For K&R extensions,
	77	please see the C API notes located in Win32/GenCAPI.pl. This script
	78	creates a perlCAPI.lib that provides a K & R compatible C interface
	79	to the PERL_OBJECT.
	80	2. Local variables and functions cannot have the same name as perl's
	81	variables or functions since the macros will redefine these. Look for
	82	this if you get some strange error message and it does not look like
	83	the code that you had written. This often happens with variables that
	84	are local to a function.
	85
	86	PERL HOST
	87	1. The perl host is linked with perlX.lib to get perl_alloc. This
	88	function will return a pointer to CPerlObj (the PERL_OBJECT). It
	89	takes pointers to the various PerlXXX_YYY interfaces (see iperlsys.h
	90	for more information on this).
	91	2. The perl host calls the same functions as normally would be
	92	called in setting up and running a perl script, except that the
	93	functions are now member functions of the PERL_OBJECT.
	94
	95	*/
	96
	97
	98	class CPerlObj;
	99
	100	#define STATIC
	101	#define CPERLscope(x) CPerlObj::x
	102	#define CPERLproto CPerlObj *
	103	#define _CPERLproto ,CPERLproto
	104	#define CPERLarg CPerlObj *pPerl
	105	#define CPERLarg_ CPERLarg,
	106	#define _CPERLarg ,CPERLarg
	107	#define PERL_OBJECT_THIS this
	108	#define _PERL_OBJECT_THIS ,this
	109	#define PERL_OBJECT_THIS_ this,
	110	#define CALLRUNOPS (this->*PL_runops)
	111	#define CALLREGCOMP (this->*PL_regcompp)
	112	#define CALLREGEXEC (this->*PL_regexecp)
	113
	114	#else /* !PERL_OBJECT */
	115
	116	#define STATIC static
	117	#define CPERLscope(x) x
	118	#define CPERLproto
	119	#define _CPERLproto
	120	#define CPERLarg void
	121	#define CPERLarg_
	122	#define _CPERLarg
	123	#define PERL_OBJECT_THIS
	124	#define _PERL_OBJECT_THIS
	125	#define PERL_OBJECT_THIS_
	126	#define CALLRUNOPS (*PL_runops)
	127	#define CALLREGCOMP (*PL_regcompp)
	128	#define CALLREGEXEC (*PL_regexecp)
	129
	130	#endif /* PERL_OBJECT */
	131
	132	#define VOIDUSED 1
	133	#include "config.h"
	134
	135	#if !defined(PERL_FOR_X2P)
	136	# include "embed.h"
	137	#endif
	138
	139	#undef START_EXTERN_C
	140	#undef END_EXTERN_C
	141	#undef EXTERN_C
	142	#ifdef __cplusplus
	143	# define START_EXTERN_C extern "C" {
	144	# define END_EXTERN_C }
	145	# define EXTERN_C extern "C"
	146	#else
	147	# define START_EXTERN_C
	148	# define END_EXTERN_C
	149	# define EXTERN_C
	150	#endif
	151
	152	#ifdef OP_IN_REGISTER
	153	# ifdef __GNUC__
	154	# define stringify_immed(s) #s
	155	# define stringify(s) stringify_immed(s)
	156	register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
	157	# endif
	158	#endif
	159
	160	/*
	161	* STMT_START { statements; } STMT_END;
	162	* can be used as a single statement, as in
	163	* if (x) STMT_START { ... } STMT_END; else ...
	164	*
	165	* Trying to select a version that gives no warnings...
	166	*/
	167	#if !(defined(STMT_START) && defined(STMT_END))
	168	# if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(__cplusplus)
	169	# define STMT_START (void)( /* gcc supports ``({ STATEMENTS; })'' */
	170	# define STMT_END )
	171	# else
	172	/* Now which other defined()s do we need here ??? */
	173	# if (VOIDFLAGS) && (defined(sun) \|\| defined(__sun__))
	174	# define STMT_START if (1)
	175	# define STMT_END else (void)0
	176	# else
	177	# define STMT_START do
	178	# define STMT_END while (0)
	179	# endif
	180	# endif
	181	#endif
	182
	183	#define NOOP (void)0
	184
	185	#define WITH_THR(s) STMT_START { dTHR; s; } STMT_END
	186
	187	/*
	188	* SOFT_CAST can be used for args to prototyped functions to retain some
	189	* type checking; it only casts if the compiler does not know prototypes.
	190	*/
	191	#if defined(CAN_PROTOTYPE) && defined(DEBUGGING_COMPILE)
	192	#define SOFT_CAST(type)
	193	#else
	194	#define SOFT_CAST(type) (type)
	195	#endif
	196
	197	#ifndef BYTEORDER /* Should never happen -- byteorder is in config.h */
	198	# define BYTEORDER 0x1234
	199	#endif
	200
	201	/* Overall memory policy? */
	202	#ifndef CONSERVATIVE
	203	# define LIBERAL 1
	204	#endif
	205
	206	#if 'A' == 65 && 'I' == 73 && 'J' == 74 && 'Z' == 90
	207	#define ASCIIish
	208	#else
	209	#undef ASCIIish
	210	#endif
	211
	212	/*
	213	* The following contortions are brought to you on behalf of all the
	214	* standards, semi-standards, de facto standards, not-so-de-facto standards
	215	* of the world, as well as all the other botches anyone ever thought of.
	216	* The basic theory is that if we work hard enough here, the rest of the
	217	* code can be a lot prettier. Well, so much for theory. Sorry, Henry...
	218	*/
	219
	220	/* define this once if either system, instead of cluttering up the src */
	221	#if defined(MSDOS) \|\| defined(atarist) \|\| defined(WIN32) \|\| defined(CYGWIN32)
	222	#define DOSISH 1
	223	#endif
	224
	225	#if defined(__STDC__) \|\| defined(vax11c) \|\| defined(_AIX) \|\| defined(__stdc__) \|\| defined(__cplusplus)
	226	# define STANDARD_C 1
	227	#endif
	228
	229	#if defined(__cplusplus) \|\| defined(WIN32) \|\| defined(__sgi) \|\| defined(OS2) \|\| defined(__DGUX)
	230	# define DONT_DECLARE_STD 1
	231	#endif
	232
	233	#if defined(HASVOLATILE) \|\| defined(STANDARD_C)
	234	# ifdef __cplusplus
	235	# define VOL // to temporarily suppress warnings
	236	# else
	237	# define VOL volatile
	238	# endif
	239	#else
	240	# define VOL
	241	#endif
	242
	243	#define TAINT (PL_tainted = TRUE)
	244	#define TAINT_NOT (PL_tainted = FALSE)
	245	#define TAINT_IF(c) if (c) { PL_tainted = TRUE; }
	246	#define TAINT_ENV() if (PL_tainting) { taint_env(); }
	247	#define TAINT_PROPER(s) if (PL_tainting) { taint_proper(Nullch, s); }
	248
	249	/* XXX All process group stuff is handled in pp_sys.c. Should these
	250	defines move there? If so, I could simplify this a lot. --AD 9/96.
	251	*/
	252	/* Process group stuff changed from traditional BSD to POSIX.
	253	perlfunc.pod documents the traditional BSD-style syntax, so we'll
	254	try to preserve that, if possible.
	255	*/
	256	#ifdef HAS_SETPGID
	257	# define BSD_SETPGRP(pid, pgrp) setpgid((pid), (pgrp))
	258	#else
	259	# if defined(HAS_SETPGRP) && defined(USE_BSD_SETPGRP)
	260	# define BSD_SETPGRP(pid, pgrp) setpgrp((pid), (pgrp))
	261	# else
	262	# ifdef HAS_SETPGRP2 /* DG/UX */
	263	# define BSD_SETPGRP(pid, pgrp) setpgrp2((pid), (pgrp))
	264	# endif
	265	# endif
	266	#endif
	267	#if defined(BSD_SETPGRP) && !defined(HAS_SETPGRP)
	268	# define HAS_SETPGRP /* Well, effectively it does . . . */
	269	#endif
	270
	271	/* getpgid isn't POSIX, but at least Solaris and Linux have it, and it makes
	272	our life easier :-) so we'll try it.
	273	*/
	274	#ifdef HAS_GETPGID
	275	# define BSD_GETPGRP(pid) getpgid((pid))
	276	#else
	277	# if defined(HAS_GETPGRP) && defined(USE_BSD_GETPGRP)
	278	# define BSD_GETPGRP(pid) getpgrp((pid))
	279	# else
	280	# ifdef HAS_GETPGRP2 /* DG/UX */
	281	# define BSD_GETPGRP(pid) getpgrp2((pid))
	282	# endif
	283	# endif
	284	#endif
	285	#if defined(BSD_GETPGRP) && !defined(HAS_GETPGRP)
	286	# define HAS_GETPGRP /* Well, effectively it does . . . */
	287	#endif
	288
	289	/* These are not exact synonyms, since setpgrp() and getpgrp() may
	290	have different behaviors, but perl.h used to define USE_BSDPGRP
	291	(prior to 5.003_05) so some extension might depend on it.
	292	*/
	293	#if defined(USE_BSD_SETPGRP) \|\| defined(USE_BSD_GETPGRP)
	294	# ifndef USE_BSDPGRP
	295	# define USE_BSDPGRP
	296	# endif
	297	#endif
	298
	299	/* HP-UX 10.X CMA (Common Multithreaded Architecure) insists that
	300	pthread.h must be included before all other header files.
	301	*/
	302	#if defined(USE_THREADS) && defined(PTHREAD_H_FIRST)
	303	# include <pthread.h>
	304	#endif
	305
	306	#ifndef _TYPES_ /* If types.h defines this it's easy. */
	307	# ifndef major /* Does everyone's types.h define this? */
	308	# include <sys/types.h>
	309	# endif
	310	#endif
	311
	312	#ifdef __cplusplus
	313	# ifndef I_STDARG
	314	# define I_STDARG 1
	315	# endif
	316	#endif
	317
	318	#ifdef I_STDARG
	319	# include <stdarg.h>
	320	#else
	321	# ifdef I_VARARGS
	322	# include <varargs.h>
	323	# endif
	324	#endif
	325
	326	#include "iperlsys.h"
	327
	328	#ifdef USE_NEXT_CTYPE
	329
	330	#if NX_CURRENT_COMPILER_RELEASE >= 500
	331	# include <bsd/ctypes.h>
	332	#else
	333	# if NX_CURRENT_COMPILER_RELEASE >= 400
	334	# include <objc/NXCType.h>
	335	# else /* NX_CURRENT_COMPILER_RELEASE < 400 */
	336	# include <appkit/NXCType.h>
	337	# endif /* NX_CURRENT_COMPILER_RELEASE >= 400 */
	338	#endif /* NX_CURRENT_COMPILER_RELEASE >= 500 */
	339
	340	#else /* !USE_NEXT_CTYPE */
	341	#include <ctype.h>
	342	#endif /* USE_NEXT_CTYPE */
	343
	344	#ifdef METHOD /* Defined by OSF/1 v3.0 by ctype.h */
	345	#undef METHOD
	346	#endif
	347
	348	#ifdef I_LOCALE
	349	# include <locale.h>
	350	#endif
	351
	352	#if !defined(NO_LOCALE) && defined(HAS_SETLOCALE)
	353	# define USE_LOCALE
	354	# if !defined(NO_LOCALE_COLLATE) && defined(LC_COLLATE) \
	355	&& defined(HAS_STRXFRM)
	356	# define USE_LOCALE_COLLATE
	357	# endif
	358	# if !defined(NO_LOCALE_CTYPE) && defined(LC_CTYPE)
	359	# define USE_LOCALE_CTYPE
	360	# endif
	361	# if !defined(NO_LOCALE_NUMERIC) && defined(LC_NUMERIC)
	362	# define USE_LOCALE_NUMERIC
	363	# endif
	364	#endif /* !NO_LOCALE && HAS_SETLOCALE */
	365
	366	#include <setjmp.h>
	367
	368	#ifdef I_SYS_PARAM
	369	# ifdef PARAM_NEEDS_TYPES
	370	# include <sys/types.h>
	371	# endif
	372	# include <sys/param.h>
	373	#endif
	374
	375
	376	/* Use all the "standard" definitions? */
	377	#if defined(STANDARD_C) && defined(I_STDLIB)
	378	# include <stdlib.h>
	379	#endif
	380
	381	#define MEM_SIZE Size_t
	382
	383	/* This comes after <stdlib.h> so we don't try to change the standard
	384	* library prototypes; we'll use our own in proto.h instead. */
	385
	386	#ifdef MYMALLOC
	387	# ifdef PERL_POLLUTE_MALLOC
	388	# define Perl_malloc malloc
	389	# define Perl_calloc calloc
	390	# define Perl_realloc realloc
	391	# define Perl_mfree free
	392	# else
	393	# define EMBEDMYMALLOC /* for compatibility */
	394	# endif
	395	Malloc_t Perl_malloc _((MEM_SIZE nbytes));
	396	Malloc_t Perl_calloc _((MEM_SIZE elements, MEM_SIZE size));
	397	Malloc_t Perl_realloc _((Malloc_t where, MEM_SIZE nbytes));
	398	/* 'mfree' rather than 'free', since there is already a 'perl_free'
	399	* that causes clashes with case-insensitive linkers */
	400	Free_t Perl_mfree _((Malloc_t where));
	401
	402	# define safemalloc Perl_malloc
	403	# define safecalloc Perl_calloc
	404	# define saferealloc Perl_realloc
	405	# define safefree Perl_mfree
	406	#else /* MYMALLOC */
	407	# define safemalloc safesysmalloc
	408	# define safecalloc safesyscalloc
	409	# define saferealloc safesysrealloc
	410	# define safefree safesysfree
	411	#endif /* MYMALLOC */
	412
	413	#if defined(STANDARD_C) && defined(I_STDDEF)
	414	# include <stddef.h>
	415	# define STRUCT_OFFSET(s,m) offsetof(s,m)
	416	#else
	417	# define STRUCT_OFFSET(s,m) (Size_t)(&(((s *)0)->m))
	418	#endif
	419
	420	#if defined(I_STRING) \|\| defined(__cplusplus)
	421	# include <string.h>
	422	#else
	423	# include <strings.h>
	424	#endif
	425
	426	#if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)
	427	#define strchr index
	428	#define strrchr rindex
	429	#endif
	430
	431	#ifdef I_MEMORY
	432	# include <memory.h>
	433	#endif
	434
	435	#ifdef HAS_MEMCPY
	436	# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
	437	# ifndef memcpy
	438	extern char * memcpy _((char, char, int));
	439	# endif
	440	# endif
	441	#else
	442	# ifndef memcpy
	443	# ifdef HAS_BCOPY
	444	# define memcpy(d,s,l) bcopy(s,d,l)
	445	# else
	446	# define memcpy(d,s,l) my_bcopy(s,d,l)
	447	# endif
	448	# endif
	449	#endif /* HAS_MEMCPY */
	450
	451	#ifdef HAS_MEMSET
	452	# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
	453	# ifndef memset
	454	extern char memset _((char, int, int));
	455	# endif
	456	# endif
	457	#else
	458	# define memset(d,c,l) my_memset(d,c,l)
	459	#endif /* HAS_MEMSET */
	460
	461	#if !defined(HAS_MEMMOVE) && !defined(memmove)
	462	# if defined(HAS_BCOPY) && defined(HAS_SAFE_BCOPY)
	463	# define memmove(d,s,l) bcopy(s,d,l)
	464	# else
	465	# if defined(HAS_MEMCPY) && defined(HAS_SAFE_MEMCPY)
	466	# define memmove(d,s,l) memcpy(d,s,l)
	467	# else
	468	# define memmove(d,s,l) my_bcopy(s,d,l)
	469	# endif
	470	# endif
	471	#endif
	472
	473	#if defined(mips) && defined(ultrix) && !defined(__STDC__)
	474	# undef HAS_MEMCMP
	475	#endif
	476
	477	#if defined(HAS_MEMCMP) && defined(HAS_SANE_MEMCMP)
	478	# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
	479	# ifndef memcmp
	480	extern int memcmp _((char, char, int));
	481	# endif
	482	# endif
	483	# ifdef BUGGY_MSC
	484	# pragma function(memcmp)
	485	# endif
	486	#else
	487	# ifndef memcmp
	488	# define memcmp my_memcmp
	489	# endif
	490	#endif /* HAS_MEMCMP && HAS_SANE_MEMCMP */
	491
	492	#ifndef memzero
	493	# ifdef HAS_MEMSET
	494	# define memzero(d,l) memset(d,0,l)
	495	# else
	496	# ifdef HAS_BZERO
	497	# define memzero(d,l) bzero(d,l)
	498	# else
	499	# define memzero(d,l) my_bzero(d,l)
	500	# endif
	501	# endif
	502	#endif
	503
	504	#ifndef HAS_BCMP
	505	# ifndef bcmp
	506	# define bcmp(s1,s2,l) memcmp(s1,s2,l)
	507	# endif
	508	#endif /* !HAS_BCMP */
	509
	510	#ifdef I_NETINET_IN
	511	# include <netinet/in.h>
	512	#endif
	513
	514	#ifdef I_ARPA_INET
	515	# include <arpa/inet.h>
	516	#endif
	517
	518	#if defined(SF_APPEND) && defined(USE_SFIO) && defined(I_SFIO)
	519	/* <sfio.h> defines SF_APPEND and <sys/stat.h> might define SF_APPEND
	520	* (the neo-BSD seem to do this). */
	521	# undef SF_APPEND
	522	#endif
	523
	524	#ifdef I_SYS_STAT
	525	# include <sys/stat.h>
	526	#endif
	527
	528	/* The stat macros for Amdahl UTS, Unisoft System V/88 (and derivatives
	529	like UTekV) are broken, sometimes giving false positives. Undefine
	530	them here and let the code below set them to proper values.
	531
	532	The ghs macro stands for GreenHills Software C-1.8.5 which
	533	is the C compiler for sysV88 and the various derivatives.
	534	This header file bug is corrected in gcc-2.5.8 and later versions.
	535	--Kaveh Ghazi (ghazi@noc.rutgers.edu) 10/3/94. */
	536
	537	#if defined(uts) \|\| (defined(m88k) && defined(ghs))
	538	# undef S_ISDIR
	539	# undef S_ISCHR
	540	# undef S_ISBLK
	541	# undef S_ISREG
	542	# undef S_ISFIFO
	543	# undef S_ISLNK
	544	#endif
	545
	546	#ifdef I_TIME
	547	# include <time.h>
	548	#endif
	549
	550	#ifdef I_SYS_TIME
	551	# ifdef I_SYS_TIME_KERNEL
	552	# define KERNEL
	553	# endif
	554	# include <sys/time.h>
	555	# ifdef I_SYS_TIME_KERNEL
	556	# undef KERNEL
	557	# endif
	558	#endif
	559
	560	#if defined(HAS_TIMES) && defined(I_SYS_TIMES)
	561	# include <sys/times.h>
	562	#endif
	563
	564	#if defined(HAS_STRERROR) && (!defined(HAS_MKDIR) \|\| !defined(HAS_RMDIR))
	565	# undef HAS_STRERROR
	566	#endif
	567
	568	#include <errno.h>
	569	#ifdef HAS_SOCKET
	570	# ifdef I_NET_ERRNO
	571	# include <net/errno.h>
	572	# endif
	573	#endif
	574
	575	#ifdef VMS
	576	# define SETERRNO(errcode,vmserrcode) \
	577	STMT_START { \
	578	set_errno(errcode); \
	579	set_vaxc_errno(vmserrcode); \
	580	} STMT_END
	581	#else
	582	# define SETERRNO(errcode,vmserrcode) (errno = (errcode))
	583	#endif
	584
	585	#ifdef USE_THREADS
	586	# define ERRSV (thr->errsv)
	587	# define ERRHV (thr->errhv)
	588	# define DEFSV THREADSV(0)
	589	# define SAVE_DEFSV save_threadsv(0)
	590	#else
	591	# define ERRSV GvSV(PL_errgv)
	592	# define ERRHV GvHV(PL_errgv)
	593	# define DEFSV GvSV(PL_defgv)
	594	# define SAVE_DEFSV SAVESPTR(GvSV(PL_defgv))
	595	#endif /* USE_THREADS */
	596
	597	#ifndef errno
	598	extern int errno; /* ANSI allows errno to be an lvalue expr.
	599	* For example in multithreaded environments
	600	* something like this might happen:
	601	* extern int *_errno(void);
	602	* #define errno (_errno()) /
	603	#endif
	604
	605	#ifdef HAS_STRERROR
	606	# ifdef VMS
	607	char *strerror _((int,...));
	608	# else
	609	#ifndef DONT_DECLARE_STD
	610	char *strerror _((int));
	611	#endif
	612	# endif
	613	# ifndef Strerror
	614	# define Strerror strerror
	615	# endif
	616	#else
	617	# ifdef HAS_SYS_ERRLIST
	618	extern int sys_nerr;
	619	extern char *sys_errlist[];
	620	# ifndef Strerror
	621	# define Strerror(e) \
	622	((e) < 0 \|\| (e) >= sys_nerr ? "(unknown)" : sys_errlist[e])
	623	# endif
	624	# endif
	625	#endif
	626
	627	#ifdef I_SYS_IOCTL
	628	# ifndef _IOCTL_
	629	# include <sys/ioctl.h>
	630	# endif
	631	#endif
	632
	633	#if defined(mc300) \|\| defined(mc500) \|\| defined(mc700) \|\| defined(mc6000)
	634	# ifdef HAS_SOCKETPAIR
	635	# undef HAS_SOCKETPAIR
	636	# endif
	637	# ifdef I_NDBM
	638	# undef I_NDBM
	639	# endif
	640	#endif
	641
	642	#if INTSIZE == 2
	643	# define htoni htons
	644	# define ntohi ntohs
	645	#else
	646	# define htoni htonl
	647	# define ntohi ntohl
	648	#endif
	649
	650	/* Configure already sets Direntry_t */
	651	#if defined(I_DIRENT)
	652	# include <dirent.h>
	653	/* NeXT needs dirent + sys/dir.h */
	654	# if defined(I_SYS_DIR) && (defined(NeXT) \|\| defined(__NeXT__))
	655	# include <sys/dir.h>
	656	# endif
	657	#else
	658	# ifdef I_SYS_NDIR
	659	# include <sys/ndir.h>
	660	# else
	661	# ifdef I_SYS_DIR
	662	# ifdef hp9000s500
	663	# include <ndir.h> /* may be wrong in the future */
	664	# else
	665	# include <sys/dir.h>
	666	# endif
	667	# endif
	668	# endif
	669	#endif
	670
	671	#ifdef FPUTS_BOTCH
	672	/* work around botch in SunOS 4.0.1 and 4.0.2 */
	673	# ifndef fputs
	674	# define fputs(sv,fp) fprintf(fp,"%s",sv)
	675	# endif
	676	#endif
	677
	678	/*
	679	* The following gobbledygook brought to you on behalf of __STDC__.
	680	* (I could just use #ifndef __STDC__, but this is more bulletproof
	681	* in the face of half-implementations.)
	682	*/
	683
	684	#ifndef S_IFMT
	685	# ifdef _S_IFMT
	686	# define S_IFMT _S_IFMT
	687	# else
	688	# define S_IFMT 0170000
	689	# endif
	690	#endif
	691
	692	#ifndef S_ISDIR
	693	# define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR)
	694	#endif
	695
	696	#ifndef S_ISCHR
	697	# define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR)
	698	#endif
	699
	700	#ifndef S_ISBLK
	701	# ifdef S_IFBLK
	702	# define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK)
	703	# else
	704	# define S_ISBLK(m) (0)
	705	# endif
	706	#endif
	707
	708	#ifndef S_ISREG
	709	# define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
	710	#endif
	711
	712	#ifndef S_ISFIFO
	713	# ifdef S_IFIFO
	714	# define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO)
	715	# else
	716	# define S_ISFIFO(m) (0)
	717	# endif
	718	#endif
	719
	720	#ifndef S_ISLNK
	721	# ifdef _S_ISLNK
	722	# define S_ISLNK(m) _S_ISLNK(m)
	723	# else
	724	# ifdef _S_IFLNK
	725	# define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK)
	726	# else
	727	# ifdef S_IFLNK
	728	# define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK)
	729	# else
	730	# define S_ISLNK(m) (0)
	731	# endif
	732	# endif
	733	# endif
	734	#endif
	735
	736	#ifndef S_ISSOCK
	737	# ifdef _S_ISSOCK
	738	# define S_ISSOCK(m) _S_ISSOCK(m)
	739	# else
	740	# ifdef _S_IFSOCK
	741	# define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK)
	742	# else
	743	# ifdef S_IFSOCK
	744	# define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK)
	745	# else
	746	# define S_ISSOCK(m) (0)
	747	# endif
	748	# endif
	749	# endif
	750	#endif
	751
	752	#ifndef S_IRUSR
	753	# ifdef S_IREAD
	754	# define S_IRUSR S_IREAD
	755	# define S_IWUSR S_IWRITE
	756	# define S_IXUSR S_IEXEC
	757	# else
	758	# define S_IRUSR 0400
	759	# define S_IWUSR 0200
	760	# define S_IXUSR 0100
	761	# endif
	762	# define S_IRGRP (S_IRUSR>>3)
	763	# define S_IWGRP (S_IWUSR>>3)
	764	# define S_IXGRP (S_IXUSR>>3)
	765	# define S_IROTH (S_IRUSR>>6)
	766	# define S_IWOTH (S_IWUSR>>6)
	767	# define S_IXOTH (S_IXUSR>>6)
	768	#endif
	769
	770	#ifndef S_ISUID
	771	# define S_ISUID 04000
	772	#endif
	773
	774	#ifndef S_ISGID
	775	# define S_ISGID 02000
	776	#endif
	777
	778	#ifdef ff_next
	779	# undef ff_next
	780	#endif
	781
	782	#if defined(cray) \|\| defined(gould) \|\| defined(i860) \|\| defined(pyr)
	783	# define SLOPPYDIVIDE
	784	#endif
	785
	786	#ifdef UV
	787	#undef UV
	788	#endif
	789
	790	#ifdef I_INTTYPES
	791	#include <inttypes.h>
	792	#endif
	793
	794	/* XXX QUAD stuff is not currently supported on most systems.
	795	Specifically, perl internals don't support long long. Among
	796	the many problems is that some compilers support long long,
	797	but the underlying library functions (such as sprintf) don't.
	798	Some things do work (such as quad pack/unpack on convex);
	799	also some systems use long long for the fpos_t typedef. That
	800	seems to work too.
	801
	802	The IV type is supposed to be long enough to hold any integral
	803	value or a pointer.
	804	--Andy Dougherty August 1996
	805	*/
	806
	807	/* Much more 64-bit probing added. Now we should get Quad_t
	808	in most systems: int64_t, long long, long, int, will do.
	809
	810	Beware of LP32 systems (ILP32, ILP32LL64). Such systems have been
	811	used to sizeof(long) == sizeof(foo*). This is a bad assumption
	812	because then IV/UV have been 32 bits, too. Which, in turn means
	813	that even if the system has quads (e.g. long long), IV cannot be a
	814	quad. Introducing a 64-bit IV (because of long long existing)
	815	will introduce binary incompatibility.
	816
	817	Summary: a long long system needs to add -DUSE_LONG_LONG to $ccflags
	818	to get quads -- and if its pointers are still 32 bits, this will break
	819	binary compatibility. Casting an IV (a long long) to a pointer will
	820	truncate half of the IV away.
	821
	822	--jhi September 1998 */
	823
	824	#if INTSIZE == 4 && LONGSIZE == 4 && PTRSIZE == 4
	825	# define PERL_ILP32
	826	# if defined(HAS_LONG_LONG) && LONGLONGSIZE == 8
	827	# define PERL_ILP32LL64
	828	# endif
	829	#endif
	830
	831	#if LONGSIZE == 8 && PTRSIZE == 8
	832	# define PERL_LP64
	833	# if INTSIZE == 8
	834	# define PERL_ILP64
	835	# endif
	836	#endif
	837
	838	#ifndef Quad_t
	839	# if LONGSIZE == 8
	840	# define Quad_t long
	841	# define Uquad_t unsigned long
	842	# define PERL_QUAD_IS_LONG
	843	# endif
	844	#endif
	845
	846	#ifndef Quad_t
	847	# if INTSIZE == 8
	848	# define Quad_t int
	849	# define Uquad_t unsigned int
	850	# define PERL_QUAD_IS_INT
	851	# endif
	852	#endif
	853
	854	#ifndef Quad_t
	855	# ifdef USE_LONG_LONG /* See above note about LP32. --jhi */
	856	# if defined(HAS_LONG_LONG) && LONGLONGSIZE == 8
	857	# define Quad_t long long
	858	# define Uquad_t unsigned long long
	859	# define PERL_QUAD_IS_LONG_LONG
	860	# endif
	861	# endif
	862	#endif
	863
	864	#ifndef Quad_t
	865	# ifdef HAS_INT64_T
	866	# define Quad_t int64_t
	867	# define Uquad_t uint64_t
	868	# define PERL_QUAD_IS_INT64_T
	869	# endif
	870	#endif
	871
	872	#ifdef Quad_t
	873	# define HAS_QUAD
	874	# ifndef Uquad_t
	875	/* Note that if your Quad_t is a typedef (not a #define) you MUST
	876	* have defined by now Uquad_t yourself because 'unsigned type'
	877	* is illegal. */
	878	# define Uquad_t unsigned Quad_t
	879	# endif
	880	#endif
	881
	882	#if defined(USE_64_BITS) && defined(HAS_QUAD)
	883	# ifdef PERL_QUAD_IS_LONG /* LP64 */
	884	typedef long IV;
	885	typedef unsigned long UV;
	886	# else
	887	# ifdef PERL_QUAD_IS_INT /* ILP64 */
	888	typedef int IV;
	889	typedef unsigned int UV;
	890	# else
	891	# ifdef PERL_QUAD_IS_LONG_LONG /* LL64 */
	892	typedef long long IV;
	893	typedef unsigned long long UV;
	894	# else
	895	# ifdef PERL_QUAD_IS_INT64_T /* C9X */
	896	typedef int64_t IV;
	897	typedef uint64_t UV;
	898	# endif
	899	# endif
	900	# endif
	901	# endif
	902	# if defined(PERL_QUAD_IS_INT64_T) && defined(INT64_MAX)
	903	# define IV_MAX INT64_MAX
	904	# define IV_MIN INT64_MIN
	905	# define UV_MAX UINT64_MAX
	906	# define UV_MIN UINT64_MIN
	907	# else
	908	# define IV_MAX PERL_QUAD_MAX
	909	# define IV_MIN PERL_QUAD_MIN
	910	# define UV_MAX PERL_UQUAD_MAX
	911	# define UV_MIN PERL_UQUAD_MIN
	912	# endif
	913	#else
	914	typedef long IV;
	915	typedef unsigned long UV;
	916	# if defined(INT32_MAX) && LONGSIZE == 4
	917	# define IV_MAX INT32_MAX
	918	# define IV_MIN INT32_MIN
	919	# define UV_MAX UINT32_MAX
	920	# define UV_MIN UINT32_MIN
	921	# else
	922	# define IV_MAX PERL_LONG_MAX
	923	# define IV_MIN PERL_LONG_MIN
	924	# define UV_MAX PERL_ULONG_MAX
	925	# define UV_MIN PERL_ULONG_MIN
	926	# endif
	927	#endif
	928
	929	/* Previously these definitions used hardcoded figures.
	930	* It is hoped these formula are more portable, although
	931	* no data one way or another is presently known to me.
	932	* The "PERL_" names are used because these calculated constants
	933	* do not meet the ANSI requirements for LONG_MAX, etc., which
	934	* need to be constants acceptable to #if - kja
	935	* define PERL_LONG_MAX 2147483647L
	936	* define PERL_LONG_MIN (-LONG_MAX - 1)
	937	* define PERL ULONG_MAX 4294967295L
	938	*/
	939
	940	#ifdef I_LIMITS /* Needed for cast_xxx() functions below. */
	941	# include <limits.h>
	942	#else
	943	#ifdef I_VALUES
	944	# include <values.h>
	945	#endif
	946	#endif
	947
	948	/*
	949	* Try to figure out max and min values for the integral types. THE CORRECT
	950	* SOLUTION TO THIS MESS: ADAPT enquire.c FROM GCC INTO CONFIGURE. The
	951	* following hacks are used if neither limits.h or values.h provide them:
	952	* U<TYPE>_MAX: for types >= int: ~(unsigned TYPE)0
	953	* for types < int: (unsigned TYPE)~(unsigned)0
	954	* The argument to ~ must be unsigned so that later signed->unsigned
	955	* conversion can't modify the value's bit pattern (e.g. -0 -> +0),
	956	* and it must not be smaller than int because ~ does integral promotion.
	957	* <type>_MAX: (<type>) (U<type>_MAX >> 1)
	958	* <type>_MIN: -<type>_MAX - <is_twos_complement_architecture: (3 & -1) == 3>.
	959	* The latter is a hack which happens to work on some machines but
	960	* does not catch any random system, or things like integer types
	961	* with NaN if that is possible.
	962	*
	963	* All of the types are explicitly cast to prevent accidental loss of
	964	* numeric range, and in the hope that they will be less likely to confuse
	965	* over-eager optimizers.
	966	*
	967	*/
	968
	969	#define PERL_UCHAR_MIN ((unsigned char)0)
	970
	971	#ifdef UCHAR_MAX
	972	# define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
	973	#else
	974	# ifdef MAXUCHAR
	975	# define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
	976	# else
	977	# define PERL_UCHAR_MAX ((unsigned char)~(unsigned)0)
	978	# endif
	979	#endif
	980
	981	/*
	982	* CHAR_MIN and CHAR_MAX are not included here, as the (char) type may be
	983	* ambiguous. It may be equivalent to (signed char) or (unsigned char)
	984	* depending on local options. Until Configure detects this (or at least
	985	* detects whether the "signed" keyword is available) the CHAR ranges
	986	* will not be included. UCHAR functions normally.
	987	* - kja
	988	*/
	989
	990	#define PERL_USHORT_MIN ((unsigned short)0)
	991
	992	#ifdef USHORT_MAX
	993	# define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
	994	#else
	995	# ifdef MAXUSHORT
	996	# define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
	997	# else
	998	# ifdef USHRT_MAX
	999	# define PERL_USHORT_MAX ((unsigned short)USHRT_MAX)
	1000	# else
	1001	# define PERL_USHORT_MAX ((unsigned short)~(unsigned)0)
	1002	# endif
	1003	# endif
	1004	#endif
	1005
	1006	#ifdef SHORT_MAX
	1007	# define PERL_SHORT_MAX ((short)SHORT_MAX)
	1008	#else
	1009	# ifdef MAXSHORT /* Often used in <values.h> */
	1010	# define PERL_SHORT_MAX ((short)MAXSHORT)
	1011	# else
	1012	# ifdef SHRT_MAX
	1013	# define PERL_SHORT_MAX ((short)SHRT_MAX)
	1014	# else
	1015	# define PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1))
	1016	# endif
	1017	# endif
	1018	#endif
	1019
	1020	#ifdef SHORT_MIN
	1021	# define PERL_SHORT_MIN ((short)SHORT_MIN)
	1022	#else
	1023	# ifdef MINSHORT
	1024	# define PERL_SHORT_MIN ((short)MINSHORT)
	1025	# else
	1026	# ifdef SHRT_MIN
	1027	# define PERL_SHORT_MIN ((short)SHRT_MIN)
	1028	# else
	1029	# define PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3))
	1030	# endif
	1031	# endif
	1032	#endif
	1033
	1034	#ifdef UINT_MAX
	1035	# define PERL_UINT_MAX ((unsigned int)UINT_MAX)
	1036	#else
	1037	# ifdef MAXUINT
	1038	# define PERL_UINT_MAX ((unsigned int)MAXUINT)
	1039	# else
	1040	# define PERL_UINT_MAX (~(unsigned int)0)
	1041	# endif
	1042	#endif
	1043
	1044	#define PERL_UINT_MIN ((unsigned int)0)
	1045
	1046	#ifdef INT_MAX
	1047	# define PERL_INT_MAX ((int)INT_MAX)
	1048	#else
	1049	# ifdef MAXINT /* Often used in <values.h> */
	1050	# define PERL_INT_MAX ((int)MAXINT)
	1051	# else
	1052	# define PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1))
	1053	# endif
	1054	#endif
	1055
	1056	#ifdef INT_MIN
	1057	# define PERL_INT_MIN ((int)INT_MIN)
	1058	#else
	1059	# ifdef MININT
	1060	# define PERL_INT_MIN ((int)MININT)
	1061	# else
	1062	# define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3))
	1063	# endif
	1064	#endif
	1065
	1066	#ifdef ULONG_MAX
	1067	# define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
	1068	#else
	1069	# ifdef MAXULONG
	1070	# define PERL_ULONG_MAX ((unsigned long)MAXULONG)
	1071	# else
	1072	# define PERL_ULONG_MAX (~(unsigned long)0)
	1073	# endif
	1074	#endif
	1075
	1076	#define PERL_ULONG_MIN ((unsigned long)0L)
	1077
	1078	#ifdef LONG_MAX
	1079	# define PERL_LONG_MAX ((long)LONG_MAX)
	1080	#else
	1081	# ifdef MAXLONG /* Often used in <values.h> */
	1082	# define PERL_LONG_MAX ((long)MAXLONG)
	1083	# else
	1084	# define PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1))
	1085	# endif
	1086	#endif
	1087
	1088	#ifdef LONG_MIN
	1089	# define PERL_LONG_MIN ((long)LONG_MIN)
	1090	#else
	1091	# ifdef MINLONG
	1092	# define PERL_LONG_MIN ((long)MINLONG)
	1093	# else
	1094	# define PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3))
	1095	# endif
	1096	#endif
	1097
	1098	#ifdef HAS_QUAD
	1099
	1100	# ifdef UQUAD_MAX
	1101	# define PERL_UQUAD_MAX ((UV)UQUAD_MAX)
	1102	# else
	1103	# define PERL_UQUAD_MAX (~(UV)0)
	1104	# endif
	1105
	1106	# define PERL_UQUAD_MIN ((UV)0)
	1107
	1108	# ifdef QUAD_MAX
	1109	# define PERL_QUAD_MAX ((IV)QUAD_MAX)
	1110	# else
	1111	# define PERL_QUAD_MAX ((IV) (PERL_UQUAD_MAX >> 1))
	1112	# endif
	1113
	1114	# ifdef QUAD_MIN
	1115	# define PERL_QUAD_MIN ((IV)QUAD_MIN)
	1116	# else
	1117	# define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3))
	1118	# endif
	1119
	1120	#endif
	1121
	1122	typedef MEM_SIZE STRLEN;
	1123
	1124	typedef struct op OP;
	1125	typedef struct cop COP;
	1126	typedef struct unop UNOP;
	1127	typedef struct binop BINOP;
	1128	typedef struct listop LISTOP;
	1129	typedef struct logop LOGOP;
	1130	typedef struct condop CONDOP;
	1131	typedef struct pmop PMOP;
	1132	typedef struct svop SVOP;
	1133	typedef struct gvop GVOP;
	1134	typedef struct pvop PVOP;
	1135	typedef struct loop LOOP;
	1136
	1137	typedef struct Outrec Outrec;
	1138	typedef struct interpreter PerlInterpreter;
	1139	#ifndef __BORLANDC__
	1140	typedef struct ff FF; /* XXX not defined anywhere, should go? */
	1141	#endif
	1142	typedef struct sv SV;
	1143	typedef struct av AV;
	1144	typedef struct hv HV;
	1145	typedef struct cv CV;
	1146	typedef struct regexp REGEXP;
	1147	typedef struct gp GP;
	1148	typedef struct gv GV;
	1149	typedef struct io IO;
	1150	typedef struct context PERL_CONTEXT;
	1151	typedef struct block BLOCK;
	1152
	1153	typedef struct magic MAGIC;
	1154	typedef struct xrv XRV;
	1155	typedef struct xpv XPV;
	1156	typedef struct xpviv XPVIV;
	1157	typedef struct xpvuv XPVUV;
	1158	typedef struct xpvnv XPVNV;
	1159	typedef struct xpvmg XPVMG;
	1160	typedef struct xpvlv XPVLV;
	1161	typedef struct xpvav XPVAV;
	1162	typedef struct xpvhv XPVHV;
	1163	typedef struct xpvgv XPVGV;
	1164	typedef struct xpvcv XPVCV;
	1165	typedef struct xpvbm XPVBM;
	1166	typedef struct xpvfm XPVFM;
	1167	typedef struct xpvio XPVIO;
	1168	typedef struct mgvtbl MGVTBL;
	1169	typedef union any ANY;
	1170
	1171	#include "handy.h"
	1172
	1173	/* Some day when we have more 64-bit experience under our belts we may
	1174	* be able to merge some of the USE_64_BIT_{FILES,OFFSETS,STDIO,DBM}. At
	1175	* the moment (Oct 1998), though, keep them separate. --jhi
	1176	*/
	1177	#ifdef USE_64_BITS
	1178	# ifdef USE_64_BIT_FILES
	1179	# ifndef USE_64_BIT_OFFSETS
	1180	# define USE_64_BIT_OFFSETS
	1181	# endif
	1182	# ifndef USE_64_BIT_STDIO
	1183	# define USE_64_BIT_STDIO
	1184	# endif
	1185	# ifndef USE_64_BIT_DBM
	1186	# define USE_64_BIT_DBM
	1187	# endif
	1188	# endif
	1189	/* Mention LSEEKSIZE here to get it included in %Config. */
	1190	# ifdef USE_64_BIT_OFFSETS
	1191	# ifdef HAS_FSTAT64
	1192	# define fstat fstat64
	1193	# endif
	1194	# ifdef HAS_FTRUNCATE64
	1195	# define ftruncate ftruncate64
	1196	# endif
	1197	# ifdef HAS_LSEEK64
	1198	# define lseek lseek64
	1199	# ifdef HAS_OFF64_T
	1200	# undef Off_t
	1201	# define Off_t off64_t
	1202	# endif
	1203	# endif
	1204	# ifdef HAS_LSTAT64
	1205	# define lstat lstat64
	1206	# endif
	1207	/* Some systems have open64() in libc but use that only
	1208	* for true LP64 mode, in mixed mode (ILP32LL64, for example)
	1209	* they use the vanilla open(). Such systems should undefine
	1210	* d_open64 in their hints files. --jhi */
	1211	# if defined(HAS_OPEN64)
	1212	# define open open64
	1213	# endif
	1214	# ifdef HAS_OPENDIR64
	1215	# define opendir opendir64
	1216	# endif
	1217	# ifdef HAS_READDIR64
	1218	# define readdir readdir64
	1219	# ifdef HAS_STRUCT_DIRENT64
	1220	# define dirent dirent64
	1221	# endif
	1222	# endif
	1223	# ifdef HAS_SEEKDIR64
	1224	# define seekdir seekdir64
	1225	# endif
	1226	# ifdef HAS_STAT64
	1227	# define stat stat64 /* Affects also struct stat, hopefully okay. */
	1228	# endif
	1229	# ifdef HAS_TELLDIR64
	1230	# define telldir telldir64
	1231	# endif
	1232	# ifdef HAS_TRUNCATE64
	1233	# define truncate truncate64
	1234	# endif
	1235	/* flock is not #defined here to be flock64 because it seems
	1236	that a system may have struct flock64 but still use flock()
	1237	and not flock64(). The actual flocking code in pp_sys.c
	1238	must be changed. Also lockf and lockf64 must be dealt
	1239	with in pp_sys.c. --jhi */
	1240	# endif
	1241	# ifdef USE_64_BIT_STDIO
	1242	# ifdef HAS_FGETPOS64
	1243	# define fgetpos fgetpos64
	1244	# endif
	1245	# ifdef HAS_FOPEN64
	1246	# define fopen fopen64
	1247	# endif
	1248	# ifdef HAS_FREOPEN64
	1249	# define freopen freopen64
	1250	# endif
	1251	# ifdef HAS_FSEEK64
	1252	# define fseek fseek64
	1253	# endif
	1254	# ifdef HAS_FSEEKO64
	1255	# define fseeko fseeko64
	1256	# endif
	1257	# ifdef HAS_FSETPOS64
	1258	# define fsetpos fsetpos64
	1259	# endif
	1260	# ifdef HAS_FTELL64
	1261	# define ftell ftell64
	1262	# endif
	1263	# ifdef HAS_FTELLO64
	1264	# define ftello ftello64
	1265	# endif
	1266	# ifdef HAS_TMPFILE64
	1267	# define tmpfile tmpfile64
	1268	# endif
	1269	# endif
	1270	# ifdef USE_64_BIT_DBM
	1271	# ifdef HAS_DBMINIT64
	1272	# define dbminit dbminit64
	1273	# endif
	1274	# ifdef HAS_DBMCLOSE64
	1275	# define dbmclose dbmclose64
	1276	# endif
	1277	# ifdef HAS_FETCH64
	1278	# define fetch fetch64
	1279	# endif
	1280	# ifdef HAS_DELETE64
	1281	# define delete delete64
	1282	# endif
	1283	# ifdef HAS_STORE64
	1284	# define store store64
	1285	# endif
	1286	# ifdef HAS_FIRSTKEY64
	1287	# define firstkey firstkey64
	1288	# endif
	1289	# ifdef HAS_NEXTKEY64
	1290	# define nextkey nextkey64
	1291	# endif
	1292	# endif
	1293	#endif
	1294
	1295	#ifdef PERL_OBJECT
	1296	typedef I32 (filter_t) _((CPerlObj, int, SV *, int));
	1297	#else
	1298	typedef I32 (filter_t) _((int, SV , int));
	1299	#endif
	1300
	1301	#define FILTER_READ(idx, sv, len) filter_read(idx, sv, len)
	1302	#define FILTER_DATA(idx) (AvARRAY(PL_rsfp_filters)[idx])
	1303	#define FILTER_ISREADER(idx) (idx >= AvFILLp(PL_rsfp_filters))
	1304
	1305	#if defined(__OPEN_VM)
	1306	# include "vmesa/vmesaish.h"
	1307	#endif
	1308
	1309	#ifdef DOSISH
	1310	# if defined(OS2)
	1311	# include "os2ish.h"
	1312	# else
	1313	# include "dosish.h"
	1314	# endif
	1315	#else
	1316	# if defined(VMS)
	1317	# include "vmsish.h"
	1318	# else
	1319	# if defined(PLAN9)
	1320	# include "./plan9/plan9ish.h"
	1321	# else
	1322	# if defined(MPE)
	1323	# include "mpeix/mpeixish.h"
	1324	# else
	1325	# if defined(__VOS__)
	1326	# include "vosish.h"
	1327	# else
	1328	# include "unixish.h"
	1329	# endif
	1330	# endif
	1331	# endif
	1332	# endif
	1333	#endif
	1334
	1335	#ifndef MAXPATHLEN
	1336	# ifdef PATH_MAX
	1337	# ifdef _POSIX_PATH_MAX
	1338	# if PATH_MAX > _POSIX_PATH_MAX
	1339	/* MAXPATHLEN is supposed to include the final null character,
	1340	* as opposed to PATH_MAX and _POSIX_PATH_MAX. */
	1341	# define MAXPATHLEN (PATH_MAX+1)
	1342	# else
	1343	# define MAXPATHLEN (_POSIX_PATH_MAX+1)
	1344	# endif
	1345	# else
	1346	# define MAXPATHLEN (PATH_MAX+1)
	1347	# endif
	1348	# else
	1349	# ifdef _POSIX_PATH_MAX
	1350	# define MAXPATHLEN (_POSIX_PATH_MAX+1)
	1351	# else
	1352	# define MAXPATHLEN 1024 /* Err on the large side. */
	1353	# endif
	1354	# endif
	1355	#endif
	1356
	1357	#ifndef FUNC_NAME_TO_PTR
	1358	#define FUNC_NAME_TO_PTR(name) name
	1359	#endif
	1360
	1361	/*
	1362	* USE_THREADS needs to be after unixish.h as <pthread.h> includes
	1363	* <sys/signal.h> which defines NSIG - which will stop inclusion of <signal.h>
	1364	* this results in many functions being undeclared which bothers C++
	1365	* May make sense to have threads after "*ish.h" anyway
	1366	*/
	1367
	1368	#ifdef USE_THREADS
	1369	/* pending resolution of licensing issues, we avoid the erstwhile
	1370	* atomic.h everywhere */
	1371	# define EMULATE_ATOMIC_REFCOUNTS
	1372
	1373	# ifdef FAKE_THREADS
	1374	# include "fakethr.h"
	1375	# else
	1376	# ifdef WIN32
	1377	# include <win32thread.h>
	1378	# else
	1379	# ifdef OS2
	1380	# include "os2thread.h"
	1381	# else
	1382	# ifdef I_MACH_CTHREADS
	1383	# include <mach/cthreads.h>
	1384	# if (defined(NeXT) \|\| defined(__NeXT__)) && defined(PERL_POLLUTE_MALLOC)
	1385	# define MUTEX_INIT_CALLS_MALLOC
	1386	# endif
	1387	typedef cthread_t perl_os_thread;
	1388	typedef mutex_t perl_mutex;
	1389	typedef condition_t perl_cond;
	1390	typedef void * perl_key;
	1391	# else /* Posix threads */
	1392	# include <pthread.h>
	1393	typedef pthread_t perl_os_thread;
	1394	typedef pthread_mutex_t perl_mutex;
	1395	typedef pthread_cond_t perl_cond;
	1396	typedef pthread_key_t perl_key;
	1397	# endif /* I_MACH_CTHREADS */
	1398	# endif /* OS2 */
	1399	# endif /* WIN32 */
	1400	# endif /* FAKE_THREADS */
	1401	#endif /* USE_THREADS */
	1402
	1403	#ifdef VMS
	1404	# define STATUS_NATIVE PL_statusvalue_vms
	1405	# define STATUS_NATIVE_EXPORT \
	1406	((I32)PL_statusvalue_vms == -1 ? 44 : PL_statusvalue_vms)
	1407	# define STATUS_NATIVE_SET(n) \
	1408	STMT_START { \
	1409	PL_statusvalue_vms = (n); \
	1410	if ((I32)PL_statusvalue_vms == -1) \
	1411	PL_statusvalue = -1; \
	1412	else if (PL_statusvalue_vms & STS$M_SUCCESS) \
	1413	PL_statusvalue = 0; \
	1414	else if ((PL_statusvalue_vms & STS$M_SEVERITY) == 0) \
	1415	PL_statusvalue = 1 << 8; \
	1416	else \
	1417	PL_statusvalue = (PL_statusvalue_vms & STS$M_SEVERITY) << 8; \
	1418	} STMT_END
	1419	# define STATUS_POSIX PL_statusvalue
	1420	# ifdef VMSISH_STATUS
	1421	# define STATUS_CURRENT (VMSISH_STATUS ? STATUS_NATIVE : STATUS_POSIX)
	1422	# else
	1423	# define STATUS_CURRENT STATUS_POSIX
	1424	# endif
	1425	# define STATUS_POSIX_SET(n) \
	1426	STMT_START { \
	1427	PL_statusvalue = (n); \
	1428	if (PL_statusvalue != -1) { \
	1429	PL_statusvalue &= 0xFFFF; \
	1430	PL_statusvalue_vms = PL_statusvalue ? 44 : 1; \
	1431	} \
	1432	else PL_statusvalue_vms = -1; \
	1433	} STMT_END
	1434	# define STATUS_ALL_SUCCESS (PL_statusvalue = 0, PL_statusvalue_vms = 1)
	1435	# define STATUS_ALL_FAILURE (PL_statusvalue = 1, PL_statusvalue_vms = 44)
	1436	#else
	1437	# define STATUS_NATIVE STATUS_POSIX
	1438	# define STATUS_NATIVE_EXPORT STATUS_POSIX
	1439	# define STATUS_NATIVE_SET STATUS_POSIX_SET
	1440	# define STATUS_POSIX PL_statusvalue
	1441	# define STATUS_POSIX_SET(n) \
	1442	STMT_START { \
	1443	PL_statusvalue = (n); \
	1444	if (PL_statusvalue != -1) \
	1445	PL_statusvalue &= 0xFFFF; \
	1446	} STMT_END
	1447	# define STATUS_CURRENT STATUS_POSIX
	1448	# define STATUS_ALL_SUCCESS (PL_statusvalue = 0)
	1449	# define STATUS_ALL_FAILURE (PL_statusvalue = 1)
	1450	#endif
	1451
	1452	/* This defines a way to flush all output buffers. This may be a
	1453	* performance issue, so we allow people to disable it.
	1454	* XXX the default needs a Configure test, as it may not work everywhere.
	1455	*/
	1456	#ifndef PERL_FLUSHALL_FOR_CHILD
	1457	#define PERL_FLUSHALL_FOR_CHILD PerlIO_flush((PerlIO*)NULL)
	1458	#endif
	1459
	1460	/* Some unistd.h's give a prototype for pause() even though
	1461	HAS_PAUSE ends up undefined. This causes the #define
	1462	below to be rejected by the compmiler. Sigh.
	1463	*/
	1464	#ifdef HAS_PAUSE
	1465	#define Pause pause
	1466	#else
	1467	#define Pause() sleep((32767<<16)+32767)
	1468	#endif
	1469
	1470	#ifndef IOCPARM_LEN
	1471	# ifdef IOCPARM_MASK
	1472	/* on BSDish systes we're safe */
	1473	# define IOCPARM_LEN(x) (((x) >> 16) & IOCPARM_MASK)
	1474	# else
	1475	/* otherwise guess at what's safe */
	1476	# define IOCPARM_LEN(x) 256
	1477	# endif
	1478	#endif
	1479
	1480	#ifdef UNION_ANY_DEFINITION
	1481	UNION_ANY_DEFINITION;
	1482	#else
	1483	union any {
	1484	void* any_ptr;
	1485	I32 any_i32;
	1486	IV any_iv;
	1487	long any_long;
	1488	void (CPERLscope(any_dptr)) _((void));
	1489	};
	1490	#endif
	1491
	1492	#ifdef USE_THREADS
	1493	#define ARGSproto struct perl_thread *thr
	1494	#else
	1495	#define ARGSproto void
	1496	#endif /* USE_THREADS */
	1497
	1498	#if defined(CYGWIN32)
	1499	/* USEMYBINMODE
	1500	* This symbol, if defined, indicates that the program should
	1501	* use the routine my_binmode(FILE *fp, char iotype) to insure
	1502	* that a file is in "binary" mode -- that is, that no translation
	1503	* of bytes occurs on read or write operations.
	1504	*/
	1505	# define USEMYBINMODE / **/
	1506	# define my_binmode(fp, iotype) \
	1507	(PerlLIO_setmode(PerlIO_fileno(fp), O_BINARY) != -1 ? TRUE : NULL)
	1508	#endif
	1509
	1510	#include "regexp.h"
	1511	#include "sv.h"
	1512	#include "util.h"
	1513	#include "form.h"
	1514	#include "gv.h"
	1515	#include "cv.h"
	1516	#ifndef PERL_OBJECT
	1517	#include "opcode.h"
	1518	#endif
	1519	#include "op.h"
	1520	#include "cop.h"
	1521	#include "av.h"
	1522	#include "hv.h"
	1523	#include "mg.h"
	1524	#include "scope.h"
	1525	#include "warning.h"
	1526	#include "bytecode.h"
	1527	#include "byterun.h"
	1528	#include "utf8.h"
	1529
	1530	/* Current curly descriptor */
	1531	typedef struct curcur CURCUR;
	1532	struct curcur {
	1533	int parenfloor; /* how far back to strip paren data */
	1534	int cur; /* how many instances of scan we've matched */
	1535	int min; /* the minimal number of scans to match */
	1536	int max; /* the maximal number of scans to match */
	1537	int minmod; /* whether to work our way up or down */
	1538	regnode * scan; /* the thing to match */
	1539	regnode * next; /* what has to match after it */
	1540	char * lastloc; /* where we started matching this scan */
	1541	CURCUR * oldcc; /* current curly before we started this one */
	1542	};
	1543
	1544	typedef struct _sublex_info SUBLEXINFO;
	1545	struct _sublex_info {
	1546	I32 super_state; /* lexer state to save */
	1547	I32 sub_inwhat; /* "lex_inwhat" to use */
	1548	OP sub_op; / "lex_op" to use */
	1549	char super_bufptr; / PL_bufptr that was */
	1550	char super_bufend; / PL_bufend that was */
	1551	};
	1552
	1553	typedef struct magic_state MGS; /* struct magic_state defined in mg.c */
	1554
	1555	#ifdef PERL_OBJECT
	1556	typedef struct {
	1557	I32 len_min;
	1558	I32 len_delta;
	1559	I32 pos_min;
	1560	I32 pos_delta;
	1561	SV *last_found;
	1562	I32 last_end; /* min value, <0 unless valid. */
	1563	I32 last_start_min;
	1564	I32 last_start_max;
	1565	SV *longest; / Either &l_fixed, or &l_float. */
	1566	SV *longest_fixed;
	1567	I32 offset_fixed;
	1568	SV *longest_float;
	1569	I32 offset_float_min;
	1570	I32 offset_float_max;
	1571	I32 flags;
	1572	} scan_data_t;
	1573
	1574	typedef I32 CHECKPOINT;
	1575	#endif /* PERL_OBJECT */
	1576
	1577	#if defined(iAPX286) \|\| defined(M_I286) \|\| defined(I80286)
	1578	# define I286
	1579	#endif
	1580
	1581	#if defined(htonl) && !defined(HAS_HTONL)
	1582	#define HAS_HTONL
	1583	#endif
	1584	#if defined(htons) && !defined(HAS_HTONS)
	1585	#define HAS_HTONS
	1586	#endif
	1587	#if defined(ntohl) && !defined(HAS_NTOHL)
	1588	#define HAS_NTOHL
	1589	#endif
	1590	#if defined(ntohs) && !defined(HAS_NTOHS)
	1591	#define HAS_NTOHS
	1592	#endif
	1593	#ifndef HAS_HTONL
	1594	#if (BYTEORDER & 0xffff) != 0x4321
	1595	#define HAS_HTONS
	1596	#define HAS_HTONL
	1597	#define HAS_NTOHS
	1598	#define HAS_NTOHL
	1599	#define MYSWAP
	1600	#define htons my_swap
	1601	#define htonl my_htonl
	1602	#define ntohs my_swap
	1603	#define ntohl my_ntohl
	1604	#endif
	1605	#else
	1606	#if (BYTEORDER & 0xffff) == 0x4321
	1607	#undef HAS_HTONS
	1608	#undef HAS_HTONL
	1609	#undef HAS_NTOHS
	1610	#undef HAS_NTOHL
	1611	#endif
	1612	#endif
	1613
	1614	/*
	1615	* Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'.
	1616	* -DWS
	1617	*/
	1618	#if BYTEORDER != 0x1234
	1619	# define HAS_VTOHL
	1620	# define HAS_VTOHS
	1621	# define HAS_HTOVL
	1622	# define HAS_HTOVS
	1623	# if BYTEORDER == 0x4321 \|\| BYTEORDER == 0x87654321
	1624	# define vtohl(x) ((((x)&0xFF)<<24) \
	1625	+(((x)>>24)&0xFF) \
	1626	+(((x)&0x0000FF00)<<8) \
	1627	+(((x)&0x00FF0000)>>8) )
	1628	# define vtohs(x) ((((x)&0xFF)<<8) + (((x)>>8)&0xFF))
	1629	# define htovl(x) vtohl(x)
	1630	# define htovs(x) vtohs(x)
	1631	# endif
	1632	/* otherwise default to functions in util.c */
	1633	#endif
	1634
	1635	#ifdef CASTNEGFLOAT
	1636	#define U_S(what) ((U16)(what))
	1637	#define U_I(what) ((unsigned int)(what))
	1638	#define U_L(what) ((U32)(what))
	1639	#else
	1640	#define U_S(what) ((U16)cast_ulong((double)(what)))
	1641	#define U_I(what) ((unsigned int)cast_ulong((double)(what)))
	1642	#define U_L(what) (cast_ulong((double)(what)))
	1643	#endif
	1644
	1645	#ifdef CASTI32
	1646	#define I_32(what) ((I32)(what))
	1647	#define I_V(what) ((IV)(what))
	1648	#define U_V(what) ((UV)(what))
	1649	#else
	1650	#define I_32(what) (cast_i32((double)(what)))
	1651	#define I_V(what) (cast_iv((double)(what)))
	1652	#define U_V(what) (cast_uv((double)(what)))
	1653	#endif
	1654
	1655	struct Outrec {
	1656	I32 o_lines;
	1657	char *o_str;
	1658	U32 o_len;
	1659	};
	1660
	1661	#ifndef MAXSYSFD
	1662	# define MAXSYSFD 2
	1663	#endif
	1664
	1665	#ifndef TMPPATH
	1666	# define TMPPATH "/tmp/perl-eXXXXXX"
	1667	#endif
	1668
	1669	#ifndef __cplusplus
	1670	Uid_t getuid _((void));
	1671	Uid_t geteuid _((void));
	1672	Gid_t getgid _((void));
	1673	Gid_t getegid _((void));
	1674	#endif
	1675
	1676	#ifndef Perl_debug_log
	1677	#define Perl_debug_log PerlIO_stderr()
	1678	#endif
	1679
	1680	#ifdef DEBUGGING
	1681	#undef YYDEBUG
	1682	#define YYDEBUG 1
	1683	#define DEB(a) a
	1684	#define DEBUG(a) if (PL_debug) a
	1685	#define DEBUG_p(a) if (PL_debug & 1) a
	1686	#define DEBUG_s(a) if (PL_debug & 2) a
	1687	#define DEBUG_l(a) if (PL_debug & 4) a
	1688	#define DEBUG_t(a) if (PL_debug & 8) a
	1689	#define DEBUG_o(a) if (PL_debug & 16) a
	1690	#define DEBUG_c(a) if (PL_debug & 32) a
	1691	#define DEBUG_P(a) if (PL_debug & 64) a
	1692	# ifdef PERL_OBJECT
	1693	# define DEBUG_m(a) if (PL_debug & 128) a
	1694	# else
	1695	# define DEBUG_m(a) if (PL_curinterp && PL_debug & 128) a
	1696	# endif
	1697	#define DEBUG_f(a) if (PL_debug & 256) a
	1698	#define DEBUG_r(a) if (PL_debug & 512) a
	1699	#define DEBUG_x(a) if (PL_debug & 1024) a
	1700	#define DEBUG_u(a) if (PL_debug & 2048) a
	1701	#define DEBUG_L(a) if (PL_debug & 4096) a
	1702	#define DEBUG_H(a) if (PL_debug & 8192) a
	1703	#define DEBUG_X(a) if (PL_debug & 16384) a
	1704	#define DEBUG_D(a) if (PL_debug & 32768) a
	1705	# ifdef USE_THREADS
	1706	# define DEBUG_S(a) if (PL_debug & (1<<16)) a
	1707	# else
	1708	# define DEBUG_S(a)
	1709	# endif
	1710	#else
	1711	#define DEB(a)
	1712	#define DEBUG(a)
	1713	#define DEBUG_p(a)
	1714	#define DEBUG_s(a)
	1715	#define DEBUG_l(a)
	1716	#define DEBUG_t(a)
	1717	#define DEBUG_o(a)
	1718	#define DEBUG_c(a)
	1719	#define DEBUG_P(a)
	1720	#define DEBUG_m(a)
	1721	#define DEBUG_f(a)
	1722	#define DEBUG_r(a)
	1723	#define DEBUG_x(a)
	1724	#define DEBUG_u(a)
	1725	#define DEBUG_S(a)
	1726	#define DEBUG_H(a)
	1727	#define DEBUG_X(a)
	1728	#define DEBUG_D(a)
	1729	#define DEBUG_S(a)
	1730	#endif
	1731	#define YYMAXDEPTH 300
	1732
	1733	#ifndef assert /* <assert.h> might have been included somehow */
	1734	#define assert(what) DEB( { \
	1735	if (!(what)) { \
	1736	croak("Assertion failed: file \"%s\", line %d", \
	1737	__FILE__, __LINE__); \
	1738	PerlProc_exit(1); \
	1739	}})
	1740	#endif
	1741
	1742	struct ufuncs {
	1743	I32 (uf_val)_((IV, SV));
	1744	I32 (uf_set)_((IV, SV));
	1745	IV uf_index;
	1746	};
	1747
	1748	/* Fix these up for __STDC__ */
	1749	#ifndef DONT_DECLARE_STD
	1750	char mktemp _((char));
	1751	double atof _((const char*));
	1752	#endif
	1753
	1754	#ifndef STANDARD_C
	1755	/* All of these are in stdlib.h or time.h for ANSI C */
	1756	Time_t time();
	1757	struct tm gmtime(), localtime();
	1758	#if defined(OEMVS) \|\| defined(__OPEN_VM)
	1759	char (strchr)(), (strrchr)();
	1760	char (strcpy)(), (strcat)();
	1761	#else
	1762	char strchr(), strrchr();
	1763	char strcpy(), strcat();
	1764	#endif
	1765	#endif /* ! STANDARD_C */
	1766
	1767
	1768	#ifdef I_MATH
	1769	# include <math.h>
	1770	#else
	1771	START_EXTERN_C
	1772	double exp _((double));
	1773	double log _((double));
	1774	double log10 _((double));
	1775	double sqrt _((double));
	1776	double frexp _((double,int*));
	1777	double ldexp _((double,int));
	1778	double modf _((double,double*));
	1779	double sin _((double));
	1780	double cos _((double));
	1781	double atan2 _((double,double));
	1782	double pow _((double,double));
	1783	END_EXTERN_C
	1784	#endif
	1785
	1786	#ifndef __cplusplus
	1787	# if defined(NeXT) \|\| defined(__NeXT__) /* or whatever catches all NeXTs */
	1788	char crypt (); / Maybe more hosts will need the unprototyped version */
	1789	# else
	1790	# if !defined(WIN32) \|\| !defined(HAVE_DES_FCRYPT)
	1791	char crypt _((const char, const char*));
	1792	# endif /* !WIN32 && !HAVE_CRYPT_SOURCE */
	1793	# endif /* !NeXT && !__NeXT__ */
	1794	# ifndef DONT_DECLARE_STD
	1795	# ifndef getenv
	1796	char getenv _((const char));
	1797	# endif /* !getenv */
	1798	Off_t lseek _((int,Off_t,int));
	1799	# endif /* !DONT_DECLARE_STD */
	1800	char *getlogin _((void));
	1801	#endif /* !__cplusplus */
	1802
	1803	#ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */
	1804	#define UNLINK unlnk
	1805	I32 unlnk _((char*));
	1806	#else
	1807	#define UNLINK PerlLIO_unlink
	1808	#endif
	1809
	1810	#ifndef HAS_SETREUID
	1811	# ifdef HAS_SETRESUID
	1812	# define setreuid(r,e) setresuid(r,e,(Uid_t)-1)
	1813	# define HAS_SETREUID
	1814	# endif
	1815	#endif
	1816	#ifndef HAS_SETREGID
	1817	# ifdef HAS_SETRESGID
	1818	# define setregid(r,e) setresgid(r,e,(Gid_t)-1)
	1819	# define HAS_SETREGID
	1820	# endif
	1821	#endif
	1822
	1823	typedef Signal_t (*Sighandler_t) _((int));
	1824
	1825	#ifdef HAS_SIGACTION
	1826	typedef struct sigaction Sigsave_t;
	1827	#else
	1828	typedef Sighandler_t Sigsave_t;
	1829	#endif
	1830
	1831	#define SCAN_DEF 0
	1832	#define SCAN_TR 1
	1833	#define SCAN_REPL 2
	1834
	1835	#ifdef DEBUGGING
	1836	# ifndef register
	1837	# define register
	1838	# endif
	1839	# define PAD_SV(po) pad_sv(po)
	1840	# define RUNOPS_DEFAULT runops_debug
	1841	#else
	1842	# define PAD_SV(po) PL_curpad[po]
	1843	# define RUNOPS_DEFAULT runops_standard
	1844	#endif
	1845
	1846	#ifdef MYMALLOC
	1847	# ifdef MUTEX_INIT_CALLS_MALLOC
	1848	# define MALLOC_INIT \
	1849	STMT_START { \
	1850	PL_malloc_mutex = NULL; \
	1851	MUTEX_INIT(&PL_malloc_mutex); \
	1852	} STMT_END
	1853	# define MALLOC_TERM \
	1854	STMT_START { \
	1855	perl_mutex tmp = PL_malloc_mutex; \
	1856	PL_malloc_mutex = NULL; \
	1857	MUTEX_DESTROY(&tmp); \
	1858	} STMT_END
	1859	# else
	1860	# define MALLOC_INIT MUTEX_INIT(&PL_malloc_mutex)
	1861	# define MALLOC_TERM MUTEX_DESTROY(&PL_malloc_mutex)
	1862	# endif
	1863	#else
	1864	# define MALLOC_INIT
	1865	# define MALLOC_TERM
	1866	#endif
	1867
	1868
	1869	/*
	1870	* These need prototyping here because <proto.h> isn't
	1871	* included until after runops is initialised.
	1872	*/
	1873
	1874	#ifndef PERL_OBJECT
	1875	typedef int (*runops_proc_t) _((void));
	1876	int runops_standard _((void));
	1877	#ifdef DEBUGGING
	1878	int runops_debug _((void));
	1879	#endif
	1880	#endif
	1881
	1882	/* _ (for $_) must be first in the following list (DEFSV requires it) */
	1883	#define THREADSV_NAMES "_123456789&`'+/.,\\\";^-%=\|~:\001\005!@"
	1884
	1885	/* NeXT has problems with crt0.o globals */
	1886	#if defined(__DYNAMIC__) && \
	1887	(defined(NeXT) \|\| defined(__NeXT__) \|\| defined(__APPLE__))
	1888	# if defined(NeXT) \|\| defined(__NeXT)
	1889	# include <mach-o/dyld.h>
	1890	# define environ (*environ_pointer)
	1891	EXT char *** environ_pointer;
	1892	# else
	1893	# if defined(__APPLE__)
	1894	# include <crt_externs.h> /* for the env array */
	1895	# define environ (*_NSGetEnviron())
	1896	# endif
	1897	# endif
	1898	#else
	1899	/* VMS and some other platforms don't use the environ array */
	1900	# if !defined(VMS) \|\| \
	1901	!defined(DONT_DECLARE_STD) \|\| \
	1902	(defined(__svr4__) && defined(__GNUC__) && defined(sun)) \|\| \
	1903	defined(__sgi) \|\| \
	1904	defined(__DGUX)
	1905	extern char ** environ; /* environment variables supplied via exec */
	1906	# endif
	1907	#endif
	1908
	1909	/* handy constants */
	1910	EXTCONST char PL_warn_uninit[]
	1911	INIT("Use of uninitialized value");
	1912	EXTCONST char PL_warn_nosemi[]
	1913	INIT("Semicolon seems to be missing");
	1914	EXTCONST char PL_warn_reserved[]
	1915	INIT("Unquoted string \"%s\" may clash with future reserved word");
	1916	EXTCONST char PL_warn_nl[]
	1917	INIT("Unsuccessful %s on filename containing newline");
	1918	EXTCONST char PL_no_wrongref[]
	1919	INIT("Can't use %s ref as %s ref");
	1920	EXTCONST char PL_no_symref[]
	1921	INIT("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use");
	1922	EXTCONST char PL_no_usym[]
	1923	INIT("Can't use an undefined value as %s reference");
	1924	EXTCONST char PL_no_aelem[]
	1925	INIT("Modification of non-creatable array value attempted, subscript %d");
	1926	EXTCONST char PL_no_helem[]
	1927	INIT("Modification of non-creatable hash value attempted, subscript \"%s\"");
	1928	EXTCONST char PL_no_modify[]
	1929	INIT("Modification of a read-only value attempted");
	1930	EXTCONST char PL_no_mem[]
	1931	INIT("Out of memory!\n");
	1932	EXTCONST char PL_no_security[]
	1933	INIT("Insecure dependency in %s%s");
	1934	EXTCONST char PL_no_sock_func[]
	1935	INIT("Unsupported socket function \"%s\" called");
	1936	EXTCONST char PL_no_dir_func[]
	1937	INIT("Unsupported directory function \"%s\" called");
	1938	EXTCONST char PL_no_func[]
	1939	INIT("The %s function is unimplemented");
	1940	EXTCONST char PL_no_myglob[]
	1941	INIT("\"my\" variable %s can't be in a package");
	1942
	1943	EXTCONST char PL_uuemap[65]
	1944	INIT("`!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_");
	1945
	1946
	1947	#ifdef DOINIT
	1948	EXT char *PL_sig_name[] = { SIG_NAME };
	1949	EXT int PL_sig_num[] = { SIG_NUM };
	1950	EXT SV * PL_psig_ptr[sizeof(PL_sig_num)/sizeof(*PL_sig_num)];
	1951	EXT SV * PL_psig_name[sizeof(PL_sig_num)/sizeof(*PL_sig_num)];
	1952	#else
	1953	EXT char *PL_sig_name[];
	1954	EXT int PL_sig_num[];
	1955	EXT SV * PL_psig_ptr[];
	1956	EXT SV * PL_psig_name[];
	1957	#endif
	1958
	1959	/* fast case folding tables */
	1960
	1961	#ifdef DOINIT
	1962	#ifdef EBCDIC
	1963	EXT unsigned char PL_fold[] = { /* fast EBCDIC case folding table */
	1964	0, 1, 2, 3, 4, 5, 6, 7,
	1965	8, 9, 10, 11, 12, 13, 14, 15,
	1966	16, 17, 18, 19, 20, 21, 22, 23,
	1967	24, 25, 26, 27, 28, 29, 30, 31,
	1968	32, 33, 34, 35, 36, 37, 38, 39,
	1969	40, 41, 42, 43, 44, 45, 46, 47,
	1970	48, 49, 50, 51, 52, 53, 54, 55,
	1971	56, 57, 58, 59, 60, 61, 62, 63,
	1972	64, 65, 66, 67, 68, 69, 70, 71,
	1973	72, 73, 74, 75, 76, 77, 78, 79,
	1974	80, 81, 82, 83, 84, 85, 86, 87,
	1975	88, 89, 90, 91, 92, 93, 94, 95,
	1976	96, 97, 98, 99, 100, 101, 102, 103,
	1977	104, 105, 106, 107, 108, 109, 110, 111,
	1978	112, 113, 114, 115, 116, 117, 118, 119,
	1979	120, 121, 122, 123, 124, 125, 126, 127,
	1980	128, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
	1981	'H', 'I', 138, 139, 140, 141, 142, 143,
	1982	144, 'J', 'K', 'L', 'M', 'N', 'O', 'P',
	1983	'Q', 'R', 154, 155, 156, 157, 158, 159,
	1984	160, 161, 'S', 'T', 'U', 'V', 'W', 'X',
	1985	'Y', 'Z', 170, 171, 172, 173, 174, 175,
	1986	176, 177, 178, 179, 180, 181, 182, 183,
	1987	184, 185, 186, 187, 188, 189, 190, 191,
	1988	192, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
	1989	'h', 'i', 202, 203, 204, 205, 206, 207,
	1990	208, 'j', 'k', 'l', 'm', 'n', 'o', 'p',
	1991	'q', 'r', 218, 219, 220, 221, 222, 223,
	1992	224, 225, 's', 't', 'u', 'v', 'w', 'x',
	1993	'y', 'z', 234, 235, 236, 237, 238, 239,
	1994	240, 241, 242, 243, 244, 245, 246, 247,
	1995	248, 249, 250, 251, 252, 253, 254, 255
	1996	};
	1997	#else /* ascii rather than ebcdic */
	1998	EXTCONST unsigned char PL_fold[] = {
	1999	0, 1, 2, 3, 4, 5, 6, 7,
	2000	8, 9, 10, 11, 12, 13, 14, 15,
	2001	16, 17, 18, 19, 20, 21, 22, 23,
	2002	24, 25, 26, 27, 28, 29, 30, 31,
	2003	32, 33, 34, 35, 36, 37, 38, 39,
	2004	40, 41, 42, 43, 44, 45, 46, 47,
	2005	48, 49, 50, 51, 52, 53, 54, 55,
	2006	56, 57, 58, 59, 60, 61, 62, 63,
	2007	64, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
	2008	'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
	2009	'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
	2010	'x', 'y', 'z', 91, 92, 93, 94, 95,
	2011	96, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
	2012	'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
	2013	'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
	2014	'X', 'Y', 'Z', 123, 124, 125, 126, 127,
	2015	128, 129, 130, 131, 132, 133, 134, 135,
	2016	136, 137, 138, 139, 140, 141, 142, 143,
	2017	144, 145, 146, 147, 148, 149, 150, 151,
	2018	152, 153, 154, 155, 156, 157, 158, 159,
	2019	160, 161, 162, 163, 164, 165, 166, 167,
	2020	168, 169, 170, 171, 172, 173, 174, 175,
	2021	176, 177, 178, 179, 180, 181, 182, 183,
	2022	184, 185, 186, 187, 188, 189, 190, 191,
	2023	192, 193, 194, 195, 196, 197, 198, 199,
	2024	200, 201, 202, 203, 204, 205, 206, 207,
	2025	208, 209, 210, 211, 212, 213, 214, 215,
	2026	216, 217, 218, 219, 220, 221, 222, 223,
	2027	224, 225, 226, 227, 228, 229, 230, 231,
	2028	232, 233, 234, 235, 236, 237, 238, 239,
	2029	240, 241, 242, 243, 244, 245, 246, 247,
	2030	248, 249, 250, 251, 252, 253, 254, 255
	2031	};
	2032	#endif /* !EBCDIC */
	2033	#else
	2034	EXTCONST unsigned char PL_fold[];
	2035	#endif
	2036
	2037	#ifdef DOINIT
	2038	EXT unsigned char PL_fold_locale[] = {
	2039	0, 1, 2, 3, 4, 5, 6, 7,
	2040	8, 9, 10, 11, 12, 13, 14, 15,
	2041	16, 17, 18, 19, 20, 21, 22, 23,
	2042	24, 25, 26, 27, 28, 29, 30, 31,
	2043	32, 33, 34, 35, 36, 37, 38, 39,
	2044	40, 41, 42, 43, 44, 45, 46, 47,
	2045	48, 49, 50, 51, 52, 53, 54, 55,
	2046	56, 57, 58, 59, 60, 61, 62, 63,
	2047	64, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
	2048	'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
	2049	'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
	2050	'x', 'y', 'z', 91, 92, 93, 94, 95,
	2051	96, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
	2052	'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
	2053	'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
	2054	'X', 'Y', 'Z', 123, 124, 125, 126, 127,
	2055	128, 129, 130, 131, 132, 133, 134, 135,
	2056	136, 137, 138, 139, 140, 141, 142, 143,
	2057	144, 145, 146, 147, 148, 149, 150, 151,
	2058	152, 153, 154, 155, 156, 157, 158, 159,
	2059	160, 161, 162, 163, 164, 165, 166, 167,
	2060	168, 169, 170, 171, 172, 173, 174, 175,
	2061	176, 177, 178, 179, 180, 181, 182, 183,
	2062	184, 185, 186, 187, 188, 189, 190, 191,
	2063	192, 193, 194, 195, 196, 197, 198, 199,
	2064	200, 201, 202, 203, 204, 205, 206, 207,
	2065	208, 209, 210, 211, 212, 213, 214, 215,
	2066	216, 217, 218, 219, 220, 221, 222, 223,
	2067	224, 225, 226, 227, 228, 229, 230, 231,
	2068	232, 233, 234, 235, 236, 237, 238, 239,
	2069	240, 241, 242, 243, 244, 245, 246, 247,
	2070	248, 249, 250, 251, 252, 253, 254, 255
	2071	};
	2072	#else
	2073	EXT unsigned char PL_fold_locale[];
	2074	#endif
	2075
	2076	#ifdef DOINIT
	2077	#ifdef EBCDIC
	2078	EXT unsigned char PL_freq[] = {/* EBCDIC frequencies for mixed English/C */
	2079	1, 2, 84, 151, 154, 155, 156, 157,
	2080	165, 246, 250, 3, 158, 7, 18, 29,
	2081	40, 51, 62, 73, 85, 96, 107, 118,
	2082	129, 140, 147, 148, 149, 150, 152, 153,
	2083	255, 6, 8, 9, 10, 11, 12, 13,
	2084	14, 15, 24, 25, 26, 27, 28, 226,
	2085	29, 30, 31, 32, 33, 43, 44, 45,
	2086	46, 47, 48, 49, 50, 76, 77, 78,
	2087	79, 80, 81, 82, 83, 84, 85, 86,
	2088	87, 94, 95, 234, 181, 233, 187, 190,
	2089	180, 96, 97, 98, 99, 100, 101, 102,
	2090	104, 112, 182, 174, 236, 232, 229, 103,
	2091	228, 226, 114, 115, 116, 117, 118, 119,
	2092	120, 121, 122, 235, 176, 230, 194, 162,
	2093	130, 131, 132, 133, 134, 135, 136, 137,
	2094	138, 139, 201, 205, 163, 217, 220, 224,
	2095	5, 248, 227, 244, 242, 255, 241, 231,
	2096	240, 253, 16, 197, 19, 20, 21, 187,
	2097	23, 169, 210, 245, 237, 249, 247, 239,
	2098	168, 252, 34, 196, 36, 37, 38, 39,
	2099	41, 42, 251, 254, 238, 223, 221, 213,
	2100	225, 177, 52, 53, 54, 55, 56, 57,
	2101	58, 59, 60, 61, 63, 64, 65, 66,
	2102	67, 68, 69, 70, 71, 72, 74, 75,
	2103	205, 208, 186, 202, 200, 218, 198, 179,
	2104	178, 214, 88, 89, 90, 91, 92, 93,
	2105	217, 166, 170, 207, 199, 209, 206, 204,
	2106	160, 212, 105, 106, 108, 109, 110, 111,
	2107	203, 113, 216, 215, 192, 175, 193, 243,
	2108	172, 161, 123, 124, 125, 126, 127, 128,
	2109	222, 219, 211, 195, 188, 193, 185, 184,
	2110	191, 183, 141, 142, 143, 144, 145, 146
	2111	};
	2112	#else /* ascii rather than ebcdic */
	2113	EXTCONST unsigned char PL_freq[] = { /* letter frequencies for mixed English/C */
	2114	1, 2, 84, 151, 154, 155, 156, 157,
	2115	165, 246, 250, 3, 158, 7, 18, 29,
	2116	40, 51, 62, 73, 85, 96, 107, 118,
	2117	129, 140, 147, 148, 149, 150, 152, 153,
	2118	255, 182, 224, 205, 174, 176, 180, 217,
	2119	233, 232, 236, 187, 235, 228, 234, 226,
	2120	222, 219, 211, 195, 188, 193, 185, 184,
	2121	191, 183, 201, 229, 181, 220, 194, 162,
	2122	163, 208, 186, 202, 200, 218, 198, 179,
	2123	178, 214, 166, 170, 207, 199, 209, 206,
	2124	204, 160, 212, 216, 215, 192, 175, 173,
	2125	243, 172, 161, 190, 203, 189, 164, 230,
	2126	167, 248, 227, 244, 242, 255, 241, 231,
	2127	240, 253, 169, 210, 245, 237, 249, 247,
	2128	239, 168, 252, 251, 254, 238, 223, 221,
	2129	213, 225, 177, 197, 171, 196, 159, 4,
	2130	5, 6, 8, 9, 10, 11, 12, 13,
	2131	14, 15, 16, 17, 19, 20, 21, 22,
	2132	23, 24, 25, 26, 27, 28, 30, 31,
	2133	32, 33, 34, 35, 36, 37, 38, 39,
	2134	41, 42, 43, 44, 45, 46, 47, 48,
	2135	49, 50, 52, 53, 54, 55, 56, 57,
	2136	58, 59, 60, 61, 63, 64, 65, 66,
	2137	67, 68, 69, 70, 71, 72, 74, 75,
	2138	76, 77, 78, 79, 80, 81, 82, 83,
	2139	86, 87, 88, 89, 90, 91, 92, 93,
	2140	94, 95, 97, 98, 99, 100, 101, 102,
	2141	103, 104, 105, 106, 108, 109, 110, 111,
	2142	112, 113, 114, 115, 116, 117, 119, 120,
	2143	121, 122, 123, 124, 125, 126, 127, 128,
	2144	130, 131, 132, 133, 134, 135, 136, 137,
	2145	138, 139, 141, 142, 143, 144, 145, 146
	2146	};
	2147	#endif
	2148	#else
	2149	EXTCONST unsigned char PL_freq[];
	2150	#endif
	2151
	2152	#ifdef DEBUGGING
	2153	#ifdef DOINIT
	2154	EXTCONST char* PL_block_type[] = {
	2155	"NULL",
	2156	"SUB",
	2157	"EVAL",
	2158	"LOOP",
	2159	"SUBST",
	2160	"BLOCK",
	2161	};
	2162	#else
	2163	EXTCONST char* PL_block_type[];
	2164	#endif
	2165	#endif
	2166
	2167	/*****************************************************************************/
	2168	/* This lexer/parser stuff is currently global since yacc is hard to reenter */
	2169	/*****************************************************************************/
	2170	/* XXX This needs to be revisited, since BEGIN makes yacc re-enter... */
	2171
	2172	#include "perly.h"
	2173
	2174	#define LEX_NOTPARSING 11 /* borrowed from toke.c */
	2175
	2176	typedef enum {
	2177	XOPERATOR,
	2178	XTERM,
	2179	XREF,
	2180	XSTATE,
	2181	XBLOCK,
	2182	XTERMBLOCK
	2183	} expectation;
	2184
	2185	enum { /* pass one of these to get_vtbl */
	2186	want_vtbl_sv,
	2187	want_vtbl_env,
	2188	want_vtbl_envelem,
	2189	want_vtbl_sig,
	2190	want_vtbl_sigelem,
	2191	want_vtbl_pack,
	2192	want_vtbl_packelem,
	2193	want_vtbl_dbline,
	2194	want_vtbl_isa,
	2195	want_vtbl_isaelem,
	2196	want_vtbl_arylen,
	2197	want_vtbl_glob,
	2198	want_vtbl_mglob,
	2199	want_vtbl_nkeys,
	2200	want_vtbl_taint,
	2201	want_vtbl_substr,
	2202	want_vtbl_vec,
	2203	want_vtbl_pos,
	2204	want_vtbl_bm,
	2205	want_vtbl_fm,
	2206	want_vtbl_uvar,
	2207	want_vtbl_defelem,
	2208	want_vtbl_regexp,
	2209	want_vtbl_collxfrm,
	2210	want_vtbl_amagic,
	2211	want_vtbl_amagicelem,
	2212	#ifdef USE_THREADS
	2213	want_vtbl_mutex,
	2214	#endif
	2215	want_vtbl_regdata,
	2216	want_vtbl_regdatum
	2217	};
	2218
	2219	/* Note: the lowest 8 bits are reserved for
	2220	stuffing into op->op_private */
	2221	#define HINT_INTEGER 0x00000001
	2222	#define HINT_STRICT_REFS 0x00000002
	2223	/* #define HINT_notused4 0x00000004 */
	2224	#define HINT_UTF8 0x00000008
	2225	/* #define HINT_notused10 0x00000010 */
	2226	/* Note: 20,40,80 used for NATIVE_HINTS */
	2227
	2228	#define HINT_BLOCK_SCOPE 0x00000100
	2229	#define HINT_STRICT_SUBS 0x00000200
	2230	#define HINT_STRICT_VARS 0x00000400
	2231	#define HINT_LOCALE 0x00000800
	2232
	2233	#define HINT_NEW_INTEGER 0x00001000
	2234	#define HINT_NEW_FLOAT 0x00002000
	2235	#define HINT_NEW_BINARY 0x00004000
	2236	#define HINT_NEW_STRING 0x00008000
	2237	#define HINT_NEW_RE 0x00010000
	2238	#define HINT_LOCALIZE_HH 0x00020000 /* %^H needs to be copied */
	2239
	2240	#define HINT_RE_TAINT 0x00100000
	2241	#define HINT_RE_EVAL 0x00200000
	2242
	2243	#define HINT_FILETEST_ACCESS 0x00400000
	2244
	2245	/* Various states of an input record separator SV (rs, nrs) */
	2246	#define RsSNARF(sv) (! SvOK(sv))
	2247	#define RsSIMPLE(sv) (SvOK(sv) && SvCUR(sv))
	2248	#define RsPARA(sv) (SvOK(sv) && ! SvCUR(sv))
	2249	#define RsRECORD(sv) (SvROK(sv) && (SvIV(SvRV(sv)) > 0))
	2250
	2251	/* Enable variables which are pointers to functions */
	2252	#ifdef PERL_OBJECT
	2253	typedef regexp(CPerlObj::regcomp_t) _((char* exp, char* xend, PMOP* pm));
	2254	typedef I32 (CPerlObj::regexec_t) _((regexp prog, char* stringarg,
	2255	char* strend, char* strbeg,
	2256	I32 minend, SV* screamer, void* data,
	2257	U32 flags));
	2258	#else
	2259	typedef regexp(regcomp_t) _((char* exp, char* xend, PMOP* pm));
	2260	typedef I32 (regexec_t) _((regexp prog, char* stringarg, char* strend, char*
	2261	strbeg, I32 minend, SV* screamer, void* data,
	2262	U32 flags));
	2263
	2264	#endif
	2265
	2266	/* Set up PERLVAR macros for populating structs */
	2267	#define PERLVAR(var,type) type var;
	2268	#define PERLVARI(var,type,init) type var;
	2269	#define PERLVARIC(var,type,init) type var;
	2270
	2271	/* Interpreter exitlist entry */
	2272	typedef struct exitlistentry {
	2273	#ifdef PERL_OBJECT
	2274	void (fn) _((CPerlObj, void*));
	2275	#else
	2276	void (fn) _((void));
	2277	#endif
	2278	void *ptr;
	2279	} PerlExitListEntry;
	2280
	2281	#ifdef PERL_OBJECT
	2282	extern "C" CPerlObj* perl_alloc _((IPerlMem, IPerlEnv, IPerlStdIO, IPerlLIO, IPerlDir, IPerlSock, IPerlProc*));
	2283
	2284	#ifdef PERL_OBJECT
	2285	typedef int (CPerlObj::*runops_proc_t) _((void));
	2286	#endif /* PERL_OBJECT */
	2287
	2288	#undef EXT
	2289	#define EXT
	2290	#undef EXTCONST
	2291	#define EXTCONST
	2292	#undef INIT
	2293	#define INIT(x)
	2294
	2295	class CPerlObj {
	2296	public:
	2297	CPerlObj(IPerlMem, IPerlEnv, IPerlStdIO, IPerlLIO, IPerlDir, IPerlSock, IPerlProc*);
	2298	void Init(void);
	2299	void* operator new(size_t nSize, IPerlMem *pvtbl);
	2300	#endif /* PERL_OBJECT */
	2301
	2302	#ifdef PERL_GLOBAL_STRUCT
	2303	struct perl_vars {
	2304	#include "perlvars.h"
	2305	};
	2306
	2307	#ifdef PERL_CORE
	2308	EXT struct perl_vars PL_Vars;
	2309	EXT struct perl_vars *PL_VarsPtr INIT(&PL_Vars);
	2310	#else /* PERL_CORE */
	2311	#if !defined(__GNUC__) \|\| !(defined(WIN32) \|\| defined(CYGWIN32))
	2312	EXT
	2313	#endif /* WIN32 */
	2314	struct perl_vars *PL_VarsPtr;
	2315	#define PL_Vars (*((PL_VarsPtr) ? PL_VarsPtr : (PL_VarsPtr = Perl_GetVars())))
	2316	#endif /* PERL_CORE */
	2317	#endif /* PERL_GLOBAL_STRUCT */
	2318
	2319	#ifdef MULTIPLICITY
	2320	/* If we have multiple interpreters define a struct
	2321	holding variables which must be per-interpreter
	2322	If we don't have threads anything that would have
	2323	be per-thread is per-interpreter.
	2324	*/
	2325
	2326	struct interpreter {
	2327	#include "thrdvar.h"
	2328	#include "intrpvar.h"
	2329	};
	2330
	2331	#else
	2332	struct interpreter {
	2333	char broiled;
	2334	};
	2335	#endif
	2336
	2337	#ifdef USE_THREADS
	2338	/* If we have threads define a struct with all the variables
	2339	* that have to be per-thread
	2340	*/
	2341
	2342
	2343	struct perl_thread {
	2344	#include "thrdvar.h"
	2345	};
	2346
	2347	typedef struct perl_thread *Thread;
	2348
	2349	#else
	2350	typedef void *Thread;
	2351	#endif
	2352
	2353	/* Done with PERLVAR macros for now ... */
	2354	#undef PERLVAR
	2355	#undef PERLVARI
	2356	#undef PERLVARIC
	2357
	2358	#include "thread.h"
	2359	#include "pp.h"
	2360	#include "proto.h"
	2361
	2362	/* The following must follow proto.h as #defines mess up syntax */
	2363
	2364	#if !defined(PERL_FOR_X2P)
	2365	# include "embedvar.h"
	2366	#endif
	2367
	2368	/* Now include all the 'global' variables
	2369	* If we don't have threads or multiple interpreters
	2370	* these include variables that would have been their struct-s
	2371	*/
	2372
	2373	#define PERLVAR(var,type) EXT type PL_##var;
	2374	#define PERLVARI(var,type,init) EXT type PL_##var INIT(init);
	2375	#define PERLVARIC(var,type,init) EXTCONST type PL_##var INIT(init);
	2376
	2377	#ifndef PERL_GLOBAL_STRUCT
	2378	#include "perlvars.h"
	2379	#endif
	2380
	2381	#ifndef MULTIPLICITY
	2382
	2383	# include "intrpvar.h"
	2384	# ifndef USE_THREADS
	2385	# include "thrdvar.h"
	2386	# endif
	2387
	2388	#endif
	2389
	2390	#ifdef PERL_OBJECT
	2391	/*
	2392	* The following is a buffer where new variables must
	2393	* be defined to maintain binary compatibility with PERL_OBJECT
	2394	* for 5.005
	2395	*/
	2396	PERLVAR(object_compatibility[30], char)
	2397	};
	2398
	2399	# include "embed.h"
	2400	# if defined(WIN32) && !defined(WIN32IO_IS_STDIO)
	2401	# define errno CPerlObj::ErrorNo()
	2402	# endif
	2403
	2404	# ifdef DOINIT
	2405	# include "INTERN.h"
	2406	# else
	2407	# include "EXTERN.h"
	2408	# endif
	2409
	2410	/* this has structure inits, so it cannot be included before here */
	2411	# include "opcode.h"
	2412
	2413	#endif /* PERL_OBJECT */
	2414
	2415	#undef PERLVAR
	2416	#undef PERLVARI
	2417	#undef PERLVARIC
	2418
	2419	#if defined(HASATTRIBUTE) && defined(WIN32)
	2420	/*
	2421	* This provides a layer of functions and macros to ensure extensions will
	2422	* get to use the same RTL functions as the core.
	2423	* It has to go here or #define of printf messes up __attribute__
	2424	* stuff in proto.h
	2425	*/
	2426	#ifndef PERL_OBJECT
	2427	# include <win32iop.h>
	2428	#endif /* PERL_OBJECT */
	2429	#endif /* WIN32 */
	2430
	2431	#ifdef DOINIT
	2432
	2433	EXT MGVTBL PL_vtbl_sv = {magic_get,
	2434	magic_set,
	2435	magic_len,
	2436	0, 0};
	2437	EXT MGVTBL PL_vtbl_env = {0, magic_set_all_env,
	2438	0, magic_clear_all_env,
	2439	0};
	2440	EXT MGVTBL PL_vtbl_envelem = {0, magic_setenv,
	2441	0, magic_clearenv,
	2442	0};
	2443	EXT MGVTBL PL_vtbl_sig = {0, 0, 0, 0, 0};
	2444	EXT MGVTBL PL_vtbl_sigelem = {magic_getsig,
	2445	magic_setsig,
	2446	0, magic_clearsig,
	2447	0};
	2448	EXT MGVTBL PL_vtbl_pack = {0, 0, magic_sizepack, magic_wipepack,
	2449	0};
	2450	EXT MGVTBL PL_vtbl_packelem = {magic_getpack,
	2451	magic_setpack,
	2452	0, magic_clearpack,
	2453	0};
	2454	EXT MGVTBL PL_vtbl_dbline = {0, magic_setdbline,
	2455	0, 0, 0};
	2456	EXT MGVTBL PL_vtbl_isa = {0, magic_setisa,
	2457	0, magic_setisa,
	2458	0};
	2459	EXT MGVTBL PL_vtbl_isaelem = {0, magic_setisa,
	2460	0, 0, 0};
	2461	EXT MGVTBL PL_vtbl_arylen = {magic_getarylen,
	2462	magic_setarylen,
	2463	0, 0, 0};
	2464	EXT MGVTBL PL_vtbl_glob = {magic_getglob,
	2465	magic_setglob,
	2466	0, 0, 0};
	2467	EXT MGVTBL PL_vtbl_mglob = {0, magic_setmglob,
	2468	0, 0, 0};
	2469	EXT MGVTBL PL_vtbl_nkeys = {magic_getnkeys,
	2470	magic_setnkeys,
	2471	0, 0, 0};
	2472	EXT MGVTBL PL_vtbl_taint = {magic_gettaint,magic_settaint,
	2473	0, 0, 0};
	2474	EXT MGVTBL PL_vtbl_substr = {magic_getsubstr, magic_setsubstr,
	2475	0, 0, 0};
	2476	EXT MGVTBL PL_vtbl_vec = {magic_getvec,
	2477	magic_setvec,
	2478	0, 0, 0};
	2479	EXT MGVTBL PL_vtbl_pos = {magic_getpos,
	2480	magic_setpos,
	2481	0, 0, 0};
	2482	EXT MGVTBL PL_vtbl_bm = {0, magic_setbm,
	2483	0, 0, 0};
	2484	EXT MGVTBL PL_vtbl_fm = {0, magic_setfm,
	2485	0, 0, 0};
	2486	EXT MGVTBL PL_vtbl_uvar = {magic_getuvar,
	2487	magic_setuvar,
	2488	0, 0, 0};
	2489	#ifdef USE_THREADS
	2490	EXT MGVTBL PL_vtbl_mutex = {0, 0, 0, 0, magic_mutexfree};
	2491	#endif /* USE_THREADS */
	2492	EXT MGVTBL PL_vtbl_defelem = {magic_getdefelem,magic_setdefelem,
	2493	0, 0, 0};
	2494
	2495	EXT MGVTBL PL_vtbl_regexp = {0,0,0,0, magic_freeregexp};
	2496	EXT MGVTBL PL_vtbl_regdata = {0, 0, magic_regdata_cnt, 0, 0};
	2497	EXT MGVTBL PL_vtbl_regdatum = {magic_regdatum_get, 0, 0, 0, 0};
	2498
	2499	#ifdef USE_LOCALE_COLLATE
	2500	EXT MGVTBL PL_vtbl_collxfrm = {0,
	2501	magic_setcollxfrm,
	2502	0, 0, 0};
	2503	#endif
	2504
	2505	EXT MGVTBL PL_vtbl_amagic = {0, magic_setamagic,
	2506	0, 0, magic_setamagic};
	2507	EXT MGVTBL PL_vtbl_amagicelem = {0, magic_setamagic,
	2508	0, 0, magic_setamagic};
	2509
	2510	#else /* !DOINIT */
	2511
	2512	EXT MGVTBL PL_vtbl_sv;
	2513	EXT MGVTBL PL_vtbl_env;
	2514	EXT MGVTBL PL_vtbl_envelem;
	2515	EXT MGVTBL PL_vtbl_sig;
	2516	EXT MGVTBL PL_vtbl_sigelem;
	2517	EXT MGVTBL PL_vtbl_pack;
	2518	EXT MGVTBL PL_vtbl_packelem;
	2519	EXT MGVTBL PL_vtbl_dbline;
	2520	EXT MGVTBL PL_vtbl_isa;
	2521	EXT MGVTBL PL_vtbl_isaelem;
	2522	EXT MGVTBL PL_vtbl_arylen;
	2523	EXT MGVTBL PL_vtbl_glob;
	2524	EXT MGVTBL PL_vtbl_mglob;
	2525	EXT MGVTBL PL_vtbl_nkeys;
	2526	EXT MGVTBL PL_vtbl_taint;
	2527	EXT MGVTBL PL_vtbl_substr;
	2528	EXT MGVTBL PL_vtbl_vec;
	2529	EXT MGVTBL PL_vtbl_pos;
	2530	EXT MGVTBL PL_vtbl_bm;
	2531	EXT MGVTBL PL_vtbl_fm;
	2532	EXT MGVTBL PL_vtbl_uvar;
	2533
	2534	#ifdef USE_THREADS
	2535	EXT MGVTBL PL_vtbl_mutex;
	2536	#endif /* USE_THREADS */
	2537
	2538	EXT MGVTBL PL_vtbl_defelem;
	2539	EXT MGVTBL PL_vtbl_regexp;
	2540	EXT MGVTBL PL_vtbl_regdata;
	2541	EXT MGVTBL PL_vtbl_regdatum;
	2542
	2543	#ifdef USE_LOCALE_COLLATE
	2544	EXT MGVTBL PL_vtbl_collxfrm;
	2545	#endif
	2546
	2547	EXT MGVTBL PL_vtbl_amagic;
	2548	EXT MGVTBL PL_vtbl_amagicelem;
	2549
	2550	#endif /* !DOINIT */
	2551
	2552	enum {
	2553	fallback_amg, abs_amg,
	2554	bool__amg, nomethod_amg,
	2555	string_amg, numer_amg,
	2556	add_amg, add_ass_amg,
	2557	subtr_amg, subtr_ass_amg,
	2558	mult_amg, mult_ass_amg,
	2559	div_amg, div_ass_amg,
	2560	modulo_amg, modulo_ass_amg,
	2561	pow_amg, pow_ass_amg,
	2562	lshift_amg, lshift_ass_amg,
	2563	rshift_amg, rshift_ass_amg,
	2564	band_amg, band_ass_amg,
	2565	bor_amg, bor_ass_amg,
	2566	bxor_amg, bxor_ass_amg,
	2567	lt_amg, le_amg,
	2568	gt_amg, ge_amg,
	2569	eq_amg, ne_amg,
	2570	ncmp_amg, scmp_amg,
	2571	slt_amg, sle_amg,
	2572	sgt_amg, sge_amg,
	2573	seq_amg, sne_amg,
	2574	not_amg, compl_amg,
	2575	inc_amg, dec_amg,
	2576	atan2_amg, cos_amg,
	2577	sin_amg, exp_amg,
	2578	log_amg, sqrt_amg,
	2579	repeat_amg, repeat_ass_amg,
	2580	concat_amg, concat_ass_amg,
	2581	copy_amg, neg_amg,
	2582	to_sv_amg, to_av_amg,
	2583	to_hv_amg, to_gv_amg,
	2584	to_cv_amg, iter_amg,
	2585	max_amg_code
	2586	/* Do not leave a trailing comma here. C9X allows it, C89 doesn't. */
	2587	};
	2588
	2589	#define NofAMmeth max_amg_code
	2590
	2591	#ifdef DOINIT
	2592	EXTCONST char * PL_AMG_names[NofAMmeth] = {
	2593	"fallback", "abs", /* "fallback" should be the first. */
	2594	"bool", "nomethod",
	2595	"\"\"", "0+",
	2596	"+", "+=",
	2597	"-", "-=",
	2598	"", "=",
	2599	"/", "/=",
	2600	"%", "%=",
	2601	"", "=",
	2602	"<<", "<<=",
	2603	">>", ">>=",
	2604	"&", "&=",
	2605	"\|", "\|=",
	2606	"^", "^=",
	2607	"<", "<=",
	2608	">", ">=",
	2609	"==", "!=",
	2610	"<=>", "cmp",
	2611	"lt", "le",
	2612	"gt", "ge",
	2613	"eq", "ne",
	2614	"!", "~",
	2615	"++", "--",
	2616	"atan2", "cos",
	2617	"sin", "exp",
	2618	"log", "sqrt",
	2619	"x", "x=",
	2620	".", ".=",
	2621	"=", "neg",
	2622	"${}", "@{}",
	2623	"%{}", "*{}",
	2624	"&{}", "<>",
	2625	};
	2626	#else
	2627	EXTCONST char * PL_AMG_names[NofAMmeth];
	2628	#endif /* def INITAMAGIC */
	2629
	2630	struct am_table {
	2631	long was_ok_sub;
	2632	long was_ok_am;
	2633	U32 flags;
	2634	CV* table[NofAMmeth];
	2635	long fallback;
	2636	};
	2637	struct am_table_short {
	2638	long was_ok_sub;
	2639	long was_ok_am;
	2640	U32 flags;
	2641	};
	2642	typedef struct am_table AMT;
	2643	typedef struct am_table_short AMTS;
	2644
	2645	#define AMGfallNEVER 1
	2646	#define AMGfallNO 2
	2647	#define AMGfallYES 3
	2648
	2649	#define AMTf_AMAGIC 1
	2650	#define AMT_AMAGIC(amt) ((amt)->flags & AMTf_AMAGIC)
	2651	#define AMT_AMAGIC_on(amt) ((amt)->flags \|= AMTf_AMAGIC)
	2652	#define AMT_AMAGIC_off(amt) ((amt)->flags &= ~AMTf_AMAGIC)
	2653
	2654
	2655	/*
	2656	* some compilers like to redefine cos et alia as faster
	2657	* (and less accurate?) versions called F_cos et cetera (Quidquid
	2658	* latine dictum sit, altum viditur.) This trick collides with
	2659	* the Perl overloading (amg). The following #defines fool both.
	2660	*/
	2661
	2662	#ifdef _FASTMATH
	2663	# ifdef atan2
	2664	# define F_atan2_amg atan2_amg
	2665	# endif
	2666	# ifdef cos
	2667	# define F_cos_amg cos_amg
	2668	# endif
	2669	# ifdef exp
	2670	# define F_exp_amg exp_amg
	2671	# endif
	2672	# ifdef log
	2673	# define F_log_amg log_amg
	2674	# endif
	2675	# ifdef pow
	2676	# define F_pow_amg pow_amg
	2677	# endif
	2678	# ifdef sin
	2679	# define F_sin_amg sin_amg
	2680	# endif
	2681	# ifdef sqrt
	2682	# define F_sqrt_amg sqrt_amg
	2683	# endif
	2684	#endif /* _FASTMATH */
	2685
	2686	#define PERLDB_ALL 0x3f /* No _NONAME, _GOTO */
	2687	#define PERLDBf_SUB 0x01 /* Debug sub enter/exit. */
	2688	#define PERLDBf_LINE 0x02 /* Keep line #. */
	2689	#define PERLDBf_NOOPT 0x04 /* Switch off optimizations. */
	2690	#define PERLDBf_INTER 0x08 /* Preserve more data for
	2691	later inspections. */
	2692	#define PERLDBf_SUBLINE 0x10 /* Keep subr source lines. */
	2693	#define PERLDBf_SINGLE 0x20 /* Start with single-step on. */
	2694	#define PERLDBf_NONAME 0x40 /* For _SUB: no name of the subr. */
	2695	#define PERLDBf_GOTO 0x80 /* Report goto: call DB::goto. */
	2696
	2697	#define PERLDB_SUB (PL_perldb && (PL_perldb & PERLDBf_SUB))
	2698	#define PERLDB_LINE (PL_perldb && (PL_perldb & PERLDBf_LINE))
	2699	#define PERLDB_NOOPT (PL_perldb && (PL_perldb & PERLDBf_NOOPT))
	2700	#define PERLDB_INTER (PL_perldb && (PL_perldb & PERLDBf_INTER))
	2701	#define PERLDB_SUBLINE (PL_perldb && (PL_perldb & PERLDBf_SUBLINE))
	2702	#define PERLDB_SINGLE (PL_perldb && (PL_perldb & PERLDBf_SINGLE))
	2703	#define PERLDB_SUB_NN (PL_perldb && (PL_perldb & (PERLDBf_NONAME)))
	2704	#define PERLDB_GOTO (PL_perldb && (PL_perldb & PERLDBf_GOTO))
	2705
	2706
	2707	#ifdef USE_LOCALE_NUMERIC
	2708
	2709	#define SET_NUMERIC_STANDARD() \
	2710	STMT_START { \
	2711	if (! PL_numeric_standard) \
	2712	perl_set_numeric_standard(); \
	2713	} STMT_END
	2714
	2715	#define SET_NUMERIC_LOCAL() \
	2716	STMT_START { \
	2717	if (! PL_numeric_local) \
	2718	perl_set_numeric_local(); \
	2719	} STMT_END
	2720
	2721	#else /* !USE_LOCALE_NUMERIC */
	2722
	2723	#define SET_NUMERIC_STANDARD() /**/
	2724	#define SET_NUMERIC_LOCAL() /**/
	2725
	2726	#endif /* !USE_LOCALE_NUMERIC */
	2727
	2728	#if !defined(PERLIO_IS_STDIO) && defined(HASATTRIBUTE)
	2729	/*
	2730	* Now we have __attribute__ out of the way
	2731	* Remap printf
	2732	*/
	2733	#define printf PerlIO_stdoutf
	2734	#endif
	2735
	2736	#ifndef PERL_SCRIPT_MODE
	2737	#define PERL_SCRIPT_MODE "r"
	2738	#endif
	2739
	2740	/*
	2741	* nice_chunk and nice_chunk size need to be set
	2742	* and queried under the protection of sv_mutex
	2743	*/
	2744	#define offer_nice_chunk(chunk, chunk_size) do { \
	2745	LOCK_SV_MUTEX; \
	2746	if (!PL_nice_chunk) { \
	2747	PL_nice_chunk = (char*)(chunk); \
	2748	PL_nice_chunk_size = (chunk_size); \
	2749	} \
	2750	else { \
	2751	Safefree(chunk); \
	2752	} \
	2753	UNLOCK_SV_MUTEX; \
	2754	} while (0)
	2755
	2756	#ifdef HAS_SEM
	2757	# include <sys/ipc.h>
	2758	# include <sys/sem.h>
	2759	# ifndef HAS_UNION_SEMUN /* Provide the union semun. */
	2760	union semun {
	2761	int val;
	2762	struct semid_ds *buf;
	2763	unsigned short *array;
	2764	};
	2765	# endif
	2766	# ifdef USE_SEMCTL_SEMUN
	2767	# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
	2768	# else
	2769	# ifdef USE_SEMCTL_SEMID_DS
	2770	# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buf)
	2771	# endif
	2772	# endif
	2773	#endif
	2774
	2775	/* Mention
	2776
	2777	INSTALL_USR_BIN_PERL
	2778
	2779	I_SYS_MMAN
	2780	HAS_MMAP
	2781	HAS_MUNMAP
	2782	HAS_MPROTECT
	2783	HAS_MSYNC
	2784	HAS_MADVISE
	2785	Mmap_t
	2786
	2787	here so that Configure picks them up. */
	2788
	2789	#ifdef IAMSUID
	2790
	2791	#ifdef I_SYS_STATVFS
	2792	# include <sys/statvfs.h> /* for f?statvfs() */
	2793	#endif
	2794	#ifdef I_SYS_MOUNT
	2795	# include <sys/mount.h> /* for BSD f?statfs() /
	2796	#endif
	2797	#ifdef I_MNTENT
	2798	# include <mntent.h> /* for getmntent() */
	2799	#endif
	2800
	2801	#endif /* IAMSUID */
	2802
	2803	/* and finally... */
	2804	#define PERL_PATCHLEVEL_H_IMPLICIT
	2805	#include "patchlevel.h"
	2806	#undef PERL_PATCHLEVEL_H_IMPLICIT
	2807
	2808	#endif /* Include guard */