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