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 #define OVERLOAD
  12
  13 #ifdef PERL_FOR_X2P
  14 /*
  15  * This file is being used for x2p stuff.
  16  * Above symbol is defined via -D in 'x2p/Makefile.SH'
  17  * Decouple x2p stuff from some of perls more extreme eccentricities.
  18  */
  19 #undef EMBED
  20 #undef NO_EMBED
  21 #define NO_EMBED
  22 #undef MULTIPLICITY
  23 #undef USE_STDIO
  24 #define USE_STDIO
  25 #endif /* PERL_FOR_X2P */
  26
  27 #define VOIDUSED 1
  28 #include "config.h"
  29
  30 #include "embed.h"
  31
  32 #ifdef OP_IN_REGISTER
  33 #  ifdef __GNUC__
  34 #    define stringify_immed(s) #s
  35 #    define stringify(s) stringify_immed(s)
  36 register struct op *op asm(stringify(OP_IN_REGISTER));
  37 #  endif
  38 #endif
  39
  40 /*
  41  * STMT_START { statements; } STMT_END;
  42  * can be used as a single statement, as in
  43  * if (x) STMT_START { ... } STMT_END; else ...
  44  *
  45  * Trying to select a version that gives no warnings...
  46  */
  47 #if !(defined(STMT_START) && defined(STMT_END))
  48 # if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(__cplusplus)
  49 #   define STMT_START   (void)( /* gcc supports ``({ STATEMENTS; })'' */
  50 #   define STMT_END     )
  51 # else
  52    /* Now which other defined()s do we need here ??? */
  53 #  if (VOIDFLAGS) && (defined(sun) || defined(__sun__))
  54 #   define STMT_START   if (1)
  55 #   define STMT_END     else (void)0
  56 #  else
  57 #   define STMT_START   do
  58 #   define STMT_END     while (0)
  59 #  endif
  60 # endif
  61 #endif
  62
  63 #define NOOP (void)0
  64
  65 #ifdef USE_THREADS
  66 #include <pthread.h>
  67 #endif
  68
  69 /*
  70  * SOFT_CAST can be used for args to prototyped functions to retain some
  71  * type checking; it only casts if the compiler does not know prototypes.
  72  */
  73 #if defined(CAN_PROTOTYPE) && defined(DEBUGGING_COMPILE)
  74 #define SOFT_CAST(type)
  75 #else
  76 #define SOFT_CAST(type) (type)
  77 #endif
  78
  79 #ifndef BYTEORDER
  80 #   define BYTEORDER 0x1234
  81 #endif
  82
  83 /* Overall memory policy? */
  84 #ifndef CONSERVATIVE
  85 #   define LIBERAL 1
  86 #endif
  87
  88 /*
  89  * The following contortions are brought to you on behalf of all the
  90  * standards, semi-standards, de facto standards, not-so-de-facto standards
  91  * of the world, as well as all the other botches anyone ever thought of.
  92  * The basic theory is that if we work hard enough here, the rest of the
  93  * code can be a lot prettier.  Well, so much for theory.  Sorry, Henry...
  94  */
  95
  96 /* define this once if either system, instead of cluttering up the src */
  97 #if defined(MSDOS) || defined(atarist) || defined(WIN32)
  98 #define DOSISH 1
  99 #endif
 100
 101 #if defined(__STDC__) || defined(vax11c) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus)
 102 # define STANDARD_C 1
 103 #endif
 104
 105 #if defined(__cplusplus) || defined(WIN32)
 106 # define DONT_DECLARE_STD 1
 107 #endif
 108
 109 #if defined(HASVOLATILE) || defined(STANDARD_C)
 110 #   ifdef __cplusplus
 111 #       define VOL              // to temporarily suppress warnings
 112 #   else
 113 #       define VOL volatile
 114 #   endif
 115 #else
 116 #   define VOL
 117 #endif
 118
 119 #define TAINT           (tainted = TRUE)
 120 #define TAINT_NOT       (tainted = FALSE)
 121 #define TAINT_IF(c)     if (c) { tainted = TRUE; }
 122 #define TAINT_ENV()     if (tainting) { taint_env(); }
 123 #define TAINT_PROPER(s) if (tainting) { taint_proper(no_security, s); }
 124
 125 /* XXX All process group stuff is handled in pp_sys.c.  Should these
 126    defines move there?  If so, I could simplify this a lot. --AD  9/96.
 127 */
 128 /* Process group stuff changed from traditional BSD to POSIX.
 129    perlfunc.pod documents the traditional BSD-style syntax, so we'll
 130    try to preserve that, if possible.
 131 */
 132 #ifdef HAS_SETPGID
 133 #  define BSD_SETPGRP(pid, pgrp)        setpgid((pid), (pgrp))
 134 #else
 135 #  if defined(HAS_SETPGRP) && defined(USE_BSD_SETPGRP)
 136 #    define BSD_SETPGRP(pid, pgrp)      setpgrp((pid), (pgrp))
 137 #  else
 138 #    ifdef HAS_SETPGRP2  /* DG/UX */
 139 #      define BSD_SETPGRP(pid, pgrp)    setpgrp2((pid), (pgrp))
 140 #    endif
 141 #  endif
 142 #endif
 143 #if defined(BSD_SETPGRP) && !defined(HAS_SETPGRP)
 144 #  define HAS_SETPGRP  /* Well, effectively it does . . . */
 145 #endif
 146
 147 /* getpgid isn't POSIX, but at least Solaris and Linux have it, and it makes
 148     our life easier :-) so we'll try it.
 149 */
 150 #ifdef HAS_GETPGID
 151 #  define BSD_GETPGRP(pid)              getpgid((pid))
 152 #else
 153 #  if defined(HAS_GETPGRP) && defined(USE_BSD_GETPGRP)
 154 #    define BSD_GETPGRP(pid)            getpgrp((pid))
 155 #  else
 156 #    ifdef HAS_GETPGRP2  /* DG/UX */
 157 #      define BSD_GETPGRP(pid)          getpgrp2((pid))
 158 #    endif
 159 #  endif
 160 #endif
 161 #if defined(BSD_GETPGRP) && !defined(HAS_GETPGRP)
 162 #  define HAS_GETPGRP  /* Well, effectively it does . . . */
 163 #endif
 164
 165 /* These are not exact synonyms, since setpgrp() and getpgrp() may
 166    have different behaviors, but perl.h used to define USE_BSDPGRP
 167    (prior to 5.003_05) so some extension might depend on it.
 168 */
 169 #if defined(USE_BSD_SETPGRP) || defined(USE_BSD_GETPGRP)
 170 #  ifndef USE_BSDPGRP
 171 #    define USE_BSDPGRP
 172 #  endif
 173 #endif
 174
 175 #ifndef _TYPES_         /* If types.h defines this it's easy. */
 176 #   ifndef major                /* Does everyone's types.h define this? */
 177 #       include <sys/types.h>
 178 #   endif
 179 #endif
 180
 181 #ifdef __cplusplus
 182 #  ifndef I_STDARG
 183 #    define I_STDARG 1
 184 #  endif
 185 #endif
 186
 187 #ifdef I_STDARG
 188 #  include <stdarg.h>
 189 #else
 190 #  ifdef I_VARARGS
 191 #    include <varargs.h>
 192 #  endif
 193 #endif
 194
 195 #include "perlio.h"
 196
 197 #ifdef USE_NEXT_CTYPE
 198
 199 #if NX_CURRENT_COMPILER_RELEASE >= 400
 200 #include <objc/NXCType.h>
 201 #else /*  NX_CURRENT_COMPILER_RELEASE < 400 */
 202 #include <appkit/NXCType.h>
 203 #endif /*  NX_CURRENT_COMPILER_RELEASE >= 400 */
 204
 205 #else /* !USE_NEXT_CTYPE */
 206 #include <ctype.h>
 207 #endif /* USE_NEXT_CTYPE */
 208
 209 #ifdef METHOD   /* Defined by OSF/1 v3.0 by ctype.h */
 210 #undef METHOD
 211 #endif
 212
 213 #ifdef I_LOCALE
 214 #   include <locale.h>
 215 #endif
 216
 217 #if !defined(NO_LOCALE) && defined(HAS_SETLOCALE)
 218 #   define USE_LOCALE
 219 #   if !defined(NO_LOCALE_COLLATE) && defined(LC_COLLATE) \
 220        && defined(HAS_STRXFRM)
 221 #       define USE_LOCALE_COLLATE
 222 #   endif
 223 #   if !defined(NO_LOCALE_CTYPE) && defined(LC_CTYPE)
 224 #       define USE_LOCALE_CTYPE
 225 #   endif
 226 #   if !defined(NO_LOCALE_NUMERIC) && defined(LC_NUMERIC)
 227 #       define USE_LOCALE_NUMERIC
 228 #   endif
 229 #endif /* !NO_LOCALE && HAS_SETLOCALE */
 230
 231 #include <setjmp.h>
 232
 233 #ifdef I_SYS_PARAM
 234 #   ifdef PARAM_NEEDS_TYPES
 235 #       include <sys/types.h>
 236 #   endif
 237 #   include <sys/param.h>
 238 #endif
 239
 240
 241 /* Use all the "standard" definitions? */
 242 #if defined(STANDARD_C) && defined(I_STDLIB)
 243 #   include <stdlib.h>
 244 #endif
 245
 246 /* This comes after <stdlib.h> so we don't try to change the standard
 247  * library prototypes; we'll use our own in proto.h instead. */
 248
 249 #ifdef MYMALLOC
 250
 251 #   ifdef HIDEMYMALLOC
 252 #       define malloc  Mymalloc
 253 #       define calloc  Mycalloc
 254 #       define realloc Myremalloc
 255 #       define free    Myfree
 256 #   endif
 257 #   ifdef EMBEDMYMALLOC
 258 #       define malloc  Perl_malloc
 259 #       define calloc  Perl_calloc
 260 #       define realloc Perl_realloc
 261 #       define free    Perl_free
 262 #   endif
 263
 264 #   undef safemalloc
 265 #   undef safecalloc
 266 #   undef saferealloc
 267 #   undef safefree
 268 #   define safemalloc  malloc
 269 #   define safecalloc  calloc
 270 #   define saferealloc realloc
 271 #   define safefree    free
 272
 273 #endif /* MYMALLOC */
 274
 275 #define MEM_SIZE Size_t
 276
 277 #if defined(STANDARD_C) && defined(I_STDDEF)
 278 #   include <stddef.h>
 279 #   define STRUCT_OFFSET(s,m)  offsetof(s,m)
 280 #else
 281 #   define STRUCT_OFFSET(s,m)  (Size_t)(&(((s *)0)->m))
 282 #endif
 283
 284 #if defined(I_STRING) || defined(__cplusplus)
 285 #   include <string.h>
 286 #else
 287 #   include <strings.h>
 288 #endif
 289
 290 #if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)
 291 #define strchr index
 292 #define strrchr rindex
 293 #endif
 294
 295 #ifdef I_MEMORY
 296 #  include <memory.h>
 297 #endif
 298
 299 #ifdef HAS_MEMCPY
 300 #  if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
 301 #    ifndef memcpy
 302         extern char * memcpy _((char*, char*, int));
 303 #    endif
 304 #  endif
 305 #else
 306 #   ifndef memcpy
 307 #       ifdef HAS_BCOPY
 308 #           define memcpy(d,s,l) bcopy(s,d,l)
 309 #       else
 310 #           define memcpy(d,s,l) my_bcopy(s,d,l)
 311 #       endif
 312 #   endif
 313 #endif /* HAS_MEMCPY */
 314
 315 #ifdef HAS_MEMSET
 316 #  if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
 317 #    ifndef memset
 318         extern char *memset _((char*, int, int));
 319 #    endif
 320 #  endif
 321 #else
 322 #  define memset(d,c,l) my_memset(d,c,l)
 323 #endif /* HAS_MEMSET */
 324
 325 #if !defined(HAS_MEMMOVE) && !defined(memmove)
 326 #   if defined(HAS_BCOPY) && defined(HAS_SAFE_BCOPY)
 327 #       define memmove(d,s,l) bcopy(s,d,l)
 328 #   else
 329 #       if defined(HAS_MEMCPY) && defined(HAS_SAFE_MEMCPY)
 330 #           define memmove(d,s,l) memcpy(d,s,l)
 331 #       else
 332 #           define memmove(d,s,l) my_bcopy(s,d,l)
 333 #       endif
 334 #   endif
 335 #endif
 336
 337 #if defined(mips) && defined(ultrix) && !defined(__STDC__)
 338 #   undef HAS_MEMCMP
 339 #endif
 340
 341 #if defined(HAS_MEMCMP) && defined(HAS_SANE_MEMCMP)
 342 #  if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
 343 #    ifndef memcmp
 344         extern int memcmp _((char*, char*, int));
 345 #    endif
 346 #  endif
 347 #  ifdef BUGGY_MSC
 348   #  pragma function(memcmp)
 349 #  endif
 350 #else
 351 #   ifndef memcmp
 352 #       define memcmp   my_memcmp
 353 #   endif
 354 #endif /* HAS_MEMCMP && HAS_SANE_MEMCMP */
 355
 356 #ifndef memzero
 357 #   ifdef HAS_MEMSET
 358 #       define memzero(d,l) memset(d,0,l)
 359 #   else
 360 #       ifdef HAS_BZERO
 361 #           define memzero(d,l) bzero(d,l)
 362 #       else
 363 #           define memzero(d,l) my_bzero(d,l)
 364 #       endif
 365 #   endif
 366 #endif
 367
 368 #ifndef HAS_BCMP
 369 #   ifndef bcmp
 370 #       define bcmp(s1,s2,l) memcmp(s1,s2,l)
 371 #   endif
 372 #endif /* !HAS_BCMP */
 373
 374 #ifdef I_NETINET_IN
 375 #   include <netinet/in.h>
 376 #endif
 377
 378 #ifdef I_SYS_STAT
 379 #include <sys/stat.h>
 380 #endif
 381
 382 /* The stat macros for Amdahl UTS, Unisoft System V/88 (and derivatives
 383    like UTekV) are broken, sometimes giving false positives.  Undefine
 384    them here and let the code below set them to proper values.
 385
 386    The ghs macro stands for GreenHills Software C-1.8.5 which
 387    is the C compiler for sysV88 and the various derivatives.
 388    This header file bug is corrected in gcc-2.5.8 and later versions.
 389    --Kaveh Ghazi (ghazi@noc.rutgers.edu) 10/3/94.  */
 390
 391 #if defined(uts) || (defined(m88k) && defined(ghs))
 392 #   undef S_ISDIR
 393 #   undef S_ISCHR
 394 #   undef S_ISBLK
 395 #   undef S_ISREG
 396 #   undef S_ISFIFO
 397 #   undef S_ISLNK
 398 #endif
 399
 400 #ifdef I_TIME
 401 #   include <time.h>
 402 #endif
 403
 404 #ifdef I_SYS_TIME
 405 #   ifdef I_SYS_TIME_KERNEL
 406 #       define KERNEL
 407 #   endif
 408 #   include <sys/time.h>
 409 #   ifdef I_SYS_TIME_KERNEL
 410 #       undef KERNEL
 411 #   endif
 412 #endif
 413
 414 #if defined(HAS_TIMES) && defined(I_SYS_TIMES)
 415 #    include <sys/times.h>
 416 #endif
 417
 418 #if defined(HAS_STRERROR) && (!defined(HAS_MKDIR) || !defined(HAS_RMDIR))
 419 #   undef HAS_STRERROR
 420 #endif
 421
 422 #ifndef HAS_MKFIFO
 423 #  ifndef mkfifo
 424 #    define mkfifo(path, mode) (mknod((path), (mode) | S_IFIFO, 0))
 425 #  endif
 426 #endif /* !HAS_MKFIFO */
 427
 428 #include <errno.h>
 429 #ifdef HAS_SOCKET
 430 #   ifdef I_NET_ERRNO
 431 #     include <net/errno.h>
 432 #   endif
 433 #endif
 434
 435 #ifdef VMS
 436 #   define SETERRNO(errcode,vmserrcode) \
 437         STMT_START {                    \
 438             set_errno(errcode);         \
 439             set_vaxc_errno(vmserrcode); \
 440         } STMT_END
 441 #else
 442 #   define SETERRNO(errcode,vmserrcode) errno = (errcode)
 443 #endif
 444
 445 #ifndef errno
 446         extern int errno;     /* ANSI allows errno to be an lvalue expr */
 447 #endif
 448
 449 #ifdef HAS_STRERROR
 450 #       ifdef VMS
 451         char *strerror _((int,...));
 452 #       else
 453 #ifndef DONT_DECLARE_STD
 454         char *strerror _((int));
 455 #endif
 456 #       endif
 457 #       ifndef Strerror
 458 #           define Strerror strerror
 459 #       endif
 460 #else
 461 #    ifdef HAS_SYS_ERRLIST
 462         extern int sys_nerr;
 463         extern char *sys_errlist[];
 464 #       ifndef Strerror
 465 #           define Strerror(e) \
 466                 ((e) < 0 || (e) >= sys_nerr ? "(unknown)" : sys_errlist[e])
 467 #       endif
 468 #   endif
 469 #endif
 470
 471 #ifdef I_SYS_IOCTL
 472 #   ifndef _IOCTL_
 473 #       include <sys/ioctl.h>
 474 #   endif
 475 #endif
 476
 477 #if defined(mc300) || defined(mc500) || defined(mc700) || defined(mc6000)
 478 #   ifdef HAS_SOCKETPAIR
 479 #       undef HAS_SOCKETPAIR
 480 #   endif
 481 #   ifdef I_NDBM
 482 #       undef I_NDBM
 483 #   endif
 484 #endif
 485
 486 #if INTSIZE == 2
 487 #   define htoni htons
 488 #   define ntohi ntohs
 489 #else
 490 #   define htoni htonl
 491 #   define ntohi ntohl
 492 #endif
 493
 494 /* Configure already sets Direntry_t */
 495 #if defined(I_DIRENT)
 496 #   include <dirent.h>
 497 #   if defined(NeXT) && defined(I_SYS_DIR) /* NeXT needs dirent + sys/dir.h */
 498 #       include <sys/dir.h>
 499 #   endif
 500 #else
 501 #   ifdef I_SYS_NDIR
 502 #       include <sys/ndir.h>
 503 #   else
 504 #       ifdef I_SYS_DIR
 505 #           ifdef hp9000s500
 506 #               include <ndir.h>        /* may be wrong in the future */
 507 #           else
 508 #               include <sys/dir.h>
 509 #           endif
 510 #       endif
 511 #   endif
 512 #endif
 513
 514 #ifdef FPUTS_BOTCH
 515 /* work around botch in SunOS 4.0.1 and 4.0.2 */
 516 #   ifndef fputs
 517 #       define fputs(sv,fp) fprintf(fp,"%s",sv)
 518 #   endif
 519 #endif
 520
 521 /*
 522  * The following gobbledygook brought to you on behalf of __STDC__.
 523  * (I could just use #ifndef __STDC__, but this is more bulletproof
 524  * in the face of half-implementations.)
 525  */
 526
 527 #ifndef S_IFMT
 528 #   ifdef _S_IFMT
 529 #       define S_IFMT _S_IFMT
 530 #   else
 531 #       define S_IFMT 0170000
 532 #   endif
 533 #endif
 534
 535 #ifndef S_ISDIR
 536 #   define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR)
 537 #endif
 538
 539 #ifndef S_ISCHR
 540 #   define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR)
 541 #endif
 542
 543 #ifndef S_ISBLK
 544 #   ifdef S_IFBLK
 545 #       define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK)
 546 #   else
 547 #       define S_ISBLK(m) (0)
 548 #   endif
 549 #endif
 550
 551 #ifndef S_ISREG
 552 #   define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
 553 #endif
 554
 555 #ifndef S_ISFIFO
 556 #   ifdef S_IFIFO
 557 #       define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO)
 558 #   else
 559 #       define S_ISFIFO(m) (0)
 560 #   endif
 561 #endif
 562
 563 #ifndef S_ISLNK
 564 #   ifdef _S_ISLNK
 565 #       define S_ISLNK(m) _S_ISLNK(m)
 566 #   else
 567 #       ifdef _S_IFLNK
 568 #           define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK)
 569 #       else
 570 #           ifdef S_IFLNK
 571 #               define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK)
 572 #           else
 573 #               define S_ISLNK(m) (0)
 574 #           endif
 575 #       endif
 576 #   endif
 577 #endif
 578
 579 #ifndef S_ISSOCK
 580 #   ifdef _S_ISSOCK
 581 #       define S_ISSOCK(m) _S_ISSOCK(m)
 582 #   else
 583 #       ifdef _S_IFSOCK
 584 #           define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK)
 585 #       else
 586 #           ifdef S_IFSOCK
 587 #               define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK)
 588 #           else
 589 #               define S_ISSOCK(m) (0)
 590 #           endif
 591 #       endif
 592 #   endif
 593 #endif
 594
 595 #ifndef S_IRUSR
 596 #   ifdef S_IREAD
 597 #       define S_IRUSR S_IREAD
 598 #       define S_IWUSR S_IWRITE
 599 #       define S_IXUSR S_IEXEC
 600 #   else
 601 #       define S_IRUSR 0400
 602 #       define S_IWUSR 0200
 603 #       define S_IXUSR 0100
 604 #   endif
 605 #   define S_IRGRP (S_IRUSR>>3)
 606 #   define S_IWGRP (S_IWUSR>>3)
 607 #   define S_IXGRP (S_IXUSR>>3)
 608 #   define S_IROTH (S_IRUSR>>6)
 609 #   define S_IWOTH (S_IWUSR>>6)
 610 #   define S_IXOTH (S_IXUSR>>6)
 611 #endif
 612
 613 #ifndef S_ISUID
 614 #   define S_ISUID 04000
 615 #endif
 616
 617 #ifndef S_ISGID
 618 #   define S_ISGID 02000
 619 #endif
 620
 621 #ifdef ff_next
 622 #   undef ff_next
 623 #endif
 624
 625 #if defined(cray) || defined(gould) || defined(i860) || defined(pyr)
 626 #   define SLOPPYDIVIDE
 627 #endif
 628
 629 #ifdef UV
 630 #undef UV
 631 #endif
 632
 633 /*  XXX QUAD stuff is not currently supported on most systems.
 634     Specifically, perl internals don't support long long.  Among
 635     the many problems is that some compilers support long long,
 636     but the underlying library functions (such as sprintf) don't.
 637     Some things do work (such as quad pack/unpack on convex);
 638     also some systems use long long for the fpos_t typedef.  That
 639     seems to work too.
 640
 641     The IV type is supposed to be long enough to hold any integral
 642     value or a pointer.
 643     --Andy Dougherty    August 1996
 644 */
 645
 646 #ifdef cray
 647 #   define Quad_t int
 648 #else
 649 #   ifdef convex
 650 #       define Quad_t long long
 651 #   else
 652 #       if BYTEORDER > 0xFFFF
 653 #           define Quad_t long
 654 #       endif
 655 #   endif
 656 #endif
 657
 658 #ifdef Quad_t
 659 #   define HAS_QUAD
 660     typedef Quad_t IV;
 661     typedef unsigned Quad_t UV;
 662 #   define IV_MAX PERL_QUAD_MAX
 663 #   define IV_MIN PERL_QUAD_MIN
 664 #   define UV_MAX PERL_UQUAD_MAX
 665 #   define UV_MIN PERL_UQUAD_MIN
 666 #else
 667     typedef long IV;
 668     typedef unsigned long UV;
 669 #   define IV_MAX PERL_LONG_MAX
 670 #   define IV_MIN PERL_LONG_MIN
 671 #   define UV_MAX PERL_ULONG_MAX
 672 #   define UV_MIN PERL_ULONG_MIN
 673 #endif
 674
 675 /* Previously these definitions used hardcoded figures.
 676  * It is hoped these formula are more portable, although
 677  * no data one way or another is presently known to me.
 678  * The "PERL_" names are used because these calculated constants
 679  * do not meet the ANSI requirements for LONG_MAX, etc., which
 680  * need to be constants acceptable to #if - kja
 681  *    define PERL_LONG_MAX        2147483647L
 682  *    define PERL_LONG_MIN        (-LONG_MAX - 1)
 683  *    define PERL ULONG_MAX       4294967295L
 684  */
 685
 686 #ifdef I_LIMITS  /* Needed for cast_xxx() functions below. */
 687 #  include <limits.h>
 688 #else
 689 #ifdef I_VALUES
 690 #  include <values.h>
 691 #endif
 692 #endif
 693
 694 /*
 695  * Try to figure out max and min values for the integral types.  THE CORRECT
 696  * SOLUTION TO THIS MESS: ADAPT enquire.c FROM GCC INTO CONFIGURE.  The
 697  * following hacks are used if neither limits.h or values.h provide them:
 698  * U<TYPE>_MAX: for types >= int: ~(unsigned TYPE)0
 699  *              for types <  int:  (unsigned TYPE)~(unsigned)0
 700  *      The argument to ~ must be unsigned so that later signed->unsigned
 701  *      conversion can't modify the value's bit pattern (e.g. -0 -> +0),
 702  *      and it must not be smaller than int because ~ does integral promotion.
 703  * <type>_MAX: (<type>) (U<type>_MAX >> 1)
 704  * <type>_MIN: -<type>_MAX - <is_twos_complement_architecture: (3 & -1) == 3>.
 705  *      The latter is a hack which happens to work on some machines but
 706  *      does *not* catch any random system, or things like integer types
 707  *      with NaN if that is possible.
 708  *
 709  * All of the types are explicitly cast to prevent accidental loss of
 710  * numeric range, and in the hope that they will be less likely to confuse
 711  * over-eager optimizers.
 712  *
 713  */
 714
 715 #define PERL_UCHAR_MIN ((unsigned char)0)
 716
 717 #ifdef UCHAR_MAX
 718 #  define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
 719 #else
 720 #  ifdef MAXUCHAR
 721 #    define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
 722 #  else
 723 #    define PERL_UCHAR_MAX       ((unsigned char)~(unsigned)0)
 724 #  endif
 725 #endif
 726
 727 /*
 728  * CHAR_MIN and CHAR_MAX are not included here, as the (char) type may be
 729  * ambiguous. It may be equivalent to (signed char) or (unsigned char)
 730  * depending on local options. Until Configure detects this (or at least
 731  * detects whether the "signed" keyword is available) the CHAR ranges
 732  * will not be included. UCHAR functions normally.
 733  *                                                           - kja
 734  */
 735
 736 #define PERL_USHORT_MIN ((unsigned short)0)
 737
 738 #ifdef USHORT_MAX
 739 #  define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
 740 #else
 741 #  ifdef MAXUSHORT
 742 #    define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
 743 #  else
 744 #    define PERL_USHORT_MAX       ((unsigned short)~(unsigned)0)
 745 #  endif
 746 #endif
 747
 748 #ifdef SHORT_MAX
 749 #  define PERL_SHORT_MAX ((short)SHORT_MAX)
 750 #else
 751 #  ifdef MAXSHORT    /* Often used in <values.h> */
 752 #    define PERL_SHORT_MAX ((short)MAXSHORT)
 753 #  else
 754 #    define PERL_SHORT_MAX      ((short) (PERL_USHORT_MAX >> 1))
 755 #  endif
 756 #endif
 757
 758 #ifdef SHORT_MIN
 759 #  define PERL_SHORT_MIN ((short)SHORT_MIN)
 760 #else
 761 #  ifdef MINSHORT
 762 #    define PERL_SHORT_MIN ((short)MINSHORT)
 763 #  else
 764 #    define PERL_SHORT_MIN        (-PERL_SHORT_MAX - ((3 & -1) == 3))
 765 #  endif
 766 #endif
 767
 768 #ifdef UINT_MAX
 769 #  define PERL_UINT_MAX ((unsigned int)UINT_MAX)
 770 #else
 771 #  ifdef MAXUINT
 772 #    define PERL_UINT_MAX ((unsigned int)MAXUINT)
 773 #  else
 774 #    define PERL_UINT_MAX       (~(unsigned int)0)
 775 #  endif
 776 #endif
 777
 778 #define PERL_UINT_MIN ((unsigned int)0)
 779
 780 #ifdef INT_MAX
 781 #  define PERL_INT_MAX ((int)INT_MAX)
 782 #else
 783 #  ifdef MAXINT    /* Often used in <values.h> */
 784 #    define PERL_INT_MAX ((int)MAXINT)
 785 #  else
 786 #    define PERL_INT_MAX        ((int)(PERL_UINT_MAX >> 1))
 787 #  endif
 788 #endif
 789
 790 #ifdef INT_MIN
 791 #  define PERL_INT_MIN ((int)INT_MIN)
 792 #else
 793 #  ifdef MININT
 794 #    define PERL_INT_MIN ((int)MININT)
 795 #  else
 796 #    define PERL_INT_MIN        (-PERL_INT_MAX - ((3 & -1) == 3))
 797 #  endif
 798 #endif
 799
 800 #ifdef ULONG_MAX
 801 #  define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
 802 #else
 803 #  ifdef MAXULONG
 804 #    define PERL_ULONG_MAX ((unsigned long)MAXULONG)
 805 #  else
 806 #    define PERL_ULONG_MAX       (~(unsigned long)0)
 807 #  endif
 808 #endif
 809
 810 #define PERL_ULONG_MIN ((unsigned long)0L)
 811
 812 #ifdef LONG_MAX
 813 #  define PERL_LONG_MAX ((long)LONG_MAX)
 814 #else
 815 #  ifdef MAXLONG    /* Often used in <values.h> */
 816 #    define PERL_LONG_MAX ((long)MAXLONG)
 817 #  else
 818 #    define PERL_LONG_MAX        ((long) (PERL_ULONG_MAX >> 1))
 819 #  endif
 820 #endif
 821
 822 #ifdef LONG_MIN
 823 #  define PERL_LONG_MIN ((long)LONG_MIN)
 824 #else
 825 #  ifdef MINLONG
 826 #    define PERL_LONG_MIN ((long)MINLONG)
 827 #  else
 828 #    define PERL_LONG_MIN        (-PERL_LONG_MAX - ((3 & -1) == 3))
 829 #  endif
 830 #endif
 831
 832 #ifdef HAS_QUAD
 833
 834 #  ifdef UQUAD_MAX
 835 #    define PERL_UQUAD_MAX ((UV)UQUAD_MAX)
 836 #  else
 837 #    define PERL_UQUAD_MAX      (~(UV)0)
 838 #  endif
 839
 840 #  define PERL_UQUAD_MIN ((UV)0)
 841
 842 #  ifdef QUAD_MAX
 843 #    define PERL_QUAD_MAX ((IV)QUAD_MAX)
 844 #  else
 845 #    define PERL_QUAD_MAX       ((IV) (PERL_UQUAD_MAX >> 1))
 846 #  endif
 847
 848 #  ifdef QUAD_MIN
 849 #    define PERL_QUAD_MIN ((IV)QUAD_MIN)
 850 #  else
 851 #    define PERL_QUAD_MIN       (-PERL_QUAD_MAX - ((3 & -1) == 3))
 852 #  endif
 853
 854 #endif
 855
 856 /* Digital UNIX defines CONTEXT when pthreads is in use */
 857 #ifdef CONTEXT
 858 #  undef CONTEXT
 859 #endif
 860
 861 typedef MEM_SIZE STRLEN;
 862
 863 typedef struct op OP;
 864 typedef struct cop COP;
 865 typedef struct unop UNOP;
 866 typedef struct binop BINOP;
 867 typedef struct listop LISTOP;
 868 typedef struct logop LOGOP;
 869 typedef struct condop CONDOP;
 870 typedef struct pmop PMOP;
 871 typedef struct svop SVOP;
 872 typedef struct gvop GVOP;
 873 typedef struct pvop PVOP;
 874 typedef struct loop LOOP;
 875
 876 typedef struct Outrec Outrec;
 877 typedef struct interpreter PerlInterpreter;
 878 typedef struct ff FF;
 879 typedef struct sv SV;
 880 typedef struct av AV;
 881 typedef struct hv HV;
 882 typedef struct cv CV;
 883 typedef struct regexp REGEXP;
 884 typedef struct gp GP;
 885 typedef struct gv GV;
 886 typedef struct io IO;
 887 typedef struct context CONTEXT;
 888 typedef struct block BLOCK;
 889
 890 typedef struct magic MAGIC;
 891 typedef struct xrv XRV;
 892 typedef struct xpv XPV;
 893 typedef struct xpviv XPVIV;
 894 typedef struct xpvuv XPVUV;
 895 typedef struct xpvnv XPVNV;
 896 typedef struct xpvmg XPVMG;
 897 typedef struct xpvlv XPVLV;
 898 typedef struct xpvav XPVAV;
 899 typedef struct xpvhv XPVHV;
 900 typedef struct xpvgv XPVGV;
 901 typedef struct xpvcv XPVCV;
 902 typedef struct xpvbm XPVBM;
 903 typedef struct xpvfm XPVFM;
 904 typedef struct xpvio XPVIO;
 905 typedef struct mgvtbl MGVTBL;
 906 typedef union any ANY;
 907
 908 #include "handy.h"
 909
 910 typedef I32 (*filter_t) _((int, SV *, int));
 911 #define FILTER_READ(idx, sv, len)  filter_read(idx, sv, len)
 912 #define FILTER_DATA(idx)           (AvARRAY(rsfp_filters)[idx])
 913 #define FILTER_ISREADER(idx)       (idx >= AvFILL(rsfp_filters))
 914
 915 #ifdef DOSISH
 916 # if defined(OS2)
 917 #   include "os2ish.h"
 918 # else
 919 #   include "dosish.h"
 920 # endif
 921 #else
 922 # if defined(VMS)
 923 #   include "vmsish.h"
 924 # else
 925 #   if defined(PLAN9)
 926 #     include "./plan9/plan9ish.h"
 927 #   else
 928 #     include "unixish.h"
 929 #   endif
 930 # endif
 931 #endif
 932
 933 #ifdef VMS
 934 #   define STATUS_NATIVE        statusvalue_vms
 935 #   define STATUS_NATIVE_EXPORT \
 936         ((I32)statusvalue_vms == -1 ? 44 : statusvalue_vms)
 937 #   define STATUS_NATIVE_SET(n)                                         \
 938         STMT_START {                                                    \
 939             statusvalue_vms = (n);                                      \
 940             if ((I32)statusvalue_vms == -1)                             \
 941                 statusvalue = -1;                                       \
 942             else if (statusvalue_vms & STS$M_SUCCESS)                   \
 943                 statusvalue = 0;                                        \
 944             else if ((statusvalue_vms & STS$M_SEVERITY) == 0)           \
 945                 statusvalue = 1 << 8;                                   \
 946             else                                                        \
 947                 statusvalue = (statusvalue_vms & STS$M_SEVERITY) << 8;  \
 948         } STMT_END
 949 #   define STATUS_POSIX statusvalue
 950 #   ifdef VMSISH_STATUS
 951 #       define STATUS_CURRENT   (VMSISH_STATUS ? STATUS_NATIVE : STATUS_POSIX)
 952 #   else
 953 #       define STATUS_CURRENT   STATUS_POSIX
 954 #   endif
 955 #   define STATUS_POSIX_SET(n)                          \
 956         STMT_START {                                    \
 957             statusvalue = (n);                          \
 958             if (statusvalue != -1) {                    \
 959                 statusvalue &= 0xFFFF;                  \
 960                 statusvalue_vms = statusvalue ? 44 : 1; \
 961             }                                           \
 962             else statusvalue_vms = -1;                  \
 963         } STMT_END
 964 #   define STATUS_ALL_SUCCESS   (statusvalue = 0, statusvalue_vms = 1)
 965 #   define STATUS_ALL_FAILURE   (statusvalue = 1, statusvalue_vms = 44)
 966 #else
 967 #   define STATUS_NATIVE        STATUS_POSIX
 968 #   define STATUS_NATIVE_EXPORT STATUS_POSIX
 969 #   define STATUS_NATIVE_SET    STATUS_POSIX_SET
 970 #   define STATUS_POSIX         statusvalue
 971 #   define STATUS_POSIX_SET(n)          \
 972         STMT_START {                    \
 973             statusvalue = (n);          \
 974             if (statusvalue != -1)      \
 975                 statusvalue &= 0xFFFF;  \
 976         } STMT_END
 977 #   define STATUS_CURRENT STATUS_POSIX
 978 #   define STATUS_ALL_SUCCESS   (statusvalue = 0)
 979 #   define STATUS_ALL_FAILURE   (statusvalue = 1)
 980 #endif
 981
 982 /* Some unistd.h's give a prototype for pause() even though
 983    HAS_PAUSE ends up undefined.  This causes the #define
 984    below to be rejected by the compmiler.  Sigh.
 985 */
 986 #ifdef HAS_PAUSE
 987 #define Pause   pause
 988 #else
 989 #define Pause() sleep((32767<<16)+32767)
 990 #endif
 991
 992 #ifndef IOCPARM_LEN
 993 #   ifdef IOCPARM_MASK
 994         /* on BSDish systes we're safe */
 995 #       define IOCPARM_LEN(x)  (((x) >> 16) & IOCPARM_MASK)
 996 #   else
 997         /* otherwise guess at what's safe */
 998 #       define IOCPARM_LEN(x)   256
 999 #   endif
1000 #endif
1001
1002 union any {
1003     void*       any_ptr;
1004     I32         any_i32;
1005     IV          any_iv;
1006     long        any_long;
1007     void        (*any_dptr) _((void*));
1008 };
1009
1010 #ifdef USE_THREADS
1011 #define ARGSproto struct thread *
1012 #else
1013 #define ARGSproto void
1014 #endif /* USE_THREADS */
1015
1016 /* Work around some cygwin32 problems with importing global symbols */
1017 #if defined(CYGWIN32) && defined(DLLIMPORT)
1018 #   include "cw32imp.h"
1019 #endif
1020
1021 #include "regexp.h"
1022 #include "sv.h"
1023 #include "util.h"
1024 #include "form.h"
1025 #include "gv.h"
1026 #include "cv.h"
1027 #include "opcode.h"
1028 #include "op.h"
1029 #include "cop.h"
1030 #include "av.h"
1031 #include "hv.h"
1032 #include "mg.h"
1033 #include "scope.h"
1034
1035 /* work around some libPW problems */
1036 #ifdef DOINIT
1037 EXT char Error[1];
1038 #endif
1039
1040 #if defined(iAPX286) || defined(M_I286) || defined(I80286)
1041 #   define I286
1042 #endif
1043
1044 #if defined(htonl) && !defined(HAS_HTONL)
1045 #define HAS_HTONL
1046 #endif
1047 #if defined(htons) && !defined(HAS_HTONS)
1048 #define HAS_HTONS
1049 #endif
1050 #if defined(ntohl) && !defined(HAS_NTOHL)
1051 #define HAS_NTOHL
1052 #endif
1053 #if defined(ntohs) && !defined(HAS_NTOHS)
1054 #define HAS_NTOHS
1055 #endif
1056 #ifndef HAS_HTONL
1057 #if (BYTEORDER & 0xffff) != 0x4321
1058 #define HAS_HTONS
1059 #define HAS_HTONL
1060 #define HAS_NTOHS
1061 #define HAS_NTOHL
1062 #define MYSWAP
1063 #define htons my_swap
1064 #define htonl my_htonl
1065 #define ntohs my_swap
1066 #define ntohl my_ntohl
1067 #endif
1068 #else
1069 #if (BYTEORDER & 0xffff) == 0x4321
1070 #undef HAS_HTONS
1071 #undef HAS_HTONL
1072 #undef HAS_NTOHS
1073 #undef HAS_NTOHL
1074 #endif
1075 #endif
1076
1077 /*
1078  * Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'.
1079  * -DWS
1080  */
1081 #if BYTEORDER != 0x1234
1082 # define HAS_VTOHL
1083 # define HAS_VTOHS
1084 # define HAS_HTOVL
1085 # define HAS_HTOVS
1086 # if BYTEORDER == 0x4321
1087 #  define vtohl(x)      ((((x)&0xFF)<<24)       \
1088                         +(((x)>>24)&0xFF)       \
1089                         +(((x)&0x0000FF00)<<8)  \
1090                         +(((x)&0x00FF0000)>>8)  )
1091 #  define vtohs(x)      ((((x)&0xFF)<<8) + (((x)>>8)&0xFF))
1092 #  define htovl(x)      vtohl(x)
1093 #  define htovs(x)      vtohs(x)
1094 # endif
1095         /* otherwise default to functions in util.c */
1096 #endif
1097
1098 #ifdef CASTNEGFLOAT
1099 #define U_S(what) ((U16)(what))
1100 #define U_I(what) ((unsigned int)(what))
1101 #define U_L(what) ((U32)(what))
1102 #else
1103 #  ifdef __cplusplus
1104     extern "C" {
1105 #  endif
1106 U32 cast_ulong _((double));
1107 #  ifdef __cplusplus
1108     }
1109 #  endif
1110 #define U_S(what) ((U16)cast_ulong((double)(what)))
1111 #define U_I(what) ((unsigned int)cast_ulong((double)(what)))
1112 #define U_L(what) (cast_ulong((double)(what)))
1113 #endif
1114
1115 #ifdef CASTI32
1116 #define I_32(what) ((I32)(what))
1117 #define I_V(what) ((IV)(what))
1118 #define U_V(what) ((UV)(what))
1119 #else
1120 #  ifdef __cplusplus
1121     extern "C" {
1122 #  endif
1123 I32 cast_i32 _((double));
1124 IV cast_iv _((double));
1125 UV cast_uv _((double));
1126 #  ifdef __cplusplus
1127     }
1128 #  endif
1129 #define I_32(what) (cast_i32((double)(what)))
1130 #define I_V(what) (cast_iv((double)(what)))
1131 #define U_V(what) (cast_uv((double)(what)))
1132 #endif
1133
1134 struct Outrec {
1135     I32         o_lines;
1136     char        *o_str;
1137     U32         o_len;
1138 };
1139
1140 #ifndef MAXSYSFD
1141 #   define MAXSYSFD 2
1142 #endif
1143
1144 #ifndef TMPPATH
1145 #  define TMPPATH "/tmp/perl-eXXXXXX"
1146 #endif
1147
1148 #ifndef __cplusplus
1149 Uid_t getuid _((void));
1150 Uid_t geteuid _((void));
1151 Gid_t getgid _((void));
1152 Gid_t getegid _((void));
1153 #endif
1154
1155 #ifdef DEBUGGING
1156 #ifndef Perl_debug_log
1157 #define Perl_debug_log  PerlIO_stderr()
1158 #endif
1159 #define YYDEBUG 1
1160 #define DEB(a)                          a
1161 #define DEBUG(a)   if (debug)           a
1162 #define DEBUG_p(a) if (debug & 1)       a
1163 #define DEBUG_s(a) if (debug & 2)       a
1164 #define DEBUG_l(a) if (debug & 4)       a
1165 #define DEBUG_t(a) if (debug & 8)       a
1166 #define DEBUG_o(a) if (debug & 16)      a
1167 #define DEBUG_c(a) if (debug & 32)      a
1168 #define DEBUG_P(a) if (debug & 64)      a
1169 #define DEBUG_m(a) if (curinterp && debug & 128)        a
1170 #define DEBUG_f(a) if (debug & 256)     a
1171 #define DEBUG_r(a) if (debug & 512)     a
1172 #define DEBUG_x(a) if (debug & 1024)    a
1173 #define DEBUG_u(a) if (debug & 2048)    a
1174 #define DEBUG_L(a) if (debug & 4096)    a
1175 #define DEBUG_H(a) if (debug & 8192)    a
1176 #define DEBUG_X(a) if (debug & 16384)   a
1177 #define DEBUG_D(a) if (debug & 32768)   a
1178 #else
1179 #define DEB(a)
1180 #define DEBUG(a)
1181 #define DEBUG_p(a)
1182 #define DEBUG_s(a)
1183 #define DEBUG_l(a)
1184 #define DEBUG_t(a)
1185 #define DEBUG_o(a)
1186 #define DEBUG_c(a)
1187 #define DEBUG_P(a)
1188 #define DEBUG_m(a)
1189 #define DEBUG_f(a)
1190 #define DEBUG_r(a)
1191 #define DEBUG_x(a)
1192 #define DEBUG_u(a)
1193 #define DEBUG_L(a)
1194 #define DEBUG_H(a)
1195 #define DEBUG_X(a)
1196 #define DEBUG_D(a)
1197 #endif
1198 #define YYMAXDEPTH 300
1199
1200 #ifndef assert  /* <assert.h> might have been included somehow */
1201 #define assert(what)    DEB( {                                          \
1202         if (!(what)) {                                                  \
1203             croak("Assertion failed: file \"%s\", line %d",             \
1204                 __FILE__, __LINE__);                                    \
1205             exit(1);                                                    \
1206         }})
1207 #endif
1208
1209 struct ufuncs {
1210     I32 (*uf_val)_((IV, SV*));
1211     I32 (*uf_set)_((IV, SV*));
1212     IV uf_index;
1213 };
1214
1215 /* Fix these up for __STDC__ */
1216 #ifndef DONT_DECLARE_STD
1217 char *mktemp _((char*));
1218 double atof _((const char*));
1219 #endif
1220
1221 #ifndef STANDARD_C
1222 /* All of these are in stdlib.h or time.h for ANSI C */
1223 Time_t time();
1224 struct tm *gmtime(), *localtime();
1225 char *strchr(), *strrchr();
1226 char *strcpy(), *strcat();
1227 #endif /* ! STANDARD_C */
1228
1229
1230 #ifdef I_MATH
1231 #    include <math.h>
1232 #else
1233 #   ifdef __cplusplus
1234         extern "C" {
1235 #   endif
1236             double exp _((double));
1237             double log _((double));
1238             double log10 _((double));
1239             double sqrt _((double));
1240             double frexp _((double,int*));
1241             double ldexp _((double,int));
1242             double modf _((double,double*));
1243             double sin _((double));
1244             double cos _((double));
1245             double atan2 _((double,double));
1246             double pow _((double,double));
1247 #   ifdef __cplusplus
1248         };
1249 #   endif
1250 #endif
1251
1252 #ifndef __cplusplus
1253 #ifdef __NeXT__ /* or whatever catches all NeXTs */
1254 char *crypt ();       /* Maybe more hosts will need the unprototyped version */
1255 #else
1256 char *crypt _((const char*, const char*));
1257 #endif
1258 #ifndef DONT_DECLARE_STD
1259 #ifndef getenv
1260 char *getenv _((const char*));
1261 #endif
1262 Off_t lseek _((int,Off_t,int));
1263 #endif
1264 char *getlogin _((void));
1265 #endif
1266
1267 #ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */
1268 #define UNLINK unlnk
1269 I32 unlnk _((char*));
1270 #else
1271 #define UNLINK unlink
1272 #endif
1273
1274 #ifndef HAS_SETREUID
1275 #  ifdef HAS_SETRESUID
1276 #    define setreuid(r,e) setresuid(r,e,(Uid_t)-1)
1277 #    define HAS_SETREUID
1278 #  endif
1279 #endif
1280 #ifndef HAS_SETREGID
1281 #  ifdef HAS_SETRESGID
1282 #    define setregid(r,e) setresgid(r,e,(Gid_t)-1)
1283 #    define HAS_SETREGID
1284 #  endif
1285 #endif
1286
1287 typedef Signal_t (*Sighandler_t) _((int));
1288
1289 #ifdef HAS_SIGACTION
1290 typedef struct sigaction Sigsave_t;
1291 #else
1292 typedef Sighandler_t Sigsave_t;
1293 #endif
1294
1295 #define SCAN_DEF 0
1296 #define SCAN_TR 1
1297 #define SCAN_REPL 2
1298
1299 #ifdef DEBUGGING
1300 # ifndef register
1301 #  define register
1302 # endif
1303 # ifdef MYMALLOC
1304 #  ifndef DEBUGGING_MSTATS
1305 #   define DEBUGGING_MSTATS
1306 #  endif
1307 # endif
1308 # define PAD_SV(po) pad_sv(po)
1309 #else
1310 # define PAD_SV(po) curpad[po]
1311 #endif
1312
1313 /****************/
1314 /* Truly global */
1315 /****************/
1316
1317 /* global state */
1318 EXT PerlInterpreter *   curinterp;      /* currently running interpreter */
1319 #ifdef USE_THREADS
1320 EXT pthread_key_t       thr_key;        /* For per-thread struct thread ptr */
1321 EXT pthread_mutex_t     sv_mutex;       /* Mutex for allocating SVs in sv.c */
1322 EXT pthread_mutex_t     malloc_mutex;   /* Mutex for malloc */
1323 EXT pthread_mutex_t     eval_mutex;     /* Mutex for doeval */
1324 EXT pthread_cond_t      eval_cond;      /* Condition variable for doeval */
1325 EXT struct thread *     eval_owner;     /* Owner thread for doeval */
1326 EXT int                 nthreads;       /* Number of threads currently */
1327 EXT pthread_mutex_t     nthreads_mutex; /* Mutex for nthreads */
1328 EXT pthread_cond_t      nthreads_cond;  /* Condition variable for nthreads */
1329 #endif /* USE_THREADS */
1330
1331 /* VMS doesn't use environ array and NeXT has problems with crt0.o globals */
1332 #if !defined(VMS) && !(defined(NeXT) && defined(__DYNAMIC__))
1333 #ifndef DONT_DECLARE_STD
1334 extern char **  environ;        /* environment variables supplied via exec */
1335 #endif
1336 #else
1337 #  if defined(NeXT) && defined(__DYNAMIC__)
1338
1339 #  include <mach-o/dyld.h>
1340 EXT char *** environ_pointer;
1341 #  define environ (*environ_pointer)
1342 #  endif
1343 #endif /* environ processing */
1344
1345 EXT int         uid;            /* current real user id */
1346 EXT int         euid;           /* current effective user id */
1347 EXT int         gid;            /* current real group id */
1348 EXT int         egid;           /* current effective group id */
1349 EXT bool        nomemok;        /* let malloc context handle nomem */
1350 EXT U32         an;             /* malloc sequence number */
1351 EXT U32         cop_seqmax;     /* statement sequence number */
1352 EXT U16         op_seqmax;      /* op sequence number */
1353 EXT U32         evalseq;        /* eval sequence number */
1354 EXT U32         sub_generation; /* inc to force methods to be looked up again */
1355 EXT char **     origenviron;
1356 EXT U32         origalen;
1357 EXT HV *        pidstatus;      /* pid-to-status mappings for waitpid */
1358 EXT U32 *       profiledata;
1359 EXT int         maxo INIT(MAXO);/* Number of ops */
1360 EXT char *      osname;         /* operating system */
1361 EXT char *      sh_path INIT(SH_PATH); /* full path of shell */
1362
1363 EXT XPV*        xiv_arenaroot;  /* list of allocated xiv areas */
1364 EXT IV **       xiv_root;       /* free xiv list--shared by interpreters */
1365 EXT double *    xnv_root;       /* free xnv list--shared by interpreters */
1366 EXT XRV *       xrv_root;       /* free xrv list--shared by interpreters */
1367 EXT XPV *       xpv_root;       /* free xpv list--shared by interpreters */
1368 EXT HE *        he_root;        /* free he list--shared by interpreters */
1369 EXT char *      nice_chunk;     /* a nice chunk of memory to reuse */
1370 EXT U32         nice_chunk_size;/* how nice the chunk of memory is */
1371
1372 /* Stack for currently executing thread--context switch must handle this.     */
1373 EXT SV **       stack_base;     /* stack->array_ary */
1374 EXT SV **       stack_sp;       /* stack pointer now */
1375 EXT SV **       stack_max;      /* stack->array_ary + stack->array_max */
1376
1377 /* likewise for these */
1378
1379 #ifdef OP_IN_REGISTER
1380 EXT OP *        opsave;         /* save current op register across longjmps */
1381 #else
1382 EXT OP *        op;             /* current op--when not in a global register */
1383 #endif
1384 EXT I32 *       scopestack;     /* blocks we've entered */
1385 EXT I32         scopestack_ix;
1386 EXT I32         scopestack_max;
1387
1388 EXT ANY*        savestack;      /* to save non-local values on */
1389 EXT I32         savestack_ix;
1390 EXT I32         savestack_max;
1391
1392 EXT OP **       retstack;       /* returns we've pushed */
1393 EXT I32         retstack_ix;
1394 EXT I32         retstack_max;
1395
1396 EXT I32 *       markstack;      /* stackmarks we're remembering */
1397 EXT I32 *       markstack_ptr;  /* stackmarks we're remembering */
1398 EXT I32 *       markstack_max;  /* stackmarks we're remembering */
1399
1400 EXT SV **       curpad;
1401
1402 /* temp space */
1403 EXT SV *        Sv;
1404 EXT XPV *       Xpv;
1405 EXT char        tokenbuf[256];
1406 EXT struct stat statbuf;
1407 #ifdef HAS_TIMES
1408 EXT struct tms  timesbuf;
1409 #endif
1410 EXT STRLEN na;          /* for use in SvPV when length is Not Applicable */
1411
1412 /* for tmp use in stupid debuggers */
1413 EXT int *       di;
1414 EXT short *     ds;
1415 EXT char *      dc;
1416
1417 /* handy constants */
1418 EXTCONST char * Yes INIT("1");
1419 EXTCONST char * No INIT("");
1420 EXTCONST char * hexdigit INIT("0123456789abcdef0123456789ABCDEFx");
1421 EXTCONST char * patleave INIT("\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}");
1422 EXTCONST char * vert INIT("|");
1423
1424 EXTCONST char   warn_uninit[]
1425   INIT("Use of uninitialized value");
1426 EXTCONST char   warn_nosemi[]
1427   INIT("Semicolon seems to be missing");
1428 EXTCONST char   warn_reserved[]
1429   INIT("Unquoted string \"%s\" may clash with future reserved word");
1430 EXTCONST char   warn_nl[]
1431   INIT("Unsuccessful %s on filename containing newline");
1432 EXTCONST char   no_wrongref[]
1433   INIT("Can't use %s ref as %s ref");
1434 EXTCONST char   no_symref[]
1435   INIT("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use");
1436 EXTCONST char   no_usym[]
1437   INIT("Can't use an undefined value as %s reference");
1438 EXTCONST char   no_aelem[]
1439   INIT("Modification of non-creatable array value attempted, subscript %d");
1440 EXTCONST char   no_helem[]
1441   INIT("Modification of non-creatable hash value attempted, subscript \"%s\"");
1442 EXTCONST char   no_modify[]
1443   INIT("Modification of a read-only value attempted");
1444 EXTCONST char   no_mem[]
1445   INIT("Out of memory!\n");
1446 EXTCONST char   no_security[]
1447   INIT("Insecure dependency in %s%s");
1448 EXTCONST char   no_sock_func[]
1449   INIT("Unsupported socket function \"%s\" called");
1450 EXTCONST char   no_dir_func[]
1451   INIT("Unsupported directory function \"%s\" called");
1452 EXTCONST char   no_func[]
1453   INIT("The %s function is unimplemented");
1454 EXTCONST char   no_myglob[]
1455   INIT("\"my\" variable %s can't be in a package");
1456
1457 EXT SV          sv_undef;
1458 EXT SV          sv_no;
1459 EXT SV          sv_yes;
1460 #ifdef CSH
1461     EXT char *  cshname INIT(CSH);
1462     EXT I32     cshlen;
1463 #endif
1464
1465 #ifdef DOINIT
1466 EXT char *sig_name[] = { SIG_NAME };
1467 EXT int   sig_num[]  = { SIG_NUM };
1468 EXT SV  * psig_ptr[sizeof(sig_num)/sizeof(*sig_num)];
1469 EXT SV  * psig_name[sizeof(sig_num)/sizeof(*sig_num)];
1470 #else
1471 EXT char *sig_name[];
1472 EXT int   sig_num[];
1473 EXT SV  * psig_ptr[];
1474 EXT SV  * psig_name[];
1475 #endif
1476
1477 /* fast case folding tables */
1478
1479 #ifdef DOINIT
1480 EXTCONST  unsigned char fold[] = {
1481         0,      1,      2,      3,      4,      5,      6,      7,
1482         8,      9,      10,     11,     12,     13,     14,     15,
1483         16,     17,     18,     19,     20,     21,     22,     23,
1484         24,     25,     26,     27,     28,     29,     30,     31,
1485         32,     33,     34,     35,     36,     37,     38,     39,
1486         40,     41,     42,     43,     44,     45,     46,     47,
1487         48,     49,     50,     51,     52,     53,     54,     55,
1488         56,     57,     58,     59,     60,     61,     62,     63,
1489         64,     'a',    'b',    'c',    'd',    'e',    'f',    'g',
1490         'h',    'i',    'j',    'k',    'l',    'm',    'n',    'o',
1491         'p',    'q',    'r',    's',    't',    'u',    'v',    'w',
1492         'x',    'y',    'z',    91,     92,     93,     94,     95,
1493         96,     'A',    'B',    'C',    'D',    'E',    'F',    'G',
1494         'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
1495         'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
1496         'X',    'Y',    'Z',    123,    124,    125,    126,    127,
1497         128,    129,    130,    131,    132,    133,    134,    135,
1498         136,    137,    138,    139,    140,    141,    142,    143,
1499         144,    145,    146,    147,    148,    149,    150,    151,
1500         152,    153,    154,    155,    156,    157,    158,    159,
1501         160,    161,    162,    163,    164,    165,    166,    167,
1502         168,    169,    170,    171,    172,    173,    174,    175,
1503         176,    177,    178,    179,    180,    181,    182,    183,
1504         184,    185,    186,    187,    188,    189,    190,    191,
1505         192,    193,    194,    195,    196,    197,    198,    199,
1506         200,    201,    202,    203,    204,    205,    206,    207,
1507         208,    209,    210,    211,    212,    213,    214,    215,
1508         216,    217,    218,    219,    220,    221,    222,    223,
1509         224,    225,    226,    227,    228,    229,    230,    231,
1510         232,    233,    234,    235,    236,    237,    238,    239,
1511         240,    241,    242,    243,    244,    245,    246,    247,
1512         248,    249,    250,    251,    252,    253,    254,    255
1513 };
1514 #else
1515 EXTCONST unsigned char fold[];
1516 #endif
1517
1518 #ifdef DOINIT
1519 EXT unsigned char fold_locale[] = {
1520         0,      1,      2,      3,      4,      5,      6,      7,
1521         8,      9,      10,     11,     12,     13,     14,     15,
1522         16,     17,     18,     19,     20,     21,     22,     23,
1523         24,     25,     26,     27,     28,     29,     30,     31,
1524         32,     33,     34,     35,     36,     37,     38,     39,
1525         40,     41,     42,     43,     44,     45,     46,     47,
1526         48,     49,     50,     51,     52,     53,     54,     55,
1527         56,     57,     58,     59,     60,     61,     62,     63,
1528         64,     'a',    'b',    'c',    'd',    'e',    'f',    'g',
1529         'h',    'i',    'j',    'k',    'l',    'm',    'n',    'o',
1530         'p',    'q',    'r',    's',    't',    'u',    'v',    'w',
1531         'x',    'y',    'z',    91,     92,     93,     94,     95,
1532         96,     'A',    'B',    'C',    'D',    'E',    'F',    'G',
1533         'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
1534         'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
1535         'X',    'Y',    'Z',    123,    124,    125,    126,    127,
1536         128,    129,    130,    131,    132,    133,    134,    135,
1537         136,    137,    138,    139,    140,    141,    142,    143,
1538         144,    145,    146,    147,    148,    149,    150,    151,
1539         152,    153,    154,    155,    156,    157,    158,    159,
1540         160,    161,    162,    163,    164,    165,    166,    167,
1541         168,    169,    170,    171,    172,    173,    174,    175,
1542         176,    177,    178,    179,    180,    181,    182,    183,
1543         184,    185,    186,    187,    188,    189,    190,    191,
1544         192,    193,    194,    195,    196,    197,    198,    199,
1545         200,    201,    202,    203,    204,    205,    206,    207,
1546         208,    209,    210,    211,    212,    213,    214,    215,
1547         216,    217,    218,    219,    220,    221,    222,    223,
1548         224,    225,    226,    227,    228,    229,    230,    231,
1549         232,    233,    234,    235,    236,    237,    238,    239,
1550         240,    241,    242,    243,    244,    245,    246,    247,
1551         248,    249,    250,    251,    252,    253,    254,    255
1552 };
1553 #else
1554 EXT unsigned char fold_locale[];
1555 #endif
1556
1557 #ifdef DOINIT
1558 EXTCONST unsigned char freq[] = {       /* letter frequencies for mixed English/C */
1559         1,      2,      84,     151,    154,    155,    156,    157,
1560         165,    246,    250,    3,      158,    7,      18,     29,
1561         40,     51,     62,     73,     85,     96,     107,    118,
1562         129,    140,    147,    148,    149,    150,    152,    153,
1563         255,    182,    224,    205,    174,    176,    180,    217,
1564         233,    232,    236,    187,    235,    228,    234,    226,
1565         222,    219,    211,    195,    188,    193,    185,    184,
1566         191,    183,    201,    229,    181,    220,    194,    162,
1567         163,    208,    186,    202,    200,    218,    198,    179,
1568         178,    214,    166,    170,    207,    199,    209,    206,
1569         204,    160,    212,    216,    215,    192,    175,    173,
1570         243,    172,    161,    190,    203,    189,    164,    230,
1571         167,    248,    227,    244,    242,    255,    241,    231,
1572         240,    253,    169,    210,    245,    237,    249,    247,
1573         239,    168,    252,    251,    254,    238,    223,    221,
1574         213,    225,    177,    197,    171,    196,    159,    4,
1575         5,      6,      8,      9,      10,     11,     12,     13,
1576         14,     15,     16,     17,     19,     20,     21,     22,
1577         23,     24,     25,     26,     27,     28,     30,     31,
1578         32,     33,     34,     35,     36,     37,     38,     39,
1579         41,     42,     43,     44,     45,     46,     47,     48,
1580         49,     50,     52,     53,     54,     55,     56,     57,
1581         58,     59,     60,     61,     63,     64,     65,     66,
1582         67,     68,     69,     70,     71,     72,     74,     75,
1583         76,     77,     78,     79,     80,     81,     82,     83,
1584         86,     87,     88,     89,     90,     91,     92,     93,
1585         94,     95,     97,     98,     99,     100,    101,    102,
1586         103,    104,    105,    106,    108,    109,    110,    111,
1587         112,    113,    114,    115,    116,    117,    119,    120,
1588         121,    122,    123,    124,    125,    126,    127,    128,
1589         130,    131,    132,    133,    134,    135,    136,    137,
1590         138,    139,    141,    142,    143,    144,    145,    146
1591 };
1592 #else
1593 EXTCONST unsigned char freq[];
1594 #endif
1595
1596 #ifdef DEBUGGING
1597 #ifdef DOINIT
1598 EXTCONST char* block_type[] = {
1599         "NULL",
1600         "SUB",
1601         "EVAL",
1602         "LOOP",
1603         "SUBST",
1604         "BLOCK",
1605 };
1606 #else
1607 EXTCONST char* block_type[];
1608 #endif
1609 #endif
1610
1611 /*****************************************************************************/
1612 /* This lexer/parser stuff is currently global since yacc is hard to reenter */
1613 /*****************************************************************************/
1614 /* XXX This needs to be revisited, since BEGIN makes yacc re-enter... */
1615
1616 #include "perly.h"
1617
1618 typedef enum {
1619     XOPERATOR,
1620     XTERM,
1621     XREF,
1622     XSTATE,
1623     XBLOCK,
1624     XTERMBLOCK
1625 } expectation;
1626
1627 EXT U32         lex_state;      /* next token is determined */
1628 EXT U32         lex_defer;      /* state after determined token */
1629 EXT expectation lex_expect;     /* expect after determined token */
1630 EXT I32         lex_brackets;   /* bracket count */
1631 EXT I32         lex_formbrack;  /* bracket count at outer format level */
1632 EXT I32         lex_fakebrack;  /* outer bracket is mere delimiter */
1633 EXT I32         lex_casemods;   /* casemod count */
1634 EXT I32         lex_dojoin;     /* doing an array interpolation */
1635 EXT I32         lex_starts;     /* how many interps done on level */
1636 EXT SV *        lex_stuff;      /* runtime pattern from m// or s/// */
1637 EXT SV *        lex_repl;       /* runtime replacement from s/// */
1638 EXT OP *        lex_op;         /* extra info to pass back on op */
1639 EXT OP *        lex_inpat;      /* in pattern $) and $| are special */
1640 EXT I32         lex_inwhat;     /* what kind of quoting are we in */
1641 EXT char *      lex_brackstack; /* what kind of brackets to pop */
1642 EXT char *      lex_casestack;  /* what kind of case mods in effect */
1643
1644 /* What we know when we're in LEX_KNOWNEXT state. */
1645 EXT YYSTYPE     nextval[5];     /* value of next token, if any */
1646 EXT I32         nexttype[5];    /* type of next token */
1647 EXT I32         nexttoke;
1648
1649 EXT PerlIO * VOL        rsfp INIT(Nullfp);
1650 EXT SV *        linestr;
1651 EXT char *      bufptr;
1652 EXT char *      oldbufptr;
1653 EXT char *      oldoldbufptr;
1654 EXT char *      bufend;
1655 EXT expectation expect INIT(XSTATE);    /* how to interpret ambiguous tokens */
1656 EXT AV *        rsfp_filters;
1657
1658 EXT I32         multi_start;    /* 1st line of multi-line string */
1659 EXT I32         multi_end;      /* last line of multi-line string */
1660 EXT I32         multi_open;     /* delimiter of said string */
1661 EXT I32         multi_close;    /* delimiter of said string */
1662
1663 EXT GV *        scrgv;
1664 EXT I32         error_count;    /* how many errors so far, max 10 */
1665 EXT I32         subline;        /* line this subroutine began on */
1666 EXT SV *        subname;        /* name of current subroutine */
1667
1668 EXT CV *        compcv;         /* currently compiling subroutine */
1669 EXT AV *        comppad;        /* storage for lexically scoped temporaries */
1670 EXT AV *        comppad_name;   /* variable names for "my" variables */
1671 EXT I32         comppad_name_fill;/* last "introduced" variable offset */
1672 EXT I32         comppad_name_floor;/* start of vars in innermost block */
1673 EXT I32         min_intro_pending;/* start of vars to introduce */
1674 EXT I32         max_intro_pending;/* end of vars to introduce */
1675 EXT I32         padix;          /* max used index in current "register" pad */
1676 EXT I32         padix_floor;    /* how low may inner block reset padix */
1677 EXT I32         pad_reset_pending; /* reset pad on next attempted alloc */
1678 EXT COP         compiling;
1679
1680 EXT I32         thisexpr;       /* name id for nothing_in_common() */
1681 EXT char *      last_uni;       /* position of last named-unary operator */
1682 EXT char *      last_lop;       /* position of last list operator */
1683 EXT OPCODE      last_lop_op;    /* last list operator */
1684 EXT bool        in_my;          /* we're compiling a "my" declaration */
1685 EXT HV *        in_my_stash;    /* declared class of this "my" declaration */
1686 #ifdef FCRYPT
1687 EXT I32         cryptseen;      /* has fast crypt() been initialized? */
1688 #endif
1689
1690 EXT U32         hints;          /* various compilation flags */
1691
1692                                 /* Note: the lowest 8 bits are reserved for
1693                                    stuffing into op->op_private */
1694 #define HINT_INTEGER            0x00000001
1695 #define HINT_STRICT_REFS        0x00000002
1696
1697 #define HINT_BLOCK_SCOPE        0x00000100
1698 #define HINT_STRICT_SUBS        0x00000200
1699 #define HINT_STRICT_VARS        0x00000400
1700 #define HINT_LOCALE             0x00000800
1701
1702 /**************************************************************************/
1703 /* This regexp stuff is global since it always happens within 1 expr eval */
1704 /**************************************************************************/
1705
1706 EXT char *      regprecomp;     /* uncompiled string. */
1707 EXT char *      regparse;       /* Input-scan pointer. */
1708 EXT char *      regxend;        /* End of input for compile */
1709 EXT I32         regnpar;        /* () count. */
1710 EXT char *      regcode;        /* Code-emit pointer; &regdummy = don't. */
1711 EXT I32         regsize;        /* Code size. */
1712 EXT I32         regnaughty;     /* How bad is this pattern? */
1713 EXT I32         regsawback;     /* Did we see \1, ...? */
1714
1715 EXT char *      reginput;       /* String-input pointer. */
1716 EXT char *      regbol;         /* Beginning of input, for ^ check. */
1717 EXT char *      regeol;         /* End of input, for $ check. */
1718 EXT char **     regstartp;      /* Pointer to startp array. */
1719 EXT char **     regendp;        /* Ditto for endp. */
1720 EXT U32 *       reglastparen;   /* Similarly for lastparen. */
1721 EXT char *      regtill;        /* How far we are required to go. */
1722 EXT U16         regflags;       /* are we folding, multilining? */
1723 EXT char        regprev;        /* char before regbol, \n if none */
1724
1725 EXT bool        do_undump;      /* -u or dump seen? */
1726 EXT VOL U32     debug;
1727
1728 /***********************************************/
1729 /* Global only to current interpreter instance */
1730 /***********************************************/
1731
1732 #ifdef MULTIPLICITY
1733 #define IEXT
1734 #define IINIT(x)
1735 struct interpreter {
1736 #else
1737 #define IEXT EXT
1738 #define IINIT(x) INIT(x)
1739 #endif
1740
1741 /* pseudo environmental stuff */
1742 IEXT int        Iorigargc;
1743 IEXT char **    Iorigargv;
1744 IEXT GV *       Ienvgv;
1745 IEXT GV *       Isiggv;
1746 IEXT GV *       Iincgv;
1747 IEXT char *     Iorigfilename;
1748 IEXT SV *       Idiehook;
1749 IEXT SV *       Iwarnhook;
1750 IEXT SV *       Iparsehook;
1751
1752 /* Various states of an input record separator SV (rs, nrs) */
1753 #define RsSNARF(sv)   (! SvOK(sv))
1754 #define RsSIMPLE(sv)  (SvOK(sv) && SvCUR(sv))
1755 #define RsPARA(sv)    (SvOK(sv) && ! SvCUR(sv))
1756
1757 /* switches */
1758 IEXT char *     Icddir;
1759 IEXT bool       Iminus_c;
1760 IEXT char       Ipatchlevel[10];
1761 IEXT char **    Ilocalpatches;
1762 IEXT SV *       Inrs;
1763 IEXT char *     Isplitstr IINIT(" ");
1764 IEXT bool       Ipreprocess;
1765 IEXT bool       Iminus_n;
1766 IEXT bool       Iminus_p;
1767 IEXT bool       Iminus_l;
1768 IEXT bool       Iminus_a;
1769 IEXT bool       Iminus_F;
1770 IEXT bool       Idoswitches;
1771 IEXT bool       Idowarn;
1772 IEXT bool       Idoextract;
1773 IEXT bool       Isawampersand;  /* must save all match strings */
1774 IEXT bool       Isawstudy;      /* do fbm_instr on all strings */
1775 IEXT bool       Isawvec;
1776 IEXT bool       Iunsafe;
1777 IEXT char *     Iinplace;
1778 IEXT char *     Ie_tmpname;
1779 IEXT PerlIO *   Ie_fp;
1780 IEXT U32        Iperldb;
1781         /* This value may be raised by extensions for testing purposes */
1782 IEXT int        Iperl_destruct_level IINIT(0);  /* 0=none, 1=full, 2=full with checks */
1783
1784 /* magical thingies */
1785 IEXT Time_t     Ibasetime;              /* $^T */
1786 IEXT SV *       Iformfeed;              /* $^L */
1787 IEXT char *     Ichopset IINIT(" \n-"); /* $: */
1788 IEXT SV *       Irs;                    /* $/ */
1789 IEXT char *     Iofs;                   /* $, */
1790 IEXT STRLEN     Iofslen;
1791 IEXT char *     Iors;                   /* $\ */
1792 IEXT STRLEN     Iorslen;
1793 IEXT char *     Iofmt;                  /* $# */
1794 IEXT I32        Imaxsysfd IINIT(MAXSYSFD); /* top fd to pass to subprocesses */
1795 IEXT int        Imultiline;             /* $*--do strings hold >1 line? */
1796 IEXT I32        Istatusvalue;           /* $? */
1797 #ifdef VMS
1798 IEXT U32        Istatusvalue_vms;
1799 #endif
1800
1801 IEXT struct stat Istatcache;            /* _ */
1802 IEXT GV *       Istatgv;
1803 IEXT SV *       Istatname IINIT(Nullsv);
1804
1805 /* shortcuts to various I/O objects */
1806 IEXT GV *       Istdingv;
1807 IEXT GV *       Ilast_in_gv;
1808 IEXT GV *       Idefgv;
1809 IEXT GV *       Iargvgv;
1810 IEXT GV *       Idefoutgv;
1811 IEXT GV *       Iargvoutgv;
1812
1813 /* shortcuts to regexp stuff */
1814 IEXT GV *       Ileftgv;
1815 IEXT GV *       Iampergv;
1816 IEXT GV *       Irightgv;
1817 IEXT PMOP *     Icurpm;         /* what to do \ interps from */
1818 IEXT I32 *      Iscreamfirst;
1819 IEXT I32 *      Iscreamnext;
1820 IEXT I32        Imaxscream IINIT(-1);
1821 IEXT SV *       Ilastscream;
1822
1823 /* shortcuts to misc objects */
1824 IEXT GV *       Ierrgv;
1825
1826 /* shortcuts to debugging objects */
1827 IEXT GV *       IDBgv;
1828 IEXT GV *       IDBline;
1829 IEXT GV *       IDBsub;
1830 IEXT SV *       IDBsingle;
1831 IEXT SV *       IDBtrace;
1832 IEXT SV *       IDBsignal;
1833 IEXT AV *       Ilineary;       /* lines of script for debugger */
1834 IEXT AV *       Idbargs;        /* args to call listed by caller function */
1835
1836 /* symbol tables */
1837 IEXT HV *       Idefstash;      /* main symbol table */
1838 IEXT HV *       Icurstash;      /* symbol table for current package */
1839 IEXT HV *       Idebstash;      /* symbol table for perldb package */
1840 IEXT SV *       Icurstname;     /* name of current package */
1841 IEXT AV *       Ibeginav;       /* names of BEGIN subroutines */
1842 IEXT AV *       Iendav;         /* names of END subroutines */
1843 IEXT AV *       Irestartav;     /* names of RESTART subroutines */
1844 IEXT HV *       Istrtab;        /* shared string table */
1845
1846 /* memory management */
1847 IEXT SV **      Itmps_stack;
1848 IEXT I32        Itmps_ix IINIT(-1);
1849 IEXT I32        Itmps_floor IINIT(-1);
1850 IEXT I32        Itmps_max;
1851 IEXT I32        Isv_count;      /* how many SV* are currently allocated */
1852 IEXT I32        Isv_objcount;   /* how many objects are currently allocated */
1853 IEXT SV*        Isv_root;       /* storage for SVs belonging to interp */
1854 IEXT SV*        Isv_arenaroot;  /* list of areas for garbage collection */
1855
1856 /* funky return mechanisms */
1857 IEXT I32        Ilastspbase;
1858 IEXT I32        Ilastsize;
1859 IEXT int        Iforkprocess;   /* so do_open |- can return proc# */
1860
1861 /* subprocess state */
1862 IEXT AV *       Ifdpid;         /* keep fd-to-pid mappings for my_popen */
1863
1864 /* internal state */
1865 IEXT VOL int    Iin_eval;       /* trap "fatal" errors? */
1866 IEXT OP *       Irestartop;     /* Are we propagating an error from croak? */
1867 IEXT int        Idelaymagic;    /* ($<,$>) = ... */
1868 IEXT bool       Idirty;         /* In the middle of tearing things down? */
1869 IEXT U8         Ilocalizing;    /* are we processing a local() list? */
1870 IEXT bool       Itainted;       /* using variables controlled by $< */
1871 IEXT bool       Itainting;      /* doing taint checks */
1872 IEXT char *     Iop_mask IINIT(NULL);   /* masked operations for safe evals */
1873
1874 /* trace state */
1875 IEXT I32        Idlevel;
1876 IEXT I32        Idlmax IINIT(128);
1877 IEXT char *     Idebname;
1878 IEXT char *     Idebdelim;
1879
1880 /* current interpreter roots */
1881 IEXT CV *       Imain_cv;
1882 IEXT OP *       Imain_root;
1883 IEXT OP *       Imain_start;
1884 IEXT OP *       Ieval_root;
1885 IEXT OP *       Ieval_start;
1886
1887 /* runtime control stuff */
1888 IEXT COP * VOL  Icurcop IINIT(&compiling);
1889 IEXT COP *      Icurcopdb IINIT(NULL);
1890 IEXT line_t     Icopline IINIT(NOLINE);
1891 IEXT CONTEXT *  Icxstack;
1892 IEXT I32        Icxstack_ix IINIT(-1);
1893 IEXT I32        Icxstack_max IINIT(128);
1894 IEXT JMPENV     Istart_env;     /* empty startup sigjmp() environment */
1895 IEXT JMPENV *   Itop_env;       /* ptr. to current sigjmp() environment */
1896 IEXT I32        Irunlevel;
1897
1898 /* stack stuff */
1899 IEXT AV *       Icurstack;              /* THE STACK */
1900 IEXT AV *       Imainstack;     /* the stack when nothing funny is happening */
1901 IEXT SV **      Imystack_base;  /* stack->array_ary */
1902 IEXT SV **      Imystack_sp;    /* stack pointer now */
1903 IEXT SV **      Imystack_max;   /* stack->array_ary + stack->array_max */
1904
1905 /* format accumulators */
1906 IEXT SV *       Iformtarget;
1907 IEXT SV *       Ibodytarget;
1908 IEXT SV *       Itoptarget;
1909
1910 /* statics moved here for shared library purposes */
1911 IEXT SV         Istrchop;       /* return value from chop */
1912 IEXT int        Ifilemode;      /* so nextargv() can preserve mode */
1913 IEXT int        Ilastfd;        /* what to preserve mode on */
1914 IEXT char *     Ioldname;       /* what to preserve mode on */
1915 IEXT char **    IArgv;          /* stuff to free from do_aexec, vfork safe */
1916 IEXT char *     ICmd;           /* stuff to free from do_aexec, vfork safe */
1917 IEXT OP *       Isortcop;       /* user defined sort routine */
1918 IEXT HV *       Isortstash;     /* which is in some package or other */
1919 IEXT GV *       Ifirstgv;       /* $a */
1920 IEXT GV *       Isecondgv;      /* $b */
1921 IEXT AV *       Isortstack;     /* temp stack during pp_sort() */
1922 IEXT AV *       Isignalstack;   /* temp stack during sighandler() */
1923 IEXT SV *       Imystrk;        /* temp key string for do_each() */
1924 IEXT I32        Idumplvl;       /* indentation level on syntax tree dump */
1925 IEXT PMOP *     Ioldlastpm;     /* for saving regexp context during debugger */
1926 IEXT I32        Igensym;        /* next symbol for getsym() to define */
1927 IEXT bool       Ipreambled;
1928 IEXT AV *       Ipreambleav;
1929 IEXT int        Ilaststatval IINIT(-1);
1930 IEXT I32        Ilaststype IINIT(OP_STAT);
1931 IEXT SV *       Imess_sv;
1932
1933 #undef IEXT
1934 #undef IINIT
1935
1936 #ifdef MULTIPLICITY
1937 };
1938 #else
1939 struct interpreter {
1940     char broiled;
1941 };
1942 #endif
1943
1944 #include "thread.h"
1945 #include "pp.h"
1946
1947 #ifdef __cplusplus
1948 extern "C" {
1949 #endif
1950
1951 #include "proto.h"
1952
1953 #ifdef EMBED
1954 #define Perl_sv_setptrobj(rv,ptr,name) Perl_sv_setref_iv(rv,name,(IV)ptr)
1955 #define Perl_sv_setptrref(rv,ptr) Perl_sv_setref_iv(rv,Nullch,(IV)ptr)
1956 #else
1957 #define sv_setptrobj(rv,ptr,name) sv_setref_iv(rv,name,(IV)ptr)
1958 #define sv_setptrref(rv,ptr) sv_setref_iv(rv,Nullch,(IV)ptr)
1959 #endif
1960
1961 #ifdef __cplusplus
1962 };
1963 #endif
1964
1965 /* The following must follow proto.h */
1966
1967 #ifdef DOINIT
1968
1969 EXT MGVTBL vtbl_sv =    {magic_get,
1970                                 magic_set,
1971                                         magic_len,
1972                                                 0,      0};
1973 EXT MGVTBL vtbl_env =   {0,     0,      0,      0,      0};
1974 EXT MGVTBL vtbl_envelem =       {0,     magic_setenv,
1975                                         0,      magic_clearenv,
1976                                                         0};
1977 EXT MGVTBL vtbl_sig =   {0,     0,               0, 0, 0};
1978 EXT MGVTBL vtbl_sigelem =       {magic_getsig,
1979                                         magic_setsig,
1980                                         0,      magic_clearsig,
1981                                                         0};
1982 EXT MGVTBL vtbl_pack =  {0,     0,      0,      magic_wipepack,
1983                                                         0};
1984 EXT MGVTBL vtbl_packelem =      {magic_getpack,
1985                                 magic_setpack,
1986                                         0,      magic_clearpack,
1987                                                         0};
1988 EXT MGVTBL vtbl_dbline =        {0,     magic_setdbline,
1989                                         0,      0,      0};
1990 EXT MGVTBL vtbl_isa =   {0,     magic_setisa,
1991                                         0,      0,      0};
1992 EXT MGVTBL vtbl_isaelem =       {0,     magic_setisa,
1993                                         0,      0,      0};
1994 EXT MGVTBL vtbl_arylen =        {magic_getarylen,
1995                                 magic_setarylen,
1996                                         0,      0,      0};
1997 EXT MGVTBL vtbl_glob =  {magic_getglob,
1998                                 magic_setglob,
1999                                         0,      0,      0};
2000 EXT MGVTBL vtbl_mglob = {0,     magic_setmglob,
2001                                         0,      0,      0};
2002 EXT MGVTBL vtbl_nkeys = {0,     magic_setnkeys,
2003                                         0,      0,      0};
2004 EXT MGVTBL vtbl_taint = {magic_gettaint,magic_settaint,
2005                                         0,      0,      0};
2006 EXT MGVTBL vtbl_substr =        {0,     magic_setsubstr,
2007                                         0,      0,      0};
2008 EXT MGVTBL vtbl_vec =   {0,     magic_setvec,
2009                                         0,      0,      0};
2010 EXT MGVTBL vtbl_pos =   {magic_getpos,
2011                                 magic_setpos,
2012                                         0,      0,      0};
2013 EXT MGVTBL vtbl_bm =    {0,     magic_setbm,
2014                                         0,      0,      0};
2015 EXT MGVTBL vtbl_fm =    {0,     magic_setfm,
2016                                         0,      0,      0};
2017 EXT MGVTBL vtbl_uvar =  {magic_getuvar,
2018                                 magic_setuvar,
2019                                         0,      0,      0};
2020 #ifdef USE_THREADS
2021 EXT MGVTBL vtbl_mutex = {0,     0,      0,      0,      magic_mutexfree};
2022 #endif /* USE_THREADS */
2023 EXT MGVTBL vtbl_defelem = {magic_getdefelem,magic_setdefelem,
2024                                         0,      0,      magic_freedefelem};
2025
2026 #ifdef USE_LOCALE_COLLATE
2027 EXT MGVTBL vtbl_collxfrm = {0,
2028                                 magic_setcollxfrm,
2029                                         0,      0,      0};
2030 #endif
2031
2032 #ifdef OVERLOAD
2033 EXT MGVTBL vtbl_amagic =       {0,     magic_setamagic,
2034                                         0,      0,      magic_setamagic};
2035 EXT MGVTBL vtbl_amagicelem =   {0,     magic_setamagic,
2036                                         0,      0,      magic_setamagic};
2037 #endif /* OVERLOAD */
2038
2039 #else /* !DOINIT */
2040
2041 EXT MGVTBL vtbl_sv;
2042 EXT MGVTBL vtbl_env;
2043 EXT MGVTBL vtbl_envelem;
2044 EXT MGVTBL vtbl_sig;
2045 EXT MGVTBL vtbl_sigelem;
2046 EXT MGVTBL vtbl_pack;
2047 EXT MGVTBL vtbl_packelem;
2048 EXT MGVTBL vtbl_dbline;
2049 EXT MGVTBL vtbl_isa;
2050 EXT MGVTBL vtbl_isaelem;
2051 EXT MGVTBL vtbl_arylen;
2052 EXT MGVTBL vtbl_glob;
2053 EXT MGVTBL vtbl_mglob;
2054 EXT MGVTBL vtbl_nkeys;
2055 EXT MGVTBL vtbl_taint;
2056 EXT MGVTBL vtbl_substr;
2057 EXT MGVTBL vtbl_vec;
2058 EXT MGVTBL vtbl_pos;
2059 EXT MGVTBL vtbl_bm;
2060 EXT MGVTBL vtbl_fm;
2061 EXT MGVTBL vtbl_uvar;
2062
2063 #ifdef USE_THREADS
2064 EXT MGVTBL vtbl_mutex;
2065 #endif /* USE_THREADS */
2066
2067 EXT MGVTBL vtbl_defelem;
2068
2069 #ifdef USE_LOCALE_COLLATE
2070 EXT MGVTBL vtbl_collxfrm;
2071 #endif
2072
2073 #ifdef OVERLOAD
2074 EXT MGVTBL vtbl_amagic;
2075 EXT MGVTBL vtbl_amagicelem;
2076 #endif /* OVERLOAD */
2077
2078 #endif /* !DOINIT */
2079
2080 #ifdef OVERLOAD
2081
2082 EXT long amagic_generation;
2083
2084 #define NofAMmeth 58
2085 #ifdef DOINIT
2086 EXTCONST char * AMG_names[NofAMmeth] = {
2087   "fallback",   "abs",                  /* "fallback" should be the first. */
2088   "bool",       "nomethod",
2089   "\"\"",       "0+",
2090   "+",          "+=",
2091   "-",          "-=",
2092   "*",          "*=",
2093   "/",          "/=",
2094   "%",          "%=",
2095   "**",         "**=",
2096   "<<",         "<<=",
2097   ">>",         ">>=",
2098   "&",          "&=",
2099   "|",          "|=",
2100   "^",          "^=",
2101   "<",          "<=",
2102   ">",          ">=",
2103   "==",         "!=",
2104   "<=>",        "cmp",
2105   "lt",         "le",
2106   "gt",         "ge",
2107   "eq",         "ne",
2108   "!",          "~",
2109   "++",         "--",
2110   "atan2",      "cos",
2111   "sin",        "exp",
2112   "log",        "sqrt",
2113   "x",          "x=",
2114   ".",          ".=",
2115   "=",          "neg"
2116 };
2117 #else
2118 EXTCONST char * AMG_names[NofAMmeth];
2119 #endif /* def INITAMAGIC */
2120
2121 struct am_table {
2122   long was_ok_sub;
2123   long was_ok_am;
2124   U32 flags;
2125   CV* table[NofAMmeth];
2126   long fallback;
2127 };
2128 struct am_table_short {
2129   long was_ok_sub;
2130   long was_ok_am;
2131   U32 flags;
2132 };
2133 typedef struct am_table AMT;
2134 typedef struct am_table_short AMTS;
2135
2136 #define AMGfallNEVER    1
2137 #define AMGfallNO       2
2138 #define AMGfallYES      3
2139
2140 #define AMTf_AMAGIC             1
2141 #define AMT_AMAGIC(amt)         ((amt)->flags & AMTf_AMAGIC)
2142 #define AMT_AMAGIC_on(amt)      ((amt)->flags |= AMTf_AMAGIC)
2143 #define AMT_AMAGIC_off(amt)     ((amt)->flags &= ~AMTf_AMAGIC)
2144
2145 enum {
2146   fallback_amg, abs_amg,
2147   bool__amg,    nomethod_amg,
2148   string_amg,   numer_amg,
2149   add_amg,      add_ass_amg,
2150   subtr_amg,    subtr_ass_amg,
2151   mult_amg,     mult_ass_amg,
2152   div_amg,      div_ass_amg,
2153   mod_amg,      mod_ass_amg,
2154   pow_amg,      pow_ass_amg,
2155   lshift_amg,   lshift_ass_amg,
2156   rshift_amg,   rshift_ass_amg,
2157   band_amg,     band_ass_amg,
2158   bor_amg,      bor_ass_amg,
2159   bxor_amg,     bxor_ass_amg,
2160   lt_amg,       le_amg,
2161   gt_amg,       ge_amg,
2162   eq_amg,       ne_amg,
2163   ncmp_amg,     scmp_amg,
2164   slt_amg,      sle_amg,
2165   sgt_amg,      sge_amg,
2166   seq_amg,      sne_amg,
2167   not_amg,      compl_amg,
2168   inc_amg,      dec_amg,
2169   atan2_amg,    cos_amg,
2170   sin_amg,      exp_amg,
2171   log_amg,      sqrt_amg,
2172   repeat_amg,   repeat_ass_amg,
2173   concat_amg,   concat_ass_amg,
2174   copy_amg,     neg_amg
2175 };
2176
2177 /*
2178  * some compilers like to redefine cos et alia as faster
2179  * (and less accurate?) versions called F_cos et cetera (Quidquid
2180  * latine dictum sit, altum viditur.)  This trick collides with
2181  * the Perl overloading (amg).  The following #defines fool both.
2182  */
2183
2184 #ifdef _FASTMATH
2185 #   ifdef atan2
2186 #       define F_atan2_amg  atan2_amg
2187 #   endif
2188 #   ifdef cos
2189 #       define F_cos_amg    cos_amg
2190 #   endif
2191 #   ifdef exp
2192 #       define F_exp_amg    exp_amg
2193 #   endif
2194 #   ifdef log
2195 #       define F_log_amg    log_amg
2196 #   endif
2197 #   ifdef pow
2198 #       define F_pow_amg    pow_amg
2199 #   endif
2200 #   ifdef sin
2201 #       define F_sin_amg    sin_amg
2202 #   endif
2203 #   ifdef sqrt
2204 #       define F_sqrt_amg   sqrt_amg
2205 #   endif
2206 #endif /* _FASTMATH */
2207
2208 #endif /* OVERLOAD */
2209
2210 #ifdef USE_LOCALE_COLLATE
2211 EXT U32         collation_ix;           /* Collation generation index */
2212 EXT char *      collation_name;         /* Name of current collation */
2213 EXT bool        collation_standard INIT(TRUE); /* Assume simple collation */
2214 EXT Size_t      collxfrm_base;          /* Basic overhead in *xfrm() */
2215 EXT Size_t      collxfrm_mult INIT(2);  /* Expansion factor in *xfrm() */
2216 #endif /* USE_LOCALE_COLLATE */
2217
2218 #ifdef USE_LOCALE_NUMERIC
2219
2220 EXT char *      numeric_name;           /* Name of current numeric locale */
2221 EXT bool        numeric_standard INIT(TRUE); /* Assume simple numerics */
2222 EXT bool        numeric_local INIT(TRUE);    /* Assume local numerics */
2223
2224 #define SET_NUMERIC_STANDARD() \
2225     STMT_START {                                \
2226         if (! numeric_standard)                 \
2227             perl_set_numeric_standard();        \
2228     } STMT_END
2229
2230 #define SET_NUMERIC_LOCAL() \
2231     STMT_START {                                \
2232         if (! numeric_local)                    \
2233             perl_set_numeric_local();           \
2234     } STMT_END
2235
2236 #else /* !USE_LOCALE_NUMERIC */
2237
2238 #define SET_NUMERIC_STANDARD()  /**/
2239 #define SET_NUMERIC_LOCAL()     /**/
2240
2241 #endif /* !USE_LOCALE_NUMERIC */
2242
2243 #if !defined(PERLIO_IS_STDIO) && defined(HAS_ATTRIBUTE)
2244 /*
2245  * Now we have __attribute__ out of the way
2246  * Remap printf
2247  */
2248 #define printf PerlIO_stdoutf
2249 #endif
2250
2251 #endif /* Include guard */
2252