This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
c9064b164f40b9c09c3f1ca94fc698f6a276f057
[perl5.git] / perl.h
1 /* $RCSfile: perl.h,v $$Revision: 4.0.1.5 $$Date: 91/11/11 16:41:07 $
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.0.1.5  91/11/11  16:41:07  lwall
10  * patch19: uts wrongly defines S_ISDIR() et al
11  * patch19: too many preprocessors can't expand a macro right in #if
12  * patch19: added little-endian pack/unpack options
13  * 
14  * Revision 4.0.1.4  91/11/05  18:06:10  lwall
15  * patch11: various portability fixes
16  * patch11: added support for dbz
17  * patch11: added some support for 64-bit integers
18  * patch11: hex() didn't understand leading 0x
19  * 
20  * Revision 4.0.1.3  91/06/10  01:25:10  lwall
21  * patch10: certain pattern optimizations were botched
22  * 
23  * Revision 4.0.1.2  91/06/07  11:28:33  lwall
24  * patch4: new copyright notice
25  * patch4: made some allowances for "semi-standard" C
26  * patch4: many, many itty-bitty portability fixes
27  * 
28  * Revision 4.0.1.1  91/04/11  17:49:51  lwall
29  * patch1: hopefully straightened out some of the Xenix mess
30  * 
31  * Revision 4.0  91/03/20  01:37:56  lwall
32  * 4.0 baseline.
33  * 
34  */
35
36 #define VOIDWANT 1
37 #include "config.h"
38
39 #ifdef MYMALLOC
40 #   ifdef HIDEMYMALLOC
41 #       define malloc Mymalloc
42 #       define realloc Myremalloc
43 #       define free Myfree
44 #   endif
45 #   define safemalloc malloc
46 #   define saferealloc realloc
47 #   define safefree free
48 #endif
49
50 /* work around some libPW problems */
51 #define fatal Myfatal
52 #ifdef DOINIT
53 char Error[1];
54 #endif
55
56 #ifdef MSDOS
57 /* This stuff now in the MS-DOS config.h file. */
58 #else /* !MSDOS */
59
60 /*
61  * The following symbols are defined if your operating system supports
62  * functions by that name.  All Unixes I know of support them, thus they
63  * are not checked by the configuration script, but are directly defined
64  * here.
65  */
66 #define HAS_ALARM
67 #define HAS_CHOWN
68 #define HAS_CHROOT
69 #define HAS_FORK
70 #define HAS_GETLOGIN
71 #define HAS_GETPPID
72 #define HAS_KILL
73 #define HAS_LINK
74 #define HAS_PIPE
75 #define HAS_WAIT
76 #define HAS_UMASK
77 /*
78  * The following symbols are defined if your operating system supports
79  * password and group functions in general.  All Unix systems do.
80  */
81 #define HAS_GROUP
82 #define HAS_PASSWD
83
84 #endif /* !MSDOS */
85
86 #if defined(__STDC__) || defined(_AIX) || defined(__stdc__)
87 # define STANDARD_C 1
88 #endif
89
90 #if defined(HASVOLATILE) || defined(STANDARD_C)
91 #define VOLATILE volatile
92 #else
93 #define VOLATILE
94 #endif
95
96 #ifdef IAMSUID
97 #   ifndef TAINT
98 #       define TAINT
99 #   endif
100 #endif
101
102 #ifndef HAS_VFORK
103 #   define vfork fork
104 #endif
105
106 #ifdef HAS_GETPGRP2
107 #   ifndef HAS_GETPGRP
108 #       define HAS_GETPGRP
109 #   endif
110 #   define getpgrp getpgrp2
111 #endif
112
113 #ifdef HAS_SETPGRP2
114 #   ifndef HAS_SETPGRP
115 #       define HAS_SETPGRP
116 #   endif
117 #   define setpgrp setpgrp2
118 #endif
119
120 #include <stdio.h>
121 #include <ctype.h>
122 #include <setjmp.h>
123 #ifndef MSDOS
124 #ifdef PARAM_NEEDS_TYPES
125 #include <sys/types.h>
126 #endif
127 #include <sys/param.h>
128 #endif
129 #ifdef STANDARD_C
130 /* Use all the "standard" definitions */
131 #include <stdlib.h>
132 #include <string.h>
133 #endif /* STANDARD_C */
134
135 #if defined(HAS_MEMCMP) && defined(mips) && BYTEORDER == 0x1234
136 #undef HAS_MEMCMP
137 #endif
138
139 #ifdef HAS_MEMCPY
140
141 #  ifndef STANDARD_C
142 #    ifndef memcpy
143 extern char * memcpy(), *memset();
144 extern int memcmp();
145 #    endif /* ndef memcpy */
146 #  endif /* ndef STANDARD_C */
147
148 #   ifndef bcopy
149 #       define bcopy(s1,s2,l) memcpy(s2,s1,l)
150 #   endif
151 #   ifndef bzero
152 #       define bzero(s,l) memset(s,0,l)
153 #   endif
154 #endif /* HAS_MEMCPY */
155
156 #ifndef HAS_BCMP                /* prefer bcmp slightly 'cuz it doesn't order */
157 #   ifndef bcmp
158 #       define bcmp(s1,s2,l) memcmp(s1,s2,l)
159 #   endif
160 #endif
161
162 #ifndef _TYPES_         /* If types.h defines this it's easy. */
163 #ifndef major           /* Does everyone's types.h define this? */
164 #include <sys/types.h>
165 #endif
166 #endif
167
168 #ifdef I_NETINET_IN
169 #include <netinet/in.h>
170 #endif
171
172 #include <sys/stat.h>
173 #ifdef uts
174 #undef S_ISDIR
175 #undef S_ISCHR
176 #undef S_ISBLK
177 #undef S_ISREG
178 #undef S_ISFIFO
179 #undef S_ISLNK
180 #define S_ISDIR(P) (((P)&S_IFMT)==S_IFDIR)
181 #define S_ISCHR(P) (((P)&S_IFMT)==S_IFCHR)
182 #define S_ISBLK(P) (((P)&S_IFMT)==S_IFBLK)
183 #define S_ISREG(P) (((P)&S_IFMT)==S_IFREG)
184 #define S_ISFIFO(P) (((P)&S_IFMT)==S_IFIFO)
185 #define S_ISLNK(P) (((P)&S_IFMT)==S_IFLNK)
186 #endif
187
188 #ifdef I_TIME
189 #   include <time.h>
190 #endif
191
192 #ifdef I_SYS_TIME
193 #   ifdef SYSTIMEKERNEL
194 #       define KERNEL
195 #   endif
196 #   include <sys/time.h>
197 #   ifdef SYSTIMEKERNEL
198 #       undef KERNEL
199 #   endif
200 #endif
201
202 #ifndef MSDOS
203 #include <sys/times.h>
204 #endif
205
206 #if defined(HAS_STRERROR) && (!defined(HAS_MKDIR) || !defined(HAS_RMDIR))
207 #undef HAS_STRERROR
208 #endif
209
210 #include <errno.h>
211 #ifndef MSDOS
212 #ifndef errno
213 extern int errno;     /* ANSI allows errno to be an lvalue expr */
214 #endif
215 #endif
216
217 #ifndef strerror
218 #ifdef HAS_STRERROR
219 char *strerror();
220 #else
221 extern int sys_nerr;
222 extern char *sys_errlist[];
223 #define strerror(e) ((e) < 0 || (e) >= sys_nerr ? "(unknown)" : sys_errlist[e])
224 #endif
225 #endif
226
227 #ifdef I_SYSIOCTL
228 #ifndef _IOCTL_
229 #include <sys/ioctl.h>
230 #endif
231 #endif
232
233 #if defined(mc300) || defined(mc500) || defined(mc700)  /* MASSCOMP */
234 #ifdef HAS_SOCKETPAIR
235 #undef HAS_SOCKETPAIR
236 #endif
237 #ifdef HAS_NDBM
238 #undef HAS_NDBM
239 #endif
240 #endif
241
242 #ifdef WANT_DBZ
243 #include <dbz.h>
244 #define SOME_DBM
245 #define dbm_fetch(db,dkey) fetch(dkey)
246 #define dbm_delete(db,dkey) fatal("dbz doesn't implement delete")
247 #define dbm_store(db,dkey,dcontent,flags) store(dkey,dcontent)
248 #define dbm_close(db) dbmclose()
249 #define dbm_firstkey(db) (fatal("dbz doesn't implement traversal"),fetch())
250 #define nextkey() (fatal("dbz doesn't implement traversal"),fetch())
251 #define dbm_nextkey(db) (fatal("dbz doesn't implement traversal"),fetch())
252 #ifdef HAS_NDBM
253 #undef HAS_NDBM
254 #endif
255 #ifndef HAS_ODBM
256 #define HAS_ODBM
257 #endif
258 #else
259 #ifdef HAS_GDBM
260 #ifdef I_GDBM
261 #include <gdbm.h>
262 #endif
263 #define SOME_DBM
264 #ifdef HAS_NDBM
265 #undef HAS_NDBM
266 #endif
267 #ifdef HAS_ODBM
268 #undef HAS_ODBM
269 #endif
270 #else
271 #ifdef HAS_NDBM
272 #include <ndbm.h>
273 #define SOME_DBM
274 #ifdef HAS_ODBM
275 #undef HAS_ODBM
276 #endif
277 #else
278 #ifdef HAS_ODBM
279 #ifdef NULL
280 #undef NULL             /* suppress redefinition message */
281 #endif
282 #include <dbm.h>
283 #ifdef NULL
284 #undef NULL
285 #endif
286 #define NULL 0          /* silly thing is, we don't even use this */
287 #define SOME_DBM
288 #define dbm_fetch(db,dkey) fetch(dkey)
289 #define dbm_delete(db,dkey) delete(dkey)
290 #define dbm_store(db,dkey,dcontent,flags) store(dkey,dcontent)
291 #define dbm_close(db) dbmclose()
292 #define dbm_firstkey(db) firstkey()
293 #endif /* HAS_ODBM */
294 #endif /* HAS_NDBM */
295 #endif /* HAS_GDBM */
296 #endif /* WANT_DBZ */
297 #ifdef SOME_DBM
298 EXT char *dbmkey;
299 EXT int dbmlen;
300 #endif
301
302 #if INTSIZE == 2
303 #define htoni htons
304 #define ntohi ntohs
305 #else
306 #define htoni htonl
307 #define ntohi ntohl
308 #endif
309
310 #if defined(I_DIRENT)
311 #   include <dirent.h>
312 #   define DIRENT dirent
313 #else
314 #   ifdef I_SYS_NDIR
315 #       include <sys/ndir.h>
316 #       define DIRENT direct
317 #   else
318 #       ifdef I_SYS_DIR
319 #           ifdef hp9000s500
320 #               include <ndir.h>        /* may be wrong in the future */
321 #           else
322 #               include <sys/dir.h>
323 #           endif
324 #           define DIRENT direct
325 #       endif
326 #   endif
327 #endif
328
329 #ifdef FPUTS_BOTCH
330 /* work around botch in SunOS 4.0.1 and 4.0.2 */
331 #   ifndef fputs
332 #       define fputs(str,fp) fprintf(fp,"%s",str)
333 #   endif
334 #endif
335
336 /*
337  * The following gobbledygook brought to you on behalf of __STDC__.
338  * (I could just use #ifndef __STDC__, but this is more bulletproof
339  * in the face of half-implementations.)
340  */
341
342 #ifndef S_IFMT
343 #   ifdef _S_IFMT
344 #       define S_IFMT _S_IFMT
345 #   else
346 #       define S_IFMT 0170000
347 #   endif
348 #endif
349
350 #ifndef S_ISDIR
351 #   define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR)
352 #endif
353
354 #ifndef S_ISCHR
355 #   define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR)
356 #endif
357
358 #ifndef S_ISBLK
359 #   ifdef S_IFBLK
360 #       define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK)
361 #   else
362 #       define S_ISBLK(m) (0)
363 #   endif
364 #endif
365
366 #ifndef S_ISREG
367 #   define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
368 #endif
369
370 #ifndef S_ISFIFO
371 #   ifdef S_IFIFO
372 #       define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO)
373 #   else
374 #       define S_ISFIFO(m) (0)
375 #   endif
376 #endif
377
378 #ifndef S_ISLNK
379 #   ifdef _S_ISLNK
380 #       define S_ISLNK(m) _S_ISLNK(m)
381 #   else
382 #       ifdef _S_IFLNK
383 #           define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK)
384 #       else
385 #           ifdef S_IFLNK
386 #               define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK)
387 #           else
388 #               define S_ISLNK(m) (0)
389 #           endif
390 #       endif
391 #   endif
392 #endif
393
394 #ifndef S_ISSOCK
395 #   ifdef _S_ISSOCK
396 #       define S_ISSOCK(m) _S_ISSOCK(m)
397 #   else
398 #       ifdef _S_IFSOCK
399 #           define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK)
400 #       else
401 #           ifdef S_IFSOCK
402 #               define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK)
403 #           else
404 #               define S_ISSOCK(m) (0)
405 #           endif
406 #       endif
407 #   endif
408 #endif
409
410 #ifndef S_IRUSR
411 #   ifdef S_IREAD
412 #       define S_IRUSR S_IREAD
413 #       define S_IWUSR S_IWRITE
414 #       define S_IXUSR S_IEXEC
415 #   else
416 #       define S_IRUSR 0400
417 #       define S_IWUSR 0200
418 #       define S_IXUSR 0100
419 #   endif
420 #   define S_IRGRP (S_IRUSR>>3)
421 #   define S_IWGRP (S_IWUSR>>3)
422 #   define S_IXGRP (S_IXUSR>>3)
423 #   define S_IROTH (S_IRUSR>>6)
424 #   define S_IWOTH (S_IWUSR>>6)
425 #   define S_IXOTH (S_IXUSR>>6)
426 #endif
427
428 #ifndef S_ISUID
429 #   define S_ISUID 04000
430 #endif
431
432 #ifndef S_ISGID
433 #   define S_ISGID 02000
434 #endif
435
436 #ifdef f_next
437 #undef f_next
438 #endif
439
440 #if defined(cray) || defined(gould)
441 #   define SLOPPYDIVIDE
442 #endif
443
444 #if defined(cray) || defined(convex) || defined (uts) || BYTEORDER > 0xffff
445 #   define QUAD
446 #endif
447
448 #ifdef QUAD
449 #   ifdef cray
450 #       define quad int
451 #   else
452 #       if defined(convex) || defined (uts)
453 #           define quad long long
454 #       else
455 #           define quad long
456 #       endif
457 #   endif
458 #endif
459
460 typedef unsigned int STRLEN;
461
462 typedef struct arg ARG;
463 typedef struct cmd CMD;
464 typedef struct formcmd FCMD;
465 typedef struct scanpat SPAT;
466 typedef struct stio STIO;
467 typedef struct sub SUBR;
468 typedef struct string STR;
469 typedef struct atbl ARRAY;
470 typedef struct htbl HASH;
471 typedef struct regexp REGEXP;
472 typedef struct stabptrs STBP;
473 typedef struct stab STAB;
474 typedef struct callsave CSV;
475
476 #include "handy.h"
477 #include "regexp.h"
478 #include "str.h"
479 #include "util.h"
480 #include "form.h"
481 #include "stab.h"
482 #include "spat.h"
483 #include "arg.h"
484 #include "cmd.h"
485 #include "array.h"
486 #include "hash.h"
487
488 #if defined(iAPX286) || defined(M_I286) || defined(I80286)
489 #   define I286
490 #endif
491
492 #ifndef STANDARD_C
493 #ifdef CHARSPRINTF
494     char *sprintf();
495 #else
496     int sprintf();
497 #endif
498 #endif
499
500 EXT char *Yes INIT("1");
501 EXT char *No INIT("");
502
503 /* "gimme" values */
504
505 /* Note: cmd.c assumes that it can use && to produce one of these values! */
506 #define G_SCALAR 0
507 #define G_ARRAY 1
508
509 #ifdef CRIPPLED_CC
510 int str_true();
511 #else /* !CRIPPLED_CC */
512 #define str_true(str) (Str = (str), \
513         (Str->str_pok ? \
514             ((*Str->str_ptr > '0' || \
515               Str->str_cur > 1 || \
516               (Str->str_cur && *Str->str_ptr != '0')) ? 1 : 0) \
517         : \
518             (Str->str_nok ? (Str->str_u.str_nval != 0.0) : 0 ) ))
519 #endif /* CRIPPLED_CC */
520
521 #ifdef DEBUGGING
522 #define str_peek(str) (Str = (str), \
523         (Str->str_pok ? \
524             Str->str_ptr : \
525             (Str->str_nok ? \
526                 (sprintf(tokenbuf,"num(%g)",Str->str_u.str_nval), \
527                     (char*)tokenbuf) : \
528                 "" )))
529 #endif
530
531 #ifdef CRIPPLED_CC
532 char *str_get();
533 #else
534 #ifdef TAINT
535 #define str_get(str) (Str = (str), tainted |= Str->str_tainted, \
536         (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
537 #else
538 #define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
539 #endif /* TAINT */
540 #endif /* CRIPPLED_CC */
541
542 #ifdef CRIPPLED_CC
543 double str_gnum();
544 #else /* !CRIPPLED_CC */
545 #ifdef TAINT
546 #define str_gnum(str) (Str = (str), tainted |= Str->str_tainted, \
547         (Str->str_nok ? Str->str_u.str_nval : str_2num(Str)))
548 #else /* !TAINT */
549 #define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_u.str_nval : str_2num(Str)))
550 #endif /* TAINT*/
551 #endif /* CRIPPLED_CC */
552 EXT STR *Str;
553
554 #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
555
556 #ifndef MSDOS
557 #define STR_GROW(str,len) if ((str)->str_len < (len)) str_grow(str,len)
558 #define Str_Grow str_grow
559 #else
560 /* extra parentheses intentionally NOT placed around "len"! */
561 #define STR_GROW(str,len) if ((str)->str_len < (unsigned long)len) \
562                 str_grow(str,(unsigned long)len)
563 #define Str_Grow(str,len) str_grow(str,(unsigned long)(len))
564 #endif /* MSDOS */
565
566 #ifndef BYTEORDER
567 #define BYTEORDER 0x1234
568 #endif
569
570 #if defined(htonl) && !defined(HAS_HTONL)
571 #define HAS_HTONL
572 #endif
573 #if defined(htons) && !defined(HAS_HTONS)
574 #define HAS_HTONS
575 #endif
576 #if defined(ntohl) && !defined(HAS_NTOHL)
577 #define HAS_NTOHL
578 #endif
579 #if defined(ntohs) && !defined(HAS_NTOHS)
580 #define HAS_NTOHS
581 #endif
582 #ifndef HAS_HTONL
583 #if (BYTEORDER & 0xffff) != 0x4321
584 #define HAS_HTONS
585 #define HAS_HTONL
586 #define HAS_NTOHS
587 #define HAS_NTOHL
588 #define MYSWAP
589 #define htons my_swap
590 #define htonl my_htonl
591 #define ntohs my_swap
592 #define ntohl my_ntohl
593 #endif
594 #else
595 #if (BYTEORDER & 0xffff) == 0x4321
596 #undef HAS_HTONS
597 #undef HAS_HTONL
598 #undef HAS_NTOHS
599 #undef HAS_NTOHL
600 #endif
601 #endif
602
603 /*
604  * Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'.
605  * -DWS
606  */
607 #if BYTEORDER != 0x1234
608 # define HAS_VTOHL
609 # define HAS_VTOHS
610 # define HAS_HTOVL
611 # define HAS_HTOVS
612 # if BYTEORDER == 0x4321
613 #  define vtohl(x)      ((((x)&0xFF)<<24)       \
614                         +(((x)>>24)&0xFF)       \
615                         +(((x)&0x0000FF00)<<8)  \
616                         +(((x)&0x00FF0000)>>8)  )
617 #  define vtohs(x)      ((((x)&0xFF)<<8) + (((x)>>8)&0xFF))
618 #  define htovl(x)      vtohl(x)
619 #  define htovs(x)      vtohs(x)
620 # endif
621         /* otherwise default to functions in util.c */
622 #endif
623
624 #ifdef CASTNEGFLOAT
625 #define U_S(what) ((unsigned short)(what))
626 #define U_I(what) ((unsigned int)(what))
627 #define U_L(what) ((unsigned long)(what))
628 #else
629 unsigned long castulong();
630 #define U_S(what) ((unsigned int)castulong(what))
631 #define U_I(what) ((unsigned int)castulong(what))
632 #define U_L(what) (castulong(what))
633 #endif
634
635 CMD *add_label();
636 CMD *block_head();
637 CMD *append_line();
638 CMD *make_acmd();
639 CMD *make_ccmd();
640 CMD *make_icmd();
641 CMD *invert();
642 CMD *addcond();
643 CMD *addloop();
644 CMD *wopt();
645 CMD *over();
646
647 STAB *stabent();
648 STAB *genstab();
649
650 ARG *stab2arg();
651 ARG *op_new();
652 ARG *make_op();
653 ARG *make_match();
654 ARG *make_split();
655 ARG *rcatmaybe();
656 ARG *listish();
657 ARG *maybelistish();
658 ARG *localize();
659 ARG *fixeval();
660 ARG *jmaybe();
661 ARG *l();
662 ARG *fixl();
663 ARG *mod_match();
664 ARG *make_list();
665 ARG *cmd_to_arg();
666 ARG *addflags();
667 ARG *hide_ary();
668 ARG *cval_to_arg();
669
670 STR *str_new();
671 STR *stab_str();
672
673 int do_each();
674 int do_subr();
675 int do_match();
676 int do_unpack();
677 int eval();             /* this evaluates expressions */
678 int do_eval();          /* this evaluates eval operator */
679 int do_assign();
680
681 SUBR *make_sub();
682
683 FCMD *load_format();
684
685 char *scanpat();
686 char *scansubst();
687 char *scantrans();
688 char *scanstr();
689 char *scanident();
690 char *str_append_till();
691 char *str_gets();
692 char *str_grow();
693
694 bool do_open();
695 bool do_close();
696 bool do_print();
697 bool do_aprint();
698 bool do_exec();
699 bool do_aexec();
700
701 int do_subst();
702 int cando();
703 int ingroup();
704
705 void str_replace();
706 void str_inc();
707 void str_dec();
708 void str_free();
709 void stab_clear();
710 void do_join();
711 void do_sprintf();
712 void do_accept();
713 void do_pipe();
714 void do_vecset();
715 void do_unshift();
716 void do_execfree();
717 void magicalize();
718 void magicname();
719 void savelist();
720 void saveitem();
721 void saveint();
722 void savelong();
723 void savesptr();
724 void savehptr();
725 void restorelist();
726 void repeatcpy();
727 HASH *savehash();
728 ARRAY *saveary();
729
730 EXT char **origargv;
731 EXT int origargc;
732 EXT char **origenviron;
733 extern char **environ;
734
735 EXT long subline INIT(0);
736 EXT STR *subname INIT(Nullstr);
737 EXT int arybase INIT(0);
738
739 struct outrec {
740     long        o_lines;
741     char        *o_str;
742     int         o_len;
743 };
744
745 EXT struct outrec outrec;
746 EXT struct outrec toprec;
747
748 EXT STAB *stdinstab INIT(Nullstab);
749 EXT STAB *last_in_stab INIT(Nullstab);
750 EXT STAB *defstab INIT(Nullstab);
751 EXT STAB *argvstab INIT(Nullstab);
752 EXT STAB *envstab INIT(Nullstab);
753 EXT STAB *sigstab INIT(Nullstab);
754 EXT STAB *defoutstab INIT(Nullstab);
755 EXT STAB *curoutstab INIT(Nullstab);
756 EXT STAB *argvoutstab INIT(Nullstab);
757 EXT STAB *incstab INIT(Nullstab);
758 EXT STAB *leftstab INIT(Nullstab);
759 EXT STAB *amperstab INIT(Nullstab);
760 EXT STAB *rightstab INIT(Nullstab);
761 EXT STAB *DBstab INIT(Nullstab);
762 EXT STAB *DBline INIT(Nullstab);
763 EXT STAB *DBsub INIT(Nullstab);
764
765 EXT HASH *defstash;             /* main symbol table */
766 EXT HASH *curstash;             /* symbol table for current package */
767 EXT HASH *debstash;             /* symbol table for perldb package */
768
769 EXT STR *curstname;             /* name of current package */
770
771 EXT STR *freestrroot INIT(Nullstr);
772 EXT STR *lastretstr INIT(Nullstr);
773 EXT STR *DBsingle INIT(Nullstr);
774 EXT STR *DBtrace INIT(Nullstr);
775 EXT STR *DBsignal INIT(Nullstr);
776
777 EXT int lastspbase;
778 EXT int lastsize;
779
780 EXT char *hexdigit INIT("0123456789abcdef0123456789ABCDEFx");
781 EXT char *origfilename;
782 EXT FILE * VOLATILE rsfp;
783 EXT char buf[1024];
784 EXT char *bufptr;
785 EXT char *oldbufptr;
786 EXT char *oldoldbufptr;
787 EXT char *bufend;
788
789 EXT STR *linestr INIT(Nullstr);
790
791 EXT char *rs INIT("\n");
792 EXT int rschar INIT('\n');      /* final char of rs, or 0777 if none */
793 EXT int rslen INIT(1);
794 EXT char *ofs INIT(Nullch);
795 EXT int ofslen INIT(0);
796 EXT char *ors INIT(Nullch);
797 EXT int orslen INIT(0);
798 EXT char *ofmt INIT(Nullch);
799 EXT char *inplace INIT(Nullch);
800 EXT char *nointrp INIT("");
801
802 EXT bool preprocess INIT(FALSE);
803 EXT bool minus_n INIT(FALSE);
804 EXT bool minus_p INIT(FALSE);
805 EXT bool minus_l INIT(FALSE);
806 EXT bool minus_a INIT(FALSE);
807 EXT bool doswitches INIT(FALSE);
808 EXT bool dowarn INIT(FALSE);
809 EXT bool doextract INIT(FALSE);
810 EXT bool allstabs INIT(FALSE);  /* init all customary symbols in symbol table?*/
811 EXT bool sawampersand INIT(FALSE);      /* must save all match strings */
812 EXT bool sawstudy INIT(FALSE);          /* do fbminstr on all strings */
813 EXT bool sawi INIT(FALSE);              /* study must assume case insensitive */
814 EXT bool sawvec INIT(FALSE);
815 EXT bool localizing INIT(FALSE);        /* are we processing a local() list? */
816
817 #ifndef MAXSYSFD
818 #   define MAXSYSFD 2
819 #endif
820 EXT int maxsysfd INIT(MAXSYSFD);        /* top fd to pass to subprocesses */
821
822 #ifdef CSH
823 char *cshname INIT(CSH);
824 int cshlen INIT(0);
825 #endif /* CSH */
826
827 #ifdef TAINT
828 EXT bool tainted INIT(FALSE);           /* using variables controlled by $< */
829 #endif
830
831 #ifndef MSDOS
832 #define TMPPATH "/tmp/perl-eXXXXXX"
833 #else
834 #define TMPPATH "plXXXXXX"
835 #endif /* MSDOS */
836 EXT char *e_tmpname;
837 EXT FILE *e_fp INIT(Nullfp);
838
839 EXT char tokenbuf[256];
840 EXT int expectterm INIT(TRUE);          /* how to interpret ambiguous tokens */
841 EXT VOLATILE int in_eval INIT(FALSE);   /* trap fatal errors? */
842 EXT int multiline INIT(0);              /* $*--do strings hold >1 line? */
843 EXT int forkprocess;                    /* so do_open |- can return proc# */
844 EXT int do_undump INIT(0);              /* -u or dump seen? */
845 EXT int error_count INIT(0);            /* how many errors so far, max 10 */
846 EXT int multi_start INIT(0);            /* 1st line of multi-line string */
847 EXT int multi_end INIT(0);              /* last line of multi-line string */
848 EXT int multi_open INIT(0);             /* delimiter of said string */
849 EXT int multi_close INIT(0);            /* delimiter of said string */
850
851 FILE *popen();
852 /* char *str_get(); */
853 STR *interp();
854 void free_arg();
855 STIO *stio_new();
856 void hoistmust();
857 void scanconst();
858
859 EXT struct stat statbuf;
860 EXT struct stat statcache;
861 STAB *statstab INIT(Nullstab);
862 STR *statname;
863 #ifndef MSDOS
864 EXT struct tms timesbuf;
865 #endif
866 EXT int uid;
867 EXT int euid;
868 EXT int gid;
869 EXT int egid;
870 UIDTYPE getuid();
871 UIDTYPE geteuid();
872 GIDTYPE getgid();
873 GIDTYPE getegid();
874 EXT int unsafe;
875
876 #ifdef DEBUGGING
877 EXT VOLATILE int debug INIT(0);
878 EXT int dlevel INIT(0);
879 EXT int dlmax INIT(128);
880 EXT char *debname;
881 EXT char *debdelim;
882 #define YYDEBUG 1
883 #endif
884 EXT int perldb INIT(0);
885 #define YYMAXDEPTH 300
886
887 EXT line_t cmdline INIT(NOLINE);
888
889 EXT STR str_undef;
890 EXT STR str_no;
891 EXT STR str_yes;
892
893 /* runtime control stuff */
894
895 EXT struct loop {
896     char *loop_label;           /* what the loop was called, if anything */
897     int loop_sp;                /* stack pointer to copy stuff down to */
898     jmp_buf loop_env;
899 } *loop_stack;
900
901 EXT int loop_ptr INIT(-1);
902 EXT int loop_max INIT(128);
903
904 EXT jmp_buf top_env;
905
906 EXT char * VOLATILE goto_targ INIT(Nullch); /* cmd_exec gets strange when set */
907
908 struct ufuncs {
909     int (*uf_val)();
910     int (*uf_set)();
911     int uf_index;
912 };
913
914 EXT ARRAY *stack;               /* THE STACK */
915
916 EXT ARRAY * VOLATILE savestack;         /* to save non-local values on */
917
918 EXT ARRAY *tosave;              /* strings to save on recursive subroutine */
919
920 EXT ARRAY *lineary;             /* lines of script for debugger */
921 EXT ARRAY *dbargs;              /* args to call listed by caller function */
922
923 EXT ARRAY *fdpid;               /* keep fd-to-pid mappings for mypopen */
924 EXT HASH *pidstatus;            /* keep pid-to-status mappings for waitpid */
925
926 EXT int *di;                    /* for tmp use in debuggers */
927 EXT char *dc;
928 EXT short *ds;
929
930 /* Fix these up for __STDC__ */
931 EXT long basetime INIT(0);
932 char *mktemp();
933 #ifndef STANDARD_C
934 /* All of these are in stdlib.h or time.h for ANSI C */
935 double atof();
936 long time();
937 struct tm *gmtime(), *localtime();
938 char *index(), *rindex();
939 char *strcpy(), *strcat();
940 #endif /* ! STANDARD_C */
941
942 #ifdef EUNICE
943 #define UNLINK unlnk
944 int unlnk();
945 #else
946 #define UNLINK unlink
947 #endif
948
949 #ifndef HAS_SETREUID
950 #ifdef HAS_SETRESUID
951 #define setreuid(r,e) setresuid(r,e,-1)
952 #define HAS_SETREUID
953 #endif
954 #endif
955 #ifndef HAS_SETREGID
956 #ifdef HAS_SETRESGID
957 #define setregid(r,e) setresgid(r,e,-1)
958 #define HAS_SETREGID
959 #endif
960 #endif