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