projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Allow option to treat barewords at start of Unix paths as simple words rather than...
[p5sagit/p5-mst-13.2.git] / perl.h
CommitLineData
a0d0e21e 1/* perl.h
a687059c 2 *
9607fc9c 3 * Copyright (c) 1987-1997, Larry Wall
a687059c 4 *
352d5a3a 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 9#ifndef H_PERL
10#define H_PERL 1
8d063cd8 11
760ac839 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 19#undef USE_STDIO
20#define USE_STDIO
21#endif /* PERL_FOR_X2P */
22
0cb96387 23#define VOIDUSED 1
24#include "config.h"
25
ee072b34 26/* See L<perlguts/"The Perl API"> for detailed notes on
27 * PERL_IMPLICIT_CONTEXT and PERL_IMPLICIT_SYS */
28
0cb96387 29/* XXXXXX testing threads via implicit pointer */
30#ifdef USE_THREADS
c5be433b 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 66#endif
67
76e3520e 68#ifdef PERL_OBJECT
3dfd1da1 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 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 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 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 134takes pointers to the various PerlXXX_YYY interfaces (see iperlsys.h
135for more information on this).
3dfd1da1 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 143class CPerlObj;
144
145#define STATIC
c5be433b 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 155#define PERL_OBJECT_THIS aTHXo
156#define PERL_OBJECT_THIS_ aTHXo_
157#define _PERL_OBJECT_THIS _aTHXo
c5be433b 158#define dTHXoa(a) pTHXo = (CPerlObj *)a
159#define dTHXo dTHXoa(PERL_GET_INTERP)
0cb96387 160
161#define pTHXx void
162#define pTHXx_
163#define _pTHXx
164#define aTHXx
165#define aTHXx_
166#define _aTHXx
167
76e3520e 168#else /* !PERL_OBJECT */
169
c5be433b 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 179# ifndef MULTIPLICITY
180# define MULTIPLICITY
181# endif
c5be433b 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 193#define STATIC static
194#define CPERLscope(x) x
565764a8 195#define CPERLarg void
76e3520e 196#define CPERLarg_
e3b8966e 197#define _CPERLarg
1d583055 198#define PERL_OBJECT_THIS
199#define _PERL_OBJECT_THIS
200#define PERL_OBJECT_THIS_
312caa8e 201#define CALL_FPTR(fptr) (*fptr)
76e3520e 202
203#endif /* PERL_OBJECT */
204
312caa8e 205#define CALLRUNOPS CALL_FPTR(PL_runops)
206#define CALLREGCOMP CALL_FPTR(PL_regcompp)
207#define CALLREGEXEC CALL_FPTR(PL_regexecp)
f722798b 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 211#define CALLPROTECT CALL_FPTR(PL_protect)
212
0cb96387 213#define NOOP (void)0
214#define dNOOP extern int Perl___notused
71be2cbc 215
0cb96387 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 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 247#undef START_EXTERN_C
248#undef END_EXTERN_C
249#undef EXTERN_C
32f822de 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 258#endif
259
462e5cf6 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 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 305# define BYTEORDER 0x1234
306#endif
307
308/* Overall memory policy? */
309#ifndef CONSERVATIVE
310# define LIBERAL 1
311#endif
312
8ada0baa 313#if 'A' == 65 && 'I' == 73 && 'J' == 74 && 'Z' == 90
314#define ASCIIish
315#else
316#undef ASCIIish
317#endif
318
79072805 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 329#define DOSISH 1
330#endif
331
4d2c4e07 332#if defined(__STDC__) || defined(vax11c) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus) || defined( EPOC)
352d5a3a 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 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 348#endif
349
3280af22 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 404#endif
405
8ac5a1fe 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 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 417#endif
418
760ac839 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 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 448
449#ifdef METHOD /* Defined by OSF/1 v3.0 by ctype.h */
450#undef METHOD
a0d0e21e 451#endif
452
4633a7c4 453#ifdef I_LOCALE
36477c24 454# include <locale.h>
4633a7c4 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 474# ifdef PARAM_NEEDS_TYPES
475# include <sys/types.h>
476# endif
477# include <sys/param.h>
352d5a3a 478#endif
79072805 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 487# include "embed.h"
488#endif
489
c31fac66 490#define MEM_SIZE Size_t
491
51371543 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 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 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 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 524# define safemalloc Perl_malloc
525# define safecalloc Perl_calloc
526# define saferealloc Perl_realloc
527# define safefree Perl_mfree
f2517201 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 535#if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)
536#define strchr index
537#define strrchr rindex
538#endif
539
16d20bd9 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 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 564# endif
565# endif
ee0007ab 566#else
fc36a67e 567# define memset(d,c,l) my_memset(d,c,l)
ee0007ab 568#endif /* HAS_MEMSET */
569
85e6fe83 570#if !defined(HAS_MEMMOVE) && !defined(memmove)
2304df62 571# if defined(HAS_BCOPY) && defined(HAS_SAFE_BCOPY)
79072805 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 590# endif
591# endif
36477c24 592# ifdef BUGGY_MSC
593 # pragma function(memcmp)
594# endif
ee0007ab 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 609# endif
610# endif
d9d8d8de 611#endif
378cc40b 612
0f27ced1 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 627#endif
628
28e8609d 629#ifdef I_ARPA_INET
630# include <arpa/inet.h>
631#endif
632
84902520 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 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 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 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 667# define KERNEL
668# endif
669# include <sys/time.h>
85e6fe83 670# ifdef I_SYS_TIME_KERNEL
663a0e37 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 681#endif
682
683#include <errno.h>
ed6116ce 684#ifdef HAS_SOCKET
85e6fe83 685# ifdef I_NET_ERRNO
ed6116ce 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 700#ifdef USE_THREADS
701# define ERRSV (thr->errsv)
702# define ERRHV (thr->errhv)
940cb80d 703# define DEFSV THREADSV(0)
704# define SAVE_DEFSV save_threadsv(0)
38a03e6e 705#else
3280af22 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 710#endif /* USE_THREADS */
711
55497cff 712#ifndef errno
5ff3f7a4 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 728# ifndef Strerror
729# define Strerror strerror
730# endif
731#else
732# ifdef HAS_SYS_ERRLIST
79072805 733 extern int sys_nerr;
734 extern char *sys_errlist[];
2304df62 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 743# ifndef _IOCTL_
744# include <sys/ioctl.h>
745# endif
a687059c 746#endif
747
ee0007ab 748#if defined(mc300) || defined(mc500) || defined(mc700) || defined(mc6000)
79072805 749# ifdef HAS_SOCKETPAIR
750# undef HAS_SOCKETPAIR
751# endif
2304df62 752# ifdef I_NDBM
753# undef I_NDBM
79072805 754# endif
a687059c 755#endif
756
a687059c 757#if INTSIZE == 2
79072805 758# define htoni htons
759# define ntohi ntohs
a687059c 760#else
79072805 761# define htoni htonl
762# define ntohi ntohl
a687059c 763#endif
764
a0d0e21e 765/* Configure already sets Direntry_t */
35c8bce7 766#if defined(I_DIRENT)
663a0e37 767# include <dirent.h>
8f1f23e8 768 /* NeXT needs dirent + sys/dir.h */
769# if defined(I_SYS_DIR) && (defined(NeXT) || defined(__NeXT__))
a0d0e21e 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 777# ifdef hp9000s500
778# include <ndir.h> /* may be wrong in the future */
779# else
780# include <sys/dir.h>
781# endif
663a0e37 782# endif
783# endif
4633a7c4 784#endif
a687059c 785
352d5a3a 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 790# endif
791#endif
792
c623bd54 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 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 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 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 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 893#ifdef ff_next
894# undef ff_next
352d5a3a 895#endif
896
a0d0e21e 897#if defined(cray) || defined(gould) || defined(i860) || defined(pyr)
45d8adaa 898# define SLOPPYDIVIDE
899#endif
900
748a9306 901#ifdef UV
902#undef UV
903#endif
904
5ff3f7a4 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 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 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 946#if LONGSIZE == 8 && PTRSIZE == 8
947# define PERL_LP64
948# if INTSIZE == 8
949# define PERL_ILP64
950# endif
951#endif
952
03145268 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 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 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 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 985#endif
986
f86702cc 987#ifdef Quad_t
988# define HAS_QUAD
03145268 989# ifndef Uquad_t
e862df63 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 993# define Uquad_t unsigned Quad_t
994# endif
5ff3f7a4 995#endif
996
03145268 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 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 1028# define IV_SIZEOF 8
1029# define UV_SIZEOF 8
79072805 1030#else
03145268 1031 typedef long IV;
1032 typedef unsigned long UV;
5ff3f7a4 1033# if defined(INT32_MAX) && LONGSIZE == 4
1034# define IV_MAX INT32_MAX
1035# define IV_MIN INT32_MIN
1036# define UV_MAX UINT32_MAX
1037# define UV_MIN UINT32_MIN
1038# else
1039# define IV_MAX PERL_LONG_MAX
1040# define IV_MIN PERL_LONG_MIN
1041# define UV_MAX PERL_ULONG_MAX
1042# define UV_MIN PERL_ULONG_MIN
1043# endif
2cc4c2dc 1044# define UV_SIZEOF LONGSIZE
1045# define IV_SIZEOF LONGSIZE
79072805 1046#endif
1047
65202027 1048#ifdef USE_LONG_DOUBLE
1049# if defined(HAS_LONG_DOUBLE) && (LONG_DOUBLESIZE > DOUBLESIZE)
1050# define LDoub_t long double
1051# endif
1052#endif
1053
1054#ifdef USE_LONG_DOUBLE
1055# define HAS_LDOUB
1056 typedef LDoub_t NV;
1057# define Perl_modf modfl
1058# define Perl_frexp frexpl
1059# define Perl_cos cosl
1060# define Perl_sin sinl
1061# define Perl_sqrt sqrtl
1062# define Perl_exp expl
1063# define Perl_log logl
1064# define Perl_atan2 atan2l
1065# define Perl_pow powl
1066# define Perl_floor floorl
1067# define Perl_atof atof
1068# define Perl_fmod fmodl
1069#else
1070 typedef double NV;
1071# define Perl_modf modf
1072# define Perl_frexp frexp
1073# define Perl_cos cos
1074# define Perl_sin sin
1075# define Perl_sqrt sqrt
1076# define Perl_exp exp
1077# define Perl_log log
1078# define Perl_atan2 atan2
1079# define Perl_pow pow
1080# define Perl_floor floor
1081# define Perl_atof atof /* At some point there may be an atolf */
1082# define Perl_fmod fmod
1083#endif
1084
760ac839 1085/* Previously these definitions used hardcoded figures.
1086 * It is hoped these formula are more portable, although
1087 * no data one way or another is presently known to me.
1088 * The "PERL_" names are used because these calculated constants
1089 * do not meet the ANSI requirements for LONG_MAX, etc., which
1090 * need to be constants acceptable to #if - kja
1091 * define PERL_LONG_MAX 2147483647L
1092 * define PERL_LONG_MIN (-LONG_MAX - 1)
1093 * define PERL ULONG_MAX 4294967295L
1094 */
1095
1096#ifdef I_LIMITS /* Needed for cast_xxx() functions below. */
1097# include <limits.h>
1098#else
1099#ifdef I_VALUES
1100# include <values.h>
1101#endif
1102#endif
1103
99abf803 1104/*
1105 * Try to figure out max and min values for the integral types. THE CORRECT
1106 * SOLUTION TO THIS MESS: ADAPT enquire.c FROM GCC INTO CONFIGURE. The
1107 * following hacks are used if neither limits.h or values.h provide them:
1108 * U<TYPE>_MAX: for types >= int: ~(unsigned TYPE)0
1109 * for types < int: (unsigned TYPE)~(unsigned)0
1110 * The argument to ~ must be unsigned so that later signed->unsigned
1111 * conversion can't modify the value's bit pattern (e.g. -0 -> +0),
1112 * and it must not be smaller than int because ~ does integral promotion.
1113 * <type>_MAX: (<type>) (U<type>_MAX >> 1)
1114 * <type>_MIN: -<type>_MAX - <is_twos_complement_architecture: (3 & -1) == 3>.
1115 * The latter is a hack which happens to work on some machines but
1116 * does *not* catch any random system, or things like integer types
1117 * with NaN if that is possible.
1118 *
1119 * All of the types are explicitly cast to prevent accidental loss of
1120 * numeric range, and in the hope that they will be less likely to confuse
1121 * over-eager optimizers.
1122 *
1123 */
27d4fb96 1124
99abf803 1125#define PERL_UCHAR_MIN ((unsigned char)0)
1126
1127#ifdef UCHAR_MAX
1128# define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
27d4fb96 1129#else
99abf803 1130# ifdef MAXUCHAR
1131# define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
27d4fb96 1132# else
99abf803 1133# define PERL_UCHAR_MAX ((unsigned char)~(unsigned)0)
27d4fb96 1134# endif
1135#endif
99abf803 1136
1137/*
1138 * CHAR_MIN and CHAR_MAX are not included here, as the (char) type may be
1139 * ambiguous. It may be equivalent to (signed char) or (unsigned char)
1140 * depending on local options. Until Configure detects this (or at least
1141 * detects whether the "signed" keyword is available) the CHAR ranges
1142 * will not be included. UCHAR functions normally.
1143 * - kja
1144 */
27d4fb96 1145
99abf803 1146#define PERL_USHORT_MIN ((unsigned short)0)
1147
1148#ifdef USHORT_MAX
1149# define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
27d4fb96 1150#else
99abf803 1151# ifdef MAXUSHORT
1152# define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
27d4fb96 1153# else
ef2f54b0 1154# ifdef USHRT_MAX
1155# define PERL_USHORT_MAX ((unsigned short)USHRT_MAX)
1156# else
1157# define PERL_USHORT_MAX ((unsigned short)~(unsigned)0)
1158# endif
27d4fb96 1159# endif
1160#endif
1161
27d4fb96 1162#ifdef SHORT_MAX
99abf803 1163# define PERL_SHORT_MAX ((short)SHORT_MAX)
27d4fb96 1164#else
1165# ifdef MAXSHORT /* Often used in <values.h> */
99abf803 1166# define PERL_SHORT_MAX ((short)MAXSHORT)
27d4fb96 1167# else
ef2f54b0 1168# ifdef SHRT_MAX
1169# define PERL_SHORT_MAX ((short)SHRT_MAX)
1170# else
1171# define PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1))
1172# endif
27d4fb96 1173# endif
1174#endif
1175
1176#ifdef SHORT_MIN
99abf803 1177# define PERL_SHORT_MIN ((short)SHORT_MIN)
27d4fb96 1178#else
1179# ifdef MINSHORT
99abf803 1180# define PERL_SHORT_MIN ((short)MINSHORT)
27d4fb96 1181# else
ef2f54b0 1182# ifdef SHRT_MIN
1183# define PERL_SHORT_MIN ((short)SHRT_MIN)
1184# else
1185# define PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3))
1186# endif
27d4fb96 1187# endif
1188#endif
1189
99abf803 1190#ifdef UINT_MAX
1191# define PERL_UINT_MAX ((unsigned int)UINT_MAX)
27d4fb96 1192#else
99abf803 1193# ifdef MAXUINT
1194# define PERL_UINT_MAX ((unsigned int)MAXUINT)
27d4fb96 1195# else
99abf803 1196# define PERL_UINT_MAX (~(unsigned int)0)
27d4fb96 1197# endif
1198#endif
1199
99abf803 1200#define PERL_UINT_MIN ((unsigned int)0)
27d4fb96 1201
1202#ifdef INT_MAX
99abf803 1203# define PERL_INT_MAX ((int)INT_MAX)
27d4fb96 1204#else
1205# ifdef MAXINT /* Often used in <values.h> */
99abf803 1206# define PERL_INT_MAX ((int)MAXINT)
27d4fb96 1207# else
99abf803 1208# define PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1))
27d4fb96 1209# endif
1210#endif
1211
1212#ifdef INT_MIN
99abf803 1213# define PERL_INT_MIN ((int)INT_MIN)
27d4fb96 1214#else
1215# ifdef MININT
99abf803 1216# define PERL_INT_MIN ((int)MININT)
27d4fb96 1217# else
1218# define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3))
1219# endif
1220#endif
1221
99abf803 1222#ifdef ULONG_MAX
1223# define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
27d4fb96 1224#else
99abf803 1225# ifdef MAXULONG
1226# define PERL_ULONG_MAX ((unsigned long)MAXULONG)
27d4fb96 1227# else
99abf803 1228# define PERL_ULONG_MAX (~(unsigned long)0)
27d4fb96 1229# endif
1230#endif
1231
99abf803 1232#define PERL_ULONG_MIN ((unsigned long)0L)
27d4fb96 1233
760ac839 1234#ifdef LONG_MAX
99abf803 1235# define PERL_LONG_MAX ((long)LONG_MAX)
760ac839 1236#else
1237# ifdef MAXLONG /* Often used in <values.h> */
99abf803 1238# define PERL_LONG_MAX ((long)MAXLONG)
760ac839 1239# else
99abf803 1240# define PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1))
760ac839 1241# endif
1242#endif
1243
1244#ifdef LONG_MIN
99abf803 1245# define PERL_LONG_MIN ((long)LONG_MIN)
760ac839 1246#else
1247# ifdef MINLONG
99abf803 1248# define PERL_LONG_MIN ((long)MINLONG)
760ac839 1249# else
27d4fb96 1250# define PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3))
760ac839 1251# endif
1252#endif
1253
99abf803 1254#ifdef HAS_QUAD
1255
1256# ifdef UQUAD_MAX
1257# define PERL_UQUAD_MAX ((UV)UQUAD_MAX)
760ac839 1258# else
99abf803 1259# define PERL_UQUAD_MAX (~(UV)0)
760ac839 1260# endif
760ac839 1261
99abf803 1262# define PERL_UQUAD_MIN ((UV)0)
27d4fb96 1263
27d4fb96 1264# ifdef QUAD_MAX
99abf803 1265# define PERL_QUAD_MAX ((IV)QUAD_MAX)
27d4fb96 1266# else
99abf803 1267# define PERL_QUAD_MAX ((IV) (PERL_UQUAD_MAX >> 1))
27d4fb96 1268# endif
1269
1270# ifdef QUAD_MIN
99abf803 1271# define PERL_QUAD_MIN ((IV)QUAD_MIN)
27d4fb96 1272# else
a6e633de 1273# define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3))
27d4fb96 1274# endif
1275
79072805 1276#endif
1277
ee0007ab 1278typedef MEM_SIZE STRLEN;
450a55e4 1279
79072805 1280typedef struct op OP;
1281typedef struct cop COP;
1282typedef struct unop UNOP;
1283typedef struct binop BINOP;
1284typedef struct listop LISTOP;
1285typedef struct logop LOGOP;
79072805 1286typedef struct pmop PMOP;
1287typedef struct svop SVOP;
1288typedef struct gvop GVOP;
1289typedef struct pvop PVOP;
79072805 1290typedef struct loop LOOP;
1291
1292typedef struct Outrec Outrec;
93a17b20 1293typedef struct interpreter PerlInterpreter;
3e3baf6d 1294#ifndef __BORLANDC__
1295typedef struct ff FF; /* XXX not defined anywhere, should go? */
1296#endif
79072805 1297typedef struct sv SV;
1298typedef struct av AV;
1299typedef struct hv HV;
1300typedef struct cv CV;
378cc40b 1301typedef struct regexp REGEXP;
79072805 1302typedef struct gp GP;
0c30d9ec 1303typedef struct gv GV;
8990e307 1304typedef struct io IO;
c09156bb 1305typedef struct context PERL_CONTEXT;
79072805 1306typedef struct block BLOCK;
1307
1308typedef struct magic MAGIC;
ed6116ce 1309typedef struct xrv XRV;
79072805 1310typedef struct xpv XPV;
1311typedef struct xpviv XPVIV;
ff68c719 1312typedef struct xpvuv XPVUV;
79072805 1313typedef struct xpvnv XPVNV;
1314typedef struct xpvmg XPVMG;
1315typedef struct xpvlv XPVLV;
1316typedef struct xpvav XPVAV;
1317typedef struct xpvhv XPVHV;
1318typedef struct xpvgv XPVGV;
1319typedef struct xpvcv XPVCV;
1320typedef struct xpvbm XPVBM;
1321typedef struct xpvfm XPVFM;
8990e307 1322typedef struct xpvio XPVIO;
79072805 1323typedef struct mgvtbl MGVTBL;
1324typedef union any ANY;
8d063cd8 1325
378cc40b 1326#include "handy.h"
a0d0e21e 1327
03145268 1328/* Some day when we have more 64-bit experience under our belts we may
1329 * be able to merge some of the USE_64_BIT_{FILES,OFFSETS,STDIO,DBM}. At
1330 * the moment (Oct 1998), though, keep them separate. --jhi
1331 */
5ff3f7a4 1332#ifdef USE_64_BITS
1333# ifdef USE_64_BIT_FILES
03145268 1334# ifndef USE_64_BIT_OFFSETS
1335# define USE_64_BIT_OFFSETS
5ff3f7a4 1336# endif
1337# ifndef USE_64_BIT_STDIO
1338# define USE_64_BIT_STDIO
1339# endif
1340# ifndef USE_64_BIT_DBM
1341# define USE_64_BIT_DBM
1342# endif
1343# endif
03145268 1344/* Mention LSEEKSIZE here to get it included in %Config. */
1345# ifdef USE_64_BIT_OFFSETS
5ff3f7a4 1346# ifdef HAS_FSTAT64
1347# define fstat fstat64
1348# endif
1349# ifdef HAS_FTRUNCATE64
1350# define ftruncate ftruncate64
1351# endif
1352# ifdef HAS_LSEEK64
1353# define lseek lseek64
1354# ifdef HAS_OFF64_T
1355# undef Off_t
1356# define Off_t off64_t
1357# endif
1358# endif
1359# ifdef HAS_LSTAT64
1360# define lstat lstat64
1361# endif
1362 /* Some systems have open64() in libc but use that only
1363 * for true LP64 mode, in mixed mode (ILP32LL64, for example)
85ab1d1d 1364 * they use the vanilla open(). Such systems should undefine
1365 * d_open64 in their hints files. --jhi */
1366# if defined(HAS_OPEN64)
5ff3f7a4 1367# define open open64
1368# endif
1369# ifdef HAS_OPENDIR64
1370# define opendir opendir64
1371# endif
1372# ifdef HAS_READDIR64
1373# define readdir readdir64
1374# ifdef HAS_STRUCT_DIRENT64
1375# define dirent dirent64
1376# endif
1377# endif
1378# ifdef HAS_SEEKDIR64
1379# define seekdir seekdir64
1380# endif
1381# ifdef HAS_STAT64
1382# define stat stat64 /* Affects also struct stat, hopefully okay. */
1383# endif
1384# ifdef HAS_TELLDIR64
1385# define telldir telldir64
1386# endif
1387# ifdef HAS_TRUNCATE64
1388# define truncate truncate64
1389# endif
1390 /* flock is not #defined here to be flock64 because it seems
1391 that a system may have struct flock64 but still use flock()
1392 and not flock64(). The actual flocking code in pp_sys.c
1393 must be changed. Also lockf and lockf64 must be dealt
1394 with in pp_sys.c. --jhi */
1395# endif
1396# ifdef USE_64_BIT_STDIO
1397# ifdef HAS_FGETPOS64
1398# define fgetpos fgetpos64
1399# endif
1400# ifdef HAS_FOPEN64
1401# define fopen fopen64
1402# endif
1403# ifdef HAS_FREOPEN64
1404# define freopen freopen64
1405# endif
1406# ifdef HAS_FSEEK64
1407# define fseek fseek64
1408# endif
1409# ifdef HAS_FSEEKO64
1410# define fseeko fseeko64
1411# endif
1412# ifdef HAS_FSETPOS64
1413# define fsetpos fsetpos64
1414# endif
1415# ifdef HAS_FTELL64
1416# define ftell ftell64
1417# endif
1418# ifdef HAS_FTELLO64
1419# define ftello ftello64
1420# endif
1421# ifdef HAS_TMPFILE64
1422# define tmpfile tmpfile64
1423# endif
1424# endif
1425# ifdef USE_64_BIT_DBM
1426# ifdef HAS_DBMINIT64
1427# define dbminit dbminit64
1428# endif
1429# ifdef HAS_DBMCLOSE64
1430# define dbmclose dbmclose64
1431# endif
1432# ifdef HAS_FETCH64
1433# define fetch fetch64
1434# endif
1435# ifdef HAS_DELETE64
1436# define delete delete64
1437# endif
1438# ifdef HAS_STORE64
1439# define store store64
1440# endif
1441# ifdef HAS_FIRSTKEY64
1442# define firstkey firstkey64
1443# endif
1444# ifdef HAS_NEXTKEY64
1445# define nextkey nextkey64
1446# endif
1447# endif
1448#endif
1449
3cfae81b 1450#if defined(OS2)
1451# include "iperlsys.h"
1452#endif
1453
6f71a643 1454#if defined(__OPEN_VM)
1455# include "vmesa/vmesaish.h"
1456#endif
1457
748a9306 1458#ifdef DOSISH
4633a7c4 1459# if defined(OS2)
1460# include "os2ish.h"
1461# else
748a9306 1462# include "dosish.h"
4633a7c4 1463# endif
a0d0e21e 1464#else
748a9306 1465# if defined(VMS)
1466# include "vmsish.h"
1467# else
0c30d9ec 1468# if defined(PLAN9)
1469# include "./plan9/plan9ish.h"
1470# else
1d84e8df 1471# if defined(MPE)
1472# include "mpeix/mpeixish.h"
1473# else
495c5fdc 1474# if defined(__VOS__)
1475# include "vosish.h"
1476# else
4d2c4e07 1477# if defined(EPOC)
1478# include "epocish.h"
1479# else
1480# include "unixish.h"
1481# endif
495c5fdc 1482# endif
1d84e8df 1483# endif
0c30d9ec 1484# endif
748a9306 1485# endif
32f822de 1486#endif
1487
0f31cffe 1488#ifndef MAXPATHLEN
1489# ifdef PATH_MAX
b990c8b2 1490# ifdef _POSIX_PATH_MAX
1491# if PATH_MAX > _POSIX_PATH_MAX
1492/* MAXPATHLEN is supposed to include the final null character,
1493 * as opposed to PATH_MAX and _POSIX_PATH_MAX. */
1494# define MAXPATHLEN (PATH_MAX+1)
1495# else
1496# define MAXPATHLEN (_POSIX_PATH_MAX+1)
1497# endif
1498# else
1499# define MAXPATHLEN (PATH_MAX+1)
1500# endif
0f31cffe 1501# else
b990c8b2 1502# ifdef _POSIX_PATH_MAX
1503# define MAXPATHLEN (_POSIX_PATH_MAX+1)
1504# else
1505# define MAXPATHLEN 1024 /* Err on the large side. */
1506# endif
0f31cffe 1507# endif
1508#endif
1509
32f822de 1510/*
dd96f567 1511 * USE_THREADS needs to be after unixish.h as <pthread.h> includes
1512 * <sys/signal.h> which defines NSIG - which will stop inclusion of <signal.h>
32f822de 1513 * this results in many functions being undeclared which bothers C++
1514 * May make sense to have threads after "*ish.h" anyway
1515 */
1516
1517#ifdef USE_THREADS
79d59c5f 1518 /* pending resolution of licensing issues, we avoid the erstwhile
1519 * atomic.h everywhere */
1520# define EMULATE_ATOMIC_REFCOUNTS
1521
32f822de 1522# ifdef FAKE_THREADS
1523# include "fakethr.h"
1524# else
1525# ifdef WIN32
1526# include <win32thread.h>
1527# else
dd96f567 1528# ifdef OS2
1529# include "os2thread.h"
1530# else
7f3d1cf1 1531# ifdef I_MACH_CTHREADS
bdd66968 1532# include <mach/cthreads.h>
8f1f23e8 1533# if (defined(NeXT) || defined(__NeXT__)) && defined(PERL_POLLUTE_MALLOC)
772fe5b3 1534# define MUTEX_INIT_CALLS_MALLOC
1535# endif
7f3d1cf1 1536typedef cthread_t perl_os_thread;
1537typedef mutex_t perl_mutex;
1538typedef condition_t perl_cond;
1539typedef void * perl_key;
1540# else /* Posix threads */
1541# include <pthread.h>
1542typedef pthread_t perl_os_thread;
1543typedef pthread_mutex_t perl_mutex;
1544typedef pthread_cond_t perl_cond;
1545typedef pthread_key_t perl_key;
1546# endif /* I_MACH_CTHREADS */
dd96f567 1547# endif /* OS2 */
32f822de 1548# endif /* WIN32 */
1549# endif /* FAKE_THREADS */
1550#endif /* USE_THREADS */
c5be433b 1551
1552#ifdef WIN32
1553#include "win32.h"
1554#endif
1555
68dc0745 1556#ifdef VMS
6b88bc9c 1557# define STATUS_NATIVE PL_statusvalue_vms
68dc0745 1558# define STATUS_NATIVE_EXPORT \
6b88bc9c 1559 ((I32)PL_statusvalue_vms == -1 ? 44 : PL_statusvalue_vms)
68dc0745 1560# define STATUS_NATIVE_SET(n) \
1561 STMT_START { \
6b88bc9c 1562 PL_statusvalue_vms = (n); \
1563 if ((I32)PL_statusvalue_vms == -1) \
3280af22 1564 PL_statusvalue = -1; \
6b88bc9c 1565 else if (PL_statusvalue_vms & STS$M_SUCCESS) \
3280af22 1566 PL_statusvalue = 0; \
6b88bc9c 1567 else if ((PL_statusvalue_vms & STS$M_SEVERITY) == 0) \
1568 PL_statusvalue = 1 << 8; \
68dc0745 1569 else \
6b88bc9c 1570 PL_statusvalue = (PL_statusvalue_vms & STS$M_SEVERITY) << 8; \
68dc0745 1571 } STMT_END
3280af22 1572# define STATUS_POSIX PL_statusvalue
68dc0745 1573# ifdef VMSISH_STATUS
1574# define STATUS_CURRENT (VMSISH_STATUS ? STATUS_NATIVE : STATUS_POSIX)
1575# else
1576# define STATUS_CURRENT STATUS_POSIX
1577# endif
1578# define STATUS_POSIX_SET(n) \
1579 STMT_START { \
3280af22 1580 PL_statusvalue = (n); \
1581 if (PL_statusvalue != -1) { \
1582 PL_statusvalue &= 0xFFFF; \
6b88bc9c 1583 PL_statusvalue_vms = PL_statusvalue ? 44 : 1; \
68dc0745 1584 } \
6b88bc9c 1585 else PL_statusvalue_vms = -1; \
68dc0745 1586 } STMT_END
6b88bc9c 1587# define STATUS_ALL_SUCCESS (PL_statusvalue = 0, PL_statusvalue_vms = 1)
1588# define STATUS_ALL_FAILURE (PL_statusvalue = 1, PL_statusvalue_vms = 44)
68dc0745 1589#else
1590# define STATUS_NATIVE STATUS_POSIX
1591# define STATUS_NATIVE_EXPORT STATUS_POSIX
1592# define STATUS_NATIVE_SET STATUS_POSIX_SET
3280af22 1593# define STATUS_POSIX PL_statusvalue
68dc0745 1594# define STATUS_POSIX_SET(n) \
1595 STMT_START { \
3280af22 1596 PL_statusvalue = (n); \
1597 if (PL_statusvalue != -1) \
1598 PL_statusvalue &= 0xFFFF; \
68dc0745 1599 } STMT_END
1600# define STATUS_CURRENT STATUS_POSIX
3280af22 1601# define STATUS_ALL_SUCCESS (PL_statusvalue = 0)
1602# define STATUS_ALL_FAILURE (PL_statusvalue = 1)
68dc0745 1603#endif
1604
0b94c7bb 1605#ifndef MEMBER_TO_FPTR
1606#define MEMBER_TO_FPTR(name) name
1607#endif
1608
45bc9206 1609/* This defines a way to flush all output buffers. This may be a
1610 * performance issue, so we allow people to disable it.
1611 * XXX the default needs a Configure test, as it may not work everywhere.
1612 */
1613#ifndef PERL_FLUSHALL_FOR_CHILD
767df6a1 1614# if defined(FFLUSH_NULL) || defined(USE_SFIO)
66fe083f 1615# define PERL_FLUSHALL_FOR_CHILD PerlIO_flush((PerlIO*)NULL)
767df6a1 1616# else
1617# ifdef FFLUSH_ALL
1618# define PERL_FLUSHALL_FOR_CHILD my_fflush_all()
e2dbf222 1619# else
c5be433b 1620# define PERL_FLUSHALL_FOR_CHILD NOOP
767df6a1 1621# endif
66fe083f 1622# endif
45bc9206 1623#endif
1624
c5be433b 1625#ifndef PERL_SET_INTERP
1626# define PERL_SET_INTERP(i) (PL_curinterp = (PerlInterpreter*)(i))
1627#endif
1628
1629#ifndef PERL_GET_INTERP
1630# define PERL_GET_INTERP (PL_curinterp)
1631#endif
1632
3fc1aec6 1633/* Some unistd.h's give a prototype for pause() even though
1634 HAS_PAUSE ends up undefined. This causes the #define
1635 below to be rejected by the compmiler. Sigh.
1636*/
1637#ifdef HAS_PAUSE
1638#define Pause pause
1639#else
1640#define Pause() sleep((32767<<16)+32767)
748a9306 1641#endif
1642
1643#ifndef IOCPARM_LEN
1644# ifdef IOCPARM_MASK
1645 /* on BSDish systes we're safe */
1646# define IOCPARM_LEN(x) (((x) >> 16) & IOCPARM_MASK)
1647# else
1648 /* otherwise guess at what's safe */
1649# define IOCPARM_LEN(x) 256
1650# endif
a0d0e21e 1651#endif
1652
873b149f 1653#if defined(CYGWIN)
521e0776 1654/* USEMYBINMODE
1655 * This symbol, if defined, indicates that the program should
1656 * use the routine my_binmode(FILE *fp, char iotype) to insure
1657 * that a file is in "binary" mode -- that is, that no translation
1658 * of bytes occurs on read or write operations.
1659 */
1660# define USEMYBINMODE / **/
1661# define my_binmode(fp, iotype) \
6dce6b70 1662 (PerlLIO_setmode(PerlIO_fileno(fp), O_BINARY) != -1 ? TRUE : FALSE)
5aabfad6 1663#endif
1664
cea2e8a9 1665#ifdef UNION_ANY_DEFINITION
1666UNION_ANY_DEFINITION;
1667#else
1668union any {
1669 void* any_ptr;
1670 I32 any_i32;
1671 IV any_iv;
1672 long any_long;
51371543 1673 void (*any_dptr) (pTHXo_ void*);
cea2e8a9 1674};
1675#endif
1676
1677#ifdef USE_THREADS
1678#define ARGSproto struct perl_thread *thr
1679#else
1680#define ARGSproto
1681#endif /* USE_THREADS */
1682
0cb96387 1683typedef I32 (*filter_t) (pTHXo_ int, SV *, int);
cea2e8a9 1684
1685#define FILTER_READ(idx, sv, len) filter_read(idx, sv, len)
1686#define FILTER_DATA(idx) (AvARRAY(PL_rsfp_filters)[idx])
1687#define FILTER_ISREADER(idx) (idx >= AvFILLp(PL_rsfp_filters))
1688
3cfae81b 1689#if !defined(OS2)
1690# include "iperlsys.h"
1691#endif
378cc40b 1692#include "regexp.h"
79072805 1693#include "sv.h"
378cc40b 1694#include "util.h"
8d063cd8 1695#include "form.h"
79072805 1696#include "gv.h"
1697#include "cv.h"
79072805 1698#include "op.h"
1699#include "cop.h"
1700#include "av.h"
1701#include "hv.h"
1702#include "mg.h"
1703#include "scope.h"
599cee73 1704#include "warning.h"
a0ed51b3 1705#include "utf8.h"
8d063cd8 1706
7fae4e64 1707/* Current curly descriptor */
1708typedef struct curcur CURCUR;
1709struct curcur {
1710 int parenfloor; /* how far back to strip paren data */
1711 int cur; /* how many instances of scan we've matched */
1712 int min; /* the minimal number of scans to match */
1713 int max; /* the maximal number of scans to match */
1714 int minmod; /* whether to work our way up or down */
1715 regnode * scan; /* the thing to match */
1716 regnode * next; /* what has to match after it */
1717 char * lastloc; /* where we started matching this scan */
1718 CURCUR * oldcc; /* current curly before we started this one */
1719};
1720
1721typedef struct _sublex_info SUBLEXINFO;
1722struct _sublex_info {
1723 I32 super_state; /* lexer state to save */
1724 I32 sub_inwhat; /* "lex_inwhat" to use */
1725 OP *sub_op; /* "lex_op" to use */
0244c3a4 1726 char *super_bufptr; /* PL_bufptr that was */
1727 char *super_bufend; /* PL_bufend that was */
7fae4e64 1728};
1729
455ece5e 1730typedef struct magic_state MGS; /* struct magic_state defined in mg.c */
76e3520e 1731
82ba1be6 1732struct scan_data_t; /* Used in S_* functions in regcomp.c */
76e3520e 1733
1734typedef I32 CHECKPOINT;
76e3520e 1735
450a55e4 1736#if defined(iAPX286) || defined(M_I286) || defined(I80286)
a687059c 1737# define I286
1738#endif
1739
fe14fcc3 1740#if defined(htonl) && !defined(HAS_HTONL)
1741#define HAS_HTONL
ae986130 1742#endif
fe14fcc3 1743#if defined(htons) && !defined(HAS_HTONS)
1744#define HAS_HTONS
ae986130 1745#endif
fe14fcc3 1746#if defined(ntohl) && !defined(HAS_NTOHL)
1747#define HAS_NTOHL
ae986130 1748#endif
fe14fcc3 1749#if defined(ntohs) && !defined(HAS_NTOHS)
1750#define HAS_NTOHS
ae986130 1751#endif
fe14fcc3 1752#ifndef HAS_HTONL
d9d8d8de 1753#if (BYTEORDER & 0xffff) != 0x4321
fe14fcc3 1754#define HAS_HTONS
1755#define HAS_HTONL
1756#define HAS_NTOHS
1757#define HAS_NTOHL
a687059c 1758#define MYSWAP
1759#define htons my_swap
1760#define htonl my_htonl
1761#define ntohs my_swap
1762#define ntohl my_ntohl
1763#endif
1764#else
d9d8d8de 1765#if (BYTEORDER & 0xffff) == 0x4321
fe14fcc3 1766#undef HAS_HTONS
1767#undef HAS_HTONL
1768#undef HAS_NTOHS
1769#undef HAS_NTOHL
a687059c 1770#endif
1771#endif
1772
988174c1 1773/*
1774 * Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'.
1775 * -DWS
1776 */
1777#if BYTEORDER != 0x1234
1778# define HAS_VTOHL
1779# define HAS_VTOHS
1780# define HAS_HTOVL
1781# define HAS_HTOVS
c67712b2 1782# if BYTEORDER == 0x4321 || BYTEORDER == 0x87654321
988174c1 1783# define vtohl(x) ((((x)&0xFF)<<24) \
1784 +(((x)>>24)&0xFF) \
1785 +(((x)&0x0000FF00)<<8) \
1786 +(((x)&0x00FF0000)>>8) )
1787# define vtohs(x) ((((x)&0xFF)<<8) + (((x)>>8)&0xFF))
1788# define htovl(x) vtohl(x)
1789# define htovs(x) vtohs(x)
1790# endif
1791 /* otherwise default to functions in util.c */
1792#endif
1793
0f85fab0 1794#ifdef CASTNEGFLOAT
79072805 1795#define U_S(what) ((U16)(what))
0f85fab0 1796#define U_I(what) ((unsigned int)(what))
79072805 1797#define U_L(what) ((U32)(what))
0f85fab0 1798#else
65202027 1799#define U_S(what) ((U16)cast_ulong((NV)(what)))
1800#define U_I(what) ((unsigned int)cast_ulong((NV)(what)))
1801#define U_L(what) (cast_ulong((NV)(what)))
ee0007ab 1802#endif
1803
ed6116ce 1804#ifdef CASTI32
1805#define I_32(what) ((I32)(what))
a0d0e21e 1806#define I_V(what) ((IV)(what))
5d94fbed 1807#define U_V(what) ((UV)(what))
ed6116ce 1808#else
65202027 1809#define I_32(what) (cast_i32((NV)(what)))
1810#define I_V(what) (cast_iv((NV)(what)))
1811#define U_V(what) (cast_uv((NV)(what)))
ed6116ce 1812#endif
1813
25da4f38 1814/* Used with UV/IV arguments: */
1815 /* XXXX: need to speed it up */
1816#define CLUMP_2UV(iv) ((iv) < 0 ? 0 : (UV)(iv))
1817#define CLUMP_2IV(uv) ((uv) > (UV)IV_MAX ? IV_MAX : (IV)(uv))
1818
79072805 1819struct Outrec {
1820 I32 o_lines;
d9d8d8de 1821 char *o_str;
79072805 1822 U32 o_len;
8d063cd8 1823};
1824
352d5a3a 1825#ifndef MAXSYSFD
1826# define MAXSYSFD 2
1827#endif
ee0007ab 1828
f82b3d41 1829#ifndef TMPPATH
1830# define TMPPATH "/tmp/perl-eXXXXXX"
a0d0e21e 1831#endif
79072805 1832
1833#ifndef __cplusplus
20ce7b12 1834Uid_t getuid (void);
1835Uid_t geteuid (void);
1836Gid_t getgid (void);
1837Gid_t getegid (void);
79072805 1838#endif
8d063cd8 1839
0c30d9ec 1840#ifndef Perl_debug_log
760ac839 1841#define Perl_debug_log PerlIO_stderr()
0c30d9ec 1842#endif
3967c732 1843
1844#ifdef DEBUGGING
9d116dd7 1845#undef YYDEBUG
d96024cf 1846#define YYDEBUG 1
79072805 1847#define DEB(a) a
3280af22 1848#define DEBUG(a) if (PL_debug) a
1849#define DEBUG_p(a) if (PL_debug & 1) a
1850#define DEBUG_s(a) if (PL_debug & 2) a
1851#define DEBUG_l(a) if (PL_debug & 4) a
1852#define DEBUG_t(a) if (PL_debug & 8) a
1853#define DEBUG_o(a) if (PL_debug & 16) a
1854#define DEBUG_c(a) if (PL_debug & 32) a
1855#define DEBUG_P(a) if (PL_debug & 64) a
0672f40e 1856# if defined(PERL_OBJECT)
c850101c 1857# define DEBUG_m(a) if (PL_debug & 128) a
1858# else
c5be433b 1859# define DEBUG_m(a) if (PERL_GET_INTERP && PL_debug & 128) a
c850101c 1860# endif
3280af22 1861#define DEBUG_f(a) if (PL_debug & 256) a
1862#define DEBUG_r(a) if (PL_debug & 512) a
1863#define DEBUG_x(a) if (PL_debug & 1024) a
1864#define DEBUG_u(a) if (PL_debug & 2048) a
1865#define DEBUG_L(a) if (PL_debug & 4096) a
1866#define DEBUG_H(a) if (PL_debug & 8192) a
1867#define DEBUG_X(a) if (PL_debug & 16384) a
1868#define DEBUG_D(a) if (PL_debug & 32768) a
8b73bbec 1869# ifdef USE_THREADS
1870# define DEBUG_S(a) if (PL_debug & (1<<16)) a
1871# else
1872# define DEBUG_S(a)
1873# endif
79072805 1874#else
1875#define DEB(a)
1876#define DEBUG(a)
1877#define DEBUG_p(a)
1878#define DEBUG_s(a)
1879#define DEBUG_l(a)
1880#define DEBUG_t(a)
1881#define DEBUG_o(a)
1882#define DEBUG_c(a)
1883#define DEBUG_P(a)
1884#define DEBUG_m(a)
1885#define DEBUG_f(a)
1886#define DEBUG_r(a)
1887#define DEBUG_x(a)
1888#define DEBUG_u(a)
8b73bbec 1889#define DEBUG_S(a)
79072805 1890#define DEBUG_H(a)
1891#define DEBUG_X(a)
8990e307 1892#define DEBUG_D(a)
8b73bbec 1893#define DEBUG_S(a)
8d063cd8 1894#endif
fe14fcc3 1895#define YYMAXDEPTH 300
8d063cd8 1896
a6e633de 1897#ifndef assert /* <assert.h> might have been included somehow */
79072805 1898#define assert(what) DEB( { \
1899 if (!(what)) { \
cea2e8a9 1900 Perl_croak(aTHX_ "Assertion failed: file \"%s\", line %d", \
79072805 1901 __FILE__, __LINE__); \
cea2e8a9 1902 PerlProc_exit(1); \
79072805 1903 }})
a6e633de 1904#endif
8d063cd8 1905
450a55e4 1906struct ufuncs {
20ce7b12 1907 I32 (*uf_val)(IV, SV*);
1908 I32 (*uf_set)(IV, SV*);
a0d0e21e 1909 IV uf_index;
450a55e4 1910};
1911
fe14fcc3 1912/* Fix these up for __STDC__ */
68dc0745 1913#ifndef DONT_DECLARE_STD
20ce7b12 1914char *mktemp (char*);
1915double atof (const char*);
a0d0e21e 1916#endif
79072805 1917
352d5a3a 1918#ifndef STANDARD_C
fe14fcc3 1919/* All of these are in stdlib.h or time.h for ANSI C */
85e6fe83 1920Time_t time();
8d063cd8 1921struct tm *gmtime(), *localtime();
092bebab 1922#if defined(OEMVS) || defined(__OPEN_VM)
9d116dd7 1923char *(strchr)(), *(strrchr)();
1924char *(strcpy)(), *(strcat)();
1925#else
93a17b20 1926char *strchr(), *strrchr();
378cc40b 1927char *strcpy(), *strcat();
9d116dd7 1928#endif
352d5a3a 1929#endif /* ! STANDARD_C */
8d063cd8 1930
79072805 1931
1932#ifdef I_MATH
1933# include <math.h>
1934#else
32f822de 1935START_EXTERN_C
20ce7b12 1936 double exp (double);
1937 double log (double);
1938 double log10 (double);
1939 double sqrt (double);
1940 double frexp (double,int*);
1941 double ldexp (double,int);
1942 double modf (double,double*);
1943 double sin (double);
1944 double cos (double);
1945 double atan2 (double,double);
1946 double pow (double,double);
32f822de 1947END_EXTERN_C
79072805 1948#endif
1949
a0d0e21e 1950#ifndef __cplusplus
8f1f23e8 1951# if defined(NeXT) || defined(__NeXT__) /* or whatever catches all NeXTs */
3fc1aec6 1952char *crypt (); /* Maybe more hosts will need the unprototyped version */
26618a56 1953# else
1954# if !defined(WIN32) || !defined(HAVE_DES_FCRYPT)
20ce7b12 1955char *crypt (const char*, const char*);
26618a56 1956# endif /* !WIN32 && !HAVE_CRYPT_SOURCE */
8f1f23e8 1957# endif /* !NeXT && !__NeXT__ */
26618a56 1958# ifndef DONT_DECLARE_STD
1959# ifndef getenv
20ce7b12 1960char *getenv (const char*);
26618a56 1961# endif /* !getenv */
4d2c4e07 1962#ifndef EPOC
20ce7b12 1963Off_t lseek (int,Off_t,int);
4d2c4e07 1964#endif
26618a56 1965# endif /* !DONT_DECLARE_STD */
20ce7b12 1966char *getlogin (void);
26618a56 1967#endif /* !__cplusplus */
79072805 1968
16d20bd9 1969#ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */
378cc40b 1970#define UNLINK unlnk
20ce7b12 1971I32 unlnk (char*);
8d063cd8 1972#else
80252599 1973#define UNLINK PerlLIO_unlink
8d063cd8 1974#endif
a687059c 1975
fe14fcc3 1976#ifndef HAS_SETREUID
85e6fe83 1977# ifdef HAS_SETRESUID
1978# define setreuid(r,e) setresuid(r,e,(Uid_t)-1)
1979# define HAS_SETREUID
1980# endif
a687059c 1981#endif
fe14fcc3 1982#ifndef HAS_SETREGID
85e6fe83 1983# ifdef HAS_SETRESGID
1984# define setregid(r,e) setresgid(r,e,(Gid_t)-1)
1985# define HAS_SETREGID
1986# endif
a687059c 1987#endif
ee0007ab 1988
20ce7b12 1989typedef Signal_t (*Sighandler_t) (int);
ff68c719 1990
1991#ifdef HAS_SIGACTION
1992typedef struct sigaction Sigsave_t;
1993#else
1994typedef Sighandler_t Sigsave_t;
1995#endif
1996
ee0007ab 1997#define SCAN_DEF 0
1998#define SCAN_TR 1
1999#define SCAN_REPL 2
79072805 2000
2001#ifdef DEBUGGING
4633a7c4 2002# ifndef register
a0d0e21e 2003# define register
2004# endif
2005# define PAD_SV(po) pad_sv(po)
cea2e8a9 2006# define RUNOPS_DEFAULT Perl_runops_debug
79072805 2007#else
6b88bc9c 2008# define PAD_SV(po) PL_curpad[po]
cea2e8a9 2009# define RUNOPS_DEFAULT Perl_runops_standard
79072805 2010#endif
2011
18f739ee 2012#ifdef MYMALLOC
772fe5b3 2013# ifdef MUTEX_INIT_CALLS_MALLOC
3541dd58 2014# define MALLOC_INIT \
2015 STMT_START { \
2016 PL_malloc_mutex = NULL; \
2017 MUTEX_INIT(&PL_malloc_mutex); \
2018 } STMT_END
2019# define MALLOC_TERM \
2020 STMT_START { \
2021 perl_mutex tmp = PL_malloc_mutex; \
2022 PL_malloc_mutex = NULL; \
2023 MUTEX_DESTROY(&tmp); \
2024 } STMT_END
2025# else
2026# define MALLOC_INIT MUTEX_INIT(&PL_malloc_mutex)
2027# define MALLOC_TERM MUTEX_DESTROY(&PL_malloc_mutex)
2028# endif
18f739ee 2029#else
2030# define MALLOC_INIT
2031# define MALLOC_TERM
2032#endif
2033
b6d9d515 2034
0cb96387 2035typedef int (CPERLscope(*runops_proc_t)) (pTHX);
2036typedef OP* (CPERLscope(*PPADDR_t)[]) (pTHX);
22c35a8c 2037
940cb80d 2038/* _ (for $_) must be first in the following list (DEFSV requires it) */
54b9620d 2039#define THREADSV_NAMES "_123456789&`'+/.,\\\";^-%=|~:\001\005!@"
a863c7d1 2040
8f1f23e8 2041/* NeXT has problems with crt0.o globals */
2042#if defined(__DYNAMIC__) && \
2043 (defined(NeXT) || defined(__NeXT__) || defined(__APPLE__))
2044# if defined(NeXT) || defined(__NeXT)
2045# include <mach-o/dyld.h>
2046# define environ (*environ_pointer)
0c30d9ec 2047EXT char *** environ_pointer;
8f1f23e8 2048# else
2049# if defined(__APPLE__)
2050# include <crt_externs.h> /* for the env array */
2051# define environ (*_NSGetEnviron())
2052# endif
0c30d9ec 2053# endif
8f1f23e8 2054#else
2055 /* VMS and some other platforms don't use the environ array */
a6c40364 2056# if !defined(VMS)
2057# if !defined(DONT_DECLARE_STD) || \
2058 (defined(__svr4__) && defined(__GNUC__) && defined(sun)) || \
2059 defined(__sgi) || \
4d2c4e07 2060 defined(__DGUX) || defined(EPOC)
8f1f23e8 2061extern char ** environ; /* environment variables supplied via exec */
a6c40364 2062# endif
8f1f23e8 2063# endif
2064#endif
79072805 2065
73c4f7a1 2066START_EXTERN_C
2067
79072805 2068/* handy constants */
22c35a8c 2069EXTCONST char PL_warn_uninit[]
a0d0e21e 2070 INIT("Use of uninitialized value");
22c35a8c 2071EXTCONST char PL_warn_nosemi[]
463ee0b2 2072 INIT("Semicolon seems to be missing");
22c35a8c 2073EXTCONST char PL_warn_reserved[]
463ee0b2 2074 INIT("Unquoted string \"%s\" may clash with future reserved word");
22c35a8c 2075EXTCONST char PL_warn_nl[]
93a17b20 2076 INIT("Unsuccessful %s on filename containing newline");
22c35a8c 2077EXTCONST char PL_no_wrongref[]
a0d0e21e 2078 INIT("Can't use %s ref as %s ref");
22c35a8c 2079EXTCONST char PL_no_symref[]
748a9306 2080 INIT("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use");
22c35a8c 2081EXTCONST char PL_no_usym[]
8990e307 2082 INIT("Can't use an undefined value as %s reference");
22c35a8c 2083EXTCONST char PL_no_aelem[]
93a17b20 2084 INIT("Modification of non-creatable array value attempted, subscript %d");
22c35a8c 2085EXTCONST char PL_no_helem[]
93a17b20 2086 INIT("Modification of non-creatable hash value attempted, subscript \"%s\"");
22c35a8c 2087EXTCONST char PL_no_modify[]
93a17b20 2088 INIT("Modification of a read-only value attempted");
22c35a8c 2089EXTCONST char PL_no_mem[]
93a17b20 2090 INIT("Out of memory!\n");
22c35a8c 2091EXTCONST char PL_no_security[]
463ee0b2 2092 INIT("Insecure dependency in %s%s");
22c35a8c 2093EXTCONST char PL_no_sock_func[]
93a17b20 2094 INIT("Unsupported socket function \"%s\" called");
22c35a8c 2095EXTCONST char PL_no_dir_func[]
93a17b20 2096 INIT("Unsupported directory function \"%s\" called");
22c35a8c 2097EXTCONST char PL_no_func[]
93a17b20 2098 INIT("The %s function is unimplemented");
22c35a8c 2099EXTCONST char PL_no_myglob[]
748a9306 2100 INIT("\"my\" variable %s can't be in a package");
93a17b20 2101
7575fa06 2102EXTCONST char PL_uuemap[65]
80252599 2103 INIT("`!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_");
2104
2105
79072805 2106#ifdef DOINIT
22c35a8c 2107EXT char *PL_sig_name[] = { SIG_NAME };
2108EXT int PL_sig_num[] = { SIG_NUM };
2109EXT SV * PL_psig_ptr[sizeof(PL_sig_num)/sizeof(*PL_sig_num)];
2110EXT SV * PL_psig_name[sizeof(PL_sig_num)/sizeof(*PL_sig_num)];
79072805 2111#else
22c35a8c 2112EXT char *PL_sig_name[];
2113EXT int PL_sig_num[];
2114EXT SV * PL_psig_ptr[];
2115EXT SV * PL_psig_name[];
79072805 2116#endif
2117
bbce6d69 2118/* fast case folding tables */
2119
79072805 2120#ifdef DOINIT
9d116dd7 2121#ifdef EBCDIC
22c35a8c 2122EXT unsigned char PL_fold[] = { /* fast EBCDIC case folding table */
9d116dd7 2123 0, 1, 2, 3, 4, 5, 6, 7,
2124 8, 9, 10, 11, 12, 13, 14, 15,
2125 16, 17, 18, 19, 20, 21, 22, 23,
2126 24, 25, 26, 27, 28, 29, 30, 31,
2127 32, 33, 34, 35, 36, 37, 38, 39,
2128 40, 41, 42, 43, 44, 45, 46, 47,
2129 48, 49, 50, 51, 52, 53, 54, 55,
2130 56, 57, 58, 59, 60, 61, 62, 63,
2131 64, 65, 66, 67, 68, 69, 70, 71,
2132 72, 73, 74, 75, 76, 77, 78, 79,
2133 80, 81, 82, 83, 84, 85, 86, 87,
2134 88, 89, 90, 91, 92, 93, 94, 95,
2135 96, 97, 98, 99, 100, 101, 102, 103,
2136 104, 105, 106, 107, 108, 109, 110, 111,
2137 112, 113, 114, 115, 116, 117, 118, 119,
2138 120, 121, 122, 123, 124, 125, 126, 127,
2139 128, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
2140 'H', 'I', 138, 139, 140, 141, 142, 143,
2141 144, 'J', 'K', 'L', 'M', 'N', 'O', 'P',
2142 'Q', 'R', 154, 155, 156, 157, 158, 159,
2143 160, 161, 'S', 'T', 'U', 'V', 'W', 'X',
2144 'Y', 'Z', 170, 171, 172, 173, 174, 175,
2145 176, 177, 178, 179, 180, 181, 182, 183,
2146 184, 185, 186, 187, 188, 189, 190, 191,
2147 192, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
2148 'h', 'i', 202, 203, 204, 205, 206, 207,
2149 208, 'j', 'k', 'l', 'm', 'n', 'o', 'p',
2150 'q', 'r', 218, 219, 220, 221, 222, 223,
2151 224, 225, 's', 't', 'u', 'v', 'w', 'x',
2152 'y', 'z', 234, 235, 236, 237, 238, 239,
2153 240, 241, 242, 243, 244, 245, 246, 247,
2154 248, 249, 250, 251, 252, 253, 254, 255
2155};
2156#else /* ascii rather than ebcdic */
22c35a8c 2157EXTCONST unsigned char PL_fold[] = {
79072805 2158 0, 1, 2, 3, 4, 5, 6, 7,
2159 8, 9, 10, 11, 12, 13, 14, 15,
2160 16, 17, 18, 19, 20, 21, 22, 23,
2161 24, 25, 26, 27, 28, 29, 30, 31,
2162 32, 33, 34, 35, 36, 37, 38, 39,
2163 40, 41, 42, 43, 44, 45, 46, 47,
2164 48, 49, 50, 51, 52, 53, 54, 55,
2165 56, 57, 58, 59, 60, 61, 62, 63,
2166 64, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
2167 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
2168 'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
2169 'x', 'y', 'z', 91, 92, 93, 94, 95,
2170 96, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
2171 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
2172 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
2173 'X', 'Y', 'Z', 123, 124, 125, 126, 127,
2174 128, 129, 130, 131, 132, 133, 134, 135,
2175 136, 137, 138, 139, 140, 141, 142, 143,
2176 144, 145, 146, 147, 148, 149, 150, 151,
2177 152, 153, 154, 155, 156, 157, 158, 159,
2178 160, 161, 162, 163, 164, 165, 166, 167,
2179 168, 169, 170, 171, 172, 173, 174, 175,
2180 176, 177, 178, 179, 180, 181, 182, 183,
2181 184, 185, 186, 187, 188, 189, 190, 191,
2182 192, 193, 194, 195, 196, 197, 198, 199,
2183 200, 201, 202, 203, 204, 205, 206, 207,
2184 208, 209, 210, 211, 212, 213, 214, 215,
2185 216, 217, 218, 219, 220, 221, 222, 223,
2186 224, 225, 226, 227, 228, 229, 230, 231,
2187 232, 233, 234, 235, 236, 237, 238, 239,
2188 240, 241, 242, 243, 244, 245, 246, 247,
2189 248, 249, 250, 251, 252, 253, 254, 255
2190};
9d116dd7 2191#endif /* !EBCDIC */
79072805 2192#else
22c35a8c 2193EXTCONST unsigned char PL_fold[];
79072805 2194#endif
2195
2196#ifdef DOINIT
22c35a8c 2197EXT unsigned char PL_fold_locale[] = {
79072805 2198 0, 1, 2, 3, 4, 5, 6, 7,
2199 8, 9, 10, 11, 12, 13, 14, 15,
2200 16, 17, 18, 19, 20, 21, 22, 23,
2201 24, 25, 26, 27, 28, 29, 30, 31,
2202 32, 33, 34, 35, 36, 37, 38, 39,
2203 40, 41, 42, 43, 44, 45, 46, 47,
2204 48, 49, 50, 51, 52, 53, 54, 55,
2205 56, 57, 58, 59, 60, 61, 62, 63,
2206 64, 'a', 'b', 'c', 'd', 'e', 'f', 'g',
2207 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o',
2208 'p', 'q', 'r', 's', 't', 'u', 'v', 'w',
2209 'x', 'y', 'z', 91, 92, 93, 94, 95,
2210 96, 'A', 'B', 'C', 'D', 'E', 'F', 'G',
2211 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
2212 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W',
2213 'X', 'Y', 'Z', 123, 124, 125, 126, 127,
2214 128, 129, 130, 131, 132, 133, 134, 135,
2215 136, 137, 138, 139, 140, 141, 142, 143,
2216 144, 145, 146, 147, 148, 149, 150, 151,
2217 152, 153, 154, 155, 156, 157, 158, 159,
2218 160, 161, 162, 163, 164, 165, 166, 167,
2219 168, 169, 170, 171, 172, 173, 174, 175,
2220 176, 177, 178, 179, 180, 181, 182, 183,
2221 184, 185, 186, 187, 188, 189, 190, 191,
2222 192, 193, 194, 195, 196, 197, 198, 199,
2223 200, 201, 202, 203, 204, 205, 206, 207,
2224 208, 209, 210, 211, 212, 213, 214, 215,
2225 216, 217, 218, 219, 220, 221, 222, 223,
2226 224, 225, 226, 227, 228, 229, 230, 231,
2227 232, 233, 234, 235, 236, 237, 238, 239,
2228 240, 241, 242, 243, 244, 245, 246, 247,
2229 248, 249, 250, 251, 252, 253, 254, 255
2230};
2231#else
22c35a8c 2232EXT unsigned char PL_fold_locale[];
79072805 2233#endif
2234
2235#ifdef DOINIT
9d116dd7 2236#ifdef EBCDIC
22c35a8c 2237EXT unsigned char PL_freq[] = {/* EBCDIC frequencies for mixed English/C */
9d116dd7 2238 1, 2, 84, 151, 154, 155, 156, 157,
2239 165, 246, 250, 3, 158, 7, 18, 29,
2240 40, 51, 62, 73, 85, 96, 107, 118,
2241 129, 140, 147, 148, 149, 150, 152, 153,
2242 255, 6, 8, 9, 10, 11, 12, 13,
2243 14, 15, 24, 25, 26, 27, 28, 226,
2244 29, 30, 31, 32, 33, 43, 44, 45,
2245 46, 47, 48, 49, 50, 76, 77, 78,
2246 79, 80, 81, 82, 83, 84, 85, 86,
2247 87, 94, 95, 234, 181, 233, 187, 190,
2248 180, 96, 97, 98, 99, 100, 101, 102,
2249 104, 112, 182, 174, 236, 232, 229, 103,
2250 228, 226, 114, 115, 116, 117, 118, 119,
2251 120, 121, 122, 235, 176, 230, 194, 162,
2252 130, 131, 132, 133, 134, 135, 136, 137,
2253 138, 139, 201, 205, 163, 217, 220, 224,
2254 5, 248, 227, 244, 242, 255, 241, 231,
2255 240, 253, 16, 197, 19, 20, 21, 187,
2256 23, 169, 210, 245, 237, 249, 247, 239,
2257 168, 252, 34, 196, 36, 37, 38, 39,
2258 41, 42, 251, 254, 238, 223, 221, 213,
2259 225, 177, 52, 53, 54, 55, 56, 57,
2260 58, 59, 60, 61, 63, 64, 65, 66,
2261 67, 68, 69, 70, 71, 72, 74, 75,
2262 205, 208, 186, 202, 200, 218, 198, 179,
2263 178, 214, 88, 89, 90, 91, 92, 93,
2264 217, 166, 170, 207, 199, 209, 206, 204,
2265 160, 212, 105, 106, 108, 109, 110, 111,
2266 203, 113, 216, 215, 192, 175, 193, 243,
2267 172, 161, 123, 124, 125, 126, 127, 128,
2268 222, 219, 211, 195, 188, 193, 185, 184,
2269 191, 183, 141, 142, 143, 144, 145, 146
2270};
2271#else /* ascii rather than ebcdic */
22c35a8c 2272EXTCONST unsigned char PL_freq[] = { /* letter frequencies for mixed English/C */
79072805 2273 1, 2, 84, 151, 154, 155, 156, 157,
2274 165, 246, 250, 3, 158, 7, 18, 29,
2275 40, 51, 62, 73, 85, 96, 107, 118,
2276 129, 140, 147, 148, 149, 150, 152, 153,
2277 255, 182, 224, 205, 174, 176, 180, 217,
2278 233, 232, 236, 187, 235, 228, 234, 226,
2279 222, 219, 211, 195, 188, 193, 185, 184,
2280 191, 183, 201, 229, 181, 220, 194, 162,
2281 163, 208, 186, 202, 200, 218, 198, 179,
2282 178, 214, 166, 170, 207, 199, 209, 206,
2283 204, 160, 212, 216, 215, 192, 175, 173,
2284 243, 172, 161, 190, 203, 189, 164, 230,
2285 167, 248, 227, 244, 242, 255, 241, 231,
2286 240, 253, 169, 210, 245, 237, 249, 247,
2287 239, 168, 252, 251, 254, 238, 223, 221,
2288 213, 225, 177, 197, 171, 196, 159, 4,
2289 5, 6, 8, 9, 10, 11, 12, 13,
2290 14, 15, 16, 17, 19, 20, 21, 22,
2291 23, 24, 25, 26, 27, 28, 30, 31,
2292 32, 33, 34, 35, 36, 37, 38, 39,
2293 41, 42, 43, 44, 45, 46, 47, 48,
2294 49, 50, 52, 53, 54, 55, 56, 57,
2295 58, 59, 60, 61, 63, 64, 65, 66,
2296 67, 68, 69, 70, 71, 72, 74, 75,
2297 76, 77, 78, 79, 80, 81, 82, 83,
2298 86, 87, 88, 89, 90, 91, 92, 93,
2299 94, 95, 97, 98, 99, 100, 101, 102,
2300 103, 104, 105, 106, 108, 109, 110, 111,
2301 112, 113, 114, 115, 116, 117, 119, 120,
2302 121, 122, 123, 124, 125, 126, 127, 128,
2303 130, 131, 132, 133, 134, 135, 136, 137,
2304 138, 139, 141, 142, 143, 144, 145, 146
2305};
9d116dd7 2306#endif
79072805 2307#else
22c35a8c 2308EXTCONST unsigned char PL_freq[];
79072805 2309#endif
2310
8990e307 2311#ifdef DEBUGGING
2312#ifdef DOINIT
22c35a8c 2313EXTCONST char* PL_block_type[] = {
8990e307 2314 "NULL",
2315 "SUB",
2316 "EVAL",
2317 "LOOP",
2318 "SUBST",
2319 "BLOCK",
2320};
2321#else
22c35a8c 2322EXTCONST char* PL_block_type[];
8990e307 2323#endif
2324#endif
2325
73c4f7a1 2326END_EXTERN_C
2327
79072805 2328/*****************************************************************************/
2329/* This lexer/parser stuff is currently global since yacc is hard to reenter */
2330/*****************************************************************************/
8990e307 2331/* XXX This needs to be revisited, since BEGIN makes yacc re-enter... */
79072805 2332
a0d0e21e 2333#include "perly.h"
2334
fb73857a 2335#define LEX_NOTPARSING 11 /* borrowed from toke.c */
2336
79072805 2337typedef enum {
2338 XOPERATOR,
2339 XTERM,
79072805 2340 XREF,
8990e307 2341 XSTATE,
a0d0e21e 2342 XBLOCK,
2343 XTERMBLOCK
79072805 2344} expectation;
2345
dc9e4912 2346enum { /* pass one of these to get_vtbl */
2347 want_vtbl_sv,
2348 want_vtbl_env,
2349 want_vtbl_envelem,
2350 want_vtbl_sig,
2351 want_vtbl_sigelem,
2352 want_vtbl_pack,
2353 want_vtbl_packelem,
2354 want_vtbl_dbline,
2355 want_vtbl_isa,
2356 want_vtbl_isaelem,
2357 want_vtbl_arylen,
2358 want_vtbl_glob,
2359 want_vtbl_mglob,
2360 want_vtbl_nkeys,
2361 want_vtbl_taint,
2362 want_vtbl_substr,
2363 want_vtbl_vec,
2364 want_vtbl_pos,
2365 want_vtbl_bm,
2366 want_vtbl_fm,
2367 want_vtbl_uvar,
2368 want_vtbl_defelem,
2369 want_vtbl_regexp,
2370 want_vtbl_collxfrm,
2371 want_vtbl_amagic,
2372 want_vtbl_amagicelem,
2373#ifdef USE_THREADS
2374 want_vtbl_mutex,
2375#endif
2376 want_vtbl_regdata,
810b8aa5 2377 want_vtbl_regdatum,
2378 want_vtbl_backref
dc9e4912 2379};
2380
85e6fe83 2381 /* Note: the lowest 8 bits are reserved for
2382 stuffing into op->op_private */
f3aa04c2 2383#define HINT_PRIVATE_MASK 0x000000ff
85e6fe83 2384#define HINT_INTEGER 0x00000001
2385#define HINT_STRICT_REFS 0x00000002
a0ed51b3 2386/* #define HINT_notused4 0x00000004 */
2387#define HINT_UTF8 0x00000008
2388/* #define HINT_notused10 0x00000010 */
2389 /* Note: 20,40,80 used for NATIVE_HINTS */
85e6fe83 2390
2391#define HINT_BLOCK_SCOPE 0x00000100
2392#define HINT_STRICT_SUBS 0x00000200
2393#define HINT_STRICT_VARS 0x00000400
bbce6d69 2394#define HINT_LOCALE 0x00000800
85e6fe83 2395
b3ac6de7 2396#define HINT_NEW_INTEGER 0x00001000
2397#define HINT_NEW_FLOAT 0x00002000
2398#define HINT_NEW_BINARY 0x00004000
2399#define HINT_NEW_STRING 0x00008000
2400#define HINT_NEW_RE 0x00010000
2401#define HINT_LOCALIZE_HH 0x00020000 /* %^H needs to be copied */
2402
b3eb6a9b 2403#define HINT_RE_TAINT 0x00100000
e4d48cc9 2404#define HINT_RE_EVAL 0x00200000
b3eb6a9b 2405
5ff3f7a4 2406#define HINT_FILETEST_ACCESS 0x00400000
2407
d4cce5f1 2408/* Various states of an input record separator SV (rs, nrs) */
2409#define RsSNARF(sv) (! SvOK(sv))
af7d13df 2410#define RsSIMPLE(sv) (SvOK(sv) && (! SvPOK(sv) || SvCUR(sv)))
2411#define RsPARA(sv) (SvPOK(sv) && ! SvCUR(sv))
5b2b9c68 2412#define RsRECORD(sv) (SvROK(sv) && (SvIV(SvRV(sv)) > 0))
79072805 2413
56953603 2414/* Enable variables which are pointers to functions */
0cb96387 2415typedef regexp*(CPERLscope(*regcomp_t)) (pTHX_ char* exp, char* xend, PMOP* pm);
2416typedef I32 (CPERLscope(*regexec_t)) (pTHX_ regexp* prog, char* stringarg,
2417 char* strend, char* strbeg, I32 minend,
2418 SV* screamer, void* data, U32 flags);
f722798b 2419typedef char* (CPERLscope(*re_intuit_start_t)) (pTHX_ regexp *prog, SV *sv,
2420 char *strpos, char *strend,
2421 U32 flags,
2422 struct re_scream_pos_data_s *d);
2423typedef SV* (CPERLscope(*re_intuit_string_t)) (pTHX_ regexp *prog);
2424typedef void (CPERLscope(*regfree_t)) (pTHX_ struct regexp* r);
56953603 2425
51371543 2426#ifdef USE_PURE_BISON
2427int Perl_yylex(pTHX_ YYSTYPE *lvalp, int *lcharp);
2428#endif
2429
2430typedef void (*DESTRUCTORFUNC_t) (pTHXo_ void*);
2431typedef void (*SVFUNC_t) (pTHXo_ SV*);
2432typedef I32 (*SVCOMPARE_t) (pTHXo_ SV*, SV*);
2433typedef void (*XSINIT_t) (pTHXo);
2434typedef void (*ATEXIT_t) (pTHXo_ void*);
2435typedef void (*XSUBADDR_t) (pTHXo_ CV *);
15e52e56 2436
22239a37 2437/* Set up PERLVAR macros for populating structs */
2438#define PERLVAR(var,type) type var;
51371543 2439#define PERLVARA(var,n,type) type var[n];
22239a37 2440#define PERLVARI(var,type,init) type var;
3fe35a81 2441#define PERLVARIC(var,type,init) type var;
22239a37 2442
58a50f62 2443/* Interpreter exitlist entry */
2444typedef struct exitlistentry {
0cb96387 2445 void (*fn) (pTHXo_ void*);
58a50f62 2446 void *ptr;
2447} PerlExitListEntry;
2448
76e3520e 2449#ifdef PERL_OBJECT
0cb96387 2450#undef perl_alloc
2451#define perl_alloc Perl_alloc
2452CPerlObj* Perl_alloc (IPerlMem*, IPerlEnv*, IPerlStdIO*, IPerlLIO*, IPerlDir*, IPerlSock*, IPerlProc*);
76e3520e 2453
76e3520e 2454#undef EXT
2455#define EXT
2456#undef EXTCONST
2457#define EXTCONST
2458#undef INIT
2459#define INIT(x)
2460
2461class CPerlObj {
2462public:
2463 CPerlObj(IPerlMem*, IPerlEnv*, IPerlStdIO*, IPerlLIO*, IPerlDir*, IPerlSock*, IPerlProc*);
2464 void Init(void);
2465 void* operator new(size_t nSize, IPerlMem *pvtbl);
3075ddba 2466 static void operator delete(void* pPerl, IPerlMem *pvtbl);
76e3520e 2467#endif /* PERL_OBJECT */
2468
22239a37 2469#ifdef PERL_GLOBAL_STRUCT
2470struct perl_vars {
2471#include "perlvars.h"
2472};
2473
2474#ifdef PERL_CORE
533c011a 2475EXT struct perl_vars PL_Vars;
2476EXT struct perl_vars *PL_VarsPtr INIT(&PL_Vars);
2477#else /* PERL_CORE */
873b149f 2478#if !defined(__GNUC__) || !(defined(WIN32) || defined(CYGWIN))
22239a37 2479EXT
533c011a 2480#endif /* WIN32 */
2481struct perl_vars *PL_VarsPtr;
2482#define PL_Vars (*((PL_VarsPtr) ? PL_VarsPtr : (PL_VarsPtr = Perl_GetVars())))
2483#endif /* PERL_CORE */
22239a37 2484#endif /* PERL_GLOBAL_STRUCT */
2485
8990e307 2486#ifdef MULTIPLICITY
d4cce5f1 2487/* If we have multiple interpreters define a struct
2488 holding variables which must be per-interpreter
2489 If we don't have threads anything that would have
2490 be per-thread is per-interpreter.
2491*/
2492
79072805 2493struct interpreter {
d4cce5f1 2494#include "thrdvar.h"
d4cce5f1 2495#include "intrpvar.h"
49f531da 2496};
d4cce5f1 2497
79072805 2498#else
49f531da 2499struct interpreter {
2500 char broiled;
2501};
79072805 2502#endif
2503
d4cce5f1 2504#ifdef USE_THREADS
2505/* If we have threads define a struct with all the variables
2506 * that have to be per-thread
49f531da 2507 */
8023c3ce 2508
79072805 2509
49f531da 2510struct perl_thread {
49f531da 2511#include "thrdvar.h"
79072805 2512};
d4cce5f1 2513
22fae026 2514typedef struct perl_thread *Thread;
2515
2516#else
2517typedef void *Thread;
22239a37 2518#endif
2519
2520/* Done with PERLVAR macros for now ... */
d4cce5f1 2521#undef PERLVAR
51371543 2522#undef PERLVARA
d4cce5f1 2523#undef PERLVARI
3fe35a81 2524#undef PERLVARIC
79072805 2525
22239a37 2526#include "thread.h"
79072805 2527#include "pp.h"
864dbfa3 2528
2529#ifndef PERL_CALLCONV
2530# define PERL_CALLCONV
2531#endif
2532
2533#ifdef PERL_OBJECT
2534# define VIRTUAL virtual PERL_CALLCONV
2535#else
2536# define VIRTUAL PERL_CALLCONV
0cb96387 2537/*START_EXTERN_C*/
864dbfa3 2538#endif
2539
2540#ifndef NEXT30_NO_ATTRIBUTE
2541# ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
2542# ifdef __attribute__ /* Avoid possible redefinition errors */
2543# undef __attribute__
2544# endif
2545# define __attribute__(attr)
2546# endif
2547#endif
2548
0cb96387 2549#ifdef PERL_OBJECT
2550#define PERL_DECL_PROT
2551#define perl_alloc Perl_alloc
2552#endif
864dbfa3 2553
79072805 2554#include "proto.h"
2555
0cb96387 2556#undef PERL_CKDEF
2557#undef PERL_PPDEF
2558#define PERL_CKDEF(s) OP *s (pTHX_ OP *o);
2559#define PERL_PPDEF(s) OP *s (pTHX);
2560#ifdef PERL_OBJECT
2561public:
2562#endif
2563
864dbfa3 2564#include "pp_proto.h"
2565
0cb96387 2566#ifdef PERL_OBJECT
0cb96387 2567VIRTUAL int CPerlObj::do_aspawn (void *vreally, void **vmark, void **vsp);
2568#undef PERL_DECL_PROT
2569#else
2570/*END_EXTERN_C*/
2571#endif
2572
864dbfa3 2573#ifndef PERL_OBJECT
0cb96387 2574/* this has structure inits, so it cannot be included before here */
2575# include "opcode.h"
864dbfa3 2576#endif
2577
d4cce5f1 2578/* The following must follow proto.h as #defines mess up syntax */
2579
22c35a8c 2580#if !defined(PERL_FOR_X2P)
2581# include "embedvar.h"
2582#endif
d4cce5f1 2583
2584/* Now include all the 'global' variables
2585 * If we don't have threads or multiple interpreters
2586 * these include variables that would have been their struct-s
2587 */
533c011a 2588
2589#define PERLVAR(var,type) EXT type PL_##var;
51371543 2590#define PERLVARA(var,n,type) EXT type PL_##var[n];
533c011a 2591#define PERLVARI(var,type,init) EXT type PL_##var INIT(init);
2592#define PERLVARIC(var,type,init) EXTCONST type PL_##var INIT(init);
d4cce5f1 2593
d4cce5f1 2594#ifndef MULTIPLICITY
d4cce5f1 2595
066ef5b5 2596# include "intrpvar.h"
2597# ifndef USE_THREADS
2598# include "thrdvar.h"
2599# endif
d4cce5f1 2600
22239a37 2601#endif
2602
76e3520e 2603#ifdef PERL_OBJECT
d0c1b099 2604/*
2605 * The following is a buffer where new variables must
2606 * be defined to maintain binary compatibility with PERL_OBJECT
2607 * for 5.005
2608 */
51371543 2609PERLVARA(object_compatibility,30, char)
76e3520e 2610};
2611
c5be433b 2612
22c35a8c 2613# include "embed.h"
2614# if defined(WIN32) && !defined(WIN32IO_IS_STDIO)
2615# define errno CPerlObj::ErrorNo()
2616# endif
76e3520e 2617
22c35a8c 2618# ifdef DOINIT
2619# include "INTERN.h"
2620# else
2621# include "EXTERN.h"
2622# endif
2623
2624/* this has structure inits, so it cannot be included before here */
2625# include "opcode.h"
2626
2627#endif /* PERL_OBJECT */
22239a37 2628
c5be433b 2629#ifndef PERL_GLOBAL_STRUCT
2630START_EXTERN_C
2631
2632# include "perlvars.h"
2633
2634END_EXTERN_C
2635#endif
2636
d4cce5f1 2637#undef PERLVAR
51371543 2638#undef PERLVARA
d4cce5f1 2639#undef PERLVARI
0f3f18a6 2640#undef PERLVARIC
79072805 2641
73c4f7a1 2642START_EXTERN_C
2643
79072805 2644#ifdef DOINIT
bbce6d69 2645
cea2e8a9 2646EXT MGVTBL PL_vtbl_sv = {Perl_magic_get,
2647 Perl_magic_set,
2648 Perl_magic_len,
463ee0b2 2649 0, 0};
cea2e8a9 2650EXT MGVTBL PL_vtbl_env = {0, Perl_magic_set_all_env,
2651 0, Perl_magic_clear_all_env,
66b1d557 2652 0};
cea2e8a9 2653EXT MGVTBL PL_vtbl_envelem = {0, Perl_magic_setenv,
2654 0, Perl_magic_clearenv,
85e6fe83 2655 0};
22c35a8c 2656EXT MGVTBL PL_vtbl_sig = {0, 0, 0, 0, 0};
cea2e8a9 2657EXT MGVTBL PL_vtbl_sigelem = {Perl_magic_getsig,
2658 Perl_magic_setsig,
2659 0, Perl_magic_clearsig,
0c30d9ec 2660 0};
cea2e8a9 2661EXT MGVTBL PL_vtbl_pack = {0, 0, Perl_magic_sizepack, Perl_magic_wipepack,
a0d0e21e 2662 0};
cea2e8a9 2663EXT MGVTBL PL_vtbl_packelem = {Perl_magic_getpack,
2664 Perl_magic_setpack,
2665 0, Perl_magic_clearpack,
463ee0b2 2666 0};
cea2e8a9 2667EXT MGVTBL PL_vtbl_dbline = {0, Perl_magic_setdbline,
463ee0b2 2668 0, 0, 0};
cea2e8a9 2669EXT MGVTBL PL_vtbl_isa = {0, Perl_magic_setisa,
2670 0, Perl_magic_setisa,
fb73857a 2671 0};
cea2e8a9 2672EXT MGVTBL PL_vtbl_isaelem = {0, Perl_magic_setisa,
463ee0b2 2673 0, 0, 0};
cea2e8a9 2674EXT MGVTBL PL_vtbl_arylen = {Perl_magic_getarylen,
2675 Perl_magic_setarylen,
463ee0b2 2676 0, 0, 0};
cea2e8a9 2677EXT MGVTBL PL_vtbl_glob = {Perl_magic_getglob,
2678 Perl_magic_setglob,
463ee0b2 2679 0, 0, 0};
cea2e8a9 2680EXT MGVTBL PL_vtbl_mglob = {0, Perl_magic_setmglob,
463ee0b2 2681 0, 0, 0};
cea2e8a9 2682EXT MGVTBL PL_vtbl_nkeys = {Perl_magic_getnkeys,
2683 Perl_magic_setnkeys,
99abf803 2684 0, 0, 0};
cea2e8a9 2685EXT MGVTBL PL_vtbl_taint = {Perl_magic_gettaint,Perl_magic_settaint,
463ee0b2 2686 0, 0, 0};
cea2e8a9 2687EXT MGVTBL PL_vtbl_substr = {Perl_magic_getsubstr, Perl_magic_setsubstr,
463ee0b2 2688 0, 0, 0};
cea2e8a9 2689EXT MGVTBL PL_vtbl_vec = {Perl_magic_getvec,
2690 Perl_magic_setvec,
463ee0b2 2691 0, 0, 0};
cea2e8a9 2692EXT MGVTBL PL_vtbl_pos = {Perl_magic_getpos,
2693 Perl_magic_setpos,
a0d0e21e 2694 0, 0, 0};
cea2e8a9 2695EXT MGVTBL PL_vtbl_bm = {0, Perl_magic_setbm,
463ee0b2 2696 0, 0, 0};
cea2e8a9 2697EXT MGVTBL PL_vtbl_fm = {0, Perl_magic_setfm,
55497cff 2698 0, 0, 0};
cea2e8a9 2699EXT MGVTBL PL_vtbl_uvar = {Perl_magic_getuvar,
2700 Perl_magic_setuvar,
463ee0b2 2701 0, 0, 0};
f93b4edd 2702#ifdef USE_THREADS
cea2e8a9 2703EXT MGVTBL PL_vtbl_mutex = {0, 0, 0, 0, Perl_magic_mutexfree};
f93b4edd 2704#endif /* USE_THREADS */
cea2e8a9 2705EXT MGVTBL PL_vtbl_defelem = {Perl_magic_getdefelem,Perl_magic_setdefelem,
02270b4e 2706 0, 0, 0};
a0d0e21e 2707
cea2e8a9 2708EXT MGVTBL PL_vtbl_regexp = {0,0,0,0, Perl_magic_freeregexp};
2709EXT MGVTBL PL_vtbl_regdata = {0, 0, Perl_magic_regdata_cnt, 0, 0};
2710EXT MGVTBL PL_vtbl_regdatum = {Perl_magic_regdatum_get, 0, 0, 0, 0};
c277df42 2711
36477c24 2712#ifdef USE_LOCALE_COLLATE
22c35a8c 2713EXT MGVTBL PL_vtbl_collxfrm = {0,
cea2e8a9 2714 Perl_magic_setcollxfrm,
bbce6d69 2715 0, 0, 0};
2716#endif
a0d0e21e 2717
cea2e8a9 2718EXT MGVTBL PL_vtbl_amagic = {0, Perl_magic_setamagic,
2719 0, 0, Perl_magic_setamagic};
2720EXT MGVTBL PL_vtbl_amagicelem = {0, Perl_magic_setamagic,
2721 0, 0, Perl_magic_setamagic};
a0d0e21e 2722
810b8aa5 2723EXT MGVTBL PL_vtbl_backref = {0, 0,
cea2e8a9 2724 0, 0, Perl_magic_killbackrefs};
810b8aa5 2725
bbce6d69 2726#else /* !DOINIT */
2727
22c35a8c 2728EXT MGVTBL PL_vtbl_sv;
2729EXT MGVTBL PL_vtbl_env;
2730EXT MGVTBL PL_vtbl_envelem;
2731EXT MGVTBL PL_vtbl_sig;
2732EXT MGVTBL PL_vtbl_sigelem;
2733EXT MGVTBL PL_vtbl_pack;
2734EXT MGVTBL PL_vtbl_packelem;
2735EXT MGVTBL PL_vtbl_dbline;
2736EXT MGVTBL PL_vtbl_isa;
2737EXT MGVTBL PL_vtbl_isaelem;
2738EXT MGVTBL PL_vtbl_arylen;
2739EXT MGVTBL PL_vtbl_glob;
2740EXT MGVTBL PL_vtbl_mglob;
2741EXT MGVTBL PL_vtbl_nkeys;
2742EXT MGVTBL PL_vtbl_taint;
2743EXT MGVTBL PL_vtbl_substr;
2744EXT MGVTBL PL_vtbl_vec;
2745EXT MGVTBL PL_vtbl_pos;
2746EXT MGVTBL PL_vtbl_bm;
2747EXT MGVTBL PL_vtbl_fm;
2748EXT MGVTBL PL_vtbl_uvar;
a0d0e21e 2749
f93b4edd 2750#ifdef USE_THREADS
22c35a8c 2751EXT MGVTBL PL_vtbl_mutex;
f93b4edd 2752#endif /* USE_THREADS */
2753
22c35a8c 2754EXT MGVTBL PL_vtbl_defelem;
2755EXT MGVTBL PL_vtbl_regexp;
2756EXT MGVTBL PL_vtbl_regdata;
2757EXT MGVTBL PL_vtbl_regdatum;
a0d0e21e 2758
36477c24 2759#ifdef USE_LOCALE_COLLATE
22c35a8c 2760EXT MGVTBL PL_vtbl_collxfrm;
bbce6d69 2761#endif
a0d0e21e 2762
22c35a8c 2763EXT MGVTBL PL_vtbl_amagic;
2764EXT MGVTBL PL_vtbl_amagicelem;
a0d0e21e 2765
810b8aa5 2766EXT MGVTBL PL_vtbl_backref;
2767
bbce6d69 2768#endif /* !DOINIT */
85e6fe83 2769
f5284f61 2770enum {
2771 fallback_amg, abs_amg,
2772 bool__amg, nomethod_amg,
2773 string_amg, numer_amg,
2774 add_amg, add_ass_amg,
2775 subtr_amg, subtr_ass_amg,
2776 mult_amg, mult_ass_amg,
2777 div_amg, div_ass_amg,
2778 modulo_amg, modulo_ass_amg,
2779 pow_amg, pow_ass_amg,
2780 lshift_amg, lshift_ass_amg,
2781 rshift_amg, rshift_ass_amg,
2782 band_amg, band_ass_amg,
2783 bor_amg, bor_ass_amg,
2784 bxor_amg, bxor_ass_amg,
2785 lt_amg, le_amg,
2786 gt_amg, ge_amg,
2787 eq_amg, ne_amg,
2788 ncmp_amg, scmp_amg,
2789 slt_amg, sle_amg,
2790 sgt_amg, sge_amg,
2791 seq_amg, sne_amg,
2792 not_amg, compl_amg,
2793 inc_amg, dec_amg,
2794 atan2_amg, cos_amg,
2795 sin_amg, exp_amg,
2796 log_amg, sqrt_amg,
2797 repeat_amg, repeat_ass_amg,
2798 concat_amg, concat_ass_amg,
2799 copy_amg, neg_amg,
2800 to_sv_amg, to_av_amg,
2801 to_hv_amg, to_gv_amg,
2802 to_cv_amg, iter_amg,
64a0062a 2803 max_amg_code
2804 /* Do not leave a trailing comma here. C9X allows it, C89 doesn't. */
f5284f61 2805};
2806
2807#define NofAMmeth max_amg_code
2808
a0d0e21e 2809#ifdef DOINIT
22c35a8c 2810EXTCONST char * PL_AMG_names[NofAMmeth] = {
a6006777 2811 "fallback", "abs", /* "fallback" should be the first. */
2812 "bool", "nomethod",
2813 "\"\"", "0+",
2814 "+", "+=",
2815 "-", "-=",
2816 "*", "*=",
2817 "/", "/=",
2818 "%", "%=",
2819 "**", "**=",
2820 "<<", "<<=",
2821 ">>", ">>=",
2822 "&", "&=",
2823 "|", "|=",
2824 "^", "^=",
2825 "<", "<=",
2826 ">", ">=",
2827 "==", "!=",
2828 "<=>", "cmp",
2829 "lt", "le",
2830 "gt", "ge",
2831 "eq", "ne",
2832 "!", "~",
2833 "++", "--",
2834 "atan2", "cos",
2835 "sin", "exp",
2836 "log", "sqrt",
2837 "x", "x=",
2838 ".", ".=",
f5284f61 2839 "=", "neg",
2840 "${}", "@{}",
2841 "%{}", "*{}",
2842 "&{}", "<>",
a0d0e21e 2843};
2844#else
22c35a8c 2845EXTCONST char * PL_AMG_names[NofAMmeth];
a0d0e21e 2846#endif /* def INITAMAGIC */
2847
73c4f7a1 2848END_EXTERN_C
2849
a6006777 2850struct am_table {
a0d0e21e 2851 long was_ok_sub;
2852 long was_ok_am;
a6006777 2853 U32 flags;
2854 CV* table[NofAMmeth];
a0d0e21e 2855 long fallback;
2856};
a6006777 2857struct am_table_short {
2858 long was_ok_sub;
2859 long was_ok_am;
2860 U32 flags;
2861};
a0d0e21e 2862typedef struct am_table AMT;
a6006777 2863typedef struct am_table_short AMTS;
a0d0e21e 2864
2865#define AMGfallNEVER 1
2866#define AMGfallNO 2
2867#define AMGfallYES 3
2868
a6006777 2869#define AMTf_AMAGIC 1
2870#define AMT_AMAGIC(amt) ((amt)->flags & AMTf_AMAGIC)
2871#define AMT_AMAGIC_on(amt) ((amt)->flags |= AMTf_AMAGIC)
2872#define AMT_AMAGIC_off(amt) ((amt)->flags &= ~AMTf_AMAGIC)
2873
c0315cdf 2874
2875/*
2876 * some compilers like to redefine cos et alia as faster
2877 * (and less accurate?) versions called F_cos et cetera (Quidquid
2878 * latine dictum sit, altum viditur.) This trick collides with
2879 * the Perl overloading (amg). The following #defines fool both.
2880 */
2881
2882#ifdef _FASTMATH
2883# ifdef atan2
2884# define F_atan2_amg atan2_amg
2885# endif
2886# ifdef cos
2887# define F_cos_amg cos_amg
2888# endif
2889# ifdef exp
2890# define F_exp_amg exp_amg
2891# endif
2892# ifdef log
2893# define F_log_amg log_amg
2894# endif
2895# ifdef pow
2896# define F_pow_amg pow_amg
2897# endif
2898# ifdef sin
2899# define F_sin_amg sin_amg
2900# endif
2901# ifdef sqrt
2902# define F_sqrt_amg sqrt_amg
2903# endif
2904#endif /* _FASTMATH */
2905
491527d0 2906#define PERLDB_ALL 0x3f /* No _NONAME, _GOTO */
84902520 2907#define PERLDBf_SUB 0x01 /* Debug sub enter/exit. */
2908#define PERLDBf_LINE 0x02 /* Keep line #. */
2909#define PERLDBf_NOOPT 0x04 /* Switch off optimizations. */
2910#define PERLDBf_INTER 0x08 /* Preserve more data for
2911 later inspections. */
2912#define PERLDBf_SUBLINE 0x10 /* Keep subr source lines. */
2913#define PERLDBf_SINGLE 0x20 /* Start with single-step on. */
491527d0 2914#define PERLDBf_NONAME 0x40 /* For _SUB: no name of the subr. */
2915#define PERLDBf_GOTO 0x80 /* Report goto: call DB::goto. */
84902520 2916
3280af22 2917#define PERLDB_SUB (PL_perldb && (PL_perldb & PERLDBf_SUB))
2918#define PERLDB_LINE (PL_perldb && (PL_perldb & PERLDBf_LINE))
2919#define PERLDB_NOOPT (PL_perldb && (PL_perldb & PERLDBf_NOOPT))
2920#define PERLDB_INTER (PL_perldb && (PL_perldb & PERLDBf_INTER))
2921#define PERLDB_SUBLINE (PL_perldb && (PL_perldb & PERLDBf_SUBLINE))
2922#define PERLDB_SINGLE (PL_perldb && (PL_perldb & PERLDBf_SINGLE))
2923#define PERLDB_SUB_NN (PL_perldb && (PL_perldb & (PERLDBf_NONAME)))
2924#define PERLDB_GOTO (PL_perldb && (PL_perldb & PERLDBf_GOTO))
84902520 2925
bbce6d69 2926
36477c24 2927#ifdef USE_LOCALE_NUMERIC
bbce6d69 2928
36477c24 2929#define SET_NUMERIC_STANDARD() \
2930 STMT_START { \
864dbfa3 2931 if (! PL_numeric_standard) \
2932 set_numeric_standard(); \
36477c24 2933 } STMT_END
2934
2935#define SET_NUMERIC_LOCAL() \
2936 STMT_START { \
3280af22 2937 if (! PL_numeric_local) \
864dbfa3 2938 set_numeric_local(); \
36477c24 2939 } STMT_END
bbce6d69 2940
097ee67d 2941#define IS_NUMERIC_RADIX(c) \
2942 ((PL_hints & HINT_LOCALE) && \
2943 PL_numeric_radix && (c) == PL_numeric_radix)
2944
2945#define RESTORE_NUMERIC_LOCAL() if ((PL_hints & HINT_LOCALE) && PL_numeric_standard) SET_NUMERIC_LOCAL()
2946#define RESTORE_NUMERIC_STANDARD() if ((PL_hints & HINT_LOCALE) && PL_numeric_local) SET_NUMERIC_STANDARD()
5b877257 2947#define Atof my_atof
097ee67d 2948
36477c24 2949#else /* !USE_LOCALE_NUMERIC */
bbce6d69 2950
097ee67d 2951#define SET_NUMERIC_STANDARD() /**/
2952#define SET_NUMERIC_LOCAL() /**/
2953#define IS_NUMERIC_RADIX(c) (0)
2954#define RESTORE_NUMERIC_LOCAL() /**/
2955#define RESTORE_NUMERIC_STANDARD() /**/
65202027 2956#define Atof Perl_atof
bbce6d69 2957
36477c24 2958#endif /* !USE_LOCALE_NUMERIC */
a0d0e21e 2959
e5c9fcd0 2960#if !defined(PERLIO_IS_STDIO) && defined(HASATTRIBUTE)
760ac839 2961/*
2962 * Now we have __attribute__ out of the way
2963 * Remap printf
2964 */
2965#define printf PerlIO_stdoutf
2966#endif
2967
a868473f 2968#ifndef PERL_SCRIPT_MODE
2969#define PERL_SCRIPT_MODE "r"
2970#endif
2971
fba3b22e 2972/*
2973 * nice_chunk and nice_chunk size need to be set
2974 * and queried under the protection of sv_mutex
2975 */
2976#define offer_nice_chunk(chunk, chunk_size) do { \
940cb80d 2977 LOCK_SV_MUTEX; \
3280af22 2978 if (!PL_nice_chunk) { \
2979 PL_nice_chunk = (char*)(chunk); \
2980 PL_nice_chunk_size = (chunk_size); \
fba3b22e 2981 } \
fc80cf79 2982 else { \
2983 Safefree(chunk); \
2984 } \
940cb80d 2985 UNLOCK_SV_MUTEX; \
fba3b22e 2986 } while (0)
2987
bd89102f 2988#ifdef HAS_SEM
2989# include <sys/ipc.h>
2990# include <sys/sem.h>
2991# ifndef HAS_UNION_SEMUN /* Provide the union semun. */
2992 union semun {
2993 int val;
2994 struct semid_ds *buf;
2995 unsigned short *array;
2996 };
2997# endif
2998# ifdef USE_SEMCTL_SEMUN
2999# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun)
3000# else
3001# ifdef USE_SEMCTL_SEMID_DS
3002# define Semctl(id, num, cmd, semun) semctl(id, num, cmd, semun.buf)
3003# endif
3004# endif
bd89102f 3005#endif
49f531da 3006
ff49bff8 3007/* Mention
3008
3009 INSTALL_USR_BIN_PERL
3010
3011 I_SYS_MMAN
3012 HAS_MMAP
3013 HAS_MUNMAP
3014 HAS_MPROTECT
3015 HAS_MSYNC
3016 HAS_MADVISE
3017 Mmap_t
3018
3019 here so that Configure picks them up. */
104d25b7 3020
3021#ifdef IAMSUID
3022
3023#ifdef I_SYS_STATVFS
32b3cf08 3024# include <sys/statvfs.h> /* for f?statvfs() */
3025#endif
3026#ifdef I_SYS_MOUNT
3027# include <sys/mount.h> /* for *BSD f?statfs() */
3028#endif
3029#ifdef I_MNTENT
3030# include <mntent.h> /* for getmntent() */
104d25b7 3031#endif
3032
3033#endif /* IAMSUID */
3034
4d8076ea 3035/* and finally... */
cceca5ed 3036#define PERL_PATCHLEVEL_H_IMPLICIT
4d8076ea 3037#include "patchlevel.h"
cceca5ed 3038#undef PERL_PATCHLEVEL_H_IMPLICIT
4d8076ea 3039
85e6fe83 3040#endif /* Include guard */
Unnamed repository; edit this file to name it for gitweb.