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