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