perl 5.0 alpha 3
[perl.git] / perl.h
1 /* $RCSfile: perl.h,v $$Revision: 4.1 $$Date: 92/08/07 18:25:56 $
2  *
3  *    Copyright (c) 1991, 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  * $Log:        perl.h,v $
9  * Revision 4.1  92/08/07  18:25:56  lwall
10  * 
11  * Revision 4.0.1.6  92/06/08  14:55:10  lwall
12  * patch20: added Atari ST portability
13  * patch20: bcopy() and memcpy() now tested for overlap safety
14  * patch20: Perl now distinguishes overlapped copies from non-overlapped
15  * patch20: removed implicit int declarations on functions
16  * 
17  * Revision 4.0.1.5  91/11/11  16:41:07  lwall
18  * patch19: uts wrongly defines S_ISDIR() et al
19  * patch19: too many preprocessors can't expand a macro right in #if
20  * patch19: added little-endian pack/unpack options
21  * 
22  * Revision 4.0.1.4  91/11/05  18:06:10  lwall
23  * patch11: various portability fixes
24  * patch11: added support for dbz
25  * patch11: added some support for 64-bit integers
26  * patch11: hex() didn't understand leading 0x
27  * 
28  * Revision 4.0.1.3  91/06/10  01:25:10  lwall
29  * patch10: certain pattern optimizations were botched
30  * 
31  * Revision 4.0.1.2  91/06/07  11:28:33  lwall
32  * patch4: new copyright notice
33  * patch4: made some allowances for "semi-standard" C
34  * patch4: many, many itty-bitty portability fixes
35  * 
36  * Revision 4.0.1.1  91/04/11  17:49:51  lwall
37  * patch1: hopefully straightened out some of the Xenix mess
38  * 
39  * Revision 4.0  91/03/20  01:37:56  lwall
40  * 4.0 baseline.
41  * 
42  */
43
44 #include "embed.h"
45
46 #define VOIDWANT 1
47 #ifdef __cplusplus
48 #include "config_c++.h"
49 #else
50 #include "config.h"
51 #endif
52
53 #ifndef BYTEORDER
54 #   define BYTEORDER 0x1234
55 #endif
56
57 /* Overall memory policy? */
58 #ifndef CONSERVATIVE
59 #   define LIBERAL 1
60 #endif
61
62 /*
63  * The following contortions are brought to you on behalf of all the
64  * standards, semi-standards, de facto standards, not-so-de-facto standards
65  * of the world, as well as all the other botches anyone ever thought of.
66  * The basic theory is that if we work hard enough here, the rest of the
67  * code can be a lot prettier.  Well, so much for theory.  Sorry, Henry...
68  */
69
70 #ifdef MYMALLOC
71 #   ifdef HIDEMYMALLOC
72 #       define malloc Mymalloc
73 #       define realloc Myremalloc
74 #       define free Myfree
75 #   endif
76 #   define safemalloc malloc
77 #   define saferealloc realloc
78 #   define safefree free
79 #endif
80
81 /* work around some libPW problems */
82 #define fatal Myfatal
83 #ifdef DOINIT
84 char Error[1];
85 #endif
86
87 /* define this once if either system, instead of cluttering up the src */
88 #if defined(MSDOS) || defined(atarist)
89 #define DOSISH 1
90 #endif
91
92 #if defined(__STDC__) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus)
93 # define STANDARD_C 1
94 #endif
95
96 #if defined(STANDARD_C)
97 #   define P(args) args
98 #else
99 #   define P(args) ()
100 #endif
101
102 #if defined(HASVOLATILE) || defined(STANDARD_C)
103 #   ifdef __cplusplus
104 #       define VOL              // to temporarily suppress warnings
105 #   else
106 #       define VOL volatile
107 #   endif
108 #else
109 #   define VOL
110 #endif
111
112 #ifdef IAMSUID
113 #   ifndef TAINT
114 #       define TAINT
115 #   endif
116 #endif
117 #ifdef TAINT
118 #   define TAINT_IF(c)          (tainted |= (c))
119 #   define TAINT_NOT            (tainted = 0)
120 #   define TAINT_PROPER(s)      taint_proper(no_security, s)
121 #   define TAINT_ENV()          taint_env()
122 #else
123 #   define TAINT_IF(c)
124 #   define TAINT_NOT
125 #   define TAINT_PROPER(s)
126 #   define TAINT_ENV()
127 #endif
128
129 #ifndef HAS_VFORK
130 #   define vfork fork
131 #endif
132
133 #ifdef HAS_GETPGRP2
134 #   ifndef HAS_GETPGRP
135 #       define HAS_GETPGRP
136 #   endif
137 #   define getpgrp getpgrp2
138 #endif
139
140 #ifdef HAS_SETPGRP2
141 #   ifndef HAS_SETPGRP
142 #       define HAS_SETPGRP
143 #   endif
144 #   define setpgrp setpgrp2
145 #endif
146
147 #include <stdio.h>
148 #include <ctype.h>
149 #include <setjmp.h>
150
151 #ifndef MSDOS
152 #   ifdef PARAM_NEEDS_TYPES
153 #       include <sys/types.h>
154 #   endif
155 #   include <sys/param.h>
156 #endif
157
158
159 /* Use all the "standard" definitions? */
160 #ifdef STANDARD_C
161 #   include <stdlib.h>
162 #   include <string.h>
163 #   define MEM_SIZE size_t
164 #else
165     typedef unsigned int MEM_SIZE;
166 #endif /* STANDARD_C */
167
168 #if defined(HAS_MEMCMP) && defined(mips) && defined(ultrix)
169 #   undef HAS_MEMCMP
170 #endif
171
172 #ifdef HAS_MEMCPY
173 #  ifndef STANDARD_C
174 #    ifndef memcpy
175         extern char * memcpy P((char*, char*, int));
176 #    endif
177 #  endif
178 #else
179 #   ifndef memcpy
180 #       ifdef HAS_BCOPY
181 #           define memcpy(d,s,l) bcopy(s,d,l)
182 #       else
183 #           define memcpy(d,s,l) my_bcopy(s,d,l)
184 #       endif
185 #   endif
186 #endif /* HAS_MEMCPY */
187
188 #ifdef HAS_MEMSET
189 #  ifndef STANDARD_C
190 #    ifndef memset
191         extern char *memset P((char*, int, int));
192 #    endif
193 #  endif
194 #  define memzero(d,l) memset(d,0,l)
195 #else
196 #   ifndef memzero
197 #       ifdef HAS_BZERO
198 #           define memzero(d,l) bzero(d,l)
199 #       else
200 #           define memzero(d,l) my_bzero(d,l)
201 #       endif
202 #   endif
203 #endif /* HAS_MEMSET */
204
205 #ifdef HAS_MEMCMP
206 #  ifndef STANDARD_C
207 #    ifndef memcmp
208         extern int memcmp P((char*, char*, int));
209 #    endif
210 #  endif
211 #else
212 #   ifndef memcmp
213 #       define memcmp(s1,s2,l) my_memcmp(s1,s2,l)
214 #   endif
215 #endif /* HAS_MEMCMP */
216
217 /* we prefer bcmp slightly for comparisons that don't care about ordering */
218 #ifndef HAS_BCMP
219 #   ifndef bcmp
220 #       define bcmp(s1,s2,l) memcmp(s1,s2,l)
221 #   endif
222 #endif /* HAS_BCMP */
223
224 #ifndef HAS_MEMMOVE
225 #   if defined(HAS_BCOPY) && defined(SAFE_BCOPY)
226 #       define memmove(d,s,l) bcopy(s,d,l)
227 #   else
228 #       if defined(HAS_MEMCPY) && defined(SAFE_MEMCPY)
229 #           define memmove(d,s,l) memcpy(d,s,l)
230 #       else
231 #           define memmove(d,s,l) my_bcopy(s,d,l)
232 #       endif
233 #   endif
234 #endif
235
236 #ifndef _TYPES_         /* If types.h defines this it's easy. */
237 #   ifndef major                /* Does everyone's types.h define this? */
238 #       include <sys/types.h>
239 #   endif
240 #endif
241
242 #ifdef I_NETINET_IN
243 #   include <netinet/in.h>
244 #endif
245
246 #include <sys/stat.h>
247
248 #if defined(uts) || defined(UTekV)
249 #   undef S_ISDIR
250 #   undef S_ISCHR
251 #   undef S_ISBLK
252 #   undef S_ISREG
253 #   undef S_ISFIFO
254 #   undef S_ISLNK
255 #   define S_ISDIR(P) (((P)&S_IFMT)==S_IFDIR)
256 #   define S_ISCHR(P) (((P)&S_IFMT)==S_IFCHR)
257 #   define S_ISBLK(P) (((P)&S_IFMT)==S_IFBLK)
258 #   define S_ISREG(P) (((P)&S_IFMT)==S_IFREG)
259 #   define S_ISFIFO(P) (((P)&S_IFMT)==S_IFIFO)
260 #   ifdef S_IFLNK
261 #       define S_ISLNK(P) (((P)&S_IFMT)==S_IFLNK)
262 #   endif
263 #endif
264
265 #ifdef I_TIME
266 #   include <time.h>
267 #endif
268
269 #ifdef I_SYS_TIME
270 #   ifdef SYSTIMEKERNEL
271 #       define KERNEL
272 #   endif
273 #   include <sys/time.h>
274 #   ifdef SYSTIMEKERNEL
275 #       undef KERNEL
276 #   endif
277 #endif
278
279 #ifndef MSDOS
280 #include <sys/times.h>
281 #endif
282
283 #if defined(HAS_STRERROR) && (!defined(HAS_MKDIR) || !defined(HAS_RMDIR))
284 #   undef HAS_STRERROR
285 #endif
286
287 #include <errno.h>
288 #ifndef MSDOS
289 #   ifndef errno
290         extern int errno;     /* ANSI allows errno to be an lvalue expr */
291 #   endif
292 #endif
293
294 #ifndef strerror
295 #   ifdef HAS_STRERROR
296         char *strerror P((int));
297 #   else
298         extern int sys_nerr;
299         extern char *sys_errlist[];
300 #       define strerror(e) \
301                 ((e) < 0 || (e) >= sys_nerr ? "(unknown)" : sys_errlist[e])
302 #   endif
303 #endif
304
305 #ifdef I_SYSIOCTL
306 #   ifndef _IOCTL_
307 #       include <sys/ioctl.h>
308 #   endif
309 #endif
310
311 #if defined(mc300) || defined(mc500) || defined(mc700) || defined(mc6000)
312 #   ifdef HAS_SOCKETPAIR
313 #       undef HAS_SOCKETPAIR
314 #   endif
315 #   ifdef HAS_NDBM
316 #       undef HAS_NDBM
317 #   endif
318 #endif
319
320 #ifdef WANT_DBZ
321 #   include <dbz.h>
322 #   define SOME_DBM
323 #   define dbm_fetch(db,dkey) fetch(dkey)
324 #   define dbm_delete(db,dkey) fatal("dbz doesn't implement delete")
325 #   define dbm_store(db,dkey,dcontent,flags) store(dkey,dcontent)
326 #   define dbm_close(db) dbmclose()
327 #   define dbm_firstkey(db) (fatal("dbz doesn't implement traversal"),fetch())
328 #   define nextkey() (fatal("dbz doesn't implement traversal"),fetch())
329 #   define dbm_nextkey(db) (fatal("dbz doesn't implement traversal"),fetch())
330 #   ifdef HAS_NDBM
331 #       undef HAS_NDBM
332 #   endif
333 #   ifndef HAS_ODBM
334 #       define HAS_ODBM
335 #   endif
336 #else
337 #   ifdef HAS_GDBM
338 #       ifdef I_GDBM
339 #           include <gdbm.h>
340 #       endif
341 #       define SOME_DBM
342 #       ifdef HAS_NDBM
343 #           undef HAS_NDBM
344 #       endif
345 #       ifdef HAS_ODBM
346 #           undef HAS_ODBM
347 #       endif
348 #   else
349 #       ifdef HAS_NDBM
350 #           include <ndbm.h>
351 #           define SOME_DBM
352 #           ifdef HAS_ODBM
353 #               undef HAS_ODBM
354 #           endif
355 #       else
356 #           ifdef HAS_ODBM
357 #               ifdef NULL
358 #                   undef NULL          /* suppress redefinition message */
359 #               endif
360 #               include <dbm.h>
361 #               ifdef NULL
362 #                   undef NULL
363 #               endif
364 #               define NULL 0   /* silly thing is, we don't even use this... */
365 #               define SOME_DBM
366 #               define dbm_fetch(db,dkey) fetch(dkey)
367 #               define dbm_delete(db,dkey) delete(dkey)
368 #               define dbm_store(db,dkey,dcontent,flags) store(dkey,dcontent)
369 #               define dbm_close(db) dbmclose()
370 #               define dbm_firstkey(db) firstkey()
371 #           endif /* HAS_ODBM */
372 #       endif /* HAS_NDBM */
373 #   endif /* HAS_GDBM */
374 #endif /* WANT_DBZ */
375
376 #if INTSIZE == 2
377 #   define htoni htons
378 #   define ntohi ntohs
379 #else
380 #   define htoni htonl
381 #   define ntohi ntohl
382 #endif
383
384 #if defined(I_DIRENT)
385 #   include <dirent.h>
386 #   define DIRENT dirent
387 #else
388 #   ifdef I_SYS_NDIR
389 #       include <sys/ndir.h>
390 #       define DIRENT direct
391 #   else
392 #       ifdef I_SYS_DIR
393 #           ifdef hp9000s500
394 #               include <ndir.h>        /* may be wrong in the future */
395 #           else
396 #               include <sys/dir.h>
397 #           endif
398 #           define DIRENT direct
399 #       endif
400 #   endif
401 #endif
402
403 #ifdef FPUTS_BOTCH
404 /* work around botch in SunOS 4.0.1 and 4.0.2 */
405 #   ifndef fputs
406 #       define fputs(sv,fp) fprintf(fp,"%s",sv)
407 #   endif
408 #endif
409
410 /*
411  * The following gobbledygook brought to you on behalf of __STDC__.
412  * (I could just use #ifndef __STDC__, but this is more bulletproof
413  * in the face of half-implementations.)
414  */
415
416 #ifndef S_IFMT
417 #   ifdef _S_IFMT
418 #       define S_IFMT _S_IFMT
419 #   else
420 #       define S_IFMT 0170000
421 #   endif
422 #endif
423
424 #ifndef S_ISDIR
425 #   define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR)
426 #endif
427
428 #ifndef S_ISCHR
429 #   define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR)
430 #endif
431
432 #ifndef S_ISBLK
433 #   ifdef S_IFBLK
434 #       define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK)
435 #   else
436 #       define S_ISBLK(m) (0)
437 #   endif
438 #endif
439
440 #ifndef S_ISREG
441 #   define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
442 #endif
443
444 #ifndef S_ISFIFO
445 #   ifdef S_IFIFO
446 #       define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO)
447 #   else
448 #       define S_ISFIFO(m) (0)
449 #   endif
450 #endif
451
452 #ifndef S_ISLNK
453 #   ifdef _S_ISLNK
454 #       define S_ISLNK(m) _S_ISLNK(m)
455 #   else
456 #       ifdef _S_IFLNK
457 #           define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK)
458 #       else
459 #           ifdef S_IFLNK
460 #               define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK)
461 #           else
462 #               define S_ISLNK(m) (0)
463 #           endif
464 #       endif
465 #   endif
466 #endif
467
468 #ifndef S_ISSOCK
469 #   ifdef _S_ISSOCK
470 #       define S_ISSOCK(m) _S_ISSOCK(m)
471 #   else
472 #       ifdef _S_IFSOCK
473 #           define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK)
474 #       else
475 #           ifdef S_IFSOCK
476 #               define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK)
477 #           else
478 #               define S_ISSOCK(m) (0)
479 #           endif
480 #       endif
481 #   endif
482 #endif
483
484 #ifndef S_IRUSR
485 #   ifdef S_IREAD
486 #       define S_IRUSR S_IREAD
487 #       define S_IWUSR S_IWRITE
488 #       define S_IXUSR S_IEXEC
489 #   else
490 #       define S_IRUSR 0400
491 #       define S_IWUSR 0200
492 #       define S_IXUSR 0100
493 #   endif
494 #   define S_IRGRP (S_IRUSR>>3)
495 #   define S_IWGRP (S_IWUSR>>3)
496 #   define S_IXGRP (S_IXUSR>>3)
497 #   define S_IROTH (S_IRUSR>>6)
498 #   define S_IWOTH (S_IWUSR>>6)
499 #   define S_IXOTH (S_IXUSR>>6)
500 #endif
501
502 #ifndef S_ISUID
503 #   define S_ISUID 04000
504 #endif
505
506 #ifndef S_ISGID
507 #   define S_ISGID 02000
508 #endif
509
510 #ifdef ff_next
511 #   undef ff_next
512 #endif
513
514 #if defined(cray) || defined(gould) || defined(i860)
515 #   define SLOPPYDIVIDE
516 #endif
517
518 #if defined(cray) || defined(convex) || defined (uts) || BYTEORDER > 0xffff
519 #   define QUAD
520 #endif
521
522 #ifdef QUAD
523 #   ifdef cray
524 #       define quad int
525 #   else
526 #       if defined(convex) || defined (uts)
527 #           define quad long long
528 #       else
529 #           define quad long
530 #       endif
531 #   endif
532 #endif
533
534 #ifdef VOIDSIG
535 #   define VOIDRET void
536 #else
537 #   define VOIDRET int
538 #endif
539
540 #ifdef DOSISH
541 #   include "dosish.h"
542 #else
543 #   include "unixish.h"
544 #endif
545
546 #ifndef HAS_PAUSE
547 #define pause() sleep((32767<<16)+32767)
548 #endif
549
550 #ifndef IOCPARM_LEN
551 #   ifdef IOCPARM_MASK
552         /* on BSDish systes we're safe */
553 #       define IOCPARM_LEN(x)  (((x) >> 16) & IOCPARM_MASK)
554 #   else
555         /* otherwise guess at what's safe */
556 #       define IOCPARM_LEN(x)   256
557 #   endif
558 #endif
559
560 typedef MEM_SIZE STRLEN;
561
562 typedef struct op OP;
563 typedef struct cop COP;
564 typedef struct unop UNOP;
565 typedef struct binop BINOP;
566 typedef struct listop LISTOP;
567 typedef struct logop LOGOP;
568 typedef struct condop CONDOP;
569 typedef struct pmop PMOP;
570 typedef struct svop SVOP;
571 typedef struct gvop GVOP;
572 typedef struct pvop PVOP;
573 typedef struct cvop CVOP;
574 typedef struct loop LOOP;
575
576 typedef struct Outrec Outrec;
577 typedef struct lstring Lstring;
578 typedef struct interpreter PerlInterpreter;
579 typedef struct ff FF;
580 typedef struct io IO;
581 typedef struct sv SV;
582 typedef struct av AV;
583 typedef struct hv HV;
584 typedef struct cv CV;
585 typedef struct regexp REGEXP;
586 typedef struct gp GP;
587 typedef struct sv GV;
588 typedef struct context CONTEXT;
589 typedef struct block BLOCK;
590
591 typedef struct magic MAGIC;
592 typedef struct xpv XPV;
593 typedef struct xpviv XPVIV;
594 typedef struct xpvnv XPVNV;
595 typedef struct xpvmg XPVMG;
596 typedef struct xpvlv XPVLV;
597 typedef struct xpvav XPVAV;
598 typedef struct xpvhv XPVHV;
599 typedef struct xpvgv XPVGV;
600 typedef struct xpvcv XPVCV;
601 typedef struct xpvbm XPVBM;
602 typedef struct xpvfm XPVFM;
603 typedef struct mgvtbl MGVTBL;
604 typedef union any ANY;
605
606 #include "handy.h"
607 union any {
608     void*       any_ptr;
609     I32         any_i32;
610 };
611
612 #include "regexp.h"
613 #include "sv.h"
614 #include "util.h"
615 #include "form.h"
616 #include "gv.h"
617 #include "cv.h"
618 #include "opcode.h"
619 #include "op.h"
620 #include "cop.h"
621 #include "av.h"
622 #include "hv.h"
623 #include "mg.h"
624 #include "scope.h"
625
626 #if defined(iAPX286) || defined(M_I286) || defined(I80286)
627 #   define I286
628 #endif
629
630 #ifndef STANDARD_C
631 #   ifdef CHARSPRINTF
632         char *sprintf P((char *, ...));
633 #   else
634         int sprintf P((char *, ...));
635 #   endif
636 #endif
637
638 #if defined(htonl) && !defined(HAS_HTONL)
639 #define HAS_HTONL
640 #endif
641 #if defined(htons) && !defined(HAS_HTONS)
642 #define HAS_HTONS
643 #endif
644 #if defined(ntohl) && !defined(HAS_NTOHL)
645 #define HAS_NTOHL
646 #endif
647 #if defined(ntohs) && !defined(HAS_NTOHS)
648 #define HAS_NTOHS
649 #endif
650 #ifndef HAS_HTONL
651 #if (BYTEORDER & 0xffff) != 0x4321
652 #define HAS_HTONS
653 #define HAS_HTONL
654 #define HAS_NTOHS
655 #define HAS_NTOHL
656 #define MYSWAP
657 #define htons my_swap
658 #define htonl my_htonl
659 #define ntohs my_swap
660 #define ntohl my_ntohl
661 #endif
662 #else
663 #if (BYTEORDER & 0xffff) == 0x4321
664 #undef HAS_HTONS
665 #undef HAS_HTONL
666 #undef HAS_NTOHS
667 #undef HAS_NTOHL
668 #endif
669 #endif
670
671 /*
672  * Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'.
673  * -DWS
674  */
675 #if BYTEORDER != 0x1234
676 # define HAS_VTOHL
677 # define HAS_VTOHS
678 # define HAS_HTOVL
679 # define HAS_HTOVS
680 # if BYTEORDER == 0x4321
681 #  define vtohl(x)      ((((x)&0xFF)<<24)       \
682                         +(((x)>>24)&0xFF)       \
683                         +(((x)&0x0000FF00)<<8)  \
684                         +(((x)&0x00FF0000)>>8)  )
685 #  define vtohs(x)      ((((x)&0xFF)<<8) + (((x)>>8)&0xFF))
686 #  define htovl(x)      vtohl(x)
687 #  define htovs(x)      vtohs(x)
688 # endif
689         /* otherwise default to functions in util.c */
690 #endif
691
692 #ifdef CASTNEGFLOAT
693 #define U_S(what) ((U16)(what))
694 #define U_I(what) ((unsigned int)(what))
695 #define U_L(what) ((U32)(what))
696 #else
697 U32 cast_ulong P((double));
698 #define U_S(what) ((U16)cast_ulong(what))
699 #define U_I(what) ((unsigned int)cast_ulong(what))
700 #define U_L(what) (cast_ulong(what))
701 #endif
702
703 struct Outrec {
704     I32         o_lines;
705     char        *o_str;
706     U32         o_len;
707 };
708
709 #ifndef MAXSYSFD
710 #   define MAXSYSFD 2
711 #endif
712
713 #ifndef DOSISH
714 #define TMPPATH "/tmp/perl-eXXXXXX"
715 #else
716 #define TMPPATH "plXXXXXX"
717 #endif /* MSDOS */
718
719 #ifndef __cplusplus
720 UIDTYPE getuid P(());
721 UIDTYPE geteuid P(());
722 GIDTYPE getgid P(());
723 GIDTYPE getegid P(());
724 #endif
725
726 #ifdef DEBUGGING
727 #define YYDEBUG 1
728 #define DEB(a)                          a
729 #define DEBUG(a)   if (debug)           a
730 #define DEBUG_p(a) if (debug & 1)       a
731 #define DEBUG_s(a) if (debug & 2)       a
732 #define DEBUG_l(a) if (debug & 4)       a
733 #define DEBUG_t(a) if (debug & 8)       a
734 #define DEBUG_o(a) if (debug & 16)      a
735 #define DEBUG_c(a) if (debug & 32)      a
736 #define DEBUG_P(a) if (debug & 64)      a
737 #define DEBUG_m(a) if (debug & 128)     a
738 #define DEBUG_f(a) if (debug & 256)     a
739 #define DEBUG_r(a) if (debug & 512)     a
740 #define DEBUG_x(a) if (debug & 1024)    a
741 #define DEBUG_u(a) if (debug & 2048)    a
742 #define DEBUG_L(a) if (debug & 4096)    a
743 #define DEBUG_H(a) if (debug & 8192)    a
744 #define DEBUG_X(a) if (debug & 16384)   a
745 #else
746 #define DEB(a)
747 #define DEBUG(a)
748 #define DEBUG_p(a)
749 #define DEBUG_s(a)
750 #define DEBUG_l(a)
751 #define DEBUG_t(a)
752 #define DEBUG_o(a)
753 #define DEBUG_c(a)
754 #define DEBUG_P(a)
755 #define DEBUG_m(a)
756 #define DEBUG_f(a)
757 #define DEBUG_r(a)
758 #define DEBUG_x(a)
759 #define DEBUG_u(a)
760 #define DEBUG_L(a)
761 #define DEBUG_H(a)
762 #define DEBUG_X(a)
763 #endif
764 #define YYMAXDEPTH 300
765
766 #define assert(what)    DEB( {                                          \
767         if (!(what)) {                                                  \
768             fatal("Assertion failed: file \"%s\", line %d",             \
769                 __FILE__, __LINE__);                                    \
770             exit(1);                                                    \
771         }})
772
773 struct ufuncs {
774     I32 (*uf_val)P((I32, SV*));
775     I32 (*uf_set)P((I32, SV*));
776     I32 uf_index;
777 };
778
779 /* Fix these up for __STDC__ */
780 char *mktemp P((char*));
781 double atof P((const char*));
782
783 #ifndef STANDARD_C
784 /* All of these are in stdlib.h or time.h for ANSI C */
785 long time();
786 struct tm *gmtime(), *localtime();
787 char *strchr(), *strrchr();
788 char *strcpy(), *strcat();
789 #endif /* ! STANDARD_C */
790
791
792 #ifdef I_MATH
793 #    include <math.h>
794 #else
795 #   ifdef __cplusplus
796         extern "C" {
797 #   endif
798             double exp P((double));
799             double log P((double));
800             double sqrt P((double));
801             double modf P((double,int*));
802             double sin P((double));
803             double cos P((double));
804             double atan2 P((double,double));
805             double pow P((double,double));
806 #   ifdef __cplusplus
807         };
808 #   endif
809 #endif
810
811
812 char *crypt P((const char*, const char*));
813 char *getenv P((const char*));
814 long lseek P((int,int,int));
815 char *getlogin P((void));
816
817 #ifdef EUNICE
818 #define UNLINK unlnk
819 int unlnk P((char*));
820 #else
821 #define UNLINK unlink
822 #endif
823
824 #ifndef HAS_SETREUID
825 #ifdef HAS_SETRESUID
826 #define setreuid(r,e) setresuid(r,e,-1)
827 #define HAS_SETREUID
828 #endif
829 #endif
830 #ifndef HAS_SETREGID
831 #ifdef HAS_SETRESGID
832 #define setregid(r,e) setresgid(r,e,-1)
833 #define HAS_SETREGID
834 #endif
835 #endif
836
837 #define SCAN_DEF 0
838 #define SCAN_TR 1
839 #define SCAN_REPL 2
840
841 #ifdef DEBUGGING
842 #define PAD_SV(po) pad_sv(po)
843 #else
844 #define PAD_SV(po) curpad[po]
845 #endif
846
847 /****************/
848 /* Truly global */
849 /****************/
850
851 /* global state */
852 EXT PerlInterpreter *curinterp; /* currently running interpreter */
853 extern char **  environ;        /* environment variables supplied via exec */
854 EXT int         uid;            /* current real user id */
855 EXT int         euid;           /* current effective user id */
856 EXT int         gid;            /* current real group id */
857 EXT int         egid;           /* current effective group id */
858 EXT bool        nomemok;        /* let malloc context handle nomem */
859 EXT U32         an;             /* malloc sequence number */
860 EXT U32         cop_seq;        /* statement sequence number */
861 EXT U32         op_seq;         /* op sequence number */
862 EXT char **     origenviron;
863 EXT U32         origalen;
864
865 /* Stack for currently executing thread--context switch must handle this.     */
866 EXT SV **       stack_base;     /* stack->array_ary */
867 EXT SV **       stack_sp;       /* stack pointer now */
868 EXT SV **       stack_max;      /* stack->array_ary + stack->array_max */
869
870 /* likewise for these */
871
872 EXT OP *        op;             /* current op--oughta be in a global register */
873
874 EXT I32 *       scopestack;     /* blocks we've entered */
875 EXT I32         scopestack_ix;
876 EXT I32         scopestack_max;
877
878 EXT ANY*        savestack;      /* to save non-local values on */
879 EXT I32         savestack_ix;
880 EXT I32         savestack_max;
881
882 EXT OP **       retstack;       /* returns we've pushed */
883 EXT I32         retstack_ix;
884 EXT I32         retstack_max;
885
886 EXT I32 *       markstack;      /* stackmarks we're remembering */
887 EXT I32 *       markstack_ptr;  /* stackmarks we're remembering */
888 EXT I32 *       markstack_max;  /* stackmarks we're remembering */
889
890 EXT SV **       curpad;
891
892 /* temp space */
893 EXT SV *        Sv;
894 EXT XPV *       Xpv;
895 EXT char        buf[1024];
896 EXT char        tokenbuf[256];
897 EXT struct stat statbuf;
898 #ifndef MSDOS
899 EXT struct tms  timesbuf;
900 #endif
901
902 /* for tmp use in stupid debuggers */
903 EXT int *       di;
904 EXT short *     ds;
905 EXT char *      dc;
906
907 /* handy constants */
908 EXT char *      Yes INIT("1");
909 EXT char *      No INIT("");
910 EXT char *      hexdigit INIT("0123456789abcdef0123456789ABCDEFx");
911 EXT char *      patleave INIT("\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}");
912 EXT char *      vert INIT("|");
913
914 EXT char *      warn_nl
915   INIT("Unsuccessful %s on filename containing newline");
916 EXT char        no_usym[]
917   INIT("Can't use an undefined value to create a symbol");
918 EXT char        no_aelem[]
919   INIT("Modification of non-creatable array value attempted, subscript %d");
920 EXT char        no_helem[]
921   INIT("Modification of non-creatable hash value attempted, subscript \"%s\"");
922 EXT char        no_modify[]
923   INIT("Modification of a read-only value attempted");
924 EXT char        no_mem[]
925   INIT("Out of memory!\n");
926 EXT char        no_security[]
927   INIT("Insecure dependency in %s");
928 EXT char        no_sock_func[]
929   INIT("Unsupported socket function \"%s\" called");
930 EXT char        no_dir_func[]
931   INIT("Unsupported directory function \"%s\" called");
932 EXT char        no_func[]
933   INIT("The %s function is unimplemented");
934
935 EXT SV          sv_undef;
936 EXT SV          sv_no;
937 EXT SV          sv_yes;
938 #ifdef CSH
939     EXT char *  cshname INIT(CSH);
940     EXT I32     cshlen;
941 #endif
942
943 #ifdef DOINIT
944 EXT char *sig_name[] = {
945     SIG_NAME,0
946 };
947 #else
948 EXT char *sig_name[];
949 #endif
950
951 #ifdef DOINIT
952     EXT char    coeff[] = {     /* hash function coefficients */
953                 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
954                 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
955                 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
956                 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
957                 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
958                 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
959                 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
960                 61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1};
961 #else
962     EXT char    coeff[];
963 #endif
964
965 #ifdef DOINIT
966 EXT unsigned char fold[] = {    /* fast case folding table */
967         0,      1,      2,      3,      4,      5,      6,      7,
968         8,      9,      10,     11,     12,     13,     14,     15,
969         16,     17,     18,     19,     20,     21,     22,     23,
970         24,     25,     26,     27,     28,     29,     30,     31,
971         32,     33,     34,     35,     36,     37,     38,     39,
972         40,     41,     42,     43,     44,     45,     46,     47,
973         48,     49,     50,     51,     52,     53,     54,     55,
974         56,     57,     58,     59,     60,     61,     62,     63,
975         64,     'a',    'b',    'c',    'd',    'e',    'f',    'g',
976         'h',    'i',    'j',    'k',    'l',    'm',    'n',    'o',
977         'p',    'q',    'r',    's',    't',    'u',    'v',    'w',
978         'x',    'y',    'z',    91,     92,     93,     94,     95,
979         96,     'A',    'B',    'C',    'D',    'E',    'F',    'G',
980         'H',    'I',    'J',    'K',    'L',    'M',    'N',    'O',
981         'P',    'Q',    'R',    'S',    'T',    'U',    'V',    'W',
982         'X',    'Y',    'Z',    123,    124,    125,    126,    127,
983         128,    129,    130,    131,    132,    133,    134,    135,
984         136,    137,    138,    139,    140,    141,    142,    143,
985         144,    145,    146,    147,    148,    149,    150,    151,
986         152,    153,    154,    155,    156,    157,    158,    159,
987         160,    161,    162,    163,    164,    165,    166,    167,
988         168,    169,    170,    171,    172,    173,    174,    175,
989         176,    177,    178,    179,    180,    181,    182,    183,
990         184,    185,    186,    187,    188,    189,    190,    191,
991         192,    193,    194,    195,    196,    197,    198,    199,
992         200,    201,    202,    203,    204,    205,    206,    207,
993         208,    209,    210,    211,    212,    213,    214,    215,
994         216,    217,    218,    219,    220,    221,    222,    223,    
995         224,    225,    226,    227,    228,    229,    230,    231,
996         232,    233,    234,    235,    236,    237,    238,    239,
997         240,    241,    242,    243,    244,    245,    246,    247,
998         248,    249,    250,    251,    252,    253,    254,    255
999 };
1000 #else
1001 EXT unsigned char fold[];
1002 #endif
1003
1004 #ifdef DOINIT
1005 EXT unsigned char freq[] = {    /* letter frequencies for mixed English/C */
1006         1,      2,      84,     151,    154,    155,    156,    157,
1007         165,    246,    250,    3,      158,    7,      18,     29,
1008         40,     51,     62,     73,     85,     96,     107,    118,
1009         129,    140,    147,    148,    149,    150,    152,    153,
1010         255,    182,    224,    205,    174,    176,    180,    217,
1011         233,    232,    236,    187,    235,    228,    234,    226,
1012         222,    219,    211,    195,    188,    193,    185,    184,
1013         191,    183,    201,    229,    181,    220,    194,    162,
1014         163,    208,    186,    202,    200,    218,    198,    179,
1015         178,    214,    166,    170,    207,    199,    209,    206,
1016         204,    160,    212,    216,    215,    192,    175,    173,
1017         243,    172,    161,    190,    203,    189,    164,    230,
1018         167,    248,    227,    244,    242,    255,    241,    231,
1019         240,    253,    169,    210,    245,    237,    249,    247,
1020         239,    168,    252,    251,    254,    238,    223,    221,
1021         213,    225,    177,    197,    171,    196,    159,    4,
1022         5,      6,      8,      9,      10,     11,     12,     13,
1023         14,     15,     16,     17,     19,     20,     21,     22,
1024         23,     24,     25,     26,     27,     28,     30,     31,
1025         32,     33,     34,     35,     36,     37,     38,     39,
1026         41,     42,     43,     44,     45,     46,     47,     48,
1027         49,     50,     52,     53,     54,     55,     56,     57,
1028         58,     59,     60,     61,     63,     64,     65,     66,
1029         67,     68,     69,     70,     71,     72,     74,     75,
1030         76,     77,     78,     79,     80,     81,     82,     83,
1031         86,     87,     88,     89,     90,     91,     92,     93,
1032         94,     95,     97,     98,     99,     100,    101,    102,
1033         103,    104,    105,    106,    108,    109,    110,    111,
1034         112,    113,    114,    115,    116,    117,    119,    120,
1035         121,    122,    123,    124,    125,    126,    127,    128,
1036         130,    131,    132,    133,    134,    135,    136,    137,
1037         138,    139,    141,    142,    143,    144,    145,    146
1038 };
1039 #else
1040 EXT unsigned char freq[];
1041 #endif
1042
1043 /*****************************************************************************/
1044 /* This lexer/parser stuff is currently global since yacc is hard to reenter */
1045 /*****************************************************************************/
1046
1047 typedef enum {
1048     XOPERATOR,
1049     XTERM,
1050     XBLOCK,
1051     XREF,
1052 } expectation;
1053
1054 EXT FILE * VOL  rsfp INIT(Nullfp);
1055 EXT SV *        linestr;
1056 EXT char *      bufptr;
1057 EXT char *      oldbufptr;
1058 EXT char *      oldoldbufptr;
1059 EXT char *      bufend;
1060 EXT expectation expect INIT(XBLOCK);    /* how to interpret ambiguous tokens */
1061
1062 EXT I32         multi_start;    /* 1st line of multi-line string */
1063 EXT I32         multi_end;      /* last line of multi-line string */
1064 EXT I32         multi_open;     /* delimiter of said string */
1065 EXT I32         multi_close;    /* delimiter of said string */
1066
1067 EXT GV *        scrgv;
1068 EXT I32         error_count;    /* how many errors so far, max 10 */
1069 EXT I32         subline;        /* line this subroutine began on */
1070 EXT SV *        subname;        /* name of current subroutine */
1071
1072 EXT AV *        comppad;        /* storage for lexically scoped temporaries */
1073 EXT AV *        comppadname;    /* variable names for "my" variables */
1074 EXT I32         comppadnamefill;/* last "introduced" variable offset */
1075 EXT I32         padix;          /* max used index in current "register" pad */
1076 EXT COP         compiling;
1077
1078 EXT SV *        evstr;          /* op_fold_const() temp string cache */
1079 EXT I32         thisexpr;       /* name id for nothing_in_common() */
1080 EXT char *      last_uni;       /* position of last named-unary operator */
1081 EXT char *      last_lop;       /* position of last list operator */
1082 EXT bool        in_format;      /* we're compiling a run_format */
1083 EXT bool        in_my;          /* we're compiling a "my" declaration */
1084 #ifdef FCRYPT
1085 EXT I32         cryptseen;      /* has fast crypt() been initialized? */
1086 #endif
1087
1088 /**************************************************************************/
1089 /* This regexp stuff is global since it always happens within 1 expr eval */
1090 /**************************************************************************/
1091
1092 EXT char *      regprecomp;     /* uncompiled string. */
1093 EXT char *      regparse;       /* Input-scan pointer. */
1094 EXT char *      regxend;        /* End of input for compile */
1095 EXT I32         regnpar;        /* () count. */
1096 EXT char *      regcode;        /* Code-emit pointer; &regdummy = don't. */
1097 EXT I32         regsize;        /* Code size. */
1098 EXT I32         regfold;        /* are we folding? */
1099 EXT I32         regsawbracket;  /* Did we do {d,d} trick? */
1100 EXT I32         regsawback;     /* Did we see \1, ...? */
1101
1102 EXT char *      reginput;       /* String-input pointer. */
1103 EXT char        regprev;        /* char before regbol, \n if none */
1104 EXT char *      regbol;         /* Beginning of input, for ^ check. */
1105 EXT char *      regeol;         /* End of input, for $ check. */
1106 EXT char **     regstartp;      /* Pointer to startp array. */
1107 EXT char **     regendp;        /* Ditto for endp. */
1108 EXT char *      reglastparen;   /* Similarly for lastparen. */
1109 EXT char *      regtill;        /* How far we are required to go. */
1110 EXT I32         regmyp_size;
1111 EXT char **     regmystartp;
1112 EXT char **     regmyendp;
1113
1114 /***********************************************/
1115 /* Global only to current interpreter instance */
1116 /***********************************************/
1117
1118 #ifdef EMBEDDED
1119 #define IEXT
1120 #define IINIT(x)
1121 struct interpreter {
1122 #else
1123 #define IEXT EXT
1124 #define IINIT(x) INIT(x)
1125 #endif
1126
1127 /* pseudo environmental stuff */
1128 IEXT int        Iorigargc;
1129 IEXT char **    Iorigargv;
1130 IEXT GV *       Ienvgv;
1131 IEXT GV *       Isiggv;
1132 IEXT GV *       Iincgv;
1133 IEXT char *     Iorigfilename;
1134
1135 /* switches */
1136 IEXT char *     Icddir;
1137 IEXT bool       Iminus_c;
1138 IEXT char       Ipatchlevel[6];
1139 IEXT char *     Inrs IINIT("\n");
1140 IEXT U32        Inrschar IINIT('\n');   /* final char of rs, or 0777 if none */
1141 IEXT I32        Inrslen IINIT(1);
1142 IEXT bool       Ipreprocess;
1143 IEXT bool       Iminus_n;
1144 IEXT bool       Iminus_p;
1145 IEXT bool       Iminus_l;
1146 IEXT bool       Iminus_a;
1147 IEXT bool       Idoswitches;
1148 IEXT bool       Idowarn;
1149 IEXT bool       Idoextract;
1150 IEXT bool       Iallgvs;        /* init all customary symbols in symbol table?*/
1151 IEXT bool       Isawampersand;  /* must save all match strings */
1152 IEXT bool       Isawstudy;      /* do fbm_instr on all strings */
1153 IEXT bool       Isawi;          /* study must assume case insensitive */
1154 IEXT bool       Isawvec;
1155 IEXT bool       Iunsafe;
1156 IEXT bool       Ido_undump;             /* -u or dump seen? */
1157 IEXT char *     Iinplace;
1158 IEXT char *     Ie_tmpname;
1159 IEXT FILE *     Ie_fp;
1160 IEXT VOL U32    Idebug;
1161 IEXT U32        Iperldb;
1162
1163 /* magical thingies */
1164 IEXT time_t     Ibasetime;              /* $^T */
1165 IEXT I32        Iarybase;               /* $[ */
1166 IEXT SV *       Iformfeed;              /* $^L */
1167 IEXT char *     Ichopset IINIT(" \n-"); /* $: */
1168 IEXT char *     Irs IINIT("\n");        /* $/ */
1169 IEXT U32        Irschar IINIT('\n');    /* final char of rs, or 0777 if none */
1170 IEXT I32        Irslen IINIT(1);
1171 IEXT bool       Irspara;
1172 IEXT char *     Iofs;                   /* $, */
1173 IEXT I32        Iofslen;
1174 IEXT char *     Iors;                   /* $\ */
1175 IEXT I32        Iorslen;
1176 IEXT char *     Iofmt;                  /* $# */
1177 IEXT I32        Imaxsysfd IINIT(MAXSYSFD); /* top fd to pass to subprocesses */
1178 IEXT int        Imultiline;       /* $*--do strings hold >1 line? */
1179 IEXT U16        Istatusvalue;   /* $? */
1180
1181 IEXT struct stat Istatcache;            /* _ */
1182 IEXT GV *       Istatgv;
1183 IEXT SV *       Istatname IINIT(Nullsv);
1184
1185 /* shortcuts to various I/O objects */
1186 IEXT GV *       Istdingv;
1187 IEXT GV *       Ilast_in_gv;
1188 IEXT GV *       Idefgv;
1189 IEXT GV *       Iargvgv;
1190 IEXT GV *       Idefoutgv;
1191 IEXT GV *       Icuroutgv;
1192 IEXT GV *       Iargvoutgv;
1193
1194 /* shortcuts to regexp stuff */
1195 IEXT GV *       Ileftgv;
1196 IEXT GV *       Iampergv;
1197 IEXT GV *       Irightgv;
1198 IEXT PMOP *     Icurpm;         /* what to do \ interps from */
1199 IEXT I32 *      Iscreamfirst;
1200 IEXT I32 *      Iscreamnext;
1201 IEXT I32        Imaxscream IINIT(-1);
1202 IEXT SV *       Ilastscream;
1203
1204 /* shortcuts to debugging objects */
1205 IEXT GV *       IDBgv;
1206 IEXT GV *       IDBline;
1207 IEXT GV *       IDBsub;
1208 IEXT SV *       IDBsingle;
1209 IEXT SV *       IDBtrace;
1210 IEXT SV *       IDBsignal;
1211 IEXT AV *       Ilineary;       /* lines of script for debugger */
1212 IEXT AV *       Idbargs;        /* args to call listed by caller function */
1213
1214 /* symbol tables */
1215 IEXT HV *       Idefstash;      /* main symbol table */
1216 IEXT HV *       Icurstash;      /* symbol table for current package */
1217 IEXT HV *       Idebstash;      /* symbol table for perldb package */
1218 IEXT SV *       Icurstname;     /* name of current package */
1219 IEXT AV *       Ibeginav;       /* names of BEGIN subroutines */
1220 IEXT AV *       Iendav;         /* names of END subroutines */
1221 IEXT AV *       Ipad;           /* storage for lexically scoped temporaries */
1222 IEXT AV *       Ipadname;       /* variable names for "my" variables */
1223
1224 /* memory management */
1225 IEXT SV *       Ifreestrroot;
1226 IEXT SV **      Itmps_stack;
1227 IEXT I32        Itmps_ix IINIT(-1);
1228 IEXT I32        Itmps_floor IINIT(-1);
1229 IEXT I32        Itmps_max IINIT(-1);
1230
1231 /* funky return mechanisms */
1232 IEXT I32        Ilastspbase;
1233 IEXT I32        Ilastsize;
1234 IEXT int        Iforkprocess;   /* so do_open |- can return proc# */
1235
1236 /* subprocess state */
1237 IEXT AV *       Ifdpid;         /* keep fd-to-pid mappings for my_popen */
1238 IEXT HV *       Ipidstatus;     /* keep pid-to-status mappings for waitpid */
1239
1240 /* internal state */
1241 IEXT VOL int    Iin_eval;       /* trap fatal errors? */
1242 IEXT OP *       Irestartop;     /* Are we propagating an error from fatal? */
1243 IEXT int        Idelaymagic;    /* ($<,$>) = ... */
1244 IEXT bool       Idirty;         /* clean before rerunning */
1245 IEXT bool       Ilocalizing;    /* are we processing a local() list? */
1246 #ifdef TAINT
1247 IEXT bool       Itainted;       /* using variables controlled by $< */
1248 IEXT bool       Itaintanyway;   /* force taint checks when !set?id */
1249 #endif
1250
1251 /* trace state */
1252 IEXT I32        Idlevel;
1253 IEXT I32        Idlmax IINIT(128);
1254 IEXT char *     Idebname;
1255 IEXT char *     Idebdelim;
1256
1257 /* current interpreter roots */
1258 IEXT OP * VOL   Imain_root;
1259 IEXT OP * VOL   Imain_start;
1260 IEXT OP * VOL   Ieval_root;
1261 IEXT OP * VOL   Ieval_start;
1262
1263 /* runtime control stuff */
1264 IEXT COP * VOL  Icurcop IINIT(&compiling);
1265 IEXT line_t     Icopline IINIT(NOLINE);
1266 IEXT CONTEXT *  Icxstack;
1267 IEXT I32        Icxstack_ix IINIT(-1);
1268 IEXT I32        Icxstack_max IINIT(128);
1269 IEXT jmp_buf    Itop_env;
1270
1271 /* stack stuff */
1272 IEXT AV *       Istack;         /* THE STACK */
1273 IEXT AV *       Imainstack;     /* the stack when nothing funny is happening */
1274 IEXT SV **      Imystack_base;  /* stack->array_ary */
1275 IEXT SV **      Imystack_sp;    /* stack pointer now */
1276 IEXT SV **      Imystack_max;   /* stack->array_ary + stack->array_max */
1277
1278 /* format accumulators */
1279 IEXT SV *       formtarget;
1280 IEXT SV *       bodytarget;
1281 IEXT SV *       toptarget;
1282
1283 /* statics moved here for shared library purposes */
1284 IEXT SV         Istrchop;       /* return value from chop */
1285 IEXT int        Ifilemode;      /* so nextargv() can preserve mode */
1286 IEXT int        Ilastfd;        /* what to preserve mode on */
1287 IEXT char *     Ioldname;       /* what to preserve mode on */
1288 IEXT char **    IArgv;          /* stuff to free from do_aexec, vfork safe */
1289 IEXT char *     ICmd;           /* stuff to free from do_aexec, vfork safe */
1290 IEXT OP *       Isortcop;       /* user defined sort routine */
1291 IEXT HV *       Isortstash;     /* which is in some package or other */
1292 IEXT GV *       Ifirstgv;       /* $a */
1293 IEXT GV *       Isecondgv;      /* $b */
1294 IEXT AV *       Isortstack;     /* temp stack during pp_sort() */
1295 IEXT AV *       Isignalstack;   /* temp stack during sighandler() */
1296 IEXT SV *       Imystrk;        /* temp key string for do_each() */
1297 IEXT I32        Idumplvl;       /* indentation level on syntax tree dump */
1298 IEXT I32        Idbmrefcnt;     /* safety check for old dbm */
1299 IEXT PMOP *     Ioldlastpm;     /* for saving regexp context during debugger */
1300 IEXT I32        Igensym;        /* next symbol for getsym() to define */
1301 IEXT bool       Ipreambled;
1302 IEXT int        Ilaststatval IINIT(-1);
1303 IEXT I32        Ilaststype IINIT(OP_STAT);
1304
1305 #undef IEXT
1306 #undef IINIT
1307
1308 #ifdef EMBEDDED
1309 };
1310 #else
1311 struct interpreter {
1312     char broiled;
1313 };
1314 #endif
1315
1316 #include "pp.h"
1317
1318 #ifdef __cplusplus
1319 extern "C" {
1320 #endif
1321
1322 #include "proto.h"
1323
1324 #ifdef __cplusplus
1325 };
1326 #endif
1327
1328 /* The following must follow proto.h */
1329
1330 #ifdef DOINIT
1331 MGVTBL vtbl_sv =        {magic_get, magic_set, magic_len, 0, 0};
1332 MGVTBL vtbl_env =       {0,             0,               0, 0, 0};
1333 MGVTBL vtbl_envelem =   {0,             magic_setenv,    0, 0, 0};
1334 MGVTBL vtbl_sig =       {0,             0,               0, 0, 0};
1335 MGVTBL vtbl_sigelem =   {0,             magic_setsig,    0, 0, 0};
1336 MGVTBL vtbl_dbm =       {0,             0,               0, 0, 0};
1337 MGVTBL vtbl_dbmelem =   {0,             magic_setdbm,    0, 0, 0};
1338 MGVTBL vtbl_dbline =    {0,             magic_setdbline, 0, 0, 0};
1339 MGVTBL vtbl_arylen =    {magic_getarylen,magic_setarylen, 0, 0, 0};
1340 MGVTBL vtbl_glob =      {magic_getglob, magic_setglob,   0, 0, 0};
1341 MGVTBL vtbl_mglob =     {0,             magic_setmglob,  0, 0, 0};
1342 MGVTBL vtbl_substr =    {0,             magic_setsubstr, 0, 0, 0};
1343 MGVTBL vtbl_vec =       {0,             magic_setvec,    0, 0, 0};
1344 MGVTBL vtbl_bm =        {0,             magic_setbm,     0, 0, 0};
1345 MGVTBL vtbl_uvar =      {magic_getuvar, magic_setuvar,   0, 0, 0};
1346 #else
1347 EXT MGVTBL vtbl_sv;
1348 EXT MGVTBL vtbl_env;
1349 EXT MGVTBL vtbl_envelem;
1350 EXT MGVTBL vtbl_sig;
1351 EXT MGVTBL vtbl_sigelem;
1352 EXT MGVTBL vtbl_dbm;
1353 EXT MGVTBL vtbl_dbmelem;
1354 EXT MGVTBL vtbl_dbline;
1355 EXT MGVTBL vtbl_arylen;
1356 EXT MGVTBL vtbl_glob;
1357 EXT MGVTBL vtbl_mglob;
1358 EXT MGVTBL vtbl_substr;
1359 EXT MGVTBL vtbl_vec;
1360 EXT MGVTBL vtbl_bm;
1361 EXT MGVTBL vtbl_uvar;
1362 #endif