perl.h

   1 /* $Header: perl.h,v 3.0.1.11 91/01/11 18:10:57 lwall Locked $
   2  *
   3  *    Copyright (c) 1989, Larry Wall
   4  *
   5  *    You may distribute under the terms of the GNU General Public License
   6  *    as specified in the README file that comes with the perl 3.0 kit.
   7  *
   8  * $Log:        perl.h,v $
   9  * Revision 3.0.1.11  91/01/11  18:10:57  lwall
  10  * patch42: ANSIfied the stat mode checking
  11  *
  12  * Revision 3.0.1.10  90/11/10  01:44:13  lwall
  13  * patch38: more msdos/os2 upgrades
  14  *
  15  * Revision 3.0.1.9  90/10/15  17:59:41  lwall
  16  * patch29: some machines didn't like unsigned C preprocessor values
  17  *
  18  * Revision 3.0.1.8  90/08/09  04:10:53  lwall
  19  * patch19: various MSDOS and OS/2 patches folded in
  20  * patch19: did preliminary work toward debugging packages and evals
  21  * patch19: added -x switch to extract script from input trash
  22  *
  23  * Revision 3.0.1.7  90/03/27  16:12:52  lwall
  24  * patch16: MSDOS support
  25  * patch16: support for machines that can't cast negative floats to unsigned ints
  26  *
  27  * Revision 3.0.1.6  90/03/12  16:40:43  lwall
  28  * patch13: did some ndir straightening up for Xenix
  29  *
  30  * Revision 3.0.1.5  90/02/28  17:52:28  lwall
  31  * patch9: Configure now determines whether volatile is supported
  32  * patch9: volatilized some more variables for super-optimizing compilers
  33  * patch9: unused VREG symbol deleted
  34  * patch9: perl can now start up other interpreters scripts
  35  * patch9: you may now undef $/ to have no input record separator
  36  * patch9: nested evals clobbered their longjmp environment
  37  *
  38  * Revision 3.0.1.4  89/12/21  20:07:35  lwall
  39  * patch7: arranged for certain registers to be restored after longjmp()
  40  * patch7: Configure now compiles a test program to figure out time.h fiasco
  41  * patch7: Configure now detects DG/UX thingies like [sg]etpgrp2 and utime.h
  42  * patch7: memcpy() and memset() return void in __STDC__
  43  * patch7: errno may now be a macro with an lvalue
  44  * patch7: ANSI strerror() is now supported
  45  * patch7: Xenix support for sys/ndir.h, cross compilation
  46  *
  47  * Revision 3.0.1.3  89/11/17  15:28:57  lwall
  48  * patch5: byteorder now is a hex value
  49  * patch5: Configure now looks for <time.h> including <sys/time.h>
  50  *
  51  * Revision 3.0.1.2  89/11/11  04:39:38  lwall
  52  * patch2: Configure may now set -DDEBUGGING
  53  * patch2: netinet/in.h needed sys/types.h some places
  54  * patch2: more <sys/time.h> and <time.h> wrangling
  55  * patch2: yydebug moved to where type doesn't matter
  56  *
  57  * Revision 3.0.1.1  89/10/26  23:17:08  lwall
  58  * patch1: vfork now conditionally defined based on VFORK
  59  * patch1: DEC risc machines have a buggy memcmp
  60  * patch1: perl.h now includes <netinet/in.h> if it exists
  61  *
  62  * Revision 3.0  89/10/18  15:21:21  lwall
  63  * 3.0 baseline
  64  *
  65  */
  66
  67 #define VOIDUSED 1
  68 #include "config.h"
  69
  70 #ifdef MSDOS
  71 /*
  72  * BUGGY_MSC:
  73  *      This symbol is defined if you are the unfortunate owner of a buggy
  74  *      Microsoft C compiler and want to use intrinsic functions.  Versions
  75  *      up to 5.1 are known conform to this definition.  This is not needed
  76  *      under Unix.
  77  */
  78 #define BUGGY_MSC                       /**/
  79 /*
  80  * BINARY:
  81  *      This symbol is defined if you run under an operating system that
  82  *      distinguishes between binary and text files.  If so the function
  83  *      setmode will be used to set the file into binary mode.  Unix
  84  *      doesn't distinguish.
  85  */
  86 #define BINARY                          /**/
  87
  88 #define I_FCNTL
  89
  90 #else /* !MSDOS */
  91
  92 /*
  93  * The following symbols are defined if your operating system supports
  94  * functions by that name.  All Unixes I know of support them, thus they
  95  * are not checked by the configuration script, but are directly defined
  96  * here.
  97  */
  98 #define CHOWN
  99 #define CHROOT
 100 #define FORK
 101 #define GETLOGIN
 102 #define GETPPID
 103 #define KILL
 104 #define LINK
 105 #define PIPE
 106 #define WAIT
 107 #define UMASK
 108 /*
 109  * The following symbols are defined if your operating system supports
 110  * password and group functions in general.  All Unix systems do.
 111  */
 112 #define GROUP
 113 #define PASSWD
 114
 115 #endif /* !MSDOS */
 116
 117 #if defined(HASVOLATILE) || defined(__STDC__)
 118 #define VOLATILE volatile
 119 #else
 120 #define VOLATILE
 121 #endif
 122
 123 #ifdef IAMSUID
 124 #   ifndef TAINT
 125 #       define TAINT
 126 #   endif
 127 #endif
 128
 129 #ifndef VFORK
 130 #   define vfork fork
 131 #endif
 132
 133 #ifdef GETPGRP2
 134 #   ifndef GETPGRP
 135 #       define GETPGRP
 136 #   endif
 137 #   define getpgrp getpgrp2
 138 #endif
 139
 140 #ifdef SETPGRP2
 141 #   ifndef SETPGRP
 142 #       define SETPGRP
 143 #   endif
 144 #   define setpgrp setpgrp2
 145 #endif
 146
 147 #if defined(MEMCMP) && defined(mips) && BYTEORDER == 0x1234
 148 #undef MEMCMP
 149 #endif
 150
 151 #ifdef MEMCPY
 152 #ifndef memcpy
 153 #if defined(__STDC__ ) || defined(MSDOS)
 154 extern void *memcpy(), *memset();
 155 #else
 156 extern char *memcpy(), *memset();
 157 #endif
 158 extern int memcmp();
 159 #endif
 160 #define bcopy(s1,s2,l) memcpy(s2,s1,l)
 161 #define bzero(s,l) memset(s,0,l)
 162 #endif
 163 #ifndef BCMP            /* prefer bcmp slightly 'cuz it doesn't order */
 164 #define bcmp(s1,s2,l) memcmp(s1,s2,l)
 165 #endif
 166
 167 #include <stdio.h>
 168 #include <ctype.h>
 169 #include <setjmp.h>
 170 #ifndef MSDOS
 171 #include <sys/param.h>  /* if this needs types.h we're still wrong */
 172 #endif
 173
 174 #ifndef _TYPES_         /* If types.h defines this it's easy. */
 175 #ifndef major           /* Does everyone's types.h define this? */
 176 #include <sys/types.h>
 177 #endif
 178 #endif
 179
 180 #ifdef I_NETINET_IN
 181 #include <netinet/in.h>
 182 #endif
 183
 184 #include <sys/stat.h>
 185
 186 #ifdef I_TIME
 187 #   include <time.h>
 188 #endif
 189
 190 #ifdef I_SYSTIME
 191 #   ifdef SYSTIMEKERNEL
 192 #       define KERNEL
 193 #   endif
 194 #   include <sys/time.h>
 195 #   ifdef SYSTIMEKERNEL
 196 #       undef KERNEL
 197 #   endif
 198 #endif
 199
 200 #ifndef MSDOS
 201 #include <sys/times.h>
 202 #endif
 203
 204 #if defined(STRERROR) && (!defined(MKDIR) || !defined(RMDIR))
 205 #undef STRERROR
 206 #endif
 207
 208 #include <errno.h>
 209 #ifndef MSDOS
 210 #ifndef errno
 211 extern int errno;     /* ANSI allows errno to be an lvalue expr */
 212 #endif
 213 #endif
 214
 215 #ifdef STRERROR
 216 char *strerror();
 217 #else
 218 extern int sys_nerr;
 219 extern char *sys_errlist[];
 220 #define strerror(e) ((e) < 0 || (e) >= sys_nerr ? "(unknown)" : sys_errlist[e])
 221 #endif
 222
 223 #ifdef I_SYSIOCTL
 224 #ifndef _IOCTL_
 225 #include <sys/ioctl.h>
 226 #endif
 227 #endif
 228
 229 #if defined(mc300) || defined(mc500) || defined(mc700)  /* MASSCOMP */
 230 #ifdef SOCKETPAIR
 231 #undef SOCKETPAIR
 232 #endif
 233 #ifdef NDBM
 234 #undef NDBM
 235 #endif
 236 #endif
 237
 238 #ifdef NDBM
 239 #include <ndbm.h>
 240 #define SOME_DBM
 241 #ifdef ODBM
 242 #undef ODBM
 243 #endif
 244 #else
 245 #ifdef ODBM
 246 #ifdef NULL
 247 #undef NULL             /* suppress redefinition message */
 248 #endif
 249 #include <dbm.h>
 250 #ifdef NULL
 251 #undef NULL
 252 #endif
 253 #define NULL 0          /* silly thing is, we don't even use this */
 254 #define SOME_DBM
 255 #define dbm_fetch(db,dkey) fetch(dkey)
 256 #define dbm_delete(db,dkey) delete(dkey)
 257 #define dbm_store(db,dkey,dcontent,flags) store(dkey,dcontent)
 258 #define dbm_close(db) dbmclose()
 259 #define dbm_firstkey(db) firstkey()
 260 #endif /* ODBM */
 261 #endif /* NDBM */
 262 #ifdef SOME_DBM
 263 EXT char *dbmkey;
 264 EXT int dbmlen;
 265 #endif
 266
 267 #if INTSIZE == 2
 268 #define htoni htons
 269 #define ntohi ntohs
 270 #else
 271 #define htoni htonl
 272 #define ntohi ntohl
 273 #endif
 274
 275 #if defined(I_DIRENT) && !defined(M_XENIX)
 276 #   include <dirent.h>
 277 #   define DIRENT dirent
 278 #else
 279 #   ifdef I_SYSNDIR
 280 #       include <sys/ndir.h>
 281 #       define DIRENT direct
 282 #   else
 283 #       ifdef I_SYSDIR
 284 #           ifdef hp9000s500
 285 #               include <ndir.h>        /* may be wrong in the future */
 286 #           else
 287 #               include <sys/dir.h>
 288 #           endif
 289 #           define DIRENT direct
 290 #       endif
 291 #   endif
 292 #endif
 293
 294 /*
 295  * The following gobbledygook brought to you on behalf of __STDC__.
 296  * (I could just use #ifndef __STDC__, but this is more bulletproof
 297  * in the face of half-implementations.)
 298  */
 299
 300 #ifndef S_IFMT
 301 #   ifdef _S_IFMT
 302 #       define S_IFMT _S_IFMT
 303 #   else
 304 #       define S_IFMT 0170000
 305 #   endif
 306 #endif
 307
 308 #ifndef S_ISDIR
 309 #   define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR)
 310 #endif
 311
 312 #ifndef S_ISCHR
 313 #   define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR)
 314 #endif
 315
 316 #ifndef S_ISBLK
 317 #   define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK)
 318 #endif
 319
 320 #ifndef S_ISREG
 321 #   define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
 322 #endif
 323
 324 #ifndef S_ISFIFO
 325 #   define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO)
 326 #endif
 327
 328 #ifndef S_ISLNK
 329 #   ifdef _S_ISLNK
 330 #       define S_ISLNK(m) _S_ISLNK(m)
 331 #   else
 332 #       ifdef _S_IFLNK
 333 #           define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK)
 334 #       else
 335 #           ifdef S_IFLNK
 336 #               define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK)
 337 #           else
 338 #               define S_ISLNK(m) (0)
 339 #           endif
 340 #       endif
 341 #   endif
 342 #endif
 343
 344 #ifndef S_ISSOCK
 345 #   ifdef _S_ISSOCK
 346 #       define S_ISSOCK(m) _S_ISSOCK(m)
 347 #   else
 348 #       ifdef _S_IFSOCK
 349 #           define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK)
 350 #       else
 351 #           ifdef S_IFSOCK
 352 #               define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK)
 353 #           else
 354 #               define S_ISSOCK(m) (0)
 355 #           endif
 356 #       endif
 357 #   endif
 358 #endif
 359
 360 #ifndef S_IRUSR
 361 #   ifdef S_IREAD
 362 #       define S_IRUSR S_IREAD
 363 #       define S_IWUSR S_IWRITE
 364 #       define S_IXUSR S_IEXEC
 365 #   else
 366 #       define S_IRUSR 0400
 367 #       define S_IWUSR 0200
 368 #       define S_IXUSR 0100
 369 #   endif
 370 #   define S_IRGRP (S_IRUSR>>3)
 371 #   define S_IWGRP (S_IWUSR>>3)
 372 #   define S_IXGRP (S_IXUSR>>3)
 373 #   define S_IROTH (S_IRUSR>>6)
 374 #   define S_IWOTH (S_IWUSR>>6)
 375 #   define S_IXOTH (S_IXUSR>>6)
 376 #endif
 377
 378 #ifndef S_ISUID
 379 #   define S_ISUID 04000
 380 #endif
 381
 382 #ifndef S_ISGID
 383 #   define S_ISGID 02000
 384 #endif
 385
 386 typedef unsigned int STRLEN;
 387
 388 typedef struct arg ARG;
 389 typedef struct cmd CMD;
 390 typedef struct formcmd FCMD;
 391 typedef struct scanpat SPAT;
 392 typedef struct stio STIO;
 393 typedef struct sub SUBR;
 394 typedef struct string STR;
 395 typedef struct atbl ARRAY;
 396 typedef struct htbl HASH;
 397 typedef struct regexp REGEXP;
 398 typedef struct stabptrs STBP;
 399 typedef struct stab STAB;
 400 typedef struct callsave CSV;
 401
 402 #include "handy.h"
 403 #include "regexp.h"
 404 #include "str.h"
 405 #include "util.h"
 406 #include "form.h"
 407 #include "stab.h"
 408 #include "spat.h"
 409 #include "arg.h"
 410 #include "cmd.h"
 411 #include "array.h"
 412 #include "hash.h"
 413
 414 #if defined(iAPX286) || defined(M_I286) || defined(I80286)
 415 #   define I286
 416 #endif
 417
 418 #ifndef __STDC__
 419 #ifdef CHARSPRINTF
 420     char *sprintf();
 421 #else
 422     int sprintf();
 423 #endif
 424 #endif
 425
 426 EXT char *Yes INIT("1");
 427 EXT char *No INIT("");
 428
 429 /* "gimme" values */
 430
 431 /* Note: cmd.c assumes that it can use && to produce one of these values! */
 432 #define G_SCALAR 0
 433 #define G_ARRAY 1
 434
 435 #ifdef CRIPPLED_CC
 436 int str_true();
 437 #else /* !CRIPPLED_CC */
 438 #define str_true(str) (Str = (str), \
 439         (Str->str_pok ? \
 440             ((*Str->str_ptr > '0' || \
 441               Str->str_cur > 1 || \
 442               (Str->str_cur && *Str->str_ptr != '0')) ? 1 : 0) \
 443         : \
 444             (Str->str_nok ? (Str->str_u.str_nval != 0.0) : 0 ) ))
 445 #endif /* CRIPPLED_CC */
 446
 447 #ifdef DEBUGGING
 448 #define str_peek(str) (Str = (str), \
 449         (Str->str_pok ? \
 450             Str->str_ptr : \
 451             (Str->str_nok ? \
 452                 (sprintf(tokenbuf,"num(%g)",Str->str_u.str_nval), \
 453                     (char*)tokenbuf) : \
 454                 "" )))
 455 #endif
 456
 457 #ifdef CRIPPLED_CC
 458 char *str_get();
 459 #else
 460 #ifdef TAINT
 461 #define str_get(str) (Str = (str), tainted |= Str->str_tainted, \
 462         (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
 463 #else
 464 #define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str)))
 465 #endif /* TAINT */
 466 #endif /* CRIPPLED_CC */
 467
 468 #ifdef CRIPPLED_CC
 469 double str_gnum();
 470 #else /* !CRIPPLED_CC */
 471 #ifdef TAINT
 472 #define str_gnum(str) (Str = (str), tainted |= Str->str_tainted, \
 473         (Str->str_nok ? Str->str_u.str_nval : str_2num(Str)))
 474 #else /* !TAINT */
 475 #define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_u.str_nval : str_2num(Str)))
 476 #endif /* TAINT*/
 477 #endif /* CRIPPLED_CC */
 478 EXT STR *Str;
 479
 480 #define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len)
 481
 482 #ifndef MSDOS
 483 #define STR_GROW(str,len) if ((str)->str_len < (len)) str_grow(str,len)
 484 #define Str_Grow str_grow
 485 #else
 486 /* extra parentheses intentionally NOT placed around "len"! */
 487 #define STR_GROW(str,len) if ((str)->str_len < (unsigned long)len) \
 488                 str_grow(str,(unsigned long)len)
 489 #define Str_Grow(str,len) str_grow(str,(unsigned long)(len))
 490 #endif /* MSDOS */
 491
 492 #ifndef BYTEORDER
 493 #define BYTEORDER 0x1234
 494 #endif
 495
 496 #if defined(htonl) && !defined(HTONL)
 497 #define HTONL
 498 #endif
 499 #if defined(htons) && !defined(HTONS)
 500 #define HTONS
 501 #endif
 502 #if defined(ntohl) && !defined(NTOHL)
 503 #define NTOHL
 504 #endif
 505 #if defined(ntohs) && !defined(NTOHS)
 506 #define NTOHS
 507 #endif
 508 #ifndef HTONL
 509 #if (BYTEORDER & 0xffff) != 0x4321
 510 #define HTONS
 511 #define HTONL
 512 #define NTOHS
 513 #define NTOHL
 514 #define MYSWAP
 515 #define htons my_swap
 516 #define htonl my_htonl
 517 #define ntohs my_swap
 518 #define ntohl my_ntohl
 519 #endif
 520 #else
 521 #if (BYTEORDER & 0xffff) == 0x4321
 522 #undef HTONS
 523 #undef HTONL
 524 #undef NTOHS
 525 #undef NTOHL
 526 #endif
 527 #endif
 528
 529 #ifdef CASTNEGFLOAT
 530 #define U_S(what) ((unsigned short)(what))
 531 #define U_I(what) ((unsigned int)(what))
 532 #define U_L(what) ((unsigned long)(what))
 533 #else
 534 unsigned long castulong();
 535 #define U_S(what) ((unsigned int)castulong(what))
 536 #define U_I(what) ((unsigned int)castulong(what))
 537 #define U_L(what) (castulong(what))
 538 #endif
 539
 540 CMD *add_label();
 541 CMD *block_head();
 542 CMD *append_line();
 543 CMD *make_acmd();
 544 CMD *make_ccmd();
 545 CMD *make_icmd();
 546 CMD *invert();
 547 CMD *addcond();
 548 CMD *addloop();
 549 CMD *wopt();
 550 CMD *over();
 551
 552 STAB *stabent();
 553 STAB *genstab();
 554
 555 ARG *stab2arg();
 556 ARG *op_new();
 557 ARG *make_op();
 558 ARG *make_match();
 559 ARG *make_split();
 560 ARG *rcatmaybe();
 561 ARG *listish();
 562 ARG *maybelistish();
 563 ARG *localize();
 564 ARG *fixeval();
 565 ARG *jmaybe();
 566 ARG *l();
 567 ARG *fixl();
 568 ARG *mod_match();
 569 ARG *make_list();
 570 ARG *cmd_to_arg();
 571 ARG *addflags();
 572 ARG *hide_ary();
 573 ARG *cval_to_arg();
 574
 575 STR *str_new();
 576 STR *stab_str();
 577
 578 int do_each();
 579 int do_subr();
 580 int do_match();
 581 int do_unpack();
 582 int eval();             /* this evaluates expressions */
 583 int do_eval();          /* this evaluates eval operator */
 584 int do_assign();
 585
 586 SUBR *make_sub();
 587
 588 FCMD *load_format();
 589
 590 char *scanpat();
 591 char *scansubst();
 592 char *scantrans();
 593 char *scanstr();
 594 char *scanreg();
 595 char *str_append_till();
 596 char *str_gets();
 597 char *str_grow();
 598
 599 bool do_open();
 600 bool do_close();
 601 bool do_print();
 602 bool do_aprint();
 603 bool do_exec();
 604 bool do_aexec();
 605
 606 int do_subst();
 607 int cando();
 608 int ingroup();
 609
 610 void str_replace();
 611 void str_inc();
 612 void str_dec();
 613 void str_free();
 614 void stab_clear();
 615 void do_join();
 616 void do_sprintf();
 617 void do_accept();
 618 void do_pipe();
 619 void do_vecset();
 620 void savelist();
 621 void saveitem();
 622 void saveint();
 623 void savelong();
 624 void savesptr();
 625 void savehptr();
 626 void restorelist();
 627 void repeatcpy();
 628 HASH *savehash();
 629 ARRAY *saveary();
 630
 631 EXT char **origargv;
 632 EXT int origargc;
 633 EXT line_t subline INIT(0);
 634 EXT STR *subname INIT(Nullstr);
 635 EXT int arybase INIT(0);
 636
 637 struct outrec {
 638     long        o_lines;
 639     char        *o_str;
 640     int         o_len;
 641 };
 642
 643 EXT struct outrec outrec;
 644 EXT struct outrec toprec;
 645
 646 EXT STAB *stdinstab INIT(Nullstab);
 647 EXT STAB *last_in_stab INIT(Nullstab);
 648 EXT STAB *defstab INIT(Nullstab);
 649 EXT STAB *argvstab INIT(Nullstab);
 650 EXT STAB *envstab INIT(Nullstab);
 651 EXT STAB *sigstab INIT(Nullstab);
 652 EXT STAB *defoutstab INIT(Nullstab);
 653 EXT STAB *curoutstab INIT(Nullstab);
 654 EXT STAB *argvoutstab INIT(Nullstab);
 655 EXT STAB *incstab INIT(Nullstab);
 656 EXT STAB *leftstab INIT(Nullstab);
 657 EXT STAB *amperstab INIT(Nullstab);
 658 EXT STAB *rightstab INIT(Nullstab);
 659 EXT STAB *DBstab INIT(Nullstab);
 660 EXT STAB *DBline INIT(Nullstab);
 661 EXT STAB *DBsub INIT(Nullstab);
 662
 663 EXT HASH *defstash;             /* main symbol table */
 664 EXT HASH *curstash;             /* symbol table for current package */
 665 EXT HASH *debstash;             /* symbol table for perldb package */
 666
 667 EXT STR *curstname;             /* name of current package */
 668
 669 EXT STR *freestrroot INIT(Nullstr);
 670 EXT STR *lastretstr INIT(Nullstr);
 671 EXT STR *DBsingle INIT(Nullstr);
 672 EXT STR *DBtrace INIT(Nullstr);
 673 EXT STR *DBsignal INIT(Nullstr);
 674
 675 EXT int lastspbase;
 676 EXT int lastsize;
 677
 678 EXT char *origfilename;
 679 EXT FILE * VOLATILE rsfp;
 680 EXT char buf[1024];
 681 EXT char *bufptr;
 682 EXT char *oldbufptr;
 683 EXT char *oldoldbufptr;
 684 EXT char *bufend;
 685
 686 EXT STR *linestr INIT(Nullstr);
 687
 688 EXT int record_separator INIT('\n');
 689 EXT int rslen INIT(1);
 690 EXT char *ofs INIT(Nullch);
 691 EXT int ofslen INIT(0);
 692 EXT char *ors INIT(Nullch);
 693 EXT int orslen INIT(0);
 694 EXT char *ofmt INIT(Nullch);
 695 EXT char *inplace INIT(Nullch);
 696 EXT char *nointrp INIT("");
 697
 698 EXT bool preprocess INIT(FALSE);
 699 EXT bool minus_n INIT(FALSE);
 700 EXT bool minus_p INIT(FALSE);
 701 EXT bool minus_a INIT(FALSE);
 702 EXT bool doswitches INIT(FALSE);
 703 EXT bool dowarn INIT(FALSE);
 704 EXT bool doextract INIT(FALSE);
 705 EXT bool allstabs INIT(FALSE);  /* init all customary symbols in symbol table?*/
 706 EXT bool sawampersand INIT(FALSE);      /* must save all match strings */
 707 EXT bool sawstudy INIT(FALSE);          /* do fbminstr on all strings */
 708 EXT bool sawi INIT(FALSE);              /* study must assume case insensitive */
 709 EXT bool sawvec INIT(FALSE);
 710 EXT bool localizing INIT(FALSE);        /* are we processing a local() list? */
 711
 712 #ifdef CSH
 713 char *cshname INIT(CSH);
 714 int cshlen INIT(0);
 715 #endif /* CSH */
 716
 717 #ifdef TAINT
 718 EXT bool tainted INIT(FALSE);           /* using variables controlled by $< */
 719 #endif
 720
 721 #ifndef MSDOS
 722 #define TMPPATH "/tmp/perl-eXXXXXX"
 723 #else
 724 #define TMPPATH "plXXXXXX"
 725 #endif /* MSDOS */
 726 EXT char *e_tmpname;
 727 EXT FILE *e_fp INIT(Nullfp);
 728
 729 EXT char tokenbuf[256];
 730 EXT int expectterm INIT(TRUE);          /* how to interpret ambiguous tokens */
 731 EXT VOLATILE int in_eval INIT(FALSE);   /* trap fatal errors? */
 732 EXT int multiline INIT(0);              /* $*--do strings hold >1 line? */
 733 EXT int forkprocess;                    /* so do_open |- can return proc# */
 734 EXT int do_undump INIT(0);              /* -u or dump seen? */
 735 EXT int error_count INIT(0);            /* how many errors so far, max 10 */
 736 EXT int multi_start INIT(0);            /* 1st line of multi-line string */
 737 EXT int multi_end INIT(0);              /* last line of multi-line string */
 738 EXT int multi_open INIT(0);             /* delimiter of said string */
 739 EXT int multi_close INIT(0);            /* delimiter of said string */
 740
 741 FILE *popen();
 742 /* char *str_get(); */
 743 STR *interp();
 744 void free_arg();
 745 STIO *stio_new();
 746
 747 EXT struct stat statbuf;
 748 EXT struct stat statcache;
 749 STAB *statstab INIT(Nullstab);
 750 STR *statname;
 751 #ifndef MSDOS
 752 EXT struct tms timesbuf;
 753 #endif
 754 EXT int uid;
 755 EXT int euid;
 756 EXT int gid;
 757 EXT int egid;
 758 UIDTYPE getuid();
 759 UIDTYPE geteuid();
 760 GIDTYPE getgid();
 761 GIDTYPE getegid();
 762 EXT int unsafe;
 763
 764 #ifdef DEBUGGING
 765 EXT VOLATILE int debug INIT(0);
 766 EXT int dlevel INIT(0);
 767 EXT int dlmax INIT(128);
 768 EXT char *debname;
 769 EXT char *debdelim;
 770 #define YYDEBUG 1
 771 #endif
 772 EXT int perldb INIT(0);
 773
 774 EXT line_t cmdline INIT(NOLINE);
 775
 776 EXT STR str_undef;
 777 EXT STR str_no;
 778 EXT STR str_yes;
 779
 780 /* runtime control stuff */
 781
 782 EXT struct loop {
 783     char *loop_label;           /* what the loop was called, if anything */
 784     int loop_sp;                /* stack pointer to copy stuff down to */
 785     jmp_buf loop_env;
 786 } *loop_stack;
 787
 788 EXT int loop_ptr INIT(-1);
 789 EXT int loop_max INIT(128);
 790
 791 EXT jmp_buf top_env;
 792
 793 EXT char * VOLATILE goto_targ INIT(Nullch); /* cmd_exec gets strange when set */
 794
 795 struct ufuncs {
 796     int (*uf_val)();
 797     int (*uf_set)();
 798     int uf_index;
 799 };
 800
 801 EXT ARRAY *stack;               /* THE STACK */
 802
 803 EXT ARRAY * VOLATILE savestack;         /* to save non-local values on */
 804
 805 EXT ARRAY *tosave;              /* strings to save on recursive subroutine */
 806
 807 EXT ARRAY *lineary;             /* lines of script for debugger */
 808 EXT ARRAY *dbargs;              /* args to call listed by caller function */
 809
 810 EXT ARRAY *fdpid;               /* keep fd-to-pid mappings for mypopen */
 811 EXT HASH *pidstatus;            /* keep pid-to-status mappings for waitpid */
 812
 813 EXT int *di;                    /* for tmp use in debuggers */
 814 EXT char *dc;
 815 EXT short *ds;
 816
 817 double atof();
 818 long time();
 819 EXT long basetime INIT(0);
 820 struct tm *gmtime(), *localtime();
 821 char *mktemp();
 822 char *index(), *rindex();
 823 char *strcpy(), *strcat();
 824
 825 #ifdef EUNICE
 826 #define UNLINK unlnk
 827 int unlnk();
 828 #else
 829 #define UNLINK unlink
 830 #endif
 831
 832 #ifndef SETREUID
 833 #ifdef SETRESUID
 834 #define setreuid(r,e) setresuid(r,e,-1)
 835 #define SETREUID
 836 #endif
 837 #endif
 838 #ifndef SETREGID
 839 #ifdef SETRESGID
 840 #define setregid(r,e) setresgid(r,e,-1)
 841 #define SETREGID
 842 #endif
 843 #endif