perl.h

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