#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
+/* XXX All process group stuff is handled in pp_sys.c. Should these
+ defines move there? If so, I could simplify this a lot. --AD 9/96.
+*/
+/* Process group stuff changed from traditional BSD to POSIX.
+ perlfunc.pod documents the traditional BSD-style syntax, so we'll
+ try to preserve that, if possible.
+*/
+#ifdef HAS_SETPGID
+# define BSD_SETPGRP(pid, pgrp) setpgid((pid), (pgrp))
#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
+# if defined(HAS_SETPGRP) && defined(USE_BSD_SETPGRP)
+# define BSD_SETPGRP(pid, pgrp) setpgrp((pid), (pgrp))
+# else
+# ifdef HAS_SETPGRP2 /* DG/UX */
+# define BSD_SETPGRP(pid, pgrp) setpgrp2((pid), (pgrp))
+# endif
+# endif
+#endif
+#if defined(BSD_SETPGRP) && !defined(HAS_SETPGRP)
+# define HAS_SETPGRP /* Well, effectively it does . . . */
+#endif
+
+/* getpgid isn't POSIX, but at least Solaris and Linux have it, and it makes
+ our life easier :-) so we'll try it.
+*/
+#ifdef HAS_GETPGID
+# define BSD_GETPGRP(pid) getpgid((pid))
+#else
+# if defined(HAS_GETPGRP) && defined(USE_BSD_GETPGRP)
+# define BSD_GETPGRP(pid) getpgrp((pid))
+# else
+# ifdef HAS_GETPGRP2 /* DG/UX */
+# define BSD_GETPGRP(pid) getpgrp2((pid))
+# endif
+# endif
+#endif
+#if defined(BSD_GETPGRP) && !defined(HAS_GETPGRP)
+# define HAS_GETPGRP /* Well, effectively it does . . . */
+#endif
+
+/* These are not exact synonyms, since setpgrp() and getpgrp() may
+ have different behaviors, but perl.h used to define USE_BSDPGRP
+ (prior to 5.003_05) so some extension might depend on it.
+*/
+#if defined(USE_BSD_SETPGRP) || defined(USE_BSD_GETPGRP)
+# ifndef USE_BSDPGRP
+# define USE_BSDPGRP
+# endif
#endif
#ifndef _TYPES_ /* If types.h defines this it's easy. */
#include <locale.h>
#endif
+EXT int lc_collate_active;
+
#ifdef METHOD /* Defined by OSF/1 v3.0 by ctype.h */
#undef METHOD
#endif
*/
#ifdef MYMALLOC
# ifdef HIDEMYMALLOC
-# define malloc Perl_malloc
-# define realloc Perl_realloc
-# define free Perl_free
-# define calloc Perl_calloc
+# define malloc Mymalloc
+# define realloc Myrealloc
+# define free Myfree
+# define calloc Mycalloc
# endif
# define safemalloc malloc
# define saferealloc realloc
#endif
#endif
-#ifdef CHAR_MAX
-# define PERL_CHAR_MAX CHAR_MAX
-#else
-# ifdef MAXCHAR /* Often used in <values.h> */
-# define PERL_CHAR_MAX MAXCHAR
-# else
-# define PERL_CHAR_MAX ((char) ((~(unsigned char)0) >> 1))
-# endif
-#endif
+/*
+ * Try to figure out max and min values for the integral types. THE CORRECT
+ * SOLUTION TO THIS MESS: ADAPT enquire.c FROM GCC INTO CONFIGURE. The
+ * following hacks are used if neither limits.h or values.h provide them:
+ * U<TYPE>_MAX: for types >= int: ~(unsigned TYPE)0
+ * for types < int: (unsigned TYPE)~(unsigned)0
+ * The argument to ~ must be unsigned so that later signed->unsigned
+ * conversion can't modify the value's bit pattern (e.g. -0 -> +0),
+ * and it must not be smaller than int because ~ does integral promotion.
+ * <type>_MAX: (<type>) (U<type>_MAX >> 1)
+ * <type>_MIN: -<type>_MAX - <is_twos_complement_architecture: (3 & -1) == 3>.
+ * The latter is a hack which happens to work on some machines but
+ * does *not* catch any random system, or things like integer types
+ * with NaN if that is possible.
+ *
+ * All of the types are explicitly cast to prevent accidental loss of
+ * numeric range, and in the hope that they will be less likely to confuse
+ * over-eager optimizers.
+ *
+ */
+
+#define PERL_UCHAR_MIN ((unsigned char)0)
-#ifdef CHAR_MIN
-# define PERL_CHAR_MIN CHAR_MIN
+#ifdef UCHAR_MAX
+# define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX)
#else
-# ifdef MINCHAR
-# define PERL_CHAR_MIN MINCHAR
+# ifdef MAXUCHAR
+# define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR)
# else
-# define PERL_CHAR_MIN (-PERL_CHAR_MAX - ((3 & -1) == 3))
+# define PERL_UCHAR_MAX ((unsigned char)~(unsigned)0)
# endif
#endif
+
+/*
+ * CHAR_MIN and CHAR_MAX are not included here, as the (char) type may be
+ * ambiguous. It may be equivalent to (signed char) or (unsigned char)
+ * depending on local options. Until Configure detects this (or at least
+ * detects whether the "signed" keyword is available) the CHAR ranges
+ * will not be included. UCHAR functions normally.
+ * - kja
+ */
-#ifdef UCHAR_MAX
-# define PERL_UCHAR_MAX UCHAR_MAX
+#define PERL_USHORT_MIN ((unsigned short)0)
+
+#ifdef USHORT_MAX
+# define PERL_USHORT_MAX ((unsigned short)USHORT_MAX)
#else
-# ifdef MAXUCHAR
-# define PERL_UCHAR_MAX MAXUCHAR
+# ifdef MAXUSHORT
+# define PERL_USHORT_MAX ((unsigned short)MAXUSHORT)
# else
-# define PERL_UCHAR_MAX (~(unsigned char)0)
+# define PERL_USHORT_MAX ((unsigned short)~(unsigned)0)
# endif
#endif
-#define PERL_UCHAR_MIN 0
-
#ifdef SHORT_MAX
-# define PERL_SHORT_MAX SHORT_MAX
+# define PERL_SHORT_MAX ((short)SHORT_MAX)
#else
# ifdef MAXSHORT /* Often used in <values.h> */
-# define PERL_SHORT_MAX MAXSHORT
+# define PERL_SHORT_MAX ((short)MAXSHORT)
# else
-# define PERL_SHORT_MAX ((short) ((~(unsigned short)0) >> 1))
+# define PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1))
# endif
#endif
#ifdef SHORT_MIN
-# define PERL_SHORT_MIN SHORT_MIN
+# define PERL_SHORT_MIN ((short)SHORT_MIN)
#else
# ifdef MINSHORT
-# define PERL_SHORT_MIN MINSHORT
+# define PERL_SHORT_MIN ((short)MINSHORT)
# else
# define PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3))
# endif
#endif
-#ifdef USHORT_MAX
-# define PERL_USHORT_MAX USHORT_MAX
+#ifdef UINT_MAX
+# define PERL_UINT_MAX ((unsigned int)UINT_MAX)
#else
-# ifdef MAXUSHORT
-# define PERL_USHORT_MAX MAXUSHORT
+# ifdef MAXUINT
+# define PERL_UINT_MAX ((unsigned int)MAXUINT)
# else
-# define PERL_USHORT_MAX (~(unsigned short)0)
+# define PERL_UINT_MAX (~(unsigned int)0)
# endif
#endif
-#define PERL_USHORT_MIN 0
+#define PERL_UINT_MIN ((unsigned int)0)
#ifdef INT_MAX
-# define PERL_INT_MAX INT_MAX
+# define PERL_INT_MAX ((int)INT_MAX)
#else
# ifdef MAXINT /* Often used in <values.h> */
-# define PERL_INT_MAX MAXINT
+# define PERL_INT_MAX ((int)MAXINT)
# else
-# define PERL_INT_MAX ((int) ((~(unsigned int)0) >> 1))
+# define PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1))
# endif
#endif
#ifdef INT_MIN
-# define PERL_INT_MIN INT_MIN
+# define PERL_INT_MIN ((int)INT_MIN)
#else
# ifdef MININT
-# define PERL_INT_MIN MININT
+# define PERL_INT_MIN ((int)MININT)
# else
# define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3))
# endif
#endif
-#ifdef UINT_MAX
-# define PERL_UINT_MAX UINT_MAX
+#ifdef ULONG_MAX
+# define PERL_ULONG_MAX ((unsigned long)ULONG_MAX)
#else
-# ifdef MAXUINT
-# define PERL_UINT_MAX MAXUINT
+# ifdef MAXULONG
+# define PERL_ULONG_MAX ((unsigned long)MAXULONG)
# else
-# define PERL_UINT_MAX (~(unsigned int)0)
+# define PERL_ULONG_MAX (~(unsigned long)0)
# endif
#endif
-#define PERL_UINT_MIN 0
+#define PERL_ULONG_MIN ((unsigned long)0L)
#ifdef LONG_MAX
-# define PERL_LONG_MAX LONG_MAX
+# define PERL_LONG_MAX ((long)LONG_MAX)
#else
# ifdef MAXLONG /* Often used in <values.h> */
-# define PERL_LONG_MAX MAXLONG
+# define PERL_LONG_MAX ((long)MAXLONG)
# else
-# define PERL_LONG_MAX ((long) ((~(unsigned long)0) >> 1))
+# define PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1))
# endif
#endif
#ifdef LONG_MIN
-# define PERL_LONG_MIN LONG_MIN
+# define PERL_LONG_MIN ((long)LONG_MIN)
#else
# ifdef MINLONG
-# define PERL_LONG_MIN MINLONG
+# define PERL_LONG_MIN ((long)MINLONG)
# else
# define PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3))
# endif
#endif
-#ifdef ULONG_MAX
-# define PERL_ULONG_MAX ULONG_MAX
-#else
-# ifdef MAXULONG
-# define PERL_ULONG_MAX MAXULONG
+#ifdef HAS_QUAD
+
+# ifdef UQUAD_MAX
+# define PERL_UQUAD_MAX ((UV)UQUAD_MAX)
# else
-# define PERL_ULONG_MAX (~(unsigned long)0)
+# define PERL_UQUAD_MAX (~(UV)0)
# endif
-#endif
-#define PERL_ULONG_MIN 0L
+# define PERL_UQUAD_MIN ((UV)0)
-#ifdef HAS_QUAD
# ifdef QUAD_MAX
-# define PERL_QUAD_MAX QUAD_MAX
+# define PERL_QUAD_MAX ((IV)QUAD_MAX)
# else
-# define PERL_QUAD_MAX ((IV) ((~(UV)0) >> 1))
+# define PERL_QUAD_MAX ((IV) (PERL_UQUAD_MAX >> 1))
# endif
# ifdef QUAD_MIN
-# define PERL_QUAD_MIN QUAD_MIN
-# else
-# define PERL_QUAD_MIN (-PERL_LONG_MAX - ((3 & -1) == 3))
-# endif
-
-# ifdef UQUAD_MAX
-# define PERL_UQUAD_MAX UQUAD_MAX
+# define PERL_QUAD_MIN ((IV)QUAD_MIN)
# else
-# define PERL_UQUAD_MAX (~(UV)0)
+# define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3))
# endif
-# define PERL_UQUAD_MIN 0
#endif
typedef MEM_SIZE STRLEN;
#define U_I(what) ((unsigned int)(what))
#define U_L(what) ((U32)(what))
#else
+# ifdef __cplusplus
+ extern "C" {
+# endif
U32 cast_ulong _((double));
+# ifdef __cplusplus
+ }
+# endif
#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)))
#define I_V(what) ((IV)(what))
#define U_V(what) ((UV)(what))
#else
+# ifdef __cplusplus
+ extern "C" {
+# endif
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));
+# ifdef __cplusplus
+ }
+# endif
+#define I_32(what) (cast_i32((double)(what)))
+#define I_V(what) (cast_iv((double)(what)))
#define U_V(what) (cast_uv((double)(what)))
#endif
#endif
#define YYMAXDEPTH 300
+#ifndef assert /* <assert.h> might have been included somehow */
#define assert(what) DEB( { \
if (!(what)) { \
croak("Assertion failed: file \"%s\", line %d", \
__FILE__, __LINE__); \
exit(1); \
}})
+#endif
struct ufuncs {
I32 (*uf_val)_((IV, SV*));
0, 0, 0};
EXT MGVTBL vtbl_mglob = {0, magic_setmglob,
0, 0, 0};
+EXT MGVTBL vtbl_nkeys = {0, magic_setnkeys,
+ 0, 0, 0};
EXT MGVTBL vtbl_taint = {magic_gettaint,magic_settaint,
0, 0, 0};
EXT MGVTBL vtbl_substr = {0, magic_setsubstr,
EXT MGVTBL vtbl_arylen;
EXT MGVTBL vtbl_glob;
EXT MGVTBL vtbl_mglob;
+EXT MGVTBL vtbl_nkeys;
EXT MGVTBL vtbl_taint;
EXT MGVTBL vtbl_substr;
EXT MGVTBL vtbl_vec;
#endif
#endif /* Include guard */
+