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