This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
integrate cfgperl contents
[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 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 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 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 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 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 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 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 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 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 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 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 602# ifdef HAS_MEMSET
603# define memzero(d,l) memset(d,0,l)
79072805 604# else
c635e13b 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 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 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 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 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 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 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 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 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 1149# endif
1150#endif
99abf803 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 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 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 1174# endif
1175#endif
1176
27d4fb96 1177#ifdef SHORT_MAX
99abf803 1178# define PERL_SHORT_MAX ((short)SHORT_MAX)
27d4fb96 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 1188# endif
1189#endif
1190
1191#ifdef SHORT_MIN
99abf803 1192# define PERL_SHORT_MIN ((short)SHORT_MIN)
27d4fb96 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 1202# endif
1203#endif
1204
99abf803 1205#ifdef UINT_MAX
1206# define PERL_UINT_MAX ((unsigned int)UINT_MAX)
27d4fb96 1207#else
99abf803 1208# ifdef MAXUINT
1209# define PERL_UINT_MAX ((unsigned int)MAXUINT)
27d4fb96 1210# else
99abf803 1211# define PERL_UINT_MAX (~(unsigned int)0)
27d4fb96 1212# endif
1213#endif
1214
99abf803 1215#define PERL_UINT_MIN ((unsigned int)0)
27d4fb96 1216
1217#ifdef INT_MAX
99abf803 1218# define PERL_INT_MAX ((int)INT_MAX)
27d4fb96 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 1224# endif
1225#endif
1226
1227#ifdef INT_MIN
99abf803 1228# define PERL_INT_MIN ((int)INT_MIN)
27d4fb96 1229#else
1230# ifdef MININT
99abf803 1231# define PERL_INT_MIN ((int)MININT)
27d4fb96 1232# else
1233# define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3))
1234# endif
1235#endif
1236
99abf803 1237#ifdef ULONG_MAX
1238# define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
27d4fb96 1239#else
99abf803 1240# ifdef MAXULONG
1241# define PERL_ULONG_MAX ((unsigned long)MAXULONG)
27d4fb96 1242# else
99abf803 1243# define PERL_ULONG_MAX (~(unsigned long)0)
27d4fb96 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 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 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 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 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
PG		 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 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 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 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 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 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 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 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 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"
79072805
LW		 1713#include "op.h"
1714#include "cop.h"
1715#include "av.h"
1716#include "hv.h"
1717#include "mg.h"
1718#include "scope.h"
599cee73 1719#include "warning.h"
a0ed51b3 1720#include "utf8.h"
8d063cd8 1721
7fae4e64
GS		 1722/* Current curly descriptor */
1723typedef struct curcur CURCUR;
1724struct curcur {
1725 int parenfloor; /* how far back to strip paren data */
1726 int cur; /* how many instances of scan we've matched */
1727 int min; /* the minimal number of scans to match */
1728 int max; /* the maximal number of scans to match */
1729 int minmod; /* whether to work our way up or down */
1730 regnode * scan; /* the thing to match */
1731 regnode * next; /* what has to match after it */
1732 char * lastloc; /* where we started matching this scan */
1733 CURCUR * oldcc; /* current curly before we started this one */
1734};
1735
1736typedef struct _sublex_info SUBLEXINFO;
1737struct _sublex_info {
1738 I32 super_state; /* lexer state to save */
1739 I32 sub_inwhat; /* "lex_inwhat" to use */
1740 OP *sub_op; /* "lex_op" to use */
0244c3a4
GS		 1741 char *super_bufptr; /* PL_bufptr that was */
1742 char *super_bufend; /* PL_bufend that was */
7fae4e64
GS		 1743};
1744
455ece5e 1745typedef struct magic_state MGS; /* struct magic_state defined in mg.c */
76e3520e 1746
2c2d71f5 1747struct scan_data_t; /* Used in S_* functions in regcomp.c */
76e3520e
GS		 1748
1749typedef I32 CHECKPOINT;
76e3520e 1750
450a55e4 1751#if defined(iAPX286) || defined(M_I286) || defined(I80286)
a687059c
LW		 1752# define I286
1753#endif
1754
fe14fcc3
LW		 1755#if defined(htonl) && !defined(HAS_HTONL)
1756#define HAS_HTONL
ae986130 1757#endif
fe14fcc3
LW		 1758#if defined(htons) && !defined(HAS_HTONS)
1759#define HAS_HTONS
ae986130 1760#endif
fe14fcc3
LW		 1761#if defined(ntohl) && !defined(HAS_NTOHL)
1762#define HAS_NTOHL
ae986130 1763#endif
fe14fcc3
LW		 1764#if defined(ntohs) && !defined(HAS_NTOHS)
1765#define HAS_NTOHS
ae986130 1766#endif
fe14fcc3 1767#ifndef HAS_HTONL
d9d8d8de 1768#if (BYTEORDER & 0xffff) != 0x4321
fe14fcc3
LW		 1769#define HAS_HTONS
1770#define HAS_HTONL
1771#define HAS_NTOHS
1772#define HAS_NTOHL
a687059c
LW		 1773#define MYSWAP
1774#define htons my_swap
1775#define htonl my_htonl
1776#define ntohs my_swap
1777#define ntohl my_ntohl
1778#endif
1779#else
d9d8d8de 1780#if (BYTEORDER & 0xffff) == 0x4321
fe14fcc3
LW		 1781#undef HAS_HTONS
1782#undef HAS_HTONL
1783#undef HAS_NTOHS
1784#undef HAS_NTOHL
a687059c
LW		 1785#endif
1786#endif
1787
988174c1
LW		 1788/*
1789 * Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'.
1790 * -DWS
1791 */
1792#if BYTEORDER != 0x1234
1793# define HAS_VTOHL
1794# define HAS_VTOHS
1795# define HAS_HTOVL
1796# define HAS_HTOVS
c67712b2 1797# if BYTEORDER == 0x4321 || BYTEORDER == 0x87654321
988174c1
LW		 1798# define vtohl(x) ((((x)&0xFF)<<24) \
1799 +(((x)>>24)&0xFF) \
1800 +(((x)&0x0000FF00)<<8) \
1801 +(((x)&0x00FF0000)>>8) )
1802# define vtohs(x) ((((x)&0xFF)<<8) + (((x)>>8)&0xFF))
1803# define htovl(x) vtohl(x)
1804# define htovs(x) vtohs(x)
1805# endif
1806 /* otherwise default to functions in util.c */
1807#endif
1808
0f85fab0 1809#ifdef CASTNEGFLOAT
79072805 1810#define U_S(what) ((U16)(what))
0f85fab0 1811#define U_I(what) ((unsigned int)(what))
79072805 1812#define U_L(what) ((U32)(what))
0f85fab0 1813#else
65202027
DS		 1814#define U_S(what) ((U16)cast_ulong((NV)(what)))
1815#define U_I(what) ((unsigned int)cast_ulong((NV)(what)))
1816#define U_L(what) (cast_ulong((NV)(what)))
ee0007ab
LW		 1817#endif
1818
ed6116ce
LW		 1819#ifdef CASTI32
1820#define I_32(what) ((I32)(what))
a0d0e21e 1821#define I_V(what) ((IV)(what))
5d94fbed 1822#define U_V(what) ((UV)(what))
ed6116ce 1823#else
65202027
DS		 1824#define I_32(what) (cast_i32((NV)(what)))
1825#define I_V(what) (cast_iv((NV)(what)))
1826#define U_V(what) (cast_uv((NV)(what)))
ed6116ce
LW		 1827#endif
1828
25da4f38
IZ		 1829/* Used with UV/IV arguments: */
1830 /* XXXX: need to speed it up */
1831#define CLUMP_2UV(iv) ((iv) < 0 ? 0 : (UV)(iv))
1832#define CLUMP_2IV(uv) ((uv) > (UV)IV_MAX ? IV_MAX : (IV)(uv))
1833
79072805
LW		 1834struct Outrec {
1835 I32 o_lines;
d9d8d8de 1836 char *o_str;
79072805 1837 U32 o_len;
8d063cd8
LW		 1838};
1839
352d5a3a
LW		 1840#ifndef MAXSYSFD
1841# define MAXSYSFD 2
1842#endif
ee0007ab 1843
f82b3d41 1844#ifndef TMPPATH
1845# define TMPPATH "/tmp/perl-eXXXXXX"
a0d0e21e 1846#endif
79072805
LW		 1847
1848#ifndef __cplusplus
20ce7b12
GS		 1849Uid_t getuid (void);
1850Uid_t geteuid (void);
1851Gid_t getgid (void);
1852Gid_t getegid (void);
79072805 1853#endif
8d063cd8 1854
0c30d9ec 1855#ifndef Perl_debug_log
760ac839 1856#define Perl_debug_log PerlIO_stderr()
0c30d9ec 1857#endif
3967c732
JD		 1858
1859#ifdef DEBUGGING
9d116dd7 1860#undef YYDEBUG
d96024cf 1861#define YYDEBUG 1
79072805 1862#define DEB(a) a
3280af22
NIS		 1863#define DEBUG(a) if (PL_debug) a
1864#define DEBUG_p(a) if (PL_debug & 1) a
1865#define DEBUG_s(a) if (PL_debug & 2) a
1866#define DEBUG_l(a) if (PL_debug & 4) a
1867#define DEBUG_t(a) if (PL_debug & 8) a
1868#define DEBUG_o(a) if (PL_debug & 16) a
1869#define DEBUG_c(a) if (PL_debug & 32) a
1870#define DEBUG_P(a) if (PL_debug & 64) a
0672f40e 1871# if defined(PERL_OBJECT)
c850101c
JD		 1872# define DEBUG_m(a) if (PL_debug & 128) a
1873# else
c5be433b 1874# define DEBUG_m(a) if (PERL_GET_INTERP && PL_debug & 128) a
c850101c 1875# endif
3280af22
NIS		 1876#define DEBUG_f(a) if (PL_debug & 256) a
1877#define DEBUG_r(a) if (PL_debug & 512) a
1878#define DEBUG_x(a) if (PL_debug & 1024) a
1879#define DEBUG_u(a) if (PL_debug & 2048) a
1880#define DEBUG_L(a) if (PL_debug & 4096) a
1881#define DEBUG_H(a) if (PL_debug & 8192) a
1882#define DEBUG_X(a) if (PL_debug & 16384) a
1883#define DEBUG_D(a) if (PL_debug & 32768) a
8b73bbec
IZ		 1884# ifdef USE_THREADS
1885# define DEBUG_S(a) if (PL_debug & (1<<16)) a
1886# else
1887# define DEBUG_S(a)
1888# endif
79072805
LW		 1889#else
1890#define DEB(a)
1891#define DEBUG(a)
1892#define DEBUG_p(a)
1893#define DEBUG_s(a)
1894#define DEBUG_l(a)
1895#define DEBUG_t(a)
1896#define DEBUG_o(a)
1897#define DEBUG_c(a)
1898#define DEBUG_P(a)
1899#define DEBUG_m(a)
1900#define DEBUG_f(a)
1901#define DEBUG_r(a)
1902#define DEBUG_x(a)
1903#define DEBUG_u(a)
8b73bbec 1904#define DEBUG_S(a)
79072805
LW		 1905#define DEBUG_H(a)
1906#define DEBUG_X(a)
8990e307 1907#define DEBUG_D(a)
8b73bbec 1908#define DEBUG_S(a)
8d063cd8 1909#endif
fe14fcc3 1910#define YYMAXDEPTH 300
8d063cd8 1911
a6e633de 1912#ifndef assert /* <assert.h> might have been included somehow */
79072805
LW		 1913#define assert(what) DEB( { \
1914 if (!(what)) { \
cea2e8a9 1915 Perl_croak(aTHX_ "Assertion failed: file \"%s\", line %d", \
79072805 1916 __FILE__, __LINE__); \
cea2e8a9 1917 PerlProc_exit(1); \
79072805 1918 }})
a6e633de 1919#endif
8d063cd8 1920
450a55e4 1921struct ufuncs {
20ce7b12
GS		 1922 I32 (*uf_val)(IV, SV*);
1923 I32 (*uf_set)(IV, SV*);
a0d0e21e 1924 IV uf_index;
450a55e4
LW		 1925};
1926
fe14fcc3 1927/* Fix these up for __STDC__ */
68dc0745 1928#ifndef DONT_DECLARE_STD
20ce7b12
GS		 1929char *mktemp (char*);
1930double atof (const char*);
a0d0e21e 1931#endif
79072805 1932
352d5a3a 1933#ifndef STANDARD_C
fe14fcc3 1934/* All of these are in stdlib.h or time.h for ANSI C */
85e6fe83 1935Time_t time();
8d063cd8 1936struct tm *gmtime(), *localtime();
092bebab 1937#if defined(OEMVS) || defined(__OPEN_VM)
9d116dd7
JH		 1938char *(strchr)(), *(strrchr)();
1939char *(strcpy)(), *(strcat)();
1940#else
93a17b20 1941char *strchr(), *strrchr();
378cc40b 1942char *strcpy(), *strcat();
9d116dd7 1943#endif
352d5a3a 1944#endif /* ! STANDARD_C */
8d063cd8 1945
79072805
LW		 1946
1947#ifdef I_MATH
1948# include <math.h>
1949#else
32f822de 1950START_EXTERN_C
20ce7b12
GS		 1951 double exp (double);
1952 double log (double);
1953 double log10 (double);
1954 double sqrt (double);
1955 double frexp (double,int*);
1956 double ldexp (double,int);
1957 double modf (double,double*);
1958 double sin (double);
1959 double cos (double);
1960 double atan2 (double,double);
1961 double pow (double,double);
32f822de 1962END_EXTERN_C
79072805
LW		 1963#endif
1964
a0d0e21e 1965#ifndef __cplusplus
8f1f23e8 1966# if defined(NeXT) || defined(__NeXT__) /* or whatever catches all NeXTs */
3fc1aec6 1967char *crypt (); /* Maybe more hosts will need the unprototyped version */
26618a56
GS		 1968# else
1969# if !defined(WIN32) || !defined(HAVE_DES_FCRYPT)
20ce7b12 1970char *crypt (const char*, const char*);
26618a56 1971# endif /* !WIN32 && !HAVE_CRYPT_SOURCE */
8f1f23e8 1972# endif /* !NeXT && !__NeXT__ */
26618a56
GS		 1973# ifndef DONT_DECLARE_STD
1974# ifndef getenv
20ce7b12 1975char *getenv (const char*);
26618a56 1976# endif /* !getenv */
4d2c4e07 1977#ifndef EPOC
20ce7b12 1978Off_t lseek (int,Off_t,int);
4d2c4e07 1979#endif
26618a56 1980# endif /* !DONT_DECLARE_STD */
20ce7b12 1981char *getlogin (void);
26618a56 1982#endif /* !__cplusplus */
79072805 1983
16d20bd9 1984#ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */
378cc40b 1985#define UNLINK unlnk
20ce7b12 1986I32 unlnk (char*);
8d063cd8 1987#else
80252599 1988#define UNLINK PerlLIO_unlink
8d063cd8 1989#endif
a687059c 1990
fe14fcc3 1991#ifndef HAS_SETREUID
85e6fe83
LW		 1992# ifdef HAS_SETRESUID
1993# define setreuid(r,e) setresuid(r,e,(Uid_t)-1)
1994# define HAS_SETREUID
1995# endif
a687059c 1996#endif
fe14fcc3 1997#ifndef HAS_SETREGID
85e6fe83
LW		 1998# ifdef HAS_SETRESGID
1999# define setregid(r,e) setresgid(r,e,(Gid_t)-1)
2000# define HAS_SETREGID
2001# endif
a687059c 2002#endif
ee0007ab 2003
20ce7b12 2004typedef Signal_t (*Sighandler_t) (int);
ff68c719 2005
2006#ifdef HAS_SIGACTION
2007typedef struct sigaction Sigsave_t;
2008#else
2009typedef Sighandler_t Sigsave_t;
2010#endif
2011
ee0007ab
LW		 2012#define SCAN_DEF 0
2013#define SCAN_TR 1
2014#define SCAN_REPL 2
79072805
LW		 2015
2016#ifdef DEBUGGING
4633a7c4 2017# ifndef register
a0d0e21e
LW		 2018# define register
2019# endif
2020# define PAD_SV(po) pad_sv(po)
cea2e8a9 2021# define RUNOPS_DEFAULT Perl_runops_debug
79072805 2022#else
6b88bc9c 2023# define PAD_SV(po) PL_curpad[po]
cea2e8a9 2024# define RUNOPS_DEFAULT Perl_runops_standard
79072805
LW		 2025#endif
2026
18f739ee 2027#ifdef MYMALLOC
772fe5b3 2028# ifdef MUTEX_INIT_CALLS_MALLOC
3541dd58
HM		 2029# define MALLOC_INIT \
2030 STMT_START { \
2031 PL_malloc_mutex = NULL; \
2032 MUTEX_INIT(&PL_malloc_mutex); \
2033 } STMT_END
2034# define MALLOC_TERM \
2035 STMT_START { \
2036 perl_mutex tmp = PL_malloc_mutex; \
2037 PL_malloc_mutex = NULL; \
2038 MUTEX_DESTROY(&tmp); \
2039 } STMT_END
2040# else
2041# define MALLOC_INIT MUTEX_INIT(&PL_malloc_mutex)
2042# define MALLOC_TERM MUTEX_DESTROY(&PL_malloc_mutex)
2043# endif
18f739ee
IZ		 2044#else
2045# define MALLOC_INIT
2046# define MALLOC_TERM
2047#endif
2048
b6d9d515 2049
0cb96387
GS		 2050typedef int (CPERLscope(*runops_proc_t)) (pTHX);
2051typedef OP* (CPERLscope(*PPADDR_t)[]) (pTHX);
22c35a8c 2052
940cb80d 2053/* _ (for $_) must be first in the following list (DEFSV requires it) */
54b9620d 2054#define THREADSV_NAMES "_123456789&`'+/.,\\\";^-%=|~:\001\005!@"
a863c7d1 2055
8f1f23e8
W		 2056/* NeXT has problems with crt0.o globals */
2057#if defined(__DYNAMIC__) && \
2058 (defined(NeXT) || defined(__NeXT__) || defined(__APPLE__))
2059# if defined(NeXT) || defined(__NeXT)
2060# include <mach-o/dyld.h>
2061# define environ (*environ_pointer)
0c30d9ec 2062EXT char *** environ_pointer;
8f1f23e8
W		 2063# else
2064# if defined(__APPLE__)
2065# include <crt_externs.h> /* for the env array */
2066# define environ (*_NSGetEnviron())
2067# endif
0c30d9ec 2068# endif
8f1f23e8
W		 2069#else
2070 /* VMS and some other platforms don't use the environ array */
a6c40364
GS		 2071# if !defined(VMS)
2072# if !defined(DONT_DECLARE_STD) || \
2073 (defined(__svr4__) && defined(__GNUC__) && defined(sun)) || \
2074 defined(__sgi) || \
4d2c4e07 2075 defined(__DGUX) || defined(EPOC)
8f1f23e8 2076extern char ** environ; /* environment variables supplied via exec */
a6c40364 2077# endif
8f1f23e8
W		 2078# endif
2079#endif
79072805 2080
73c4f7a1
GS		 2081START_EXTERN_C
2082
79072805 2083/* handy constants */
22c35a8c 2084EXTCONST char PL_warn_uninit[]
a0d0e21e 2085 INIT("Use of uninitialized value");
22c35a8c 2086EXTCONST char PL_warn_nosemi[]
463ee0b2 2087 INIT("Semicolon seems to be missing");
22c35a8c 2088EXTCONST char PL_warn_reserved[]
463ee0b2 2089 INIT("Unquoted string \"%s\" may clash with future reserved word");
22c35a8c 2090EXTCONST char PL_warn_nl[]
93a17b20 2091 INIT("Unsuccessful %s on filename containing newline");
22c35a8c 2092EXTCONST char PL_no_wrongref[]
a0d0e21e 2093 INIT("Can't use %s ref as %s ref");
22c35a8c 2094EXTCONST char PL_no_symref[]
748a9306 2095 INIT("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use");
22c35a8c 2096EXTCONST char PL_no_usym[]
8990e307 2097 INIT("Can't use an undefined value as %s reference");
22c35a8c 2098EXTCONST char PL_no_aelem[]
93a17b20 2099 INIT("Modification of non-creatable array value attempted, subscript %d");
22c35a8c 2100EXTCONST char PL_no_helem[]
93a17b20 2101 INIT("Modification of non-creatable hash value attempted, subscript \"%s\"");
22c35a8c 2102EXTCONST char PL_no_modify[]
93a17b20 2103 INIT("Modification of a read-only value attempted");
22c35a8c 2104EXTCONST char PL_no_mem[]
93a17b20 2105 INIT("Out of memory!\n");
22c35a8c 2106EXTCONST char PL_no_security[]
463ee0b2 2107 INIT("Insecure dependency in %s%s");
22c35a8c 2108EXTCONST char PL_no_sock_func[]
93a17b20 2109 INIT("Unsupported socket function \"%s\" called");
22c35a8c 2110EXTCONST char PL_no_dir_func[]
93a17b20 2111 INIT("Unsupported directory function \"%s\" called");
22c35a8c 2112EXTCONST char PL_no_func[]
93a17b20 2113 INIT("The %s function is unimplemented");
22c35a8c 2114EXTCONST char PL_no_myglob[]
748a9306 2115 INIT("\"my\" variable %s can't be in a package");
93a17b20 2116
7575fa06 2117EXTCONST char PL_uuemap[65]
80252599
GS		 2118 INIT("`!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_");
2119
2120
79072805 2121#ifdef DOINIT
22c35a8c
GS		 2122EXT char *PL_sig_name[] = { SIG_NAME };
2123EXT int PL_sig_num[] = { SIG_NUM };
2124EXT SV * PL_psig_ptr[sizeof(PL_sig_num)/sizeof(*PL_sig_num)];
2125EXT SV * PL_psig_name[sizeof(PL_sig_num)/sizeof(*PL_sig_num)];
79072805 2126#else
22c35a8c
GS		 2127EXT char *PL_sig_name[];
2128EXT int PL_sig_num[];
2129EXT SV * PL_psig_ptr[];
2130EXT SV * PL_psig_name[];
79072805
LW		 2131#endif
2132
bbce6d69 2133/* fast case folding tables */
2134
79072805 2135#ifdef DOINIT
9d116dd7 2136#ifdef EBCDIC
22c35a8c 2137EXT unsigned char PL_fold[] = { /* fast EBCDIC case folding table */
9d116dd7
JH		 2138 0, 1, 2, 3, 4, 5, 6, 7,
2139 8, 9, 10, 11, 12, 13, 14, 15,
2140 16, 17, 18, 19, 20, 21, 22, 23,
2141 24, 25, 26, 27, 28, 29, 30, 31,
2142 32, 33, 34, 35, 36, 37, 38, 39,
2143 40, 41, 42, 43, 44, 45, 46, 47,
2144 48, 49, 50, 51, 52, 53, 54, 55,
2145 56, 57, 58, 59, 60, 61, 62, 63,
2146 64, 65, 66, 67, 68, 69, 70, 71,
2147 72, 73, 74, 75, 76, 77, 78, 79,
2148 80, 81, 82, 83, 84, 85, 86, 87,
2149 88, 89, 90, 91, 92, 93, 94, 95,
2150 96, 97, 98, 99, 100, 101, 102, 103,
2151 104, 105, 106, 107, 108, 109, 110, 111,
2152 112, 113, 114, 115, 116, 117, 118, 119,
2153 120, 121, 122, 123, 124, 125, 126, 127,
2154 128, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
2155 'H', 'I', 138, 139, 140, 141, 142, 143,
2156 144, 'J', 'K', 'L', 'M', 'N', 'O', 'P',
2157 'Q', 'R', 154, 155, 156, 157, 158, 159,
2158 160, 161, 'S', 'T', 'U', 'V', 'W', 'X',
2159 'Y', 'Z', 170, 171, 172, 173, 174, 175,
2160 176, 177, 178, 179, 180, 181, 182, 183,
2161 184, 185, 186, 187, 188, 189, 190, 191,
2162 192, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
2163 'h', 'i', 202, 203, 204, 205, 206, 207,
2164 208, 'j', 'k', 'l', 'm', 'n', 'o', 'p',
2165 'q', 'r', 218, 219, 220, 221, 222, 223,
2166 224, 225, 's', 't', 'u', 'v', 'w', 'x',
2167 'y', 'z', 234, 235, 236, 237, 238, 239,
2168 240, 241, 242, 243, 244, 245, 246, 247,
2169 248, 249, 250, 251, 252, 253, 254, 255
2170};
2171#else /* ascii rather than ebcdic */
22c35a8c 2172EXTCONST unsigned char PL_fold[] = {
79072805
LW		 2173 0, 1, 2, 3, 4, 5, 6, 7,
2174 8, 9, 10, 11, 12, 13, 14, 15,
2175 16, 17, 18, 19, 20, 21, 22, 23,
2176 24, 25, 26, 27, 28, 29, 30, 31,
2177 32, 33, 34, 35, 36, 37, 38, 39,
2178 40, 41, 42, 43, 44, 45, 46, 47,
2179 48, 49, 50, 51, 52, 53, 54, 55,
2180 56, 57, 58, 59, 60, 61, 62, 63,
2181 64, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
2182 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
2183 'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
2184 'x', 'y', 'z', 91, 92, 93, 94, 95,
2185 96, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
2186 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
2187 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
2188 'X', 'Y', 'Z', 123, 124, 125, 126, 127,
2189 128, 129, 130, 131, 132, 133, 134, 135,
2190 136, 137, 138, 139, 140, 141, 142, 143,
2191 144, 145, 146, 147, 148, 149, 150, 151,
2192 152, 153, 154, 155, 156, 157, 158, 159,
2193 160, 161, 162, 163, 164, 165, 166, 167,
2194 168, 169, 170, 171, 172, 173, 174, 175,
2195 176, 177, 178, 179, 180, 181, 182, 183,
2196 184, 185, 186, 187, 188, 189, 190, 191,
2197 192, 193, 194, 195, 196, 197, 198, 199,
2198 200, 201, 202, 203, 204, 205, 206, 207,
2199 208, 209, 210, 211, 212, 213, 214, 215,
2200 216, 217, 218, 219, 220, 221, 222, 223,
2201 224, 225, 226, 227, 228, 229, 230, 231,
2202 232, 233, 234, 235, 236, 237, 238, 239,
2203 240, 241, 242, 243, 244, 245, 246, 247,
2204 248, 249, 250, 251, 252, 253, 254, 255
2205};
9d116dd7 2206#endif /* !EBCDIC */
79072805 2207#else
22c35a8c 2208EXTCONST unsigned char PL_fold[];
79072805
LW		 2209#endif
2210
2211#ifdef DOINIT
22c35a8c 2212EXT unsigned char PL_fold_locale[] = {
79072805
LW		 2213 0, 1, 2, 3, 4, 5, 6, 7,
2214 8, 9, 10, 11, 12, 13, 14, 15,
2215 16, 17, 18, 19, 20, 21, 22, 23,
2216 24, 25, 26, 27, 28, 29, 30, 31,
2217 32, 33, 34, 35, 36, 37, 38, 39,
2218 40, 41, 42, 43, 44, 45, 46, 47,
2219 48, 49, 50, 51, 52, 53, 54, 55,
2220 56, 57, 58, 59, 60, 61, 62, 63,
2221 64, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
2222 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
2223 'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
2224 'x', 'y', 'z', 91, 92, 93, 94, 95,
2225 96, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
2226 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
2227 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
2228 'X', 'Y', 'Z', 123, 124, 125, 126, 127,
2229 128, 129, 130, 131, 132, 133, 134, 135,
2230 136, 137, 138, 139, 140, 141, 142, 143,
2231 144, 145, 146, 147, 148, 149, 150, 151,
2232 152, 153, 154, 155, 156, 157, 158, 159,
2233 160, 161, 162, 163, 164, 165, 166, 167,
2234 168, 169, 170, 171, 172, 173, 174, 175,
2235 176, 177, 178, 179, 180, 181, 182, 183,
2236 184, 185, 186, 187, 188, 189, 190, 191,
2237 192, 193, 194, 195, 196, 197, 198, 199,
2238 200, 201, 202, 203, 204, 205, 206, 207,
2239 208, 209, 210, 211, 212, 213, 214, 215,
2240 216, 217, 218, 219, 220, 221, 222, 223,
2241 224, 225, 226, 227, 228, 229, 230, 231,
2242 232, 233, 234, 235, 236, 237, 238, 239,
2243 240, 241, 242, 243, 244, 245, 246, 247,
2244 248, 249, 250, 251, 252, 253, 254, 255
2245};
2246#else
22c35a8c 2247EXT unsigned char PL_fold_locale[];
79072805
LW		 2248#endif
2249
2250#ifdef DOINIT
9d116dd7 2251#ifdef EBCDIC
22c35a8c 2252EXT unsigned char PL_freq[] = {/* EBCDIC frequencies for mixed English/C */
9d116dd7
JH		 2253 1, 2, 84, 151, 154, 155, 156, 157,
2254 165, 246, 250, 3, 158, 7, 18, 29,
2255 40, 51, 62, 73, 85, 96, 107, 118,
2256 129, 140, 147, 148, 149, 150, 152, 153,
2257 255, 6, 8, 9, 10, 11, 12, 13,
2258 14, 15, 24, 25, 26, 27, 28, 226,
2259 29, 30, 31, 32, 33, 43, 44, 45,
2260 46, 47, 48, 49, 50, 76, 77, 78,
2261 79, 80, 81, 82, 83, 84, 85, 86,
2262 87, 94, 95, 234, 181, 233, 187, 190,
2263 180, 96, 97, 98, 99, 100, 101, 102,
2264 104, 112, 182, 174, 236, 232, 229, 103,
2265 228, 226, 114, 115, 116, 117, 118, 119,
2266 120, 121, 122, 235, 176, 230, 194, 162,
2267 130, 131, 132, 133, 134, 135, 136, 137,
2268 138, 139, 201, 205, 163, 217, 220, 224,
2269 5, 248, 227, 244, 242, 255, 241, 231,
2270 240, 253, 16, 197, 19, 20, 21, 187,
2271 23, 169, 210, 245, 237, 249, 247, 239,
2272 168, 252, 34, 196, 36, 37, 38, 39,
2273 41, 42, 251, 254, 238, 223, 221, 213,
2274 225, 177, 52, 53, 54, 55, 56, 57,
2275 58, 59, 60, 61, 63, 64, 65, 66,
2276 67, 68, 69, 70, 71, 72, 74, 75,
2277 205, 208, 186, 202, 200, 218, 198, 179,
2278 178, 214, 88, 89, 90, 91, 92, 93,
2279 217, 166, 170, 207, 199, 209, 206, 204,
2280 160, 212, 105, 106, 108, 109, 110, 111,
2281 203, 113, 216, 215, 192, 175, 193, 243,
2282 172, 161, 123, 124, 125, 126, 127, 128,
2283 222, 219, 211, 195, 188, 193, 185, 184,
2284 191, 183, 141, 142, 143, 144, 145, 146
2285};
2286#else /* ascii rather than ebcdic */
22c35a8c 2287EXTCONST unsigned char PL_freq[] = { /* letter frequencies for mixed English/C */
79072805
LW		 2288 1, 2, 84, 151, 154, 155, 156, 157,
2289 165, 246, 250, 3, 158, 7, 18, 29,
2290 40, 51, 62, 73, 85, 96, 107, 118,
2291 129, 140, 147, 148, 149, 150, 152, 153,
2292 255, 182, 224, 205, 174, 176, 180, 217,
2293 233, 232, 236, 187, 235, 228, 234, 226,
2294 222, 219, 211, 195, 188, 193, 185, 184,
2295 191, 183, 201, 229, 181, 220, 194, 162,
2296 163, 208, 186, 202, 200, 218, 198, 179,
2297 178, 214, 166, 170, 207, 199, 209, 206,
2298 204, 160, 212, 216, 215, 192, 175, 173,
2299 243, 172, 161, 190, 203, 189, 164, 230,
2300 167, 248, 227, 244, 242, 255, 241, 231,
2301 240, 253, 169, 210, 245, 237, 249, 247,
2302 239, 168, 252, 251, 254, 238, 223, 221,
2303 213, 225, 177, 197, 171, 196, 159, 4,
2304 5, 6, 8, 9, 10, 11, 12, 13,
2305 14, 15, 16, 17, 19, 20, 21, 22,
2306 23, 24, 25, 26, 27, 28, 30, 31,
2307 32, 33, 34, 35, 36, 37, 38, 39,
2308 41, 42, 43, 44, 45, 46, 47, 48,
2309 49, 50, 52, 53, 54, 55, 56, 57,
2310 58, 59, 60, 61, 63, 64, 65, 66,
2311 67, 68, 69, 70, 71, 72, 74, 75,
2312 76, 77, 78, 79, 80, 81, 82, 83,
2313 86, 87, 88, 89, 90, 91, 92, 93,
2314 94, 95, 97, 98, 99, 100, 101, 102,
2315 103, 104, 105, 106, 108, 109, 110, 111,
2316 112, 113, 114, 115, 116, 117, 119, 120,
2317 121, 122, 123, 124, 125, 126, 127, 128,
2318 130, 131, 132, 133, 134, 135, 136, 137,
2319 138, 139, 141, 142, 143, 144, 145, 146
2320};
9d116dd7 2321#endif
79072805 2322#else
22c35a8c 2323EXTCONST unsigned char PL_freq[];
79072805
LW		 2324#endif
2325
8990e307
LW		 2326#ifdef DEBUGGING
2327#ifdef DOINIT
22c35a8c 2328EXTCONST char* PL_block_type[] = {
8990e307
LW		 2329 "NULL",
2330 "SUB",
2331 "EVAL",
2332 "LOOP",
2333 "SUBST",
2334 "BLOCK",
2335};
2336#else
22c35a8c 2337EXTCONST char* PL_block_type[];
8990e307
LW		 2338#endif
2339#endif
2340
73c4f7a1
GS		 2341END_EXTERN_C
2342
79072805
LW		 2343/*****************************************************************************/
2344/* This lexer/parser stuff is currently global since yacc is hard to reenter */
2345/*****************************************************************************/
8990e307 2346/* XXX This needs to be revisited, since BEGIN makes yacc re-enter... */
79072805 2347
a0d0e21e
LW		 2348#include "perly.h"
2349
fb73857a 2350#define LEX_NOTPARSING 11 /* borrowed from toke.c */
2351
79072805
LW		 2352typedef enum {
2353 XOPERATOR,
2354 XTERM,
79072805 2355 XREF,
8990e307 2356 XSTATE,
a0d0e21e
LW		 2357 XBLOCK,
2358 XTERMBLOCK
79072805
LW		 2359} expectation;
2360
dc9e4912
GS		 2361enum { /* pass one of these to get_vtbl */
2362 want_vtbl_sv,
2363 want_vtbl_env,
2364 want_vtbl_envelem,
2365 want_vtbl_sig,
2366 want_vtbl_sigelem,
2367 want_vtbl_pack,
2368 want_vtbl_packelem,
2369 want_vtbl_dbline,
2370 want_vtbl_isa,
2371 want_vtbl_isaelem,
2372 want_vtbl_arylen,
2373 want_vtbl_glob,
2374 want_vtbl_mglob,
2375 want_vtbl_nkeys,
2376 want_vtbl_taint,
2377 want_vtbl_substr,
2378 want_vtbl_vec,
2379 want_vtbl_pos,
2380 want_vtbl_bm,
2381 want_vtbl_fm,
2382 want_vtbl_uvar,
2383 want_vtbl_defelem,
2384 want_vtbl_regexp,
2385 want_vtbl_collxfrm,
2386 want_vtbl_amagic,
2387 want_vtbl_amagicelem,
2388#ifdef USE_THREADS
2389 want_vtbl_mutex,
2390#endif
2391 want_vtbl_regdata,
810b8aa5
GS		 2392 want_vtbl_regdatum,
2393 want_vtbl_backref
dc9e4912
GS		 2394};
2395
85e6fe83
LW		 2396 /* Note: the lowest 8 bits are reserved for
2397 stuffing into op->op_private */
f3aa04c2 2398#define HINT_PRIVATE_MASK 0x000000ff
85e6fe83
LW		 2399#define HINT_INTEGER 0x00000001
2400#define HINT_STRICT_REFS 0x00000002
a0ed51b3
LW		 2401/* #define HINT_notused4 0x00000004 */
2402#define HINT_UTF8 0x00000008
2403/* #define HINT_notused10 0x00000010 */
2404 /* Note: 20,40,80 used for NATIVE_HINTS */
85e6fe83
LW		 2405
2406#define HINT_BLOCK_SCOPE 0x00000100
2407#define HINT_STRICT_SUBS 0x00000200
2408#define HINT_STRICT_VARS 0x00000400
bbce6d69 2409#define HINT_LOCALE 0x00000800
85e6fe83 2410
b3ac6de7
IZ		 2411#define HINT_NEW_INTEGER 0x00001000
2412#define HINT_NEW_FLOAT 0x00002000
2413#define HINT_NEW_BINARY 0x00004000
2414#define HINT_NEW_STRING 0x00008000
2415#define HINT_NEW_RE 0x00010000
2416#define HINT_LOCALIZE_HH 0x00020000 /* %^H needs to be copied */
2417
b3eb6a9b 2418#define HINT_RE_TAINT 0x00100000
e4d48cc9 2419#define HINT_RE_EVAL 0x00200000
b3eb6a9b 2420
5ff3f7a4
GS		 2421#define HINT_FILETEST_ACCESS 0x00400000
2422
d4cce5f1
NIS		 2423/* Various states of an input record separator SV (rs, nrs) */
2424#define RsSNARF(sv) (! SvOK(sv))
af7d13df
MG		 2425#define RsSIMPLE(sv) (SvOK(sv) && (! SvPOK(sv) || SvCUR(sv)))
2426#define RsPARA(sv) (SvPOK(sv) && ! SvCUR(sv))
5b2b9c68 2427#define RsRECORD(sv) (SvROK(sv) && (SvIV(SvRV(sv)) > 0))
79072805 2428
56953603 2429/* Enable variables which are pointers to functions */
0cb96387
GS		 2430typedef regexp*(CPERLscope(*regcomp_t)) (pTHX_ char* exp, char* xend, PMOP* pm);
2431typedef I32 (CPERLscope(*regexec_t)) (pTHX_ regexp* prog, char* stringarg,
2432 char* strend, char* strbeg, I32 minend,
2433 SV* screamer, void* data, U32 flags);
f722798b
IZ		 2434typedef char* (CPERLscope(*re_intuit_start_t)) (pTHX_ regexp *prog, SV *sv,
2435 char *strpos, char *strend,
2436 U32 flags,
2437 struct re_scream_pos_data_s *d);
2438typedef SV* (CPERLscope(*re_intuit_string_t)) (pTHX_ regexp *prog);
2439typedef void (CPERLscope(*regfree_t)) (pTHX_ struct regexp* r);
56953603 2440
51371543
GS		 2441#ifdef USE_PURE_BISON
2442int Perl_yylex(pTHX_ YYSTYPE *lvalp, int *lcharp);
2443#endif
2444
2445typedef void (*DESTRUCTORFUNC_t) (pTHXo_ void*);
2446typedef void (*SVFUNC_t) (pTHXo_ SV*);
2447typedef I32 (*SVCOMPARE_t) (pTHXo_ SV*, SV*);
2448typedef void (*XSINIT_t) (pTHXo);
2449typedef void (*ATEXIT_t) (pTHXo_ void*);
2450typedef void (*XSUBADDR_t) (pTHXo_ CV *);
15e52e56 2451
22239a37
NIS		 2452/* Set up PERLVAR macros for populating structs */
2453#define PERLVAR(var,type) type var;
51371543 2454#define PERLVARA(var,n,type) type var[n];
22239a37 2455#define PERLVARI(var,type,init) type var;
3fe35a81 2456#define PERLVARIC(var,type,init) type var;
22239a37 2457
58a50f62
GS		 2458/* Interpreter exitlist entry */
2459typedef struct exitlistentry {
0cb96387 2460 void (*fn) (pTHXo_ void*);
58a50f62
GS		 2461 void *ptr;
2462} PerlExitListEntry;
2463
76e3520e 2464#ifdef PERL_OBJECT
0cb96387
GS		 2465#undef perl_alloc
2466#define perl_alloc Perl_alloc
2467CPerlObj* Perl_alloc (IPerlMem*, IPerlEnv*, IPerlStdIO*, IPerlLIO*, IPerlDir*, IPerlSock*, IPerlProc*);
76e3520e 2468
76e3520e
GS		 2469#undef EXT
2470#define EXT
2471#undef EXTCONST
2472#define EXTCONST
2473#undef INIT
2474#define INIT(x)
2475
2476class CPerlObj {
2477public:
2478 CPerlObj(IPerlMem*, IPerlEnv*, IPerlStdIO*, IPerlLIO*, IPerlDir*, IPerlSock*, IPerlProc*);
2479 void Init(void);
2480 void* operator new(size_t nSize, IPerlMem *pvtbl);
3075ddba 2481 static void operator delete(void* pPerl, IPerlMem *pvtbl);
76e3520e
GS		 2482#endif /* PERL_OBJECT */
2483
22239a37
NIS		 2484#ifdef PERL_GLOBAL_STRUCT
2485struct perl_vars {
2486#include "perlvars.h"
2487};
2488
2489#ifdef PERL_CORE
533c011a
NIS		 2490EXT struct perl_vars PL_Vars;
2491EXT struct perl_vars *PL_VarsPtr INIT(&PL_Vars);
2492#else /* PERL_CORE */
2c2d71f5 2493#if !defined(__GNUC__) || !(defined(WIN32) || defined(CYGWIN))
22239a37 2494EXT
533c011a
NIS		 2495#endif /* WIN32 */
2496struct perl_vars *PL_VarsPtr;
2497#define PL_Vars (*((PL_VarsPtr) ? PL_VarsPtr : (PL_VarsPtr = Perl_GetVars())))
2498#endif /* PERL_CORE */
22239a37
NIS		 2499#endif /* PERL_GLOBAL_STRUCT */
2500
8990e307 2501#ifdef MULTIPLICITY
d4cce5f1
NIS		 2502/* If we have multiple interpreters define a struct
2503 holding variables which must be per-interpreter
2504 If we don't have threads anything that would have
2505 be per-thread is per-interpreter.
2506*/
2507
79072805 2508struct interpreter {
d4cce5f1 2509#include "thrdvar.h"
d4cce5f1 2510#include "intrpvar.h"
49f531da 2511};
d4cce5f1 2512
79072805 2513#else
49f531da
NIS		 2514struct interpreter {
2515 char broiled;
2516};
79072805
LW		 2517#endif
2518
d4cce5f1
NIS		 2519#ifdef USE_THREADS
2520/* If we have threads define a struct with all the variables
2521 * that have to be per-thread
49f531da 2522 */
8023c3ce 2523
79072805 2524
49f531da 2525struct perl_thread {
49f531da 2526#include "thrdvar.h"
79072805 2527};
d4cce5f1 2528
22fae026
TM		 2529typedef struct perl_thread *Thread;
2530
2531#else
2532typedef void *Thread;
22239a37
NIS		 2533#endif
2534
2535/* Done with PERLVAR macros for now ... */
d4cce5f1 2536#undef PERLVAR
51371543 2537#undef PERLVARA
d4cce5f1 2538#undef PERLVARI
3fe35a81 2539#undef PERLVARIC
79072805 2540
22239a37 2541#include "thread.h"
79072805 2542#include "pp.h"
864dbfa3
GS		 2543
2544#ifndef PERL_CALLCONV
2545# define PERL_CALLCONV
2546#endif
2547
2548#ifdef PERL_OBJECT
2549# define VIRTUAL virtual PERL_CALLCONV
2550#else
2551# define VIRTUAL PERL_CALLCONV
0cb96387 2552/*START_EXTERN_C*/
864dbfa3
GS		 2553#endif
2554
2555#ifndef NEXT30_NO_ATTRIBUTE
2556# ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
2557# ifdef __attribute__ /* Avoid possible redefinition errors */
2558# undef __attribute__
2559# endif
2560# define __attribute__(attr)
2561# endif
2562#endif
2563
0cb96387
GS		 2564#ifdef PERL_OBJECT
2565#define PERL_DECL_PROT
2566#define perl_alloc Perl_alloc
2567#endif
864dbfa3 2568
79072805
LW		 2569#include "proto.h"
2570
0cb96387
GS		 2571#undef PERL_CKDEF
2572#undef PERL_PPDEF
2573#define PERL_CKDEF(s) OP *s (pTHX_ OP *o);
2574#define PERL_PPDEF(s) OP *s (pTHX);
2575#ifdef PERL_OBJECT
2576public:
2577#endif
2578
864dbfa3
GS		 2579#include "pp_proto.h"
2580
0cb96387 2581#ifdef PERL_OBJECT
0cb96387
GS		 2582VIRTUAL int CPerlObj::do_aspawn (void *vreally, void **vmark, void **vsp);
2583#undef PERL_DECL_PROT
2584#else
2585/*END_EXTERN_C*/
2586#endif
2587
864dbfa3 2588#ifndef PERL_OBJECT
0cb96387
GS		 2589/* this has structure inits, so it cannot be included before here */
2590# include "opcode.h"
864dbfa3
GS		 2591#endif
2592
d4cce5f1
NIS		 2593/* The following must follow proto.h as #defines mess up syntax */
2594
22c35a8c
GS		 2595#if !defined(PERL_FOR_X2P)
2596# include "embedvar.h"
2597#endif
d4cce5f1
NIS		 2598
2599/* Now include all the 'global' variables
2600 * If we don't have threads or multiple interpreters
2601 * these include variables that would have been their struct-s
2602 */
533c011a
NIS		 2603
2604#define PERLVAR(var,type) EXT type PL_##var;
51371543 2605#define PERLVARA(var,n,type) EXT type PL_##var[n];
533c011a
NIS		 2606#define PERLVARI(var,type,init) EXT type PL_##var INIT(init);
2607#define PERLVARIC(var,type,init) EXTCONST type PL_##var INIT(init);
d4cce5f1 2608
d4cce5f1 2609#ifndef MULTIPLICITY
d4cce5f1 2610
066ef5b5
GS		 2611# include "intrpvar.h"
2612# ifndef USE_THREADS
2613# include "thrdvar.h"
2614# endif
d4cce5f1 2615
22239a37
NIS		 2616#endif
2617
76e3520e 2618#ifdef PERL_OBJECT
d0c1b099
GS		 2619/*
2620 * The following is a buffer where new variables must
2621 * be defined to maintain binary compatibility with PERL_OBJECT
2622 * for 5.005
2623 */
51371543 2624PERLVARA(object_compatibility,30, char)
76e3520e
GS		 2625};
2626
c5be433b 2627
22c35a8c
GS		 2628# include "embed.h"
2629# if defined(WIN32) && !defined(WIN32IO_IS_STDIO)
2630# define errno CPerlObj::ErrorNo()
2631# endif
76e3520e 2632
22c35a8c
GS		 2633# ifdef DOINIT
2634# include "INTERN.h"
2635# else
2636# include "EXTERN.h"
2637# endif
2638
2639/* this has structure inits, so it cannot be included before here */
2640# include "opcode.h"
2641
2642#endif /* PERL_OBJECT */
22239a37 2643
c5be433b
GS		 2644#ifndef PERL_GLOBAL_STRUCT
2645START_EXTERN_C
2646
2647# include "perlvars.h"
2648
2649END_EXTERN_C
2650#endif
2651
d4cce5f1 2652#undef PERLVAR
51371543 2653#undef PERLVARA
d4cce5f1 2654#undef PERLVARI
0f3f18a6 2655#undef PERLVARIC
79072805 2656
73c4f7a1
GS		 2657START_EXTERN_C
2658
79072805 2659#ifdef DOINIT
bbce6d69 2660
cea2e8a9
GS		 2661EXT MGVTBL PL_vtbl_sv = {Perl_magic_get,
2662 Perl_magic_set,
2663 Perl_magic_len,
463ee0b2 2664 0, 0};
cea2e8a9
GS		 2665EXT MGVTBL PL_vtbl_env = {0, Perl_magic_set_all_env,
2666 0, Perl_magic_clear_all_env,
66b1d557 2667 0};
cea2e8a9
GS		 2668EXT MGVTBL PL_vtbl_envelem = {0, Perl_magic_setenv,
2669 0, Perl_magic_clearenv,
85e6fe83 2670 0};
22c35a8c 2671EXT MGVTBL PL_vtbl_sig = {0, 0, 0, 0, 0};
cea2e8a9
GS		 2672EXT MGVTBL PL_vtbl_sigelem = {Perl_magic_getsig,
2673 Perl_magic_setsig,
2674 0, Perl_magic_clearsig,
0c30d9ec 2675 0};
cea2e8a9 2676EXT MGVTBL PL_vtbl_pack = {0, 0, Perl_magic_sizepack, Perl_magic_wipepack,
a0d0e21e 2677 0};
cea2e8a9
GS		 2678EXT MGVTBL PL_vtbl_packelem = {Perl_magic_getpack,
2679 Perl_magic_setpack,
2680 0, Perl_magic_clearpack,
463ee0b2 2681 0};
cea2e8a9 2682EXT MGVTBL PL_vtbl_dbline = {0, Perl_magic_setdbline,
463ee0b2 2683 0, 0, 0};
cea2e8a9
GS		 2684EXT MGVTBL PL_vtbl_isa = {0, Perl_magic_setisa,
2685 0, Perl_magic_setisa,
fb73857a 2686 0};
cea2e8a9 2687EXT MGVTBL PL_vtbl_isaelem = {0, Perl_magic_setisa,
463ee0b2 2688 0, 0, 0};
cea2e8a9
GS		 2689EXT MGVTBL PL_vtbl_arylen = {Perl_magic_getarylen,
2690 Perl_magic_setarylen,
463ee0b2 2691 0, 0, 0};
cea2e8a9
GS		 2692EXT MGVTBL PL_vtbl_glob = {Perl_magic_getglob,
2693 Perl_magic_setglob,
463ee0b2 2694 0, 0, 0};
cea2e8a9 2695EXT MGVTBL PL_vtbl_mglob = {0, Perl_magic_setmglob,
463ee0b2 2696 0, 0, 0};
cea2e8a9
GS		 2697EXT MGVTBL PL_vtbl_nkeys = {Perl_magic_getnkeys,
2698 Perl_magic_setnkeys,
99abf803 2699 0, 0, 0};
cea2e8a9 2700EXT MGVTBL PL_vtbl_taint = {Perl_magic_gettaint,Perl_magic_settaint,
463ee0b2 2701 0, 0, 0};
cea2e8a9 2702EXT MGVTBL PL_vtbl_substr = {Perl_magic_getsubstr, Perl_magic_setsubstr,
463ee0b2 2703 0, 0, 0};
cea2e8a9
GS		 2704EXT MGVTBL PL_vtbl_vec = {Perl_magic_getvec,
2705 Perl_magic_setvec,
463ee0b2 2706 0, 0, 0};
cea2e8a9
GS		 2707EXT MGVTBL PL_vtbl_pos = {Perl_magic_getpos,
2708 Perl_magic_setpos,
a0d0e21e 2709 0, 0, 0};
cea2e8a9 2710EXT MGVTBL PL_vtbl_bm = {0, Perl_magic_setbm,
463ee0b2 2711 0, 0, 0};
cea2e8a9 2712EXT MGVTBL PL_vtbl_fm = {0, Perl_magic_setfm,
55497cff 2713 0, 0, 0};
cea2e8a9
GS		 2714EXT MGVTBL PL_vtbl_uvar = {Perl_magic_getuvar,
2715 Perl_magic_setuvar,
463ee0b2 2716 0, 0, 0};
f93b4edd 2717#ifdef USE_THREADS
cea2e8a9 2718EXT MGVTBL PL_vtbl_mutex = {0, 0, 0, 0, Perl_magic_mutexfree};
f93b4edd 2719#endif /* USE_THREADS */
cea2e8a9 2720EXT MGVTBL PL_vtbl_defelem = {Perl_magic_getdefelem,Perl_magic_setdefelem,
02270b4e 2721 0, 0, 0};
a0d0e21e 2722
cea2e8a9
GS		 2723EXT MGVTBL PL_vtbl_regexp = {0,0,0,0, Perl_magic_freeregexp};
2724EXT MGVTBL PL_vtbl_regdata = {0, 0, Perl_magic_regdata_cnt, 0, 0};
2725EXT MGVTBL PL_vtbl_regdatum = {Perl_magic_regdatum_get, 0, 0, 0, 0};
c277df42 2726
36477c24 2727#ifdef USE_LOCALE_COLLATE
22c35a8c 2728EXT MGVTBL PL_vtbl_collxfrm = {0,
cea2e8a9 2729 Perl_magic_setcollxfrm,
bbce6d69 2730 0, 0, 0};
2731#endif
a0d0e21e 2732
cea2e8a9
GS		 2733EXT MGVTBL PL_vtbl_amagic = {0, Perl_magic_setamagic,
2734 0, 0, Perl_magic_setamagic};
2735EXT MGVTBL PL_vtbl_amagicelem = {0, Perl_magic_setamagic,
2736 0, 0, Perl_magic_setamagic};
a0d0e21e 2737
810b8aa5 2738EXT MGVTBL PL_vtbl_backref = {0, 0,
cea2e8a9 2739 0, 0, Perl_magic_killbackrefs};
810b8aa5 2740
bbce6d69 2741#else /* !DOINIT */
2742
22c35a8c
GS		 2743EXT MGVTBL PL_vtbl_sv;
2744EXT MGVTBL PL_vtbl_env;
2745EXT MGVTBL PL_vtbl_envelem;
2746EXT MGVTBL PL_vtbl_sig;
2747EXT MGVTBL PL_vtbl_sigelem;
2748EXT MGVTBL PL_vtbl_pack;
2749EXT MGVTBL PL_vtbl_packelem;
2750EXT MGVTBL PL_vtbl_dbline;
2751EXT MGVTBL PL_vtbl_isa;
2752EXT MGVTBL PL_vtbl_isaelem;
2753EXT MGVTBL PL_vtbl_arylen;
2754EXT MGVTBL PL_vtbl_glob;
2755EXT MGVTBL PL_vtbl_mglob;
2756EXT MGVTBL PL_vtbl_nkeys;
2757EXT MGVTBL PL_vtbl_taint;
2758EXT MGVTBL PL_vtbl_substr;
2759EXT MGVTBL PL_vtbl_vec;
2760EXT MGVTBL PL_vtbl_pos;
2761EXT MGVTBL PL_vtbl_bm;
2762EXT MGVTBL PL_vtbl_fm;
2763EXT MGVTBL PL_vtbl_uvar;
a0d0e21e 2764
f93b4edd 2765#ifdef USE_THREADS
22c35a8c 2766EXT MGVTBL PL_vtbl_mutex;
f93b4edd
MB		 2767#endif /* USE_THREADS */
2768
22c35a8c
GS		 2769EXT MGVTBL PL_vtbl_defelem;
2770EXT MGVTBL PL_vtbl_regexp;
2771EXT MGVTBL PL_vtbl_regdata;
2772EXT MGVTBL PL_vtbl_regdatum;
a0d0e21e 2773
36477c24 2774#ifdef USE_LOCALE_COLLATE
22c35a8c 2775EXT MGVTBL PL_vtbl_collxfrm;
bbce6d69 2776#endif
a0d0e21e 2777
22c35a8c
GS		 2778EXT MGVTBL PL_vtbl_amagic;
2779EXT MGVTBL PL_vtbl_amagicelem;
a0d0e21e 2780
810b8aa5
GS		 2781EXT MGVTBL PL_vtbl_backref;
2782
bbce6d69 2783#endif /* !DOINIT */
85e6fe83 2784
f5284f61
IZ		 2785enum {
2786 fallback_amg, abs_amg,
2787 bool__amg, nomethod_amg,
2788 string_amg, numer_amg,
2789 add_amg, add_ass_amg,
2790 subtr_amg, subtr_ass_amg,
2791 mult_amg, mult_ass_amg,
2792 div_amg, div_ass_amg,
2793 modulo_amg, modulo_ass_amg,
2794 pow_amg, pow_ass_amg,
2795 lshift_amg, lshift_ass_amg,
2796 rshift_amg, rshift_ass_amg,
2797 band_amg, band_ass_amg,
2798 bor_amg, bor_ass_amg,
2799 bxor_amg, bxor_ass_amg,
2800 lt_amg, le_amg,
2801 gt_amg, ge_amg,
2802 eq_amg, ne_amg,
2803 ncmp_amg, scmp_amg,
2804 slt_amg, sle_amg,
2805 sgt_amg, sge_amg,
2806 seq_amg, sne_amg,
2807 not_amg, compl_amg,
2808 inc_amg, dec_amg,
2809 atan2_amg, cos_amg,
2810 sin_amg, exp_amg,
2811 log_amg, sqrt_amg,
2812 repeat_amg, repeat_ass_amg,
2813 concat_amg, concat_ass_amg,
2814 copy_amg, neg_amg,
2815 to_sv_amg, to_av_amg,
2816 to_hv_amg, to_gv_amg,
2817 to_cv_amg, iter_amg,
64a0062a
JH		 2818 max_amg_code
2819 /* Do not leave a trailing comma here. C9X allows it, C89 doesn't. */
f5284f61
IZ		 2820};
2821
2822#define NofAMmeth max_amg_code
2823
a0d0e21e 2824#ifdef DOINIT
22c35a8c 2825EXTCONST char * PL_AMG_names[NofAMmeth] = {
a6006777 2826 "fallback", "abs", /* "fallback" should be the first. */
2827 "bool", "nomethod",
2828 "\"\"", "0+",
2829 "+", "+=",
2830 "-", "-=",
2831 "*", "*=",
2832 "/", "/=",
2833 "%", "%=",
2834 "**", "**=",
2835 "<<", "<<=",
2836 ">>", ">>=",
2837 "&", "&=",
2838 "|", "|=",
2839 "^", "^=",
2840 "<", "<=",
2841 ">", ">=",
2842 "==", "!=",
2843 "<=>", "cmp",
2844 "lt", "le",
2845 "gt", "ge",
2846 "eq", "ne",
2847 "!", "~",
2848 "++", "--",
2849 "atan2", "cos",
2850 "sin", "exp",
2851 "log", "sqrt",
2852 "x", "x=",
2853 ".", ".=",
f5284f61
IZ		 2854 "=", "neg",
2855 "${}", "@{}",
2856 "%{}", "*{}",
2857 "&{}", "<>",
a0d0e21e
LW		 2858};
2859#else
22c35a8c 2860EXTCONST char * PL_AMG_names[NofAMmeth];
a0d0e21e
LW		 2861#endif /* def INITAMAGIC */
2862
73c4f7a1
GS		 2863END_EXTERN_C
2864
a6006777 2865struct am_table {
a0d0e21e
LW		 2866 long was_ok_sub;
2867 long was_ok_am;
a6006777 2868 U32 flags;
2869 CV* table[NofAMmeth];
a0d0e21e
LW		 2870 long fallback;
2871};
a6006777 2872struct am_table_short {
2873 long was_ok_sub;
2874 long was_ok_am;
2875 U32 flags;
2876};
a0d0e21e 2877typedef struct am_table AMT;
a6006777 2878typedef struct am_table_short AMTS;
a0d0e21e
LW		 2879
2880#define AMGfallNEVER 1
2881#define AMGfallNO 2
2882#define AMGfallYES 3
2883
a6006777 2884#define AMTf_AMAGIC 1
2885#define AMT_AMAGIC(amt) ((amt)->flags & AMTf_AMAGIC)
2886#define AMT_AMAGIC_on(amt) ((amt)->flags |= AMTf_AMAGIC)
2887#define AMT_AMAGIC_off(amt) ((amt)->flags &= ~AMTf_AMAGIC)
2888
c0315cdf
JH		 2889
2890/*
2891 * some compilers like to redefine cos et alia as faster
2892 * (and less accurate?) versions called F_cos et cetera (Quidquid
2893 * latine dictum sit, altum viditur.) This trick collides with
2894 * the Perl overloading (amg). The following #defines fool both.
2895 */
2896
2897#ifdef _FASTMATH
2898# ifdef atan2
2899# define F_atan2_amg atan2_amg
2900# endif
2901# ifdef cos
2902# define F_cos_amg cos_amg
2903# endif
2904# ifdef exp
2905# define F_exp_amg exp_amg
2906# endif
2907# ifdef log
2908# define F_log_amg log_amg
2909# endif
2910# ifdef pow
2911# define F_pow_amg pow_amg
2912# endif
2913# ifdef sin
2914# define F_sin_amg sin_amg
2915# endif
2916# ifdef sqrt
2917# define F_sqrt_amg sqrt_amg
2918# endif
2919#endif /* _FASTMATH */
2920
491527d0 2921#define PERLDB_ALL 0x3f /* No _NONAME, _GOTO */
84902520
TB		 2922#define PERLDBf_SUB 0x01 /* Debug sub enter/exit. */
2923#define PERLDBf_LINE 0x02 /* Keep line #. */
2924#define PERLDBf_NOOPT 0x04 /* Switch off optimizations. */
2925#define PERLDBf_INTER 0x08 /* Preserve more data for
2926 later inspections. */
2927#define PERLDBf_SUBLINE 0x10 /* Keep subr source lines. */
2928#define PERLDBf_SINGLE 0x20 /* Start with single-step on. */
491527d0
GS		 2929#define PERLDBf_NONAME 0x40 /* For _SUB: no name of the subr. */
2930#define PERLDBf_GOTO 0x80 /* Report goto: call DB::goto. */
84902520 2931
3280af22
NIS		 2932#define PERLDB_SUB (PL_perldb && (PL_perldb & PERLDBf_SUB))
2933#define PERLDB_LINE (PL_perldb && (PL_perldb & PERLDBf_LINE))
2934#define PERLDB_NOOPT (PL_perldb && (PL_perldb & PERLDBf_NOOPT))
2935#define PERLDB_INTER (PL_perldb && (PL_perldb & PERLDBf_INTER))
2936#define PERLDB_SUBLINE (PL_perldb && (PL_perldb & PERLDBf_SUBLINE))
2937#define PERLDB_SINGLE (PL_perldb && (PL_perldb & PERLDBf_SINGLE))
2938#define PERLDB_SUB_NN (PL_perldb && (PL_perldb & (PERLDBf_NONAME)))
2939#define PERLDB_GOTO (PL_perldb && (PL_perldb & PERLDBf_GOTO))
84902520 2940
bbce6d69 2941
36477c24 2942#ifdef USE_LOCALE_NUMERIC
bbce6d69 2943
36477c24 2944#define SET_NUMERIC_STANDARD() \
2945 STMT_START { \
864dbfa3
GS		 2946 if (! PL_numeric_standard) \
2947 set_numeric_standard(); \
36477c24 2948 } STMT_END
2949
2950#define SET_NUMERIC_LOCAL() \
2951 STMT_START { \
3280af22 2952 if (! PL_numeric_local) \
864dbfa3 2953 set_numeric_local(); \
36477c24 2954 } STMT_END
bbce6d69 2955
097ee67d
JH		 2956#define IS_NUMERIC_RADIX(c) \
2957 ((PL_hints & HINT_LOCALE) && \
2958 PL_numeric_radix && (c) == PL_numeric_radix)
2959
2960#define RESTORE_NUMERIC_LOCAL() if ((PL_hints & HINT_LOCALE) && PL_numeric_standard) SET_NUMERIC_LOCAL()
2961#define RESTORE_NUMERIC_STANDARD() if ((PL_hints & HINT_LOCALE) && PL_numeric_local) SET_NUMERIC_STANDARD()
5b877257 2962#define Atof my_atof
097ee67d 2963
36477c24 2964#else /* !USE_LOCALE_NUMERIC */
bbce6d69 2965
097ee67d
JH		 2966#define SET_NUMERIC_STANDARD() /**/
2967#define SET_NUMERIC_LOCAL() /**/
2968#define IS_NUMERIC_RADIX(c) (0)
2969#define RESTORE_NUMERIC_LOCAL() /**/
2970#define RESTORE_NUMERIC_STANDARD() /**/
65202027 2971#define Atof Perl_atof
bbce6d69 2972
36477c24 2973#endif /* !USE_LOCALE_NUMERIC */
a0d0e21e 2974
cf2093f6
JH		 2975#if defined(USE_LONG_LONG) && defined(HAS_LONG_LONG) && defined(HAS_ATOLL)
2976#define Atol atoll
2977#else
2978#define Atol atol
2979#endif
2980
2981#if defined(USE_LONG_LONG) && defined(HAS_LONG_LONG) && defined(HAS_STRTOULL)
2982#define Strtoul strtoull
2983#else
2984#define Strtoul strtoul
2985#endif
2986
e5c9fcd0 2987#if !defined(PERLIO_IS_STDIO) && defined(HASATTRIBUTE)
760ac839
LW		 2988/*
2989 * Now we have __attribute__ out of the way
2990 * Remap printf
2991 */
2992#define printf PerlIO_stdoutf
2993#endif
2994
a868473f
NIS		 2995#ifndef PERL_SCRIPT_MODE
2996#define PERL_SCRIPT_MODE "r"
2997#endif
2998
fba3b22e
MB		 2999/*
3000 * nice_chunk and nice_chunk size need to be set
3001 * and queried under the protection of sv_mutex
3002 */
3003#define offer_nice_chunk(chunk, chunk_size) do { \
940cb80d 3004 LOCK_SV_MUTEX; \
3280af22
NIS		 3005 if (!PL_nice_chunk) { \
3006 PL_nice_chunk = (char*)(chunk); \
3007 PL_nice_chunk_size = (chunk_size); \
fba3b22e 3008 } \
fc80cf79
GS		 3009 else { \
3010 Safefree(chunk); \
3011 } \
940cb80d 3012 UNLOCK_SV_MUTEX; \
fba3b22e
MB		 3013 } while (0)
3014
bd89102f
AD		 3015#ifdef HAS_SEM
3016# include <sys/ipc.h>
3017# include <sys/sem.h>
3018# ifndef HAS_UNION_SEMUN /* Provide the union semun. */
3019 union semun {
3020 int val;
3021 struct semid_ds *buf;
3022 unsigned short *array;
3023 };
3024# endif
3025# ifdef USE_SEMCTL_SEMUN
3026# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
3027# else
3028# ifdef USE_SEMCTL_SEMID_DS
3029# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buf)
3030# endif
3031# endif
bd89102f 3032#endif
49f531da 3033
ff49bff8
JH		 3034/* Mention
3035
3036 INSTALL_USR_BIN_PERL
3037
3038 I_SYS_MMAN
3039 HAS_MMAP
3040 HAS_MUNMAP
3041 HAS_MPROTECT
3042 HAS_MSYNC
3043 HAS_MADVISE
3044 Mmap_t
3045
3046 here so that Configure picks them up. */
104d25b7
JH		 3047
3048#ifdef IAMSUID
3049
3050#ifdef I_SYS_STATVFS
32b3cf08
JH		 3051# include <sys/statvfs.h> /* for f?statvfs() */
3052#endif
3053#ifdef I_SYS_MOUNT
3054# include <sys/mount.h> /* for *BSD f?statfs() */
3055#endif
3056#ifdef I_MNTENT
3057# include <mntent.h> /* for getmntent() */
104d25b7
JH		 3058#endif
3059
3060#endif /* IAMSUID */
3061
4d8076ea 3062/* and finally... */
cceca5ed 3063#define PERL_PATCHLEVEL_H_IMPLICIT
4d8076ea 3064#include "patchlevel.h"
cceca5ed 3065#undef PERL_PATCHLEVEL_H_IMPLICIT
4d8076ea 3066
85e6fe83 3067#endif /* Include guard */
Unnamed repository; edit this file 'description' to name the repository.