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