perl.h

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