X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.h;h=bfb921034c849073d4dfbdd9bfe6e7622e94bd7b;hb=e4a57b87c8cc32c980ff39b209f2f28d7a77f013;hp=2f7131f516c9a304c1ea008156bb905bfe6327b7;hpb=ae98613044a1084886d80b8283b25bad38cfd171;p=p5sagit%2Fp5-mst-13.2.git diff --git a/perl.h b/perl.h index 2f7131f..bfb9210 100644 --- a/perl.h +++ b/perl.h @@ -1,264 +1,653 @@ -/* $Header: perl.h,v 3.0.1.2 89/11/11 04:39:38 lwall Locked $ +/* perl.h * - * Copyright (c) 1989, Larry Wall + * Copyright (c) 1987-1994, Larry Wall * - * You may distribute under the terms of the GNU General Public License - * as specified in the README file that comes with the perl 3.0 kit. + * You may distribute under the terms of either the GNU General Public + * License or the Artistic License, as specified in the README file. * - * $Log: perl.h,v $ - * Revision 3.0.1.2 89/11/11 04:39:38 lwall - * patch2: Configure may now set -DDEBUGGING - * patch2: netinet/in.h needed sys/types.h some places - * patch2: more and wrangling - * patch2: yydebug moved to where type doesn't matter - * - * Revision 3.0.1.1 89/10/26 23:17:08 lwall - * patch1: vfork now conditionally defined based on VFORK - * patch1: DEC risc machines have a buggy memcmp - * patch1: perl.h now includes if it exists - * - * Revision 3.0 89/10/18 15:21:21 lwall - * 3.0 baseline - * */ +#ifndef H_PERL +#define H_PERL 1 +#define OVERLOAD + +/* + * STMT_START { statements; } STMT_END; + * can be used as a single statement, as in + * if (x) STMT_START { ... } STMT_END; else ... + * + * Trying to select a version that gives no warnings... + */ +#if !(defined(STMT_START) && defined(STMT_END)) +# if defined(__GNUC__) && !defined(__STRICT_ANSI__) +# define STMT_START (void)( /* gcc supports ``({ STATEMENTS; })'' */ +# define STMT_END ) +# else + /* Now which other defined()s do we need here ??? */ +# if (VOIDFLAGS) && (defined(sun) || defined(__sun__)) +# define STMT_START if (1) +# define STMT_END else (void)0 +# else +# define STMT_START do +# define STMT_END while (0) +# endif +# endif +#endif + +#include "embed.h" #define VOIDUSED 1 #include "config.h" -#ifdef IAMSUID -# ifndef TAINT -# define TAINT -# endif +#ifndef BYTEORDER +# define BYTEORDER 0x1234 #endif -#ifndef VFORK -# define vfork fork +/* Overall memory policy? */ +#ifndef CONSERVATIVE +# define LIBERAL 1 #endif -#if defined(MEMCMP) && defined(mips) && BYTEORDER == 01234 -#undef MEMCMP +/* + * The following contortions are brought to you on behalf of all the + * standards, semi-standards, de facto standards, not-so-de-facto standards + * of the world, as well as all the other botches anyone ever thought of. + * The basic theory is that if we work hard enough here, the rest of the + * code can be a lot prettier. Well, so much for theory. Sorry, Henry... + */ + +/* define this once if either system, instead of cluttering up the src */ +#if defined(MSDOS) || defined(atarist) +#define DOSISH 1 #endif -#ifdef MEMCPY -extern char *memcpy(), *memset(); -#define bcopy(s1,s2,l) memcpy(s2,s1,l) -#define bzero(s,l) memset(s,0,l) +#if defined(__STDC__) || defined(vax11c) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus) +# define STANDARD_C 1 #endif -#ifndef BCMP /* prefer bcmp slightly 'cuz it doesn't order */ -#define bcmp(s1,s2,l) memcmp(s1,s2,l) + +#if defined(HASVOLATILE) || defined(STANDARD_C) +# ifdef __cplusplus +# define VOL // to temporarily suppress warnings +# else +# define VOL volatile +# endif +#else +# define VOL +#endif + +#define TAINT_IF(c) (tainted |= (c)) +#define TAINT_NOT (tainted = 0) +#define TAINT_PROPER(s) if (tainting) taint_proper(no_security, s) +#define TAINT_ENV() if (tainting) taint_env() + +#ifdef USE_BSDPGRP +# ifdef HAS_GETPGRP +# define BSD_GETPGRP(pid) getpgrp((pid)) +# endif +# ifdef HAS_SETPGRP +# define BSD_SETPGRP(pid, pgrp) setpgrp((pid), (pgrp)) +# endif +#else +# ifdef HAS_GETPGRP2 +# define BSD_GETPGRP(pid) getpgrp2((pid)) +# ifndef HAS_GETPGRP +# define HAS_GETPGRP +# endif +# endif +# ifdef HAS_SETPGRP2 +# define BSD_SETPGRP(pid, pgrp) setpgrp2((pid), (pgrp)) +# ifndef HAS_SETPGRP +# define HAS_SETPGRP +# endif +# endif #endif #include +#ifdef USE_NEXT_CTYPE +#include +#else #include +#endif + +#ifdef I_LOCALE +#include +#endif + +#ifdef METHOD /* Defined by OSF/1 v3.0 by ctype.h */ +#undef METHOD +#endif + #include -#include /* if this needs types.h we're still wrong */ -#ifndef _TYPES_ /* If types.h defines this it's easy. */ -#ifndef major /* Does everyone's types.h define this? */ -#include +#ifdef I_SYS_PARAM +# ifdef PARAM_NEEDS_TYPES +# include +# endif +# include #endif + + +/* Use all the "standard" definitions? */ +#if defined(STANDARD_C) && defined(I_STDLIB) +# include +#endif /* STANDARD_C */ + +/* Maybe this comes after so we don't try to change + the standard library prototypes?. We'll use our own in + proto.h instead. I guess. The patch had no explanation. +*/ +#ifdef MYMALLOC +# ifdef HIDEMYMALLOC +# define malloc Mymalloc +# define realloc Myremalloc +# define free Myfree +# endif +# define safemalloc malloc +# define saferealloc realloc +# define safefree free #endif -#ifdef I_NETINET_IN -#include +#define MEM_SIZE Size_t + +#if defined(I_STRING) || defined(__cplusplus) +# include +#else +# include #endif -#include +#if !defined(HAS_STRCHR) && defined(HAS_INDEX) && !defined(strchr) +#define strchr index +#define strrchr rindex +#endif -#if defined(TMINSYS) || defined(I_SYSTIME) -#include -#ifdef TIMETOO -#include +#if defined(mips) && defined(ultrix) && !defined(__STDC__) +# undef HAS_MEMCMP #endif + +#ifdef I_MEMORY +# include +#endif + +#ifdef HAS_MEMCPY +# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY) +# ifndef memcpy + extern char * memcpy _((char*, char*, int)); +# endif +# endif +#else +# ifndef memcpy +# ifdef HAS_BCOPY +# define memcpy(d,s,l) bcopy(s,d,l) +# else +# define memcpy(d,s,l) my_bcopy(s,d,l) +# endif +# endif +#endif /* HAS_MEMCPY */ + +#ifdef HAS_MEMSET +# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY) +# ifndef memset + extern char *memset _((char*, int, int)); +# endif +# endif +# define memzero(d,l) memset(d,0,l) +#else +# ifndef memzero +# ifdef HAS_BZERO +# define memzero(d,l) bzero(d,l) +# else +# define memzero(d,l) my_bzero(d,l) +# endif +# endif +#endif /* HAS_MEMSET */ + +#ifdef HAS_MEMCMP +# if !defined(STANDARD_C) && !defined(I_STRING) && !defined(I_MEMORY) +# ifndef memcmp + extern int memcmp _((char*, char*, int)); +# endif +# endif #else -#include +# ifndef memcmp +# define memcmp my_memcmp +# endif +#endif /* HAS_MEMCMP */ + +/* XXX we prefer bcmp slightly for comparisons that don't care about ordering */ +#ifndef HAS_BCMP +# ifndef bcmp +# define bcmp(s1,s2,l) memcmp(s1,s2,l) +# endif +#endif /* HAS_BCMP */ + +#if !defined(HAS_MEMMOVE) && !defined(memmove) +# if defined(HAS_BCOPY) && defined(HAS_SAFE_BCOPY) +# define memmove(d,s,l) bcopy(s,d,l) +# else +# if defined(HAS_MEMCPY) && defined(HAS_SAFE_MEMCPY) +# define memmove(d,s,l) memcpy(d,s,l) +# else +# define memmove(d,s,l) my_bcopy(s,d,l) +# endif +# endif +#endif + +#ifndef _TYPES_ /* If types.h defines this it's easy. */ +# ifndef major /* Does everyone's types.h define this? */ +# include +# endif +#endif + +#ifdef I_NETINET_IN +# include +#endif + +#ifdef I_SYS_STAT +#include #endif -#include +/* The stat macros for Amdahl UTS, Unisoft System V/88 (and derivatives + like UTekV) are broken, sometimes giving false positives. Undefine + them here and let the code below set them to proper values. + + The ghs macro stands for GreenHills Software C-1.8.5 which + is the C compiler for sysV88 and the various derivatives. + This header file bug is corrected in gcc-2.5.8 and later versions. + --Kaveh Ghazi (ghazi@noc.rutgers.edu) 10/3/94. */ + +#if defined(uts) || (defined(m88k) && defined(ghs)) +# undef S_ISDIR +# undef S_ISCHR +# undef S_ISBLK +# undef S_ISREG +# undef S_ISFIFO +# undef S_ISLNK +#endif -#ifdef I_SYSIOCTL -#ifndef _IOCTL_ -#include +#ifdef I_TIME +# include #endif + +#ifdef I_SYS_TIME +# ifdef I_SYS_TIME_KERNEL +# define KERNEL +# endif +# include +# ifdef I_SYS_TIME_KERNEL +# undef KERNEL +# endif #endif -#if defined(mc300) || defined(mc500) || defined(mc700) /* MASSCOMP */ -#ifdef SOCKETPAIR -#undef SOCKETPAIR +#ifndef MSDOS +# if defined(HAS_TIMES) && defined(I_SYS_TIMES) +# include +# endif #endif -#ifdef NDBM -#undef NDBM + +#if defined(HAS_STRERROR) && (!defined(HAS_MKDIR) || !defined(HAS_RMDIR)) +# undef HAS_STRERROR #endif + +#ifndef HAS_MKFIFO +# ifndef mkfifo +# define mkfifo(path, mode) (mknod((path), (mode) | S_IFIFO, 0)) +# endif +#endif /* !HAS_MKFIFO */ + +#include +#ifdef HAS_SOCKET +# ifdef I_NET_ERRNO +# include +# endif +#endif +#ifndef VMS +# define FIXSTATUS(sts) (U_L((sts) & 0xffff)) +# define SHIFTSTATUS(sts) ((sts) >> 8) +# define SETERRNO(errcode,vmserrcode) errno = (errcode) +#else +# define FIXSTATUS(sts) (U_L(sts)) +# define SHIFTSTATUS(sts) (sts) +# define SETERRNO(errcode,vmserrcode) STMT_START {set_errno(errcode); set_vaxc_errno(vmserrcode);} STMT_END #endif -#ifdef NDBM -#include -#define SOME_DBM -#ifdef ODBM -#undef ODBM +#ifndef MSDOS +# ifndef errno + extern int errno; /* ANSI allows errno to be an lvalue expr */ +# endif #endif + +#ifdef HAS_STRERROR +# ifdef VMS + char *strerror _((int,...)); +# else + char *strerror _((int)); +# endif +# ifndef Strerror +# define Strerror strerror +# endif #else -#ifdef ODBM -#ifdef NULL -#undef NULL /* suppress redefinition message */ -#endif -#include -#ifdef NULL -#undef NULL -#endif -#define NULL 0 /* silly thing is, we don't even use this */ -#define SOME_DBM -#define dbm_fetch(db,dkey) fetch(dkey) -#define dbm_delete(db,dkey) delete(dkey) -#define dbm_store(db,dkey,dcontent,flags) store(dkey,dcontent) -#define dbm_close(db) dbmclose() -#define dbm_firstkey(db) firstkey() -#endif /* ODBM */ -#endif /* NDBM */ -#ifdef SOME_DBM -EXT char *dbmkey; -EXT int dbmlen; +# ifdef HAS_SYS_ERRLIST + extern int sys_nerr; + extern char *sys_errlist[]; +# ifndef Strerror +# define Strerror(e) \ + ((e) < 0 || (e) >= sys_nerr ? "(unknown)" : sys_errlist[e]) +# endif +# endif +#endif + +#ifdef I_SYS_IOCTL +# ifndef _IOCTL_ +# include +# endif +#endif + +#if defined(mc300) || defined(mc500) || defined(mc700) || defined(mc6000) +# ifdef HAS_SOCKETPAIR +# undef HAS_SOCKETPAIR +# endif +# ifdef I_NDBM +# undef I_NDBM +# endif #endif #if INTSIZE == 2 -#define htoni htons -#define ntohi ntohs +# define htoni htons +# define ntohi ntohs #else -#define htoni htonl -#define ntohi ntohl +# define htoni htonl +# define ntohi ntohl #endif -#ifdef I_DIRENT -#include -#define DIRENT dirent -#else -#ifdef I_SYSDIR -#ifdef hp9000s500 -#include /* may be wrong in the future */ +/* Configure already sets Direntry_t */ +#if defined(I_DIRENT) +# include +# if defined(NeXT) && defined(I_SYS_DIR) /* NeXT needs dirent + sys/dir.h */ +# include +# endif #else -#include +# ifdef I_SYS_NDIR +# include +# else +# ifdef I_SYS_DIR +# ifdef hp9000s500 +# include /* may be wrong in the future */ +# else +# include +# endif +# endif +# endif #endif -#define DIRENT direct + +#ifdef FPUTS_BOTCH +/* work around botch in SunOS 4.0.1 and 4.0.2 */ +# ifndef fputs +# define fputs(sv,fp) fprintf(fp,"%s",sv) +# endif #endif + +/* + * The following gobbledygook brought to you on behalf of __STDC__. + * (I could just use #ifndef __STDC__, but this is more bulletproof + * in the face of half-implementations.) + */ + +#ifndef S_IFMT +# ifdef _S_IFMT +# define S_IFMT _S_IFMT +# else +# define S_IFMT 0170000 +# endif #endif -typedef struct arg ARG; -typedef struct cmd CMD; -typedef struct formcmd FCMD; -typedef struct scanpat SPAT; -typedef struct stio STIO; -typedef struct sub SUBR; -typedef struct string STR; -typedef struct atbl ARRAY; -typedef struct htbl HASH; -typedef struct regexp REGEXP; -typedef struct stabptrs STBP; -typedef struct stab STAB; +#ifndef S_ISDIR +# define S_ISDIR(m) ((m & S_IFMT) == S_IFDIR) +#endif -#include "handy.h" -#include "regexp.h" -#include "str.h" -#include "util.h" -#include "form.h" -#include "stab.h" -#include "spat.h" -#include "arg.h" -#include "cmd.h" -#include "array.h" -#include "hash.h" +#ifndef S_ISCHR +# define S_ISCHR(m) ((m & S_IFMT) == S_IFCHR) +#endif -#if defined(iAPX286) || defined(M_I286) || defined(I80286) -# define I286 +#ifndef S_ISBLK +# ifdef S_IFBLK +# define S_ISBLK(m) ((m & S_IFMT) == S_IFBLK) +# else +# define S_ISBLK(m) (0) +# endif #endif -#ifndef __STDC__ -#ifdef CHARSPRINTF - char *sprintf(); -#else - int sprintf(); +#ifndef S_ISREG +# define S_ISREG(m) ((m & S_IFMT) == S_IFREG) +#endif + +#ifndef S_ISFIFO +# ifdef S_IFIFO +# define S_ISFIFO(m) ((m & S_IFMT) == S_IFIFO) +# else +# define S_ISFIFO(m) (0) +# endif #endif + +#ifndef S_ISLNK +# ifdef _S_ISLNK +# define S_ISLNK(m) _S_ISLNK(m) +# else +# ifdef _S_IFLNK +# define S_ISLNK(m) ((m & S_IFMT) == _S_IFLNK) +# else +# ifdef S_IFLNK +# define S_ISLNK(m) ((m & S_IFMT) == S_IFLNK) +# else +# define S_ISLNK(m) (0) +# endif +# endif +# endif +#endif + +#ifndef S_ISSOCK +# ifdef _S_ISSOCK +# define S_ISSOCK(m) _S_ISSOCK(m) +# else +# ifdef _S_IFSOCK +# define S_ISSOCK(m) ((m & S_IFMT) == _S_IFSOCK) +# else +# ifdef S_IFSOCK +# define S_ISSOCK(m) ((m & S_IFMT) == S_IFSOCK) +# else +# define S_ISSOCK(m) (0) +# endif +# endif +# endif +#endif + +#ifndef S_IRUSR +# ifdef S_IREAD +# define S_IRUSR S_IREAD +# define S_IWUSR S_IWRITE +# define S_IXUSR S_IEXEC +# else +# define S_IRUSR 0400 +# define S_IWUSR 0200 +# define S_IXUSR 0100 +# endif +# define S_IRGRP (S_IRUSR>>3) +# define S_IWGRP (S_IWUSR>>3) +# define S_IXGRP (S_IXUSR>>3) +# define S_IROTH (S_IRUSR>>6) +# define S_IWOTH (S_IWUSR>>6) +# define S_IXOTH (S_IXUSR>>6) #endif -EXT char *Yes INIT("1"); -EXT char *No INIT(""); +#ifndef S_ISUID +# define S_ISUID 04000 +#endif -/* "gimme" values */ +#ifndef S_ISGID +# define S_ISGID 02000 +#endif -/* Note: cmd.c assumes that it can use && to produce one of these values! */ -#define G_SCALAR 0 -#define G_ARRAY 1 +#ifdef ff_next +# undef ff_next +#endif -#ifdef CRIPPLED_CC -int str_true(); -#else /* !CRIPPLED_CC */ -#define str_true(str) (Str = (str), \ - (Str->str_pok ? \ - ((*Str->str_ptr > '0' || \ - Str->str_cur > 1 || \ - (Str->str_cur && *Str->str_ptr != '0')) ? 1 : 0) \ - : \ - (Str->str_nok ? (Str->str_u.str_nval != 0.0) : 0 ) )) -#endif /* CRIPPLED_CC */ +#if defined(cray) || defined(gould) || defined(i860) || defined(pyr) +# define SLOPPYDIVIDE +#endif -#ifdef DEBUGGING -#define str_peek(str) (Str = (str), \ - (Str->str_pok ? \ - Str->str_ptr : \ - (Str->str_nok ? \ - (sprintf(tokenbuf,"num(%g)",Str->str_u.str_nval), \ - (char*)tokenbuf) : \ - "" ))) +#if defined(cray) || defined(convex) || defined (uts) || BYTEORDER > 0xffff +# define HAS_QUAD +#endif + +#ifdef UV +#undef UV #endif -#ifdef CRIPPLED_CC -char *str_get(); +#ifdef HAS_QUAD +# ifdef cray +# define Quad_t int +# else +# if defined(convex) || defined (uts) +# define Quad_t long long +# else +# define Quad_t long +# endif +# endif + typedef Quad_t IV; + typedef unsigned Quad_t UV; #else -#ifdef TAINT -#define str_get(str) (Str = (str), tainted |= Str->str_tainted, \ - (Str->str_pok ? Str->str_ptr : str_2ptr(Str))) + typedef long IV; + typedef unsigned long UV; +#endif + +typedef MEM_SIZE STRLEN; + +typedef struct op OP; +typedef struct cop COP; +typedef struct unop UNOP; +typedef struct binop BINOP; +typedef struct listop LISTOP; +typedef struct logop LOGOP; +typedef struct condop CONDOP; +typedef struct pmop PMOP; +typedef struct svop SVOP; +typedef struct gvop GVOP; +typedef struct pvop PVOP; +typedef struct loop LOOP; + +typedef struct Outrec Outrec; +typedef struct interpreter PerlInterpreter; +typedef struct ff FF; +typedef struct sv SV; +typedef struct av AV; +typedef struct hv HV; +typedef struct cv CV; +typedef struct regexp REGEXP; +typedef struct gp GP; +typedef struct sv GV; +typedef struct io IO; +typedef struct context CONTEXT; +typedef struct block BLOCK; + +typedef struct magic MAGIC; +typedef struct xrv XRV; +typedef struct xpv XPV; +typedef struct xpviv XPVIV; +typedef struct xpvnv XPVNV; +typedef struct xpvmg XPVMG; +typedef struct xpvlv XPVLV; +typedef struct xpvav XPVAV; +typedef struct xpvhv XPVHV; +typedef struct xpvgv XPVGV; +typedef struct xpvcv XPVCV; +typedef struct xpvbm XPVBM; +typedef struct xpvfm XPVFM; +typedef struct xpvio XPVIO; +typedef struct mgvtbl MGVTBL; +typedef union any ANY; + +#include "handy.h" + +typedef I32 (*filter_t) _((int, SV *, int)); +#define FILTER_READ(idx, sv, len) filter_read(idx, sv, len) +#define FILTER_DATA(idx) (AvARRAY(rsfp_filters)[idx]) +#define FILTER_ISREADER(idx) (idx >= AvFILL(rsfp_filters)) + +#ifdef DOSISH +# if defined(OS2) +# include "os2ish.h" +# else +# include "dosish.h" +# endif #else -#define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str))) -#endif /* TAINT */ -#endif /* CRIPPLED_CC */ - -#ifdef CRIPPLED_CC -double str_gnum(); -#else /* !CRIPPLED_CC */ -#ifdef TAINT -#define str_gnum(str) (Str = (str), tainted |= Str->str_tainted, \ - (Str->str_nok ? Str->str_u.str_nval : str_2num(Str))) -#else /* !TAINT */ -#define str_gnum(str) (Str = (str), (Str->str_nok ? Str->str_u.str_nval : str_2num(Str))) -#endif /* TAINT*/ -#endif /* CRIPPLED_CC */ -EXT STR *Str; - -#define GROWSTR(pp,lp,len) if (*(lp) < (len)) growstr(pp,lp,len) - -#define STR_GROW(str,len) if ((str)->str_len < (len)) str_grow(str,len) +# if defined(VMS) +# include "vmsish.h" +# else +# include "unixish.h" +# endif +#endif -#ifndef BYTEORDER -#define BYTEORDER 01234 +#ifndef HAS_PAUSE +#define pause() sleep((32767<<16)+32767) #endif -#if defined(htonl) && !defined(HTONL) -#define HTONL +#ifndef IOCPARM_LEN +# ifdef IOCPARM_MASK + /* on BSDish systes we're safe */ +# define IOCPARM_LEN(x) (((x) >> 16) & IOCPARM_MASK) +# else + /* otherwise guess at what's safe */ +# define IOCPARM_LEN(x) 256 +# endif #endif -#if defined(htons) && !defined(HTONS) -#define HTONS + +union any { + void* any_ptr; + I32 any_i32; + IV any_iv; + long any_long; + void (*any_dptr) _((void*)); +}; + +#include "regexp.h" +#include "sv.h" +#include "util.h" +#include "form.h" +#include "gv.h" +#include "cv.h" +#include "opcode.h" +#include "op.h" +#include "cop.h" +#include "av.h" +#include "hv.h" +#include "mg.h" +#include "scope.h" + +/* work around some libPW problems */ +#ifdef DOINIT +EXT char Error[1]; +#endif + +#if defined(iAPX286) || defined(M_I286) || defined(I80286) +# define I286 +#endif + +#if defined(htonl) && !defined(HAS_HTONL) +#define HAS_HTONL +#endif +#if defined(htons) && !defined(HAS_HTONS) +#define HAS_HTONS #endif -#if defined(ntohl) && !defined(NTOHL) -#define NTOHL +#if defined(ntohl) && !defined(HAS_NTOHL) +#define HAS_NTOHL #endif -#if defined(ntohs) && !defined(NTOHS) -#define NTOHS +#if defined(ntohs) && !defined(HAS_NTOHS) +#define HAS_NTOHS #endif -#ifndef HTONL -#if (BYTEORDER != 04321) && (BYTEORDER != 087654321) -#define HTONS -#define HTONL -#define NTOHS -#define NTOHL +#ifndef HAS_HTONL +#if (BYTEORDER & 0xffff) != 0x4321 +#define HAS_HTONS +#define HAS_HTONL +#define HAS_NTOHS +#define HAS_NTOHL #define MYSWAP #define htons my_swap #define htonl my_htonl @@ -266,290 +655,964 @@ EXT STR *Str; #define ntohl my_ntohl #endif #else -#if (BYTEORDER == 04321) || (BYTEORDER == 087654321) -#undef HTONS -#undef HTONL -#undef NTOHS -#undef NTOHL -#endif -#endif - -CMD *add_label(); -CMD *block_head(); -CMD *append_line(); -CMD *make_acmd(); -CMD *make_ccmd(); -CMD *make_icmd(); -CMD *invert(); -CMD *addcond(); -CMD *addloop(); -CMD *wopt(); -CMD *over(); - -STAB *stabent(); -STAB *genstab(); - -ARG *stab2arg(); -ARG *op_new(); -ARG *make_op(); -ARG *make_match(); -ARG *make_split(); -ARG *rcatmaybe(); -ARG *listish(); -ARG *maybelistish(); -ARG *localize(); -ARG *fixeval(); -ARG *jmaybe(); -ARG *l(); -ARG *fixl(); -ARG *mod_match(); -ARG *make_list(); -ARG *cmd_to_arg(); -ARG *addflags(); -ARG *hide_ary(); -ARG *cval_to_arg(); - -STR *str_new(); -STR *stab_str(); - -int do_each(); -int do_subr(); -int do_match(); -int do_unpack(); -int eval(); /* this evaluates expressions */ -int do_eval(); /* this evaluates eval operator */ -int do_assign(); - -SUBR *make_sub(); - -FCMD *load_format(); - -char *scanpat(); -char *scansubst(); -char *scantrans(); -char *scanstr(); -char *scanreg(); -char *str_append_till(); -char *str_gets(); -char *str_grow(); - -bool do_open(); -bool do_close(); -bool do_print(); -bool do_aprint(); -bool do_exec(); -bool do_aexec(); - -int do_subst(); -int cando(); -int ingroup(); - -void str_replace(); -void str_inc(); -void str_dec(); -void str_free(); -void stab_clear(); -void do_join(); -void do_sprintf(); -void do_accept(); -void do_vecset(); -void savelist(); -void saveitem(); -void saveint(); -void savelong(); -void savesptr(); -void savehptr(); -void restorelist(); -HASH *savehash(); -ARRAY *saveary(); - -EXT line_t line INIT(0); -EXT line_t subline INIT(0); -EXT STR *subname INIT(Nullstr); -EXT int arybase INIT(0); - -struct outrec { - line_t o_lines; - char *o_str; - int o_len; +#if (BYTEORDER & 0xffff) == 0x4321 +#undef HAS_HTONS +#undef HAS_HTONL +#undef HAS_NTOHS +#undef HAS_NTOHL +#endif +#endif + +/* + * Little-endian byte order functions - 'v' for 'VAX', or 'reVerse'. + * -DWS + */ +#if BYTEORDER != 0x1234 +# define HAS_VTOHL +# define HAS_VTOHS +# define HAS_HTOVL +# define HAS_HTOVS +# if BYTEORDER == 0x4321 +# define vtohl(x) ((((x)&0xFF)<<24) \ + +(((x)>>24)&0xFF) \ + +(((x)&0x0000FF00)<<8) \ + +(((x)&0x00FF0000)>>8) ) +# define vtohs(x) ((((x)&0xFF)<<8) + (((x)>>8)&0xFF)) +# define htovl(x) vtohl(x) +# define htovs(x) vtohs(x) +# endif + /* otherwise default to functions in util.c */ +#endif + +#ifdef CASTNEGFLOAT +#define U_S(what) ((U16)(what)) +#define U_I(what) ((unsigned int)(what)) +#define U_L(what) ((U32)(what)) +#else +U32 cast_ulong _((double)); +#define U_S(what) ((U16)cast_ulong((double)(what))) +#define U_I(what) ((unsigned int)cast_ulong((double)(what))) +#define U_L(what) (cast_ulong((double)(what))) +#endif + +#ifdef CASTI32 +#define I_32(what) ((I32)(what)) +#define I_V(what) ((IV)(what)) +#define U_V(what) ((UV)(what)) +#else +I32 cast_i32 _((double)); +#define I_32(what) (cast_i32((double)(what))) +IV cast_iv _((double)); +#define I_V(what) (cast_iv((double)(what))) +UV cast_uv _((double)); +#define U_V(what) (cast_uv((double)(what))) +#endif + +struct Outrec { + I32 o_lines; + char *o_str; + U32 o_len; }; -EXT struct outrec outrec; -EXT struct outrec toprec; - -EXT STAB *stdinstab INIT(Nullstab); -EXT STAB *last_in_stab INIT(Nullstab); -EXT STAB *defstab INIT(Nullstab); -EXT STAB *argvstab INIT(Nullstab); -EXT STAB *envstab INIT(Nullstab); -EXT STAB *sigstab INIT(Nullstab); -EXT STAB *defoutstab INIT(Nullstab); -EXT STAB *curoutstab INIT(Nullstab); -EXT STAB *argvoutstab INIT(Nullstab); -EXT STAB *incstab INIT(Nullstab); -EXT STAB *leftstab INIT(Nullstab); -EXT STAB *amperstab INIT(Nullstab); -EXT STAB *rightstab INIT(Nullstab); -EXT STAB *DBstab INIT(Nullstab); -EXT STAB *DBsub INIT(Nullstab); - -EXT HASH *defstash; /* main symbol table */ -EXT HASH *curstash; /* symbol table for current package */ -EXT HASH *debstash; /* symbol table for perldb package */ - -EXT STR *curstname; /* name of current package */ - -EXT STR *freestrroot INIT(Nullstr); -EXT STR *lastretstr INIT(Nullstr); -EXT STR *DBsingle INIT(Nullstr); - -EXT int lastspbase; -EXT int lastsize; - -EXT char *filename; -EXT char *origfilename; -EXT FILE *rsfp; -EXT char buf[1024]; -EXT char *bufptr; -EXT char *oldbufptr; -EXT char *oldoldbufptr; -EXT char *bufend; - -EXT STR *linestr INIT(Nullstr); - -EXT char record_separator INIT('\n'); -EXT int rslen INIT(1); -EXT char *ofs INIT(Nullch); -EXT int ofslen INIT(0); -EXT char *ors INIT(Nullch); -EXT int orslen INIT(0); -EXT char *ofmt INIT(Nullch); -EXT char *inplace INIT(Nullch); -EXT char *nointrp INIT(""); - -EXT bool preprocess INIT(FALSE); -EXT bool minus_n INIT(FALSE); -EXT bool minus_p INIT(FALSE); -EXT bool minus_a INIT(FALSE); -EXT bool doswitches INIT(FALSE); -EXT bool dowarn INIT(FALSE); -EXT bool allstabs INIT(FALSE); /* init all customary symbols in symbol table?*/ -EXT bool sawampersand INIT(FALSE); /* must save all match strings */ -EXT bool sawstudy INIT(FALSE); /* do fbminstr on all strings */ -EXT bool sawi INIT(FALSE); /* study must assume case insensitive */ -EXT bool sawvec INIT(FALSE); +#ifndef MAXSYSFD +# define MAXSYSFD 2 +#endif -#ifdef CSH -char *cshname INIT(CSH); -int cshlen INIT(0); -#endif /* CSH */ - -#ifdef TAINT -EXT bool tainted INIT(FALSE); /* using variables controlled by $< */ -#endif - -#define TMPPATH "/tmp/perl-eXXXXXX" -EXT char *e_tmpname; -EXT FILE *e_fp INIT(Nullfp); - -EXT char tokenbuf[256]; -EXT int expectterm INIT(TRUE); /* how to interpret ambiguous tokens */ -EXT int in_eval INIT(FALSE); /* trap fatal errors? */ -EXT int multiline INIT(0); /* $*--do strings hold >1 line? */ -EXT int forkprocess; /* so do_open |- can return proc# */ -EXT int do_undump INIT(0); /* -u or dump seen? */ -EXT int error_count INIT(0); /* how many errors so far, max 10 */ -EXT int multi_start INIT(0); /* 1st line of multi-line string */ -EXT int multi_end INIT(0); /* last line of multi-line string */ -EXT int multi_open INIT(0); /* delimiter of said string */ -EXT int multi_close INIT(0); /* delimiter of said string */ - -FILE *popen(); -/* char *str_get(); */ -STR *interp(); -void free_arg(); -STIO *stio_new(); - -EXT struct stat statbuf; -EXT struct stat statcache; -STAB *statstab INIT(Nullstab); -STR *statname; -EXT struct tms timesbuf; -EXT int uid; -EXT int euid; -EXT int gid; -EXT int egid; -UIDTYPE getuid(); -UIDTYPE geteuid(); -GIDTYPE getgid(); -GIDTYPE getegid(); -EXT int unsafe; +#ifndef TMPPATH +# define TMPPATH "/tmp/perl-eXXXXXX" +#endif + +#ifndef __cplusplus +Uid_t getuid _((void)); +Uid_t geteuid _((void)); +Gid_t getgid _((void)); +Gid_t getegid _((void)); +#endif #ifdef DEBUGGING -EXT int debug INIT(0); -EXT int dlevel INIT(0); -EXT int dlmax INIT(128); -EXT char *debname; -EXT char *debdelim; #define YYDEBUG 1 +#define DEB(a) a +#define DEBUG(a) if (debug) a +#define DEBUG_p(a) if (debug & 1) a +#define DEBUG_s(a) if (debug & 2) a +#define DEBUG_l(a) if (debug & 4) a +#define DEBUG_t(a) if (debug & 8) a +#define DEBUG_o(a) if (debug & 16) a +#define DEBUG_c(a) if (debug & 32) a +#define DEBUG_P(a) if (debug & 64) a +#define DEBUG_m(a) if (debug & 128) a +#define DEBUG_f(a) if (debug & 256) a +#define DEBUG_r(a) if (debug & 512) a +#define DEBUG_x(a) if (debug & 1024) a +#define DEBUG_u(a) if (debug & 2048) a +#define DEBUG_L(a) if (debug & 4096) a +#define DEBUG_H(a) if (debug & 8192) a +#define DEBUG_X(a) if (debug & 16384) a +#define DEBUG_D(a) if (debug & 32768) a +#else +#define DEB(a) +#define DEBUG(a) +#define DEBUG_p(a) +#define DEBUG_s(a) +#define DEBUG_l(a) +#define DEBUG_t(a) +#define DEBUG_o(a) +#define DEBUG_c(a) +#define DEBUG_P(a) +#define DEBUG_m(a) +#define DEBUG_f(a) +#define DEBUG_r(a) +#define DEBUG_x(a) +#define DEBUG_u(a) +#define DEBUG_L(a) +#define DEBUG_H(a) +#define DEBUG_X(a) +#define DEBUG_D(a) +#endif +#define YYMAXDEPTH 300 + +#define assert(what) DEB( { \ + if (!(what)) { \ + croak("Assertion failed: file \"%s\", line %d", \ + __FILE__, __LINE__); \ + exit(1); \ + }}) + +struct ufuncs { + I32 (*uf_val)_((IV, SV*)); + I32 (*uf_set)_((IV, SV*)); + IV uf_index; +}; + +/* Fix these up for __STDC__ */ +#ifndef __cplusplus +char *mktemp _((char*)); +double atof _((const char*)); #endif -EXT int perldb INIT(0); -EXT line_t cmdline INIT(NOLINE); +#ifndef STANDARD_C +/* All of these are in stdlib.h or time.h for ANSI C */ +Time_t time(); +struct tm *gmtime(), *localtime(); +char *strchr(), *strrchr(); +char *strcpy(), *strcat(); +#endif /* ! STANDARD_C */ -EXT STR str_undef; -EXT STR str_no; -EXT STR str_yes; -/* runtime control stuff */ +#ifdef I_MATH +# include +#else +# ifdef __cplusplus + extern "C" { +# endif + double exp _((double)); + double log _((double)); + double sqrt _((double)); + double modf _((double,double*)); + double sin _((double)); + double cos _((double)); + double atan2 _((double,double)); + double pow _((double,double)); +# ifdef __cplusplus + }; +# endif +#endif + +#ifndef __cplusplus +char *crypt _((const char*, const char*)); +char *getenv _((const char*)); +Off_t lseek _((int,Off_t,int)); +char *getlogin _((void)); +#endif + +#ifdef UNLINK_ALL_VERSIONS /* Currently only makes sense for VMS */ +#define UNLINK unlnk +I32 unlnk _((char*)); +#else +#define UNLINK unlink +#endif -EXT struct loop { - char *loop_label; /* what the loop was called, if anything */ - int loop_sp; /* stack pointer to copy stuff down to */ - jmp_buf loop_env; -} *loop_stack; +#ifndef HAS_SETREUID +# ifdef HAS_SETRESUID +# define setreuid(r,e) setresuid(r,e,(Uid_t)-1) +# define HAS_SETREUID +# endif +#endif +#ifndef HAS_SETREGID +# ifdef HAS_SETRESGID +# define setregid(r,e) setresgid(r,e,(Gid_t)-1) +# define HAS_SETREGID +# endif +#endif -EXT int loop_ptr INIT(-1); -EXT int loop_max INIT(128); +#define SCAN_DEF 0 +#define SCAN_TR 1 +#define SCAN_REPL 2 -EXT jmp_buf top_env; -EXT jmp_buf eval_env; +#ifdef DEBUGGING +# ifndef register +# define register +# endif +# ifdef MYMALLOC +# define DEBUGGING_MSTATS +# endif +# define PAD_SV(po) pad_sv(po) +#else +# define PAD_SV(po) curpad[po] +#endif -EXT char *goto_targ INIT(Nullch); /* cmd_exec gets strange when set */ +/****************/ +/* Truly global */ +/****************/ -EXT ARRAY *stack; /* THE STACK */ +/* global state */ +EXT PerlInterpreter * curinterp; /* currently running interpreter */ +#ifndef VMS /* VMS doesn't use environ array */ +extern char ** environ; /* environment variables supplied via exec */ +#endif +EXT int uid; /* current real user id */ +EXT int euid; /* current effective user id */ +EXT int gid; /* current real group id */ +EXT int egid; /* current effective group id */ +EXT bool nomemok; /* let malloc context handle nomem */ +EXT U32 an; /* malloc sequence number */ +EXT U32 cop_seqmax; /* statement sequence number */ +EXT U16 op_seqmax; /* op sequence number */ +EXT U32 evalseq; /* eval sequence number */ +EXT U32 sub_generation; /* inc to force methods to be looked up again */ +EXT char ** origenviron; +EXT U32 origalen; +EXT U32 * profiledata; +EXT int maxo INIT(MAXO);/* Number of ops */ +EXT char * osname; /* operating system */ + +EXT XPV* xiv_arenaroot; /* list of allocated xiv areas */ +EXT IV ** xiv_root; /* free xiv list--shared by interpreters */ +EXT double * xnv_root; /* free xnv list--shared by interpreters */ +EXT XRV * xrv_root; /* free xrv list--shared by interpreters */ +EXT XPV * xpv_root; /* free xpv list--shared by interpreters */ +EXT HE * he_root; /* free he list--shared by interpreters */ +EXT char * nice_chunk; /* a nice chunk of memory to reuse */ +EXT U32 nice_chunk_size;/* how nice the chunk of memory is */ + +/* Stack for currently executing thread--context switch must handle this. */ +EXT SV ** stack_base; /* stack->array_ary */ +EXT SV ** stack_sp; /* stack pointer now */ +EXT SV ** stack_max; /* stack->array_ary + stack->array_max */ + +/* likewise for these */ + +EXT OP * op; /* current op--oughta be in a global register */ + +EXT I32 * scopestack; /* blocks we've entered */ +EXT I32 scopestack_ix; +EXT I32 scopestack_max; + +EXT ANY* savestack; /* to save non-local values on */ +EXT I32 savestack_ix; +EXT I32 savestack_max; + +EXT OP ** retstack; /* returns we've pushed */ +EXT I32 retstack_ix; +EXT I32 retstack_max; + +EXT I32 * markstack; /* stackmarks we're remembering */ +EXT I32 * markstack_ptr; /* stackmarks we're remembering */ +EXT I32 * markstack_max; /* stackmarks we're remembering */ + +EXT SV ** curpad; + +/* temp space */ +EXT SV * Sv; +EXT XPV * Xpv; +EXT char buf[2048]; /* should be longer than PATH_MAX */ +EXT char tokenbuf[256]; +EXT struct stat statbuf; +#ifdef HAS_TIMES +EXT struct tms timesbuf; +#endif +EXT STRLEN na; /* for use in SvPV when length is Not Applicable */ + +/* for tmp use in stupid debuggers */ +EXT int * di; +EXT short * ds; +EXT char * dc; + +/* handy constants */ +EXT char * Yes INIT("1"); +EXT char * No INIT(""); +EXT char * hexdigit INIT("0123456789abcdef0123456789ABCDEFx"); +EXT char * patleave INIT("\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}"); +EXT char * vert INIT("|"); + +EXT char warn_uninit[] + INIT("Use of uninitialized value"); +EXT char warn_nosemi[] + INIT("Semicolon seems to be missing"); +EXT char warn_reserved[] + INIT("Unquoted string \"%s\" may clash with future reserved word"); +EXT char warn_nl[] + INIT("Unsuccessful %s on filename containing newline"); +EXT char no_wrongref[] + INIT("Can't use %s ref as %s ref"); +EXT char no_symref[] + INIT("Can't use string (\"%.32s\") as %s ref while \"strict refs\" in use"); +EXT char no_usym[] + INIT("Can't use an undefined value as %s reference"); +EXT char no_aelem[] + INIT("Modification of non-creatable array value attempted, subscript %d"); +EXT char no_helem[] + INIT("Modification of non-creatable hash value attempted, subscript \"%s\""); +EXT char no_modify[] + INIT("Modification of a read-only value attempted"); +EXT char no_mem[] + INIT("Out of memory!\n"); +EXT char no_security[] + INIT("Insecure dependency in %s%s"); +EXT char no_sock_func[] + INIT("Unsupported socket function \"%s\" called"); +EXT char no_dir_func[] + INIT("Unsupported directory function \"%s\" called"); +EXT char no_func[] + INIT("The %s function is unimplemented"); +EXT char no_myglob[] + INIT("\"my\" variable %s can't be in a package"); + +EXT SV sv_undef; +EXT SV sv_no; +EXT SV sv_yes; +#ifdef CSH + EXT char * cshname INIT(CSH); + EXT I32 cshlen; +#endif -EXT ARRAY *savestack; /* to save non-local values on */ +#ifdef DOINIT +EXT char *sig_name[] = { SIG_NAME }; +EXT int sig_num[] = { SIG_NUM }; +#else +EXT char *sig_name[]; +EXT int sig_num[]; +#endif -EXT ARRAY *tosave; /* strings to save on recursive subroutine */ +#ifdef DOINIT +EXT unsigned char fold[] = { /* fast case folding table */ + 0, 1, 2, 3, 4, 5, 6, 7, + 8, 9, 10, 11, 12, 13, 14, 15, + 16, 17, 18, 19, 20, 21, 22, 23, + 24, 25, 26, 27, 28, 29, 30, 31, + 32, 33, 34, 35, 36, 37, 38, 39, + 40, 41, 42, 43, 44, 45, 46, 47, + 48, 49, 50, 51, 52, 53, 54, 55, + 56, 57, 58, 59, 60, 61, 62, 63, + 64, 'a', 'b', 'c', 'd', 'e', 'f', 'g', + 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', + 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', + 'x', 'y', 'z', 91, 92, 93, 94, 95, + 96, 'A', 'B', 'C', 'D', 'E', 'F', 'G', + 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', + 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', + 'X', 'Y', 'Z', 123, 124, 125, 126, 127, + 128, 129, 130, 131, 132, 133, 134, 135, + 136, 137, 138, 139, 140, 141, 142, 143, + 144, 145, 146, 147, 148, 149, 150, 151, + 152, 153, 154, 155, 156, 157, 158, 159, + 160, 161, 162, 163, 164, 165, 166, 167, + 168, 169, 170, 171, 172, 173, 174, 175, + 176, 177, 178, 179, 180, 181, 182, 183, + 184, 185, 186, 187, 188, 189, 190, 191, + 192, 193, 194, 195, 196, 197, 198, 199, + 200, 201, 202, 203, 204, 205, 206, 207, + 208, 209, 210, 211, 212, 213, 214, 215, + 216, 217, 218, 219, 220, 221, 222, 223, + 224, 225, 226, 227, 228, 229, 230, 231, + 232, 233, 234, 235, 236, 237, 238, 239, + 240, 241, 242, 243, 244, 245, 246, 247, + 248, 249, 250, 251, 252, 253, 254, 255 +}; +#else +EXT unsigned char fold[]; +#endif -EXT ARRAY *lineary; /* lines of script for debugger */ +#ifdef DOINIT +EXT unsigned char freq[] = { /* letter frequencies for mixed English/C */ + 1, 2, 84, 151, 154, 155, 156, 157, + 165, 246, 250, 3, 158, 7, 18, 29, + 40, 51, 62, 73, 85, 96, 107, 118, + 129, 140, 147, 148, 149, 150, 152, 153, + 255, 182, 224, 205, 174, 176, 180, 217, + 233, 232, 236, 187, 235, 228, 234, 226, + 222, 219, 211, 195, 188, 193, 185, 184, + 191, 183, 201, 229, 181, 220, 194, 162, + 163, 208, 186, 202, 200, 218, 198, 179, + 178, 214, 166, 170, 207, 199, 209, 206, + 204, 160, 212, 216, 215, 192, 175, 173, + 243, 172, 161, 190, 203, 189, 164, 230, + 167, 248, 227, 244, 242, 255, 241, 231, + 240, 253, 169, 210, 245, 237, 249, 247, + 239, 168, 252, 251, 254, 238, 223, 221, + 213, 225, 177, 197, 171, 196, 159, 4, + 5, 6, 8, 9, 10, 11, 12, 13, + 14, 15, 16, 17, 19, 20, 21, 22, + 23, 24, 25, 26, 27, 28, 30, 31, + 32, 33, 34, 35, 36, 37, 38, 39, + 41, 42, 43, 44, 45, 46, 47, 48, + 49, 50, 52, 53, 54, 55, 56, 57, + 58, 59, 60, 61, 63, 64, 65, 66, + 67, 68, 69, 70, 71, 72, 74, 75, + 76, 77, 78, 79, 80, 81, 82, 83, + 86, 87, 88, 89, 90, 91, 92, 93, + 94, 95, 97, 98, 99, 100, 101, 102, + 103, 104, 105, 106, 108, 109, 110, 111, + 112, 113, 114, 115, 116, 117, 119, 120, + 121, 122, 123, 124, 125, 126, 127, 128, + 130, 131, 132, 133, 134, 135, 136, 137, + 138, 139, 141, 142, 143, 144, 145, 146 +}; +#else +EXT unsigned char freq[]; +#endif -EXT ARRAY *pidstatary; /* keep pids and statuses by fd for mypopen */ +#ifdef DEBUGGING +#ifdef DOINIT +EXT char* block_type[] = { + "NULL", + "SUB", + "EVAL", + "LOOP", + "SUBST", + "BLOCK", +}; +#else +EXT char* block_type[]; +#endif +#endif -double atof(); -long time(); -struct tm *gmtime(), *localtime(); -char *mktemp(); -char *index(), *rindex(); -char *strcpy(), *strcat(); +/*****************************************************************************/ +/* This lexer/parser stuff is currently global since yacc is hard to reenter */ +/*****************************************************************************/ +/* XXX This needs to be revisited, since BEGIN makes yacc re-enter... */ + +#include "perly.h" + +typedef enum { + XOPERATOR, + XTERM, + XREF, + XSTATE, + XBLOCK, + XTERMBLOCK +} expectation; + +EXT U32 lex_state; /* next token is determined */ +EXT U32 lex_defer; /* state after determined token */ +EXT expectation lex_expect; /* expect after determined token */ +EXT I32 lex_brackets; /* bracket count */ +EXT I32 lex_formbrack; /* bracket count at outer format level */ +EXT I32 lex_fakebrack; /* outer bracket is mere delimiter */ +EXT I32 lex_casemods; /* casemod count */ +EXT I32 lex_dojoin; /* doing an array interpolation */ +EXT I32 lex_starts; /* how many interps done on level */ +EXT SV * lex_stuff; /* runtime pattern from m// or s/// */ +EXT SV * lex_repl; /* runtime replacement from s/// */ +EXT OP * lex_op; /* extra info to pass back on op */ +EXT OP * lex_inpat; /* in pattern $) and $| are special */ +EXT I32 lex_inwhat; /* what kind of quoting are we in */ +EXT char * lex_brackstack; /* what kind of brackets to pop */ +EXT char * lex_casestack; /* what kind of case mods in effect */ + +/* What we know when we're in LEX_KNOWNEXT state. */ +EXT YYSTYPE nextval[5]; /* value of next token, if any */ +EXT I32 nexttype[5]; /* type of next token */ +EXT I32 nexttoke; + +EXT FILE * VOL rsfp INIT(Nullfp); +EXT SV * linestr; +EXT char * bufptr; +EXT char * oldbufptr; +EXT char * oldoldbufptr; +EXT char * bufend; +EXT expectation expect INIT(XSTATE); /* how to interpret ambiguous tokens */ +EXT AV * rsfp_filters; + +EXT I32 multi_start; /* 1st line of multi-line string */ +EXT I32 multi_end; /* last line of multi-line string */ +EXT I32 multi_open; /* delimiter of said string */ +EXT I32 multi_close; /* delimiter of said string */ + +EXT GV * scrgv; +EXT I32 error_count; /* how many errors so far, max 10 */ +EXT I32 subline; /* line this subroutine began on */ +EXT SV * subname; /* name of current subroutine */ + +EXT CV * compcv; /* currently compiling subroutine */ +EXT AV * comppad; /* storage for lexically scoped temporaries */ +EXT AV * comppad_name; /* variable names for "my" variables */ +EXT I32 comppad_name_fill;/* last "introduced" variable offset */ +EXT I32 min_intro_pending;/* start of vars to introduce */ +EXT I32 max_intro_pending;/* end of vars to introduce */ +EXT I32 padix; /* max used index in current "register" pad */ +EXT I32 padix_floor; /* how low may inner block reset padix */ +EXT I32 pad_reset_pending; /* reset pad on next attempted alloc */ +EXT COP compiling; + +EXT I32 thisexpr; /* name id for nothing_in_common() */ +EXT char * last_uni; /* position of last named-unary operator */ +EXT char * last_lop; /* position of last list operator */ +EXT OPCODE last_lop_op; /* last list operator */ +EXT bool in_my; /* we're compiling a "my" declaration */ +#ifdef FCRYPT +EXT I32 cryptseen; /* has fast crypt() been initialized? */ +#endif -#ifdef EUNICE -#define UNLINK unlnk -int unlnk(); +EXT U32 hints; /* various compilation flags */ + + /* Note: the lowest 8 bits are reserved for + stuffing into op->op_private */ +#define HINT_INTEGER 0x00000001 +#define HINT_STRICT_REFS 0x00000002 + +#define HINT_BLOCK_SCOPE 0x00000100 +#define HINT_STRICT_SUBS 0x00000200 +#define HINT_STRICT_VARS 0x00000400 + +/**************************************************************************/ +/* This regexp stuff is global since it always happens within 1 expr eval */ +/**************************************************************************/ + +EXT char * regprecomp; /* uncompiled string. */ +EXT char * regparse; /* Input-scan pointer. */ +EXT char * regxend; /* End of input for compile */ +EXT I32 regnpar; /* () count. */ +EXT char * regcode; /* Code-emit pointer; ®dummy = don't. */ +EXT I32 regsize; /* Code size. */ +EXT I32 regnaughty; /* How bad is this pattern? */ +EXT I32 regsawback; /* Did we see \1, ...? */ + +EXT char * reginput; /* String-input pointer. */ +EXT char * regbol; /* Beginning of input, for ^ check. */ +EXT char * regeol; /* End of input, for $ check. */ +EXT char ** regstartp; /* Pointer to startp array. */ +EXT char ** regendp; /* Ditto for endp. */ +EXT U32 * reglastparen; /* Similarly for lastparen. */ +EXT char * regtill; /* How far we are required to go. */ +EXT U16 regflags; /* are we folding, multilining? */ +EXT char regprev; /* char before regbol, \n if none */ + +/***********************************************/ +/* Global only to current interpreter instance */ +/***********************************************/ + +#ifdef MULTIPLICITY +#define IEXT +#define IINIT(x) +struct interpreter { #else -#define UNLINK unlink +#define IEXT EXT +#define IINIT(x) INIT(x) #endif -#ifndef SETREUID -#ifdef SETRESUID -#define setreuid(r,e) setresuid(r,e,-1) -#define SETREUID +/* pseudo environmental stuff */ +IEXT int Iorigargc; +IEXT char ** Iorigargv; +IEXT GV * Ienvgv; +IEXT GV * Isiggv; +IEXT GV * Iincgv; +IEXT char * Iorigfilename; +IEXT SV * Idiehook; +IEXT SV * Iwarnhook; +IEXT SV * Iparsehook; + +/* Various states of an input record separator SV (rs, nrs) */ +#define RsSNARF(sv) (! SvOK(sv)) +#define RsSIMPLE(sv) (SvOK(sv) && SvCUR(sv)) +#define RsPARA(sv) (SvOK(sv) && ! SvCUR(sv)) + +/* switches */ +IEXT char * Icddir; +IEXT bool Iminus_c; +IEXT char Ipatchlevel[10]; +IEXT char ** Ilocalpatches; +IEXT SV * Inrs; +IEXT char * Isplitstr IINIT(" "); +IEXT bool Ipreprocess; +IEXT bool Iminus_n; +IEXT bool Iminus_p; +IEXT bool Iminus_l; +IEXT bool Iminus_a; +IEXT bool Iminus_F; +IEXT bool Idoswitches; +IEXT bool Idowarn; +IEXT bool Idoextract; +IEXT bool Isawampersand; /* must save all match strings */ +IEXT bool Isawstudy; /* do fbm_instr on all strings */ +IEXT bool Isawi; /* study must assume case insensitive */ +IEXT bool Isawvec; +IEXT bool Iunsafe; +IEXT bool Ido_undump; /* -u or dump seen? */ +IEXT char * Iinplace; +IEXT char * Ie_tmpname; +IEXT FILE * Ie_fp; +IEXT VOL U32 Idebug; +IEXT U32 Iperldb; + /* This value may be raised by extensions for testing purposes */ +IEXT int Iperl_destruct_level; /* 0=none, 1=full, 2=full with checks */ + +/* magical thingies */ +IEXT Time_t Ibasetime; /* $^T */ +IEXT SV * Iformfeed; /* $^L */ +IEXT char * Ichopset IINIT(" \n-"); /* $: */ +IEXT SV * Irs; /* $/ */ +IEXT char * Iofs; /* $, */ +IEXT STRLEN Iofslen; +IEXT char * Iors; /* $\ */ +IEXT STRLEN Iorslen; +IEXT char * Iofmt; /* $# */ +IEXT I32 Imaxsysfd IINIT(MAXSYSFD); /* top fd to pass to subprocesses */ +IEXT int Imultiline; /* $*--do strings hold >1 line? */ +IEXT U32 Istatusvalue; /* $? */ + +IEXT struct stat Istatcache; /* _ */ +IEXT GV * Istatgv; +IEXT SV * Istatname IINIT(Nullsv); + +/* shortcuts to various I/O objects */ +IEXT GV * Istdingv; +IEXT GV * Ilast_in_gv; +IEXT GV * Idefgv; +IEXT GV * Iargvgv; +IEXT GV * Idefoutgv; +IEXT GV * Iargvoutgv; + +/* shortcuts to regexp stuff */ +IEXT GV * Ileftgv; +IEXT GV * Iampergv; +IEXT GV * Irightgv; +IEXT PMOP * Icurpm; /* what to do \ interps from */ +IEXT I32 * Iscreamfirst; +IEXT I32 * Iscreamnext; +IEXT I32 Imaxscream IINIT(-1); +IEXT SV * Ilastscream; + +/* shortcuts to misc objects */ +IEXT GV * Ierrgv; + +/* shortcuts to debugging objects */ +IEXT GV * IDBgv; +IEXT GV * IDBline; +IEXT GV * IDBsub; +IEXT SV * IDBsingle; +IEXT SV * IDBtrace; +IEXT SV * IDBsignal; +IEXT AV * Ilineary; /* lines of script for debugger */ +IEXT AV * Idbargs; /* args to call listed by caller function */ + +/* symbol tables */ +IEXT HV * Idefstash; /* main symbol table */ +IEXT HV * Icurstash; /* symbol table for current package */ +IEXT HV * Idebstash; /* symbol table for perldb package */ +IEXT SV * Icurstname; /* name of current package */ +IEXT AV * Ibeginav; /* names of BEGIN subroutines */ +IEXT AV * Iendav; /* names of END subroutines */ +IEXT AV * Ipad; /* storage for lexically scoped temporaries */ +IEXT AV * Ipadname; /* variable names for "my" variables */ + +/* memory management */ +IEXT SV ** Itmps_stack; +IEXT I32 Itmps_ix IINIT(-1); +IEXT I32 Itmps_floor IINIT(-1); +IEXT I32 Itmps_max; +IEXT I32 Isv_count; /* how many SV* are currently allocated */ +IEXT I32 Isv_objcount; /* how many objects are currently allocated */ +IEXT SV* Isv_root; /* storage for SVs belonging to interp */ +IEXT SV* Isv_arenaroot; /* list of areas for garbage collection */ + +/* funky return mechanisms */ +IEXT I32 Ilastspbase; +IEXT I32 Ilastsize; +IEXT int Iforkprocess; /* so do_open |- can return proc# */ + +/* subprocess state */ +IEXT AV * Ifdpid; /* keep fd-to-pid mappings for my_popen */ +IEXT HV * Ipidstatus; /* keep pid-to-status mappings for waitpid */ + +/* internal state */ +IEXT VOL int Iin_eval; /* trap "fatal" errors? */ +IEXT OP * Irestartop; /* Are we propagating an error from croak? */ +IEXT int Idelaymagic; /* ($<,$>) = ... */ +IEXT bool Idirty; /* In the middle of tearing things down? */ +IEXT U8 Ilocalizing; /* are we processing a local() list? */ +IEXT bool Itainted; /* using variables controlled by $< */ +IEXT bool Itainting; /* doing taint checks */ +IEXT char * Iop_mask IINIT(NULL); /* masked operations for safe evals */ + +/* trace state */ +IEXT I32 Idlevel; +IEXT I32 Idlmax IINIT(128); +IEXT char * Idebname; +IEXT char * Idebdelim; + +/* current interpreter roots */ +IEXT CV * Imain_cv; +IEXT OP * Imain_root; +IEXT OP * Imain_start; +IEXT OP * Ieval_root; +IEXT OP * Ieval_start; + +/* runtime control stuff */ +IEXT COP * VOL Icurcop IINIT(&compiling); +IEXT line_t Icopline IINIT(NOLINE); +IEXT CONTEXT * Icxstack; +IEXT I32 Icxstack_ix IINIT(-1); +IEXT I32 Icxstack_max IINIT(128); +IEXT Sigjmp_buf Itop_env; +IEXT I32 Irunlevel; + +/* stack stuff */ +IEXT AV * Istack; /* THE STACK */ +IEXT AV * Imainstack; /* the stack when nothing funny is happening */ +IEXT SV ** Imystack_base; /* stack->array_ary */ +IEXT SV ** Imystack_sp; /* stack pointer now */ +IEXT SV ** Imystack_max; /* stack->array_ary + stack->array_max */ + +/* format accumulators */ +IEXT SV * Iformtarget; +IEXT SV * Ibodytarget; +IEXT SV * Itoptarget; + +/* statics moved here for shared library purposes */ +IEXT SV Istrchop; /* return value from chop */ +IEXT int Ifilemode; /* so nextargv() can preserve mode */ +IEXT int Ilastfd; /* what to preserve mode on */ +IEXT char * Ioldname; /* what to preserve mode on */ +IEXT char ** IArgv; /* stuff to free from do_aexec, vfork safe */ +IEXT char * ICmd; /* stuff to free from do_aexec, vfork safe */ +IEXT OP * Isortcop; /* user defined sort routine */ +IEXT HV * Isortstash; /* which is in some package or other */ +IEXT GV * Ifirstgv; /* $a */ +IEXT GV * Isecondgv; /* $b */ +IEXT AV * Isortstack; /* temp stack during pp_sort() */ +IEXT AV * Isignalstack; /* temp stack during sighandler() */ +IEXT SV * Imystrk; /* temp key string for do_each() */ +IEXT I32 Idumplvl; /* indentation level on syntax tree dump */ +IEXT PMOP * Ioldlastpm; /* for saving regexp context during debugger */ +IEXT I32 Igensym; /* next symbol for getsym() to define */ +IEXT bool Ipreambled; +IEXT AV * Ipreambleav; +IEXT int Ilaststatval IINIT(-1); +IEXT I32 Ilaststype IINIT(OP_STAT); + +#undef IEXT +#undef IINIT + +#ifdef MULTIPLICITY +}; +#else +struct interpreter { + char broiled; +}; +#endif + +#include "pp.h" + +#ifdef __cplusplus +extern "C" { +#endif + +#ifdef __cplusplus +# ifndef I_STDARG +# define I_STDARG 1 +# endif #endif + +#ifdef I_STDARG +# include +#else +# ifdef I_VARARGS +# include +# endif +#endif + +#include "proto.h" + +#ifdef EMBED +#define Perl_sv_setptrobj(rv,ptr,name) Perl_sv_setref_iv(rv,name,(IV)ptr) +#define Perl_sv_setptrref(rv,ptr) Perl_sv_setref_iv(rv,Nullch,(IV)ptr) +#else +#define sv_setptrobj(rv,ptr,name) sv_setref_iv(rv,name,(IV)ptr) +#define sv_setptrref(rv,ptr) sv_setref_iv(rv,Nullch,(IV)ptr) #endif -#ifndef SETREGID -#ifdef SETRESGID -#define setregid(r,e) setresgid(r,e,-1) -#define SETREGID + +#ifdef __cplusplus +}; #endif + +/* The following must follow proto.h */ + +#ifdef DOINIT +EXT MGVTBL vtbl_sv = {magic_get, + magic_set, + magic_len, + 0, 0}; +EXT MGVTBL vtbl_env = {0, 0, 0, 0, 0}; +EXT MGVTBL vtbl_envelem = {0, magic_setenv, + 0, magic_clearenv, + 0}; +EXT MGVTBL vtbl_sig = {0, 0, 0, 0, 0}; +EXT MGVTBL vtbl_sigelem = {0, magic_setsig, + 0, 0, 0}; +EXT MGVTBL vtbl_pack = {0, 0, 0, magic_wipepack, + 0}; +EXT MGVTBL vtbl_packelem = {magic_getpack, + magic_setpack, + 0, magic_clearpack, + 0}; +EXT MGVTBL vtbl_dbline = {0, magic_setdbline, + 0, 0, 0}; +EXT MGVTBL vtbl_isa = {0, magic_setisa, + 0, 0, 0}; +EXT MGVTBL vtbl_isaelem = {0, magic_setisa, + 0, 0, 0}; +EXT MGVTBL vtbl_arylen = {magic_getarylen, + magic_setarylen, + 0, 0, 0}; +EXT MGVTBL vtbl_glob = {magic_getglob, + magic_setglob, + 0, 0, 0}; +EXT MGVTBL vtbl_mglob = {0, magic_setmglob, + 0, 0, 0}; +EXT MGVTBL vtbl_taint = {magic_gettaint,magic_settaint, + 0, 0, 0}; +EXT MGVTBL vtbl_substr = {0, magic_setsubstr, + 0, 0, 0}; +EXT MGVTBL vtbl_vec = {0, magic_setvec, + 0, 0, 0}; +EXT MGVTBL vtbl_pos = {magic_getpos, + magic_setpos, + 0, 0, 0}; +EXT MGVTBL vtbl_bm = {0, magic_setbm, + 0, 0, 0}; +EXT MGVTBL vtbl_uvar = {magic_getuvar, + magic_setuvar, + 0, 0, 0}; + +#ifdef OVERLOAD +EXT MGVTBL vtbl_amagic = {0, magic_setamagic, + 0, 0, magic_setamagic}; +EXT MGVTBL vtbl_amagicelem = {0, magic_setamagic, + 0, 0, magic_setamagic}; +#endif /* OVERLOAD */ + +#else +EXT MGVTBL vtbl_sv; +EXT MGVTBL vtbl_env; +EXT MGVTBL vtbl_envelem; +EXT MGVTBL vtbl_sig; +EXT MGVTBL vtbl_sigelem; +EXT MGVTBL vtbl_pack; +EXT MGVTBL vtbl_packelem; +EXT MGVTBL vtbl_dbline; +EXT MGVTBL vtbl_isa; +EXT MGVTBL vtbl_isaelem; +EXT MGVTBL vtbl_arylen; +EXT MGVTBL vtbl_glob; +EXT MGVTBL vtbl_mglob; +EXT MGVTBL vtbl_taint; +EXT MGVTBL vtbl_substr; +EXT MGVTBL vtbl_vec; +EXT MGVTBL vtbl_pos; +EXT MGVTBL vtbl_bm; +EXT MGVTBL vtbl_uvar; + +#ifdef OVERLOAD +EXT MGVTBL vtbl_amagic; +EXT MGVTBL vtbl_amagicelem; +#endif /* OVERLOAD */ + #endif + +#ifdef OVERLOAD +EXT long amagic_generation; + +#define NofAMmeth 29 +#ifdef DOINIT +EXT char * AMG_names[NofAMmeth][2] = { + {"fallback","abs"}, + {"bool", "nomethod"}, + {"\"\"", "0+"}, + {"+","+="}, + {"-","-="}, + {"*", "*="}, + {"/", "/="}, + {"%", "%="}, + {"**", "**="}, + {"<<", "<<="}, + {">>", ">>="}, + {"&", "&="}, + {"|", "|="}, + {"^", "^="}, + {"<", "<="}, + {">", ">="}, + {"==", "!="}, + {"<=>", "cmp"}, + {"lt", "le"}, + {"gt", "ge"}, + {"eq", "ne"}, + {"!", "~"}, + {"++", "--"}, + {"atan2", "cos"}, + {"sin", "exp"}, + {"log", "sqrt"}, + {"x","x="}, + {".",".="}, + {"=","neg"} +}; +#else +EXT char * AMG_names[NofAMmeth][2]; +#endif /* def INITAMAGIC */ + +struct am_table { + long was_ok_sub; + long was_ok_am; + CV* table[NofAMmeth*2]; + long fallback; +}; +typedef struct am_table AMT; + +#define AMGfallNEVER 1 +#define AMGfallNO 2 +#define AMGfallYES 3 + +enum { + fallback_amg, abs_amg, + bool__amg, nomethod_amg, + string_amg, numer_amg, + add_amg, add_ass_amg, + subtr_amg, subtr_ass_amg, + mult_amg, mult_ass_amg, + div_amg, div_ass_amg, + mod_amg, mod_ass_amg, + pow_amg, pow_ass_amg, + lshift_amg, lshift_ass_amg, + rshift_amg, rshift_ass_amg, + band_amg, band_ass_amg, + bor_amg, bor_ass_amg, + bxor_amg, bxor_ass_amg, + lt_amg, le_amg, + gt_amg, ge_amg, + eq_amg, ne_amg, + ncmp_amg, scmp_amg, + slt_amg, sle_amg, + sgt_amg, sge_amg, + seq_amg, sne_amg, + not_amg, compl_amg, + inc_amg, dec_amg, + atan2_amg, cos_amg, + sin_amg, exp_amg, + log_amg, sqrt_amg, + repeat_amg, repeat_ass_amg, + concat_amg, concat_ass_amg, + copy_amg, neg_amg +}; +#endif /* OVERLOAD */ + +#endif /* Include guard */