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 /*
  14  * STMT_START { statements; } STMT_END;
  15  * can be used as a single statement, as in
  16  * if (x) STMT_START { ... } STMT_END; else ...
  17  *
  18  * Trying to select a version that gives no warnings...
  19  */
  20 #if !(defined(STMT_START) && defined(STMT_END))
  21 # if defined(__GNUC__) && !defined(__STRICT_ANSI__)
  22 #   define STMT_START   (void)( /* gcc supports ``({ STATEMENTS; })'' */
  23 #   define STMT_END     )
  24 # else
  25    /* Now which other defined()s do we need here ??? */
  26 #  if (VOIDFLAGS) && (defined(sun) || defined(__sun__))
  27 #   define STMT_START   if (1)
  28 #   define STMT_END     else (void)0
  29 #  else
  30 #   define STMT_START   do
  31 #   define STMT_END     while (0)
  32 #  endif
  33 # endif
  34 #endif
  35
  36 #ifdef USE_THREADS
  37 #include <pthread.h>
  38 #endif
  39
  40 #include "embed.h"
  41
  42 #define VOIDUSED 1
  43 #include "config.h"
  44
  45 #ifndef BYTEORDER
  46 #   define BYTEORDER 0x1234
  47 #endif
  48
  49 /* Overall memory policy? */
  50 #ifndef CONSERVATIVE
  51 #   define LIBERAL 1
  52 #endif
  53
  54 /*
  55  * The following contortions are brought to you on behalf of all the
  56  * standards, semi-standards, de facto standards, not-so-de-facto standards
  57  * of the world, as well as all the other botches anyone ever thought of.
  58  * The basic theory is that if we work hard enough here, the rest of the
  59  * code can be a lot prettier.  Well, so much for theory.  Sorry, Henry...
  60  */
  61
  62 /* define this once if either system, instead of cluttering up the src */
  63 #if defined(MSDOS) || defined(atarist)
  64 #define DOSISH 1
  65 #endif
  66
  67 #if defined(__STDC__) || defined(vax11c) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus)
  68 # define STANDARD_C 1
  69 #endif
  70
  71 #if defined(HASVOLATILE) || defined(STANDARD_C)
  72 #   ifdef __cplusplus
  73 #       define VOL              // to temporarily suppress warnings
  74 #   else
  75 #       define VOL volatile
  76 #   endif
  77 #else
  78 #   define VOL
  79 #endif
  80
  81 #define TAINT_IF(c)     (tainted |= (c))
  82 #define TAINT_NOT       (tainted = 0)
  83 #define TAINT_PROPER(s) if (tainting) taint_proper(no_security, s)
  84 #define TAINT_ENV()     if (tainting) taint_env()
  85
  86 #ifdef USE_BSDPGRP
  87 #   ifdef HAS_GETPGRP
  88 #       define BSD_GETPGRP(pid) getpgrp((pid))
  89 #   endif
  90 #   ifdef HAS_SETPGRP
  91 #       define BSD_SETPGRP(pid, pgrp) setpgrp((pid), (pgrp))
  92 #   endif
  93 #else
  94 #   ifdef HAS_GETPGRP2
  95 #       define BSD_GETPGRP(pid) getpgrp2((pid))
  96 #       ifndef HAS_GETPGRP
  97 #           define HAS_GETPGRP
  98 #       endif
  99 #   endif
 100 #   ifdef HAS_SETPGRP2
 101 #       define BSD_SETPGRP(pid, pgrp) setpgrp2((pid), (pgrp))
 102 #       ifndef HAS_SETPGRP
 103 #           define HAS_SETPGRP
 104 #       endif
 105 #   endif
 106 #endif
 107
 108 #include <stdio.h>
 109 #ifdef USE_NEXT_CTYPE
 110 #include <appkit/NXCType.h>
 111 #else
 112 #include <ctype.h>
 113 #endif
 114
 115 #ifdef I_LOCALE
 116 #include <locale.h>
 117 #endif
 118
 119 #ifdef METHOD   /* Defined by OSF/1 v3.0 by ctype.h */
 120 #undef METHOD
 121 #endif
 122
 123 #include <setjmp.h>
 124
 125 #ifdef I_SYS_PARAM
 126 #   ifdef PARAM_NEEDS_TYPES
 127 #       include <sys/types.h>
 128 #   endif
 129 #   include <sys/param.h>
 130 #endif
 131
 132
 133 /* Use all the "standard" definitions? */
 134 #if defined(STANDARD_C) && defined(I_STDLIB)
 135 #   include <stdlib.h>
 136 #endif /* STANDARD_C */
 137
 138 /* Maybe this comes after <stdlib.h> so we don't try to change
 139    the standard library prototypes?.  We'll use our own in
 140    proto.h instead.  I guess.  The patch had no explanation.
 141 */
 142 #ifdef MYMALLOC
 143 #   ifdef HIDEMYMALLOC
 144 #       define malloc Mymalloc
 145 #       define realloc Myremalloc
 146 #       define free Myfree
 147 #   endif
 148 #   define safemalloc malloc
 149 #   define saferealloc realloc
 150 #   define safefree free
 151 #endif
 152
 153 #define MEM_SIZE Size_t
 154
 155 #if defined(I_STRING) || defined(__cplusplus)
 156 #   include <string.h>
 157 #else
 158 #   include <strings.h>
 159 #endif
 160
 161 #if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr)
 162 #define strchr index
 163 #define strrchr rindex
 164 #endif
 165
 166 #if defined(mips) && defined(ultrix) && !defined(__STDC__)
 167 #   undef HAS_MEMCMP
 168 #endif
 169
 170 #ifdef I_MEMORY
 171 #  include <memory.h>
 172 #endif
 173
 174 #ifdef HAS_MEMCPY
 175 #  if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
 176 #    ifndef memcpy
 177         extern char * memcpy _((char*, char*, int));
 178 #    endif
 179 #  endif
 180 #else
 181 #   ifndef memcpy
 182 #       ifdef HAS_BCOPY
 183 #           define memcpy(d,s,l) bcopy(s,d,l)
 184 #       else
 185 #           define memcpy(d,s,l) my_bcopy(s,d,l)
 186 #       endif
 187 #   endif
 188 #endif /* HAS_MEMCPY */
 189
 190 #ifdef HAS_MEMSET
 191 #  if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
 192 #    ifndef memset
 193         extern char *memset _((char*, int, int));
 194 #    endif
 195 #  endif
 196 #  define memzero(d,l) memset(d,0,l)
 197 #else
 198 #   ifndef memzero
 199 #       ifdef HAS_BZERO
 200 #           define memzero(d,l) bzero(d,l)
 201 #       else
 202 #           define memzero(d,l) my_bzero(d,l)
 203 #       endif
 204 #   endif
 205 #endif /* HAS_MEMSET */
 206
 207 #ifdef HAS_MEMCMP
 208 #  if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY)
 209 #    ifndef memcmp
 210         extern int memcmp _((char*, char*, int));
 211 #    endif
 212 #  endif
 213 #else
 214 #   ifndef memcmp
 215 #       define memcmp   my_memcmp
 216 #   endif
 217 #endif /* HAS_MEMCMP */
 218
 219 /* XXX we prefer bcmp slightly for comparisons that don't care about ordering */
 220 #ifndef HAS_BCMP
 221 #   ifndef bcmp
 222 #       define bcmp(s1,s2,l) memcmp(s1,s2,l)
 223 #   endif
 224 #endif /* HAS_BCMP */
 225
 226 #if !defined(HAS_MEMMOVE) && !defined(memmove)
 227 #   if defined(HAS_BCOPY) && defined(HAS_SAFE_BCOPY)
 228 #       define memmove(d,s,l) bcopy(s,d,l)
 229 #   else
 230 #       if defined(HAS_MEMCPY) && defined(HAS_SAFE_MEMCPY)
 231 #           define memmove(d,s,l) memcpy(d,s,l)
 232 #       else
 233 #           define memmove(d,s,l) my_bcopy(s,d,l)
 234 #       endif
 235 #   endif
 236 #endif
 237
 238 #ifndef _TYPES_         /* If types.h defines this it's easy. */
 239 #   ifndef major                /* Does everyone's types.h define this? */
 240 #       include <sys/types.h>
 241 #   endif
 242 #endif
 243
 244 #ifdef I_NETINET_IN
 245 #   include <netinet/in.h>
 246 #endif
 247
 248 #ifdef I_SYS_STAT
 249 #include <sys/stat.h>
 250 #endif
 251
 252 /* The stat macros for Amdahl UTS, Unisoft System V/88 (and derivatives
 253    like UTekV) are broken, sometimes giving false positives.  Undefine
 254    them here and let the code below set them to proper values.
 255
 256    The ghs macro stands for GreenHills Software C-1.8.5 which
 257    is the C compiler for sysV88 and the various derivatives.
 258    This header file bug is corrected in gcc-2.5.8 and later versions.
 259    --Kaveh Ghazi (ghazi@noc.rutgers.edu) 10/3/94.  */
 260
 261 #if defined(uts) || (defined(m88k) && defined(ghs))
 262 #   undef S_ISDIR
 263 #   undef S_ISCHR
 264 #   undef S_ISBLK
 265 #   undef S_ISREG
 266 #   undef S_ISFIFO
 267 #   undef S_ISLNK
 268 #endif
 269
 270 #ifdef I_TIME
 271 #   include <time.h>
 272 #endif
 273
 274 #ifdef I_SYS_TIME
 275 #   ifdef I_SYS_TIME_KERNEL
 276 #       define KERNEL
 277 #   endif
 278 #   include <sys/time.h>
 279 #   ifdef I_SYS_TIME_KERNEL
 280 #       undef KERNEL
 281 #   endif
 282 #endif
 283
 284 #ifndef MSDOS
 285 #  if defined(HAS_TIMES) && defined(I_SYS_TIMES)
 286 #    include <sys/times.h>
 287 #  endif
 288 #endif
 289
 290 #if defined(HAS_STRERROR) && (!defined(HAS_MKDIR) || !defined(HAS_RMDIR))
 291 #   undef HAS_STRERROR
 292 #endif
 293
 294 #ifndef HAS_MKFIFO
 295 #  ifndef mkfifo
 296 #    define mkfifo(path, mode) (mknod((path), (mode) | S_IFIFO, 0))
 297 #  endif
 298 #endif /* !HAS_MKFIFO */
 299
 300 #include <errno.h>
 301 #ifdef HAS_SOCKET
 302 #   ifdef I_NET_ERRNO
 303 #     include <net/errno.h>
 304 #   endif
 305 #endif
 306 #ifndef VMS
 307 #   define FIXSTATUS(sts)  (U_L((sts) & 0xffff))
 308 #   define SHIFTSTATUS(sts) ((sts) >> 8)
 309 #   define SETERRNO(errcode,vmserrcode) errno = (errcode)
 310 #else
 311 #   define FIXSTATUS(sts)  (U_L(sts))
 312 #   define SHIFTSTATUS(sts) (sts)
 313 #   define SETERRNO(errcode,vmserrcode) STMT_START {set_errno(errcode); set_vaxc_errno(vmserrcode);} STMT_END
 314 #endif
 315
 316 #ifndef MSDOS
 317 #   ifndef errno
 318         extern int errno;     /* ANSI allows errno to be an lvalue expr */
 319 #   endif
 320 #endif
 321
 322 #ifdef HAS_STRERROR
 323 #       ifdef VMS
 324         char *strerror _((int,...));
 325 #       else
 326         char *strerror _((int));
 327 #       endif
 328 #       ifndef Strerror
 329 #           define Strerror strerror
 330 #       endif
 331 #else
 332 #    ifdef HAS_SYS_ERRLIST
 333         extern int sys_nerr;
 334         extern char *sys_errlist[];
 335 #       ifndef Strerror
 336 #           define Strerror(e) \
 337                 ((e) < 0 || (e) >= sys_nerr ? "(unknown)" : sys_errlist[e])
 338 #       endif
 339 #   endif
 340 #endif
 341
 342 #ifdef I_SYS_IOCTL
 343 #   ifndef _IOCTL_
 344 #       include <sys/ioctl.h>
 345 #   endif
 346 #endif
 347
 348 #if defined(mc300) || defined(mc500) || defined(mc700) || defined(mc6000)
 349 #   ifdef HAS_SOCKETPAIR
 350 #       undef HAS_SOCKETPAIR
 351 #   endif
 352 #   ifdef I_NDBM
 353 #       undef I_NDBM
 354 #   endif
 355 #endif
 356
 357 #if INTSIZE == 2
 358 #   define htoni htons
 359 #   define ntohi ntohs
 360 #else
 361 #   define htoni htonl
 362 #   define ntohi ntohl
 363 #endif
 364
 365 /* Configure already sets Direntry_t */
 366 #if defined(I_DIRENT)
 367 #   include <dirent.h>
 368 #   if defined(NeXT) && defined(I_SYS_DIR) /* NeXT needs dirent + sys/dir.h */
 369 #       include <sys/dir.h>
 370 #   endif
 371 #else
 372 #   ifdef I_SYS_NDIR
 373 #       include <sys/ndir.h>
 374 #   else
 375 #       ifdef I_SYS_DIR
 376 #           ifdef hp9000s500
 377 #               include <ndir.h>        /* may be wrong in the future */
 378 #           else
 379 #               include <sys/dir.h>
 380 #           endif
 381 #       endif
 382 #   endif
 383 #endif
 384
 385 #ifdef FPUTS_BOTCH
 386 /* work around botch in SunOS 4.0.1 and 4.0.2 */
 387 #   ifndef fputs
 388 #       define fputs(sv,fp) fprintf(fp,"%s",sv)
 389 #   endif
 390 #endif
 391
 392 /*
 393  * The following gobbledygook brought to you on behalf of __STDC__.
 394  * (I could just use #ifndef __STDC__, but this is more bulletproof
 395  * in the face of half-implementations.)
 396  */
 397
 398 #ifndef S_IFMT
 399 #   ifdef _S_IFMT
 400 #       define S_IFMT _S_IFMT
 401 #   else
 402 #       define S_IFMT 0170000
 403 #   endif
 404 #endif
 405
 406 #ifndef S_ISDIR
 407 #   define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR)
 408 #endif
 409
 410 #ifndef S_ISCHR
 411 #   define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR)
 412 #endif
 413
 414 #ifndef S_ISBLK
 415 #   ifdef S_IFBLK
 416 #       define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK)
 417 #   else
 418 #       define S_ISBLK(m) (0)
 419 #   endif
 420 #endif
 421
 422 #ifndef S_ISREG
 423 #   define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
 424 #endif
 425
 426 #ifndef S_ISFIFO
 427 #   ifdef S_IFIFO
 428 #       define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO)
 429 #   else
 430 #       define S_ISFIFO(m) (0)
 431 #   endif
 432 #endif
 433
 434 #ifndef S_ISLNK
 435 #   ifdef _S_ISLNK
 436 #       define S_ISLNK(m) _S_ISLNK(m)
 437 #   else
 438 #       ifdef _S_IFLNK
 439 #           define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK)
 440 #       else
 441 #           ifdef S_IFLNK
 442 #               define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK)
 443 #           else
 444 #               define S_ISLNK(m) (0)
 445 #           endif
 446 #       endif
 447 #   endif
 448 #endif
 449
 450 #ifndef S_ISSOCK
 451 #   ifdef _S_ISSOCK
 452 #       define S_ISSOCK(m) _S_ISSOCK(m)
 453 #   else
 454 #       ifdef _S_IFSOCK
 455 #           define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK)
 456 #       else
 457 #           ifdef S_IFSOCK
 458 #               define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK)
 459 #           else
 460 #               define S_ISSOCK(m) (0)
 461 #           endif
 462 #       endif
 463 #   endif
 464 #endif
 465
 466 #ifndef S_IRUSR
 467 #   ifdef S_IREAD
 468 #       define S_IRUSR S_IREAD
 469 #       define S_IWUSR S_IWRITE
 470 #       define S_IXUSR S_IEXEC
 471 #   else
 472 #       define S_IRUSR 0400
 473 #       define S_IWUSR 0200
 474 #       define S_IXUSR 0100
 475 #   endif
 476 #   define S_IRGRP (S_IRUSR>>3)
 477 #   define S_IWGRP (S_IWUSR>>3)
 478 #   define S_IXGRP (S_IXUSR>>3)
 479 #   define S_IROTH (S_IRUSR>>6)
 480 #   define S_IWOTH (S_IWUSR>>6)
 481 #   define S_IXOTH (S_IXUSR>>6)
 482 #endif
 483
 484 #ifndef S_ISUID
 485 #   define S_ISUID 04000
 486 #endif
 487
 488 #ifndef S_ISGID
 489 #   define S_ISGID 02000
 490 #endif
 491
 492 #ifdef ff_next
 493 #   undef ff_next
 494 #endif
 495
 496 #if defined(cray) || defined(gould) || defined(i860) || defined(pyr)
 497 #   define SLOPPYDIVIDE
 498 #endif
 499
 500 #if defined(cray) || defined(convex) || defined (uts) || BYTEORDER > 0xffff
 501 #   define HAS_QUAD
 502 #endif
 503
 504 #ifdef UV
 505 #undef UV
 506 #endif
 507
 508 #ifdef HAS_QUAD
 509 #   ifdef cray
 510 #       define Quad_t int
 511 #   else
 512 #       if defined(convex) || defined (uts)
 513 #           define Quad_t long long
 514 #       else
 515 #           define Quad_t long
 516 #       endif
 517 #   endif
 518     typedef Quad_t IV;
 519     typedef unsigned Quad_t UV;
 520 #else
 521     typedef long IV;
 522     typedef unsigned long UV;
 523 #endif
 524
 525 typedef MEM_SIZE STRLEN;
 526
 527 typedef struct op OP;
 528 typedef struct cop COP;
 529 typedef struct unop UNOP;
 530 typedef struct binop BINOP;
 531 typedef struct listop LISTOP;
 532 typedef struct logop LOGOP;
 533 typedef struct condop CONDOP;
 534 typedef struct pmop PMOP;
 535 typedef struct svop SVOP;
 536 typedef struct gvop GVOP;
 537 typedef struct pvop PVOP;
 538 typedef struct loop LOOP;
 539
 540 typedef struct Outrec Outrec;
 541 typedef struct interpreter PerlInterpreter;
 542 typedef struct ff FF;
 543 typedef struct sv SV;
 544 typedef struct av AV;
 545 typedef struct hv HV;
 546 typedef struct cv CV;
 547 typedef struct regexp REGEXP;
 548 typedef struct gp GP;
 549 typedef struct sv GV;
 550 typedef struct io IO;
 551 typedef struct context CONTEXT;
 552 typedef struct block BLOCK;
 553
 554 typedef struct magic MAGIC;
 555 typedef struct xrv XRV;
 556 typedef struct xpv XPV;
 557 typedef struct xpviv XPVIV;
 558 typedef struct xpvnv XPVNV;
 559 typedef struct xpvmg XPVMG;
 560 typedef struct xpvlv XPVLV;
 561 typedef struct xpvav XPVAV;
 562 typedef struct xpvhv XPVHV;
 563 typedef struct xpvgv XPVGV;
 564 typedef struct xpvcv XPVCV;
 565 typedef struct xpvbm XPVBM;
 566 typedef struct xpvfm XPVFM;
 567 typedef struct xpvio XPVIO;
 568 typedef struct mgvtbl MGVTBL;
 569 typedef union any ANY;
 570
 571 #include "handy.h"
 572
 573 typedef I32 (*filter_t) _((int, SV *, int));
 574 #define FILTER_READ(idx, sv, len)  filter_read(idx, sv, len)
 575 #define FILTER_DATA(idx)           (AvARRAY(rsfp_filters)[idx])
 576 #define FILTER_ISREADER(idx)       (idx >= AvFILL(rsfp_filters))
 577
 578 #ifdef DOSISH
 579 # if defined(OS2)
 580 #   include "os2ish.h"
 581 # else
 582 #   include "dosish.h"
 583 # endif
 584 #else
 585 # if defined(VMS)
 586 #   include "vmsish.h"
 587 # else
 588 #   include "unixish.h"
 589 # endif
 590 #endif
 591
 592 #ifndef HAS_PAUSE
 593 #define pause() sleep((32767<<16)+32767)
 594 #endif
 595
 596 #ifndef IOCPARM_LEN
 597 #   ifdef IOCPARM_MASK
 598         /* on BSDish systes we're safe */
 599 #       define IOCPARM_LEN(x)  (((x) >> 16) & IOCPARM_MASK)
 600 #   else
 601         /* otherwise guess at what's safe */
 602 #       define IOCPARM_LEN(x)   256
 603 #   endif
 604 #endif
 605
 606 union any {
 607     void*       any_ptr;
 608     I32         any_i32;
 609     IV          any_iv;
 610     long        any_long;
 611     void        (*any_dptr) _((void*));
 612 };
 613
 614 #ifdef USE_THREADS
 615 #define ARGSproto struct thread *
 616 #else
 617 #define ARGSproto void
 618 #endif /* USE_THREADS */
 619
 620 #include "regexp.h"
 621 #include "sv.h"
 622 #include "util.h"
 623 #include "form.h"
 624 #include "gv.h"
 625 #include "cv.h"
 626 #include "opcode.h"
 627 #include "op.h"
 628 #include "cop.h"
 629 #include "av.h"
 630 #include "hv.h"
 631 #include "mg.h"
 632 #include "scope.h"
 633
 634 /* work around some libPW problems */
 635 #ifdef DOINIT
 636 EXT char Error[1];
 637 #endif
 638
 639 #if defined(iAPX286) || defined(M_I286) || defined(I80286)
 640 #   define I286
 641 #endif
 642
 643 #if defined(htonl) && !defined(HAS_HTONL)
 644 #define HAS_HTONL
 645 #endif
 646 #if defined(htons) && !defined(HAS_HTONS)
 647 #define HAS_HTONS
 648 #endif
 649 #if defined(ntohl) && !defined(HAS_NTOHL)
 650 #define HAS_NTOHL
 651 #endif
 652 #if defined(ntohs) && !defined(HAS_NTOHS)
 653 #define HAS_NTOHS
 654 #endif
 655 #ifndef HAS_HTONL
 656 #if (BYTEORDER & 0xffff) != 0x4321
 657 #define HAS_HTONS
 658 #define HAS_HTONL
 659 #define HAS_NTOHS
 660 #define HAS_NTOHL
 661 #define MYSWAP
 662 #define htons my_swap
 663 #define htonl my_htonl
 664 #define ntohs my_swap
 665 #define ntohl my_ntohl
 666 #endif
 667 #else
 668 #if (BYTEORDER & 0xffff) == 0x4321
 669 #undef HAS_HTONS
 670 #undef HAS_HTONL
 671 #undef HAS_NTOHS
 672 #undef HAS_NTOHL
 673 #endif
 674 #endif
 675
 676 /*
 677  * Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'.
 678  * -DWS
 679  */
 680 #if BYTEORDER != 0x1234
 681 # define HAS_VTOHL
 682 # define HAS_VTOHS
 683 # define HAS_HTOVL
 684 # define HAS_HTOVS
 685 # if BYTEORDER == 0x4321
 686 #  define vtohl(x)      ((((x)&0xFF)<<24)       \
 687                         +(((x)>>24)&0xFF)       \
 688                         +(((x)&0x0000FF00)<<8)  \
 689                         +(((x)&0x00FF0000)>>8)  )
 690 #  define vtohs(x)      ((((x)&0xFF)<<8) + (((x)>>8)&0xFF))
 691 #  define htovl(x)      vtohl(x)
 692 #  define htovs(x)      vtohs(x)
 693 # endif
 694         /* otherwise default to functions in util.c */
 695 #endif
 696
 697 #ifdef CASTNEGFLOAT
 698 #define U_S(what) ((U16)(what))
 699 #define U_I(what) ((unsigned int)(what))
 700 #define U_L(what) ((U32)(what))
 701 #else
 702 U32 cast_ulong _((double));
 703 #define U_S(what) ((U16)cast_ulong((double)(what)))
 704 #define U_I(what) ((unsigned int)cast_ulong((double)(what)))
 705 #define U_L(what) (cast_ulong((double)(what)))
 706 #endif
 707
 708 #ifdef CASTI32
 709 #define I_32(what) ((I32)(what))
 710 #define I_V(what) ((IV)(what))
 711 #define U_V(what) ((UV)(what))
 712 #else
 713 I32 cast_i32 _((double));
 714 #define I_32(what) (cast_i32((double)(what)))
 715 IV cast_iv _((double));
 716 #define I_V(what) (cast_iv((double)(what)))
 717 UV cast_uv _((double));
 718 #define U_V(what) (cast_uv((double)(what)))
 719 #endif
 720
 721 struct Outrec {
 722     I32         o_lines;
 723     char        *o_str;
 724     U32         o_len;
 725 };
 726
 727 #ifndef MAXSYSFD
 728 #   define MAXSYSFD 2
 729 #endif
 730
 731 #ifndef TMPPATH
 732 #  define TMPPATH "/tmp/perl-eXXXXXX"
 733 #endif
 734
 735 #ifndef __cplusplus
 736 Uid_t getuid _((void));
 737 Uid_t geteuid _((void));
 738 Gid_t getgid _((void));
 739 Gid_t getegid _((void));
 740 #endif
 741
 742 #ifdef DEBUGGING
 743 #define YYDEBUG 1
 744 #define DEB(a)                          a
 745 #define DEBUG(a)   if (debug)           a
 746 #define DEBUG_p(a) if (debug & 1)       a
 747 #define DEBUG_s(a) if (debug & 2)       a
 748 #define DEBUG_l(a) if (debug & 4)       a
 749 #define DEBUG_t(a) if (debug & 8)       a
 750 #define DEBUG_o(a) if (debug & 16)      a
 751 #define DEBUG_c(a) if (debug & 32)      a
 752 #define DEBUG_P(a) if (debug & 64)      a
 753 #define DEBUG_m(a) if (debug & 128)     a
 754 #define DEBUG_f(a) if (debug & 256)     a
 755 #define DEBUG_r(a) if (debug & 512)     a
 756 #define DEBUG_x(a) if (debug & 1024)    a
 757 #define DEBUG_u(a) if (debug & 2048)    a
 758 #define DEBUG_L(a) if (debug & 4096)    a
 759 #define DEBUG_H(a) if (debug & 8192)    a
 760 #define DEBUG_X(a) if (debug & 16384)   a
 761 #define DEBUG_D(a) if (debug & 32768)   a
 762 #else
 763 #define DEB(a)
 764 #define DEBUG(a)
 765 #define DEBUG_p(a)
 766 #define DEBUG_s(a)
 767 #define DEBUG_l(a)
 768 #define DEBUG_t(a)
 769 #define DEBUG_o(a)
 770 #define DEBUG_c(a)
 771 #define DEBUG_P(a)
 772 #define DEBUG_m(a)
 773 #define DEBUG_f(a)
 774 #define DEBUG_r(a)
 775 #define DEBUG_x(a)
 776 #define DEBUG_u(a)
 777 #define DEBUG_L(a)
 778 #define DEBUG_H(a)
 779 #define DEBUG_X(a)
 780 #define DEBUG_D(a)
 781 #endif
 782 #define YYMAXDEPTH 300
 783
 784 #define assert(what)    DEB( {                                          \
 785         if (!(what)) {                                                  \
 786             croak("Assertion failed: file \"%s\", line %d",             \
 787                 __FILE__, __LINE__);                                    \
 788             exit(1);                                                    \
 789         }})
 790
 791 struct ufuncs {
 792     I32 (*uf_val)_((IV, SV*));
 793     I32 (*uf_set)_((IV, SV*));
 794     IV uf_index;
 795 };
 796
 797 /* Fix these up for __STDC__ */
 798 #ifndef __cplusplus
 799 char *mktemp _((char*));
 800 double atof _((const char*));
 801 #endif
 802
 803 #ifndef STANDARD_C
 804 /* All of these are in stdlib.h or time.h for ANSI C */
 805 Time_t time();
 806 struct tm *gmtime(), *localtime();
 807 char *strchr(), *strrchr();
 808 char *strcpy(), *strcat();
 809 #endif /* ! STANDARD_C */
 810
 811
 812 #ifdef I_MATH
 813 #    include <math.h>
 814 #else
 815 #   ifdef __cplusplus
 816         extern "C" {
 817 #   endif
 818             double exp _((double));
 819             double log _((double));
 820             double sqrt _((double));
 821             double modf _((double,double*));
 822             double sin _((double));
 823             double cos _((double));
 824             double atan2 _((double,double));
 825             double pow _((double,double));
 826 #   ifdef __cplusplus
 827         };
 828 #   endif
 829 #endif
 830
 831 #ifndef __cplusplus
 832 char *crypt _((const char*, const char*));
 833 char *getenv _((const char*));
 834 Off_t lseek _((int,Off_t,int));
 835 char *getlogin _((void));
 836 #endif
 837
 838 #ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */
 839 #define UNLINK unlnk
 840 I32 unlnk _((char*));
 841 #else
 842 #define UNLINK unlink
 843 #endif
 844
 845 #ifndef HAS_SETREUID
 846 #  ifdef HAS_SETRESUID
 847 #    define setreuid(r,e) setresuid(r,e,(Uid_t)-1)
 848 #    define HAS_SETREUID
 849 #  endif
 850 #endif
 851 #ifndef HAS_SETREGID
 852 #  ifdef HAS_SETRESGID
 853 #    define setregid(r,e) setresgid(r,e,(Gid_t)-1)
 854 #    define HAS_SETREGID
 855 #  endif
 856 #endif
 857
 858 #define SCAN_DEF 0
 859 #define SCAN_TR 1
 860 #define SCAN_REPL 2
 861
 862 #ifdef DEBUGGING
 863 # ifndef register
 864 #  define register
 865 # endif
 866 # ifdef MYMALLOC
 867 # define DEBUGGING_MSTATS
 868 # endif
 869 # define PAD_SV(po) pad_sv(po)
 870 #else
 871 # define PAD_SV(po) curpad[po]
 872 #endif
 873
 874 /****************/
 875 /* Truly global */
 876 /****************/
 877
 878 /* global state */
 879 EXT PerlInterpreter *   curinterp;      /* currently running interpreter */
 880 #ifdef USE_THREADS
 881 EXT pthread_key_t       thr_key;        /* For per-thread struct thread ptr */
 882 EXT pthread_mutex_t     sv_mutex;       /* Mutex for allocating SVs in sv.c */
 883 EXT pthread_mutex_t     malloc_mutex;   /* Mutex for malloc */
 884 EXT pthread_mutex_t     eval_mutex;     /* Mutex for doeval */
 885 EXT pthread_cond_t      eval_cond;      /* Condition variable for doeval */
 886 EXT struct thread *     eval_owner;     /* Owner thread for doeval */
 887 EXT int                 nthreads;       /* Number of threads currently */
 888 EXT pthread_mutex_t     nthreads_mutex; /* Mutex for nthreads */
 889 EXT pthread_cond_t      nthreads_cond;  /* Condition variable for nthreads */
 890 #endif /* USE_THREADS */
 891
 892 #ifndef VMS  /* VMS doesn't use environ array */
 893 extern char **  environ;        /* environment variables supplied via exec */
 894 #endif
 895 EXT int         uid;            /* current real user id */
 896 EXT int         euid;           /* current effective user id */
 897 EXT int         gid;            /* current real group id */
 898 EXT int         egid;           /* current effective group id */
 899 EXT bool        nomemok;        /* let malloc context handle nomem */
 900 EXT U32         an;             /* malloc sequence number */
 901 EXT U32         cop_seqmax;     /* statement sequence number */
 902 EXT U16         op_seqmax;      /* op sequence number */
 903 EXT U32         evalseq;        /* eval sequence number */
 904 EXT U32         sub_generation; /* inc to force methods to be looked up again */
 905 EXT char **     origenviron;
 906 EXT U32         origalen;
 907 EXT U32 *       profiledata;
 908 EXT int         maxo INIT(MAXO);/* Number of ops */
 909 EXT char *      osname;         /* operating system */
 910
 911 EXT XPV*        xiv_arenaroot;  /* list of allocated xiv areas */
 912 EXT IV **       xiv_root;       /* free xiv list--shared by interpreters */
 913 EXT double *    xnv_root;       /* free xnv list--shared by interpreters */
 914 EXT XRV *       xrv_root;       /* free xrv list--shared by interpreters */
 915 EXT XPV *       xpv_root;       /* free xpv list--shared by interpreters */
 916 EXT HE *        he_root;        /* free he list--shared by interpreters */
 917 EXT char *      nice_chunk;     /* a nice chunk of memory to reuse */
 918 EXT U32         nice_chunk_size;/* how nice the chunk of memory is */
 919
 920 /* Stack for currently executing thread--context switch must handle this.     */
 921 EXT SV **       stack_base;     /* stack->array_ary */
 922 EXT SV **       stack_sp;       /* stack pointer now */
 923 EXT SV **       stack_max;      /* stack->array_ary + stack->array_max */
 924
 925 /* likewise for these */
 926
 927 EXT OP *        op;             /* current op--oughta be in a global register */
 928
 929 EXT I32 *       scopestack;     /* blocks we've entered */
 930 EXT I32         scopestack_ix;
 931 EXT I32         scopestack_max;
 932
 933 EXT ANY*        savestack;      /* to save non-local values on */
 934 EXT I32         savestack_ix;
 935 EXT I32         savestack_max;
 936
 937 EXT OP **       retstack;       /* returns we've pushed */
 938 EXT I32         retstack_ix;
 939 EXT I32         retstack_max;
 940
 941 EXT I32 *       markstack;      /* stackmarks we're remembering */
 942 EXT I32 *       markstack_ptr;  /* stackmarks we're remembering */
 943 EXT I32 *       markstack_max;  /* stackmarks we're remembering */
 944
 945 EXT SV **       curpad;
 946
 947 /* temp space */
 948 EXT SV *        Sv;
 949 EXT XPV *       Xpv;
 950 EXT char        buf[2048];      /* should be longer than PATH_MAX */
 951 EXT char        tokenbuf[256];
 952 EXT struct stat statbuf;
 953 #ifdef HAS_TIMES
 954 EXT struct tms  timesbuf;
 955 #endif
 956 EXT STRLEN na;          /* for use in SvPV when length is Not Applicable */
 957
 958 /* for tmp use in stupid debuggers */
 959 EXT int *       di;
 960 EXT short *     ds;
 961 EXT char *      dc;
 962
 963 /* handy constants */
 964 EXT char *      Yes INIT("1");
 965 EXT char *      No INIT("");
 966 EXT char *      hexdigit INIT("0123456789abcdef0123456789ABCDEFx");
 967 EXT char *      patleave INIT("\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}");
 968 EXT char *      vert INIT("|");
 969
 970 EXT char        warn_uninit[]
 971   INIT("Use of uninitialized value");
 972 EXT char        warn_nosemi[]
 973   INIT("Semicolon seems to be missing");
 974 EXT char        warn_reserved[]
 975   INIT("Unquoted string \"%s\" may clash with future reserved word");
 976 EXT char        warn_nl[]
 977   INIT("Unsuccessful %s on filename containing newline");
 978 EXT char        no_wrongref[]
 979   INIT("Can't use %s ref as %s ref");
 980 EXT char        no_symref[]
 981   INIT("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use");
 982 EXT char        no_usym[]
 983   INIT("Can't use an undefined value as %s reference");
 984 EXT char        no_aelem[]
 985   INIT("Modification of non-creatable array value attempted, subscript %d");
 986 EXT char        no_helem[]
 987   INIT("Modification of non-creatable hash value attempted, subscript \"%s\"");
 988 EXT char        no_modify[]
 989   INIT("Modification of a read-only value attempted");
 990 EXT char        no_mem[]
 991   INIT("Out of memory!\n");
 992 EXT char        no_security[]
 993   INIT("Insecure dependency in %s%s");
 994 EXT char        no_sock_func[]
 995   INIT("Unsupported socket function \"%s\" called");
 996 EXT char        no_dir_func[]
 997   INIT("Unsupported directory function \"%s\" called");
 998 EXT char        no_func[]
 999   INIT("The %s function is unimplemented");
1000 EXT char        no_myglob[]
1001   INIT("\"my\" variable %s can't be in a package");
1002
1003 EXT SV          sv_undef;
1004 EXT SV          sv_no;
1005 EXT SV          sv_yes;
1006 #ifdef CSH
1007     EXT char *  cshname INIT(CSH);
1008     EXT I32     cshlen;
1009 #endif
1010
1011 #ifdef DOINIT
1012 EXT char *sig_name[] = { SIG_NAME };
1013 EXT int   sig_num[]  = { SIG_NUM };
1014 #else
1015 EXT char *sig_name[];
1016 EXT int   sig_num[];
1017 #endif
1018
1019 #ifdef DOINIT
1020 EXT unsigned char fold[] = {    /* fast case folding table */
1021         0,      1,      2,      3,      4,      5,      6,      7,
1022         8,      9,      10,     11,     12,     13,     14,     15,
1023         16,     17,     18,     19,     20,     21,     22,     23,
1024         24,     25,     26,     27,     28,     29,     30,     31,
1025         32,     33,     34,     35,     36,     37,     38,     39,
1026         40,     41,     42,     43,     44,     45,     46,     47,
1027         48,     49,     50,     51,     52,     53,     54,     55,
1028         56,     57,     58,     59,     60,     61,     62,     63,
1029         64,     'a',    'b',    'c',    'd',    'e',    'f',    'g',
1030         'h',    'i',    'j',    'k',    'l',    'm',    'n',    'o',
1031         'p',    'q',    'r',    's',    't',    'u',    'v',    'w',
1032         'x',    'y',    'z',    91,     92,     93,     94,     95,
1033         96,     'A',    'B',    'C',    'D',    'E',    'F',    'G',
1034         'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
1035         'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
1036         'X',    'Y',    'Z',    123,    124,    125,    126,    127,
1037         128,    129,    130,    131,    132,    133,    134,    135,
1038         136,    137,    138,    139,    140,    141,    142,    143,
1039         144,    145,    146,    147,    148,    149,    150,    151,
1040         152,    153,    154,    155,    156,    157,    158,    159,
1041         160,    161,    162,    163,    164,    165,    166,    167,
1042         168,    169,    170,    171,    172,    173,    174,    175,
1043         176,    177,    178,    179,    180,    181,    182,    183,
1044         184,    185,    186,    187,    188,    189,    190,    191,
1045         192,    193,    194,    195,    196,    197,    198,    199,
1046         200,    201,    202,    203,    204,    205,    206,    207,
1047         208,    209,    210,    211,    212,    213,    214,    215,
1048         216,    217,    218,    219,    220,    221,    222,    223,
1049         224,    225,    226,    227,    228,    229,    230,    231,
1050         232,    233,    234,    235,    236,    237,    238,    239,
1051         240,    241,    242,    243,    244,    245,    246,    247,
1052         248,    249,    250,    251,    252,    253,    254,    255
1053 };
1054 #else
1055 EXT unsigned char fold[];
1056 #endif
1057
1058 #ifdef DOINIT
1059 EXT unsigned char freq[] = {    /* letter frequencies for mixed English/C */
1060         1,      2,      84,     151,    154,    155,    156,    157,
1061         165,    246,    250,    3,      158,    7,      18,     29,
1062         40,     51,     62,     73,     85,     96,     107,    118,
1063         129,    140,    147,    148,    149,    150,    152,    153,
1064         255,    182,    224,    205,    174,    176,    180,    217,
1065         233,    232,    236,    187,    235,    228,    234,    226,
1066         222,    219,    211,    195,    188,    193,    185,    184,
1067         191,    183,    201,    229,    181,    220,    194,    162,
1068         163,    208,    186,    202,    200,    218,    198,    179,
1069         178,    214,    166,    170,    207,    199,    209,    206,
1070         204,    160,    212,    216,    215,    192,    175,    173,
1071         243,    172,    161,    190,    203,    189,    164,    230,
1072         167,    248,    227,    244,    242,    255,    241,    231,
1073         240,    253,    169,    210,    245,    237,    249,    247,
1074         239,    168,    252,    251,    254,    238,    223,    221,
1075         213,    225,    177,    197,    171,    196,    159,    4,
1076         5,      6,      8,      9,      10,     11,     12,     13,
1077         14,     15,     16,     17,     19,     20,     21,     22,
1078         23,     24,     25,     26,     27,     28,     30,     31,
1079         32,     33,     34,     35,     36,     37,     38,     39,
1080         41,     42,     43,     44,     45,     46,     47,     48,
1081         49,     50,     52,     53,     54,     55,     56,     57,
1082         58,     59,     60,     61,     63,     64,     65,     66,
1083         67,     68,     69,     70,     71,     72,     74,     75,
1084         76,     77,     78,     79,     80,     81,     82,     83,
1085         86,     87,     88,     89,     90,     91,     92,     93,
1086         94,     95,     97,     98,     99,     100,    101,    102,
1087         103,    104,    105,    106,    108,    109,    110,    111,
1088         112,    113,    114,    115,    116,    117,    119,    120,
1089         121,    122,    123,    124,    125,    126,    127,    128,
1090         130,    131,    132,    133,    134,    135,    136,    137,
1091         138,    139,    141,    142,    143,    144,    145,    146
1092 };
1093 #else
1094 EXT unsigned char freq[];
1095 #endif
1096
1097 #ifdef DEBUGGING
1098 #ifdef DOINIT
1099 EXT char* block_type[] = {
1100         "NULL",
1101         "SUB",
1102         "EVAL",
1103         "LOOP",
1104         "SUBST",
1105         "BLOCK",
1106 };
1107 #else
1108 EXT char* block_type[];
1109 #endif
1110 #endif
1111
1112 /*****************************************************************************/
1113 /* This lexer/parser stuff is currently global since yacc is hard to reenter */
1114 /*****************************************************************************/
1115 /* XXX This needs to be revisited, since BEGIN makes yacc re-enter... */
1116
1117 #include "perly.h"
1118
1119 typedef enum {
1120     XOPERATOR,
1121     XTERM,
1122     XREF,
1123     XSTATE,
1124     XBLOCK,
1125     XTERMBLOCK
1126 } expectation;
1127
1128 EXT U32         lex_state;      /* next token is determined */
1129 EXT U32         lex_defer;      /* state after determined token */
1130 EXT expectation lex_expect;     /* expect after determined token */
1131 EXT I32         lex_brackets;   /* bracket count */
1132 EXT I32         lex_formbrack;  /* bracket count at outer format level */
1133 EXT I32         lex_fakebrack;  /* outer bracket is mere delimiter */
1134 EXT I32         lex_casemods;   /* casemod count */
1135 EXT I32         lex_dojoin;     /* doing an array interpolation */
1136 EXT I32         lex_starts;     /* how many interps done on level */
1137 EXT SV *        lex_stuff;      /* runtime pattern from m// or s/// */
1138 EXT SV *        lex_repl;       /* runtime replacement from s/// */
1139 EXT OP *        lex_op;         /* extra info to pass back on op */
1140 EXT OP *        lex_inpat;      /* in pattern $) and $| are special */
1141 EXT I32         lex_inwhat;     /* what kind of quoting are we in */
1142 EXT char *      lex_brackstack; /* what kind of brackets to pop */
1143 EXT char *      lex_casestack;  /* what kind of case mods in effect */
1144
1145 /* What we know when we're in LEX_KNOWNEXT state. */
1146 EXT YYSTYPE     nextval[5];     /* value of next token, if any */
1147 EXT I32         nexttype[5];    /* type of next token */
1148 EXT I32         nexttoke;
1149
1150 EXT FILE * VOL  rsfp INIT(Nullfp);
1151 EXT SV *        linestr;
1152 EXT char *      bufptr;
1153 EXT char *      oldbufptr;
1154 EXT char *      oldoldbufptr;
1155 EXT char *      bufend;
1156 EXT expectation expect INIT(XSTATE);    /* how to interpret ambiguous tokens */
1157 EXT AV *        rsfp_filters;
1158
1159 EXT I32         multi_start;    /* 1st line of multi-line string */
1160 EXT I32         multi_end;      /* last line of multi-line string */
1161 EXT I32         multi_open;     /* delimiter of said string */
1162 EXT I32         multi_close;    /* delimiter of said string */
1163
1164 EXT GV *        scrgv;
1165 EXT I32         error_count;    /* how many errors so far, max 10 */
1166 EXT I32         subline;        /* line this subroutine began on */
1167 EXT SV *        subname;        /* name of current subroutine */
1168
1169 EXT CV *        compcv;         /* currently compiling subroutine */
1170 EXT AV *        comppad;        /* storage for lexically scoped temporaries */
1171 EXT AV *        comppad_name;   /* variable names for "my" variables */
1172 EXT I32         comppad_name_fill;/* last "introduced" variable offset */
1173 EXT I32         min_intro_pending;/* start of vars to introduce */
1174 EXT I32         max_intro_pending;/* end of vars to introduce */
1175 EXT I32         padix;          /* max used index in current "register" pad */
1176 EXT I32         padix_floor;    /* how low may inner block reset padix */
1177 EXT I32         pad_reset_pending; /* reset pad on next attempted alloc */
1178 EXT COP         compiling;
1179
1180 EXT I32         thisexpr;       /* name id for nothing_in_common() */
1181 EXT char *      last_uni;       /* position of last named-unary operator */
1182 EXT char *      last_lop;       /* position of last list operator */
1183 EXT OPCODE      last_lop_op;    /* last list operator */
1184 EXT bool        in_my;          /* we're compiling a "my" declaration */
1185 #ifdef FCRYPT
1186 EXT I32         cryptseen;      /* has fast crypt() been initialized? */
1187 #endif
1188
1189 EXT U32         hints;          /* various compilation flags */
1190
1191                                 /* Note: the lowest 8 bits are reserved for
1192                                    stuffing into op->op_private */
1193 #define HINT_INTEGER            0x00000001
1194 #define HINT_STRICT_REFS        0x00000002
1195
1196 #define HINT_BLOCK_SCOPE        0x00000100
1197 #define HINT_STRICT_SUBS        0x00000200
1198 #define HINT_STRICT_VARS        0x00000400
1199
1200 /**************************************************************************/
1201 /* This regexp stuff is global since it always happens within 1 expr eval */
1202 /**************************************************************************/
1203
1204 EXT char *      regprecomp;     /* uncompiled string. */
1205 EXT char *      regparse;       /* Input-scan pointer. */
1206 EXT char *      regxend;        /* End of input for compile */
1207 EXT I32         regnpar;        /* () count. */
1208 EXT char *      regcode;        /* Code-emit pointer; &regdummy = don't. */
1209 EXT I32         regsize;        /* Code size. */
1210 EXT I32         regnaughty;     /* How bad is this pattern? */
1211 EXT I32         regsawback;     /* Did we see \1, ...? */
1212
1213 EXT char *      reginput;       /* String-input pointer. */
1214 EXT char *      regbol;         /* Beginning of input, for ^ check. */
1215 EXT char *      regeol;         /* End of input, for $ check. */
1216 EXT char **     regstartp;      /* Pointer to startp array. */
1217 EXT char **     regendp;        /* Ditto for endp. */
1218 EXT U32 *       reglastparen;   /* Similarly for lastparen. */
1219 EXT char *      regtill;        /* How far we are required to go. */
1220 EXT U16         regflags;       /* are we folding, multilining? */
1221 EXT char        regprev;        /* char before regbol, \n if none */
1222
1223 /***********************************************/
1224 /* Global only to current interpreter instance */
1225 /***********************************************/
1226
1227 #ifdef MULTIPLICITY
1228 #define IEXT
1229 #define IINIT(x)
1230 struct interpreter {
1231 #else
1232 #define IEXT EXT
1233 #define IINIT(x) INIT(x)
1234 #endif
1235
1236 /* pseudo environmental stuff */
1237 IEXT int        Iorigargc;
1238 IEXT char **    Iorigargv;
1239 IEXT GV *       Ienvgv;
1240 IEXT GV *       Isiggv;
1241 IEXT GV *       Iincgv;
1242 IEXT char *     Iorigfilename;
1243 IEXT SV *       Idiehook;
1244 IEXT SV *       Iwarnhook;
1245 IEXT SV *       Iparsehook;
1246
1247 /* Various states of an input record separator SV (rs, nrs) */
1248 #define RsSNARF(sv)   (! SvOK(sv))
1249 #define RsSIMPLE(sv)  (SvOK(sv) && SvCUR(sv))
1250 #define RsPARA(sv)    (SvOK(sv) && ! SvCUR(sv))
1251
1252 /* switches */
1253 IEXT char *     Icddir;
1254 IEXT bool       Iminus_c;
1255 IEXT char       Ipatchlevel[10];
1256 IEXT char **    Ilocalpatches;
1257 IEXT SV *       Inrs;
1258 IEXT char *     Isplitstr IINIT(" ");
1259 IEXT bool       Ipreprocess;
1260 IEXT bool       Iminus_n;
1261 IEXT bool       Iminus_p;
1262 IEXT bool       Iminus_l;
1263 IEXT bool       Iminus_a;
1264 IEXT bool       Iminus_F;
1265 IEXT bool       Idoswitches;
1266 IEXT bool       Idowarn;
1267 IEXT bool       Idoextract;
1268 IEXT bool       Isawampersand;  /* must save all match strings */
1269 IEXT bool       Isawstudy;      /* do fbm_instr on all strings */
1270 IEXT bool       Isawi;          /* study must assume case insensitive */
1271 IEXT bool       Isawvec;
1272 IEXT bool       Iunsafe;
1273 IEXT bool       Ido_undump;             /* -u or dump seen? */
1274 IEXT char *     Iinplace;
1275 IEXT char *     Ie_tmpname;
1276 IEXT FILE *     Ie_fp;
1277 IEXT VOL U32    Idebug;
1278 IEXT U32        Iperldb;
1279         /* This value may be raised by extensions for testing purposes */
1280 IEXT int        Iperl_destruct_level;   /* 0=none, 1=full, 2=full with checks */
1281
1282 /* magical thingies */
1283 IEXT Time_t     Ibasetime;              /* $^T */
1284 IEXT SV *       Iformfeed;              /* $^L */
1285 IEXT char *     Ichopset IINIT(" \n-"); /* $: */
1286 IEXT SV *       Irs;                    /* $/ */
1287 IEXT char *     Iofs;                   /* $, */
1288 IEXT STRLEN     Iofslen;
1289 IEXT char *     Iors;                   /* $\ */
1290 IEXT STRLEN     Iorslen;
1291 IEXT char *     Iofmt;                  /* $# */
1292 IEXT I32        Imaxsysfd IINIT(MAXSYSFD); /* top fd to pass to subprocesses */
1293 IEXT int        Imultiline;       /* $*--do strings hold >1 line? */
1294 IEXT U32        Istatusvalue;   /* $? */
1295
1296 IEXT struct stat Istatcache;            /* _ */
1297 IEXT GV *       Istatgv;
1298 IEXT SV *       Istatname IINIT(Nullsv);
1299
1300 /* shortcuts to various I/O objects */
1301 IEXT GV *       Istdingv;
1302 IEXT GV *       Ilast_in_gv;
1303 IEXT GV *       Idefgv;
1304 IEXT GV *       Iargvgv;
1305 IEXT GV *       Idefoutgv;
1306 IEXT GV *       Iargvoutgv;
1307
1308 /* shortcuts to regexp stuff */
1309 IEXT GV *       Ileftgv;
1310 IEXT GV *       Iampergv;
1311 IEXT GV *       Irightgv;
1312 IEXT PMOP *     Icurpm;         /* what to do \ interps from */
1313 IEXT I32 *      Iscreamfirst;
1314 IEXT I32 *      Iscreamnext;
1315 IEXT I32        Imaxscream IINIT(-1);
1316 IEXT SV *       Ilastscream;
1317
1318 /* shortcuts to misc objects */
1319 IEXT GV *       Ierrgv;
1320
1321 /* shortcuts to debugging objects */
1322 IEXT GV *       IDBgv;
1323 IEXT GV *       IDBline;
1324 IEXT GV *       IDBsub;
1325 IEXT SV *       IDBsingle;
1326 IEXT SV *       IDBtrace;
1327 IEXT SV *       IDBsignal;
1328 IEXT AV *       Ilineary;       /* lines of script for debugger */
1329 IEXT AV *       Idbargs;        /* args to call listed by caller function */
1330
1331 /* symbol tables */
1332 IEXT HV *       Idefstash;      /* main symbol table */
1333 IEXT HV *       Icurstash;      /* symbol table for current package */
1334 IEXT HV *       Idebstash;      /* symbol table for perldb package */
1335 IEXT SV *       Icurstname;     /* name of current package */
1336 IEXT AV *       Ibeginav;       /* names of BEGIN subroutines */
1337 IEXT AV *       Iendav;         /* names of END subroutines */
1338 IEXT AV *       Ipad;           /* storage for lexically scoped temporaries */
1339 IEXT AV *       Ipadname;       /* variable names for "my" variables */
1340
1341 /* memory management */
1342 IEXT SV **      Itmps_stack;
1343 IEXT I32        Itmps_ix IINIT(-1);
1344 IEXT I32        Itmps_floor IINIT(-1);
1345 IEXT I32        Itmps_max;
1346 IEXT I32        Isv_count;      /* how many SV* are currently allocated */
1347 IEXT I32        Isv_objcount;   /* how many objects are currently allocated */
1348 IEXT SV*        Isv_root;       /* storage for SVs belonging to interp */
1349 IEXT SV*        Isv_arenaroot;  /* list of areas for garbage collection */
1350
1351 /* funky return mechanisms */
1352 IEXT I32        Ilastspbase;
1353 IEXT I32        Ilastsize;
1354 IEXT int        Iforkprocess;   /* so do_open |- can return proc# */
1355
1356 /* subprocess state */
1357 IEXT AV *       Ifdpid;         /* keep fd-to-pid mappings for my_popen */
1358 IEXT HV *       Ipidstatus;     /* keep pid-to-status mappings for waitpid */
1359
1360 /* internal state */
1361 IEXT VOL int    Iin_eval;       /* trap "fatal" errors? */
1362 IEXT OP *       Irestartop;     /* Are we propagating an error from croak? */
1363 IEXT int        Idelaymagic;    /* ($<,$>) = ... */
1364 IEXT bool       Idirty;         /* In the middle of tearing things down? */
1365 IEXT U8         Ilocalizing;    /* are we processing a local() list? */
1366 IEXT bool       Itainted;       /* using variables controlled by $< */
1367 IEXT bool       Itainting;      /* doing taint checks */
1368 IEXT char *     Iop_mask IINIT(NULL);   /* masked operations for safe evals */
1369
1370 /* trace state */
1371 IEXT I32        Idlevel;
1372 IEXT I32        Idlmax IINIT(128);
1373 IEXT char *     Idebname;
1374 IEXT char *     Idebdelim;
1375
1376 /* current interpreter roots */
1377 IEXT CV *       Imain_cv;
1378 IEXT OP *       Imain_root;
1379 IEXT OP *       Imain_start;
1380 IEXT OP *       Ieval_root;
1381 IEXT OP *       Ieval_start;
1382
1383 /* runtime control stuff */
1384 IEXT COP * VOL  Icurcop IINIT(&compiling);
1385 IEXT line_t     Icopline IINIT(NOLINE);
1386 IEXT CONTEXT *  Icxstack;
1387 IEXT I32        Icxstack_ix IINIT(-1);
1388 IEXT I32        Icxstack_max IINIT(128);
1389 IEXT Sigjmp_buf Itop_env;
1390 IEXT I32        Irunlevel;
1391
1392 /* stack stuff */
1393 IEXT AV *       Istack;         /* THE STACK */
1394 IEXT AV *       Imainstack;     /* the stack when nothing funny is happening */
1395 IEXT SV **      Imystack_base;  /* stack->array_ary */
1396 IEXT SV **      Imystack_sp;    /* stack pointer now */
1397 IEXT SV **      Imystack_max;   /* stack->array_ary + stack->array_max */
1398
1399 /* format accumulators */
1400 IEXT SV *       Iformtarget;
1401 IEXT SV *       Ibodytarget;
1402 IEXT SV *       Itoptarget;
1403
1404 /* statics moved here for shared library purposes */
1405 IEXT SV         Istrchop;       /* return value from chop */
1406 IEXT int        Ifilemode;      /* so nextargv() can preserve mode */
1407 IEXT int        Ilastfd;        /* what to preserve mode on */
1408 IEXT char *     Ioldname;       /* what to preserve mode on */
1409 IEXT char **    IArgv;          /* stuff to free from do_aexec, vfork safe */
1410 IEXT char *     ICmd;           /* stuff to free from do_aexec, vfork safe */
1411 IEXT OP *       Isortcop;       /* user defined sort routine */
1412 IEXT HV *       Isortstash;     /* which is in some package or other */
1413 IEXT GV *       Ifirstgv;       /* $a */
1414 IEXT GV *       Isecondgv;      /* $b */
1415 IEXT AV *       Isortstack;     /* temp stack during pp_sort() */
1416 IEXT AV *       Isignalstack;   /* temp stack during sighandler() */
1417 IEXT SV *       Imystrk;        /* temp key string for do_each() */
1418 IEXT I32        Idumplvl;       /* indentation level on syntax tree dump */
1419 IEXT PMOP *     Ioldlastpm;     /* for saving regexp context during debugger */
1420 IEXT I32        Igensym;        /* next symbol for getsym() to define */
1421 IEXT bool       Ipreambled;
1422 IEXT AV *       Ipreambleav;
1423 IEXT int        Ilaststatval IINIT(-1);
1424 IEXT I32        Ilaststype IINIT(OP_STAT);
1425
1426 #undef IEXT
1427 #undef IINIT
1428
1429 #ifdef MULTIPLICITY
1430 };
1431 #else
1432 struct interpreter {
1433     char broiled;
1434 };
1435 #endif
1436
1437 #include "thread.h"
1438 #include "pp.h"
1439
1440 #ifdef __cplusplus
1441 extern "C" {
1442 #endif
1443
1444 #ifdef __cplusplus
1445 #  ifndef I_STDARG
1446 #    define I_STDARG 1
1447 #  endif
1448 #endif
1449
1450 #ifdef I_STDARG
1451 #  include <stdarg.h>
1452 #else
1453 #  ifdef I_VARARGS
1454 #    include <varargs.h>
1455 #  endif
1456 #endif
1457
1458 #include "proto.h"
1459
1460 #ifdef EMBED
1461 #define Perl_sv_setptrobj(rv,ptr,name) Perl_sv_setref_iv(rv,name,(IV)ptr)
1462 #define Perl_sv_setptrref(rv,ptr) Perl_sv_setref_iv(rv,Nullch,(IV)ptr)
1463 #else
1464 #define sv_setptrobj(rv,ptr,name) sv_setref_iv(rv,name,(IV)ptr)
1465 #define sv_setptrref(rv,ptr) sv_setref_iv(rv,Nullch,(IV)ptr)
1466 #endif
1467
1468 #ifdef __cplusplus
1469 };
1470 #endif
1471
1472 /* The following must follow proto.h */
1473
1474 #ifdef DOINIT
1475 EXT MGVTBL vtbl_sv =    {magic_get,
1476                                 magic_set,
1477                                         magic_len,
1478                                                 0,      0};
1479 EXT MGVTBL vtbl_env =   {0,     0,      0,      0,      0};
1480 EXT MGVTBL vtbl_envelem =       {0,     magic_setenv,
1481                                         0,      magic_clearenv,
1482                                                         0};
1483 EXT MGVTBL vtbl_sig =   {0,     0,               0, 0, 0};
1484 EXT MGVTBL vtbl_sigelem =       {0,     magic_setsig,
1485                                         0,      0,      0};
1486 EXT MGVTBL vtbl_pack =  {0,     0,      0,      magic_wipepack,
1487                                                         0};
1488 EXT MGVTBL vtbl_packelem =      {magic_getpack,
1489                                 magic_setpack,
1490                                         0,      magic_clearpack,
1491                                                         0};
1492 EXT MGVTBL vtbl_dbline =        {0,     magic_setdbline,
1493                                         0,      0,      0};
1494 EXT MGVTBL vtbl_isa =   {0,     magic_setisa,
1495                                         0,      0,      0};
1496 EXT MGVTBL vtbl_isaelem =       {0,     magic_setisa,
1497                                         0,      0,      0};
1498 EXT MGVTBL vtbl_arylen =        {magic_getarylen,
1499                                 magic_setarylen,
1500                                         0,      0,      0};
1501 EXT MGVTBL vtbl_glob =  {magic_getglob,
1502                                 magic_setglob,
1503                                         0,      0,      0};
1504 EXT MGVTBL vtbl_mglob = {0,     magic_setmglob,
1505                                         0,      0,      0};
1506 EXT MGVTBL vtbl_taint = {magic_gettaint,magic_settaint,
1507                                         0,      0,      0};
1508 EXT MGVTBL vtbl_substr =        {0,     magic_setsubstr,
1509                                         0,      0,      0};
1510 EXT MGVTBL vtbl_vec =   {0,     magic_setvec,
1511                                         0,      0,      0};
1512 EXT MGVTBL vtbl_pos =   {magic_getpos,
1513                                 magic_setpos,
1514                                         0,      0,      0};
1515 EXT MGVTBL vtbl_bm =    {0,     magic_setbm,
1516                                         0,      0,      0};
1517 EXT MGVTBL vtbl_uvar =  {magic_getuvar,
1518                                 magic_setuvar,
1519                                         0,      0,      0};
1520 #ifdef USE_THREADS
1521 EXT MGVTBL vtbl_mutex = {0,     0,      0,      0,      magic_mutexfree};
1522 #endif /* USE_THREADS */
1523
1524 #ifdef OVERLOAD
1525 EXT MGVTBL vtbl_amagic =       {0,     magic_setamagic,
1526                                         0,      0,      magic_setamagic};
1527 EXT MGVTBL vtbl_amagicelem =   {0,     magic_setamagic,
1528                                         0,      0,      magic_setamagic};
1529 #endif /* OVERLOAD */
1530
1531 #else
1532 EXT MGVTBL vtbl_sv;
1533 EXT MGVTBL vtbl_env;
1534 EXT MGVTBL vtbl_envelem;
1535 EXT MGVTBL vtbl_sig;
1536 EXT MGVTBL vtbl_sigelem;
1537 EXT MGVTBL vtbl_pack;
1538 EXT MGVTBL vtbl_packelem;
1539 EXT MGVTBL vtbl_dbline;
1540 EXT MGVTBL vtbl_isa;
1541 EXT MGVTBL vtbl_isaelem;
1542 EXT MGVTBL vtbl_arylen;
1543 EXT MGVTBL vtbl_glob;
1544 EXT MGVTBL vtbl_mglob;
1545 EXT MGVTBL vtbl_taint;
1546 EXT MGVTBL vtbl_substr;
1547 EXT MGVTBL vtbl_vec;
1548 EXT MGVTBL vtbl_pos;
1549 EXT MGVTBL vtbl_bm;
1550 EXT MGVTBL vtbl_uvar;
1551
1552 #ifdef USE_THREADS
1553 EXT MGVTBL vtbl_mutex;
1554 #endif /* USE_THREADS */
1555
1556 #ifdef OVERLOAD
1557 EXT MGVTBL vtbl_amagic;
1558 EXT MGVTBL vtbl_amagicelem;
1559 #endif /* OVERLOAD */
1560
1561 #endif
1562
1563 #ifdef OVERLOAD
1564 EXT long amagic_generation;
1565
1566 #define NofAMmeth 29
1567 #ifdef DOINIT
1568 EXT char * AMG_names[NofAMmeth][2] = {
1569   {"fallback","abs"},
1570   {"bool", "nomethod"},
1571   {"\"\"", "0+"},
1572   {"+","+="},
1573   {"-","-="},
1574   {"*", "*="},
1575   {"/", "/="},
1576   {"%", "%="},
1577   {"**", "**="},
1578   {"<<", "<<="},
1579   {">>", ">>="},
1580   {"&", "&="},
1581   {"|", "|="},
1582   {"^", "^="},
1583   {"<", "<="},
1584   {">", ">="},
1585   {"==", "!="},
1586   {"<=>", "cmp"},
1587   {"lt", "le"},
1588   {"gt", "ge"},
1589   {"eq", "ne"},
1590   {"!", "~"},
1591   {"++", "--"},
1592   {"atan2", "cos"},
1593   {"sin", "exp"},
1594   {"log", "sqrt"},
1595   {"x","x="},
1596   {".",".="},
1597   {"=","neg"}
1598 };
1599 #else
1600 EXT char * AMG_names[NofAMmeth][2];
1601 #endif /* def INITAMAGIC */
1602
1603 struct  am_table        {
1604   long was_ok_sub;
1605   long was_ok_am;
1606   CV* table[NofAMmeth*2];
1607   long fallback;
1608 };
1609 typedef struct am_table AMT;
1610
1611 #define AMGfallNEVER    1
1612 #define AMGfallNO       2
1613 #define AMGfallYES      3
1614
1615 enum {
1616   fallback_amg, abs_amg,
1617   bool__amg,    nomethod_amg,
1618   string_amg,   numer_amg,
1619   add_amg,      add_ass_amg,
1620   subtr_amg,    subtr_ass_amg,
1621   mult_amg,     mult_ass_amg,
1622   div_amg,      div_ass_amg,
1623   mod_amg,      mod_ass_amg,
1624   pow_amg,      pow_ass_amg,
1625   lshift_amg,   lshift_ass_amg,
1626   rshift_amg,   rshift_ass_amg,
1627   band_amg,     band_ass_amg,
1628   bor_amg,      bor_ass_amg,
1629   bxor_amg,     bxor_ass_amg,
1630   lt_amg,       le_amg,
1631   gt_amg,       ge_amg,
1632   eq_amg,       ne_amg,
1633   ncmp_amg,     scmp_amg,
1634   slt_amg,      sle_amg,
1635   sgt_amg,      sge_amg,
1636   seq_amg,      sne_amg,
1637   not_amg,      compl_amg,
1638   inc_amg,      dec_amg,
1639   atan2_amg,    cos_amg,
1640   sin_amg,      exp_amg,
1641   log_amg,      sqrt_amg,
1642   repeat_amg,   repeat_ass_amg,
1643   concat_amg,   concat_ass_amg,
1644   copy_amg,     neg_amg
1645 };
1646 #endif /* OVERLOAD */
1647
1648 #endif /* Include guard */