perl 5.002_01: t/cmd/mod.t

[p5sagit/p5-mst-13.2.git] / handy.h

diff --git a/handy.h b/handy.h
index 4800906..aa4107e 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -1,31 +1,13 @@
-/* $RCSfile: handy.h,v $$Revision: 4.1 $$Date: 92/08/07 18:21:46 $
+/*    handy.h
  *
- *    Copyright (c) 1991, Larry Wall
+ *    Copyright (c) 1991-1994, Larry Wall
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
  *
- * $Log:       handy.h,v $
- * Revision 4.1  92/08/07  18:21:46  lwall
- * 
- * Revision 4.0.1.4  92/06/08  13:23:17  lwall
- * patch20: isascii() may now be supplied by a library routine
- * patch20: Perl now distinguishes overlapped copies from non-overlapped
- * 
- * Revision 4.0.1.3  91/11/05  22:54:26  lwall
- * patch11: erratum
- * 
- * Revision 4.0.1.2  91/11/05  17:23:38  lwall
- * patch11: prepared for ctype implementations that don't define isascii()
- * 
- * Revision 4.0.1.1  91/06/07  11:09:56  lwall
- * patch4: new copyright notice
- * 
- * Revision 4.0  91/03/20  01:22:15  lwall
- * 4.0 baseline.
- * 
  */
 
+#if !defined(__STDC__)
 #ifdef NULL
 #undef NULL
 #endif
@@ -34,15 +16,33 @@
 #else
 #  define NULL 0L
 #endif
+#endif
+
 #define Null(type) ((type)NULL)
 #define Nullch Null(char*)
 #define Nullfp Null(FILE*)
 #define Nullsv Null(SV*)
 
-#ifdef UTS
-#define bool int
-#else
-#define bool char
+/* bool is built-in for g++-2.6.3, which might be used for an extension.
+   If the extension includes <_G_config.h> before this file then
+   _G_HAVE_BOOL will be properly set.  If, however, the extension includes
+   this file first, then you will have to manually set -DHAS_BOOL in 
+   your command line to avoid a conflict.
+*/
+#ifdef _G_HAVE_BOOL
+# if _G_HAVE_BOOL
+#  ifndef HAS_BOOL
+#   define HAS_BOOL 1
+#  endif
+# endif
+#endif
+
+#ifndef HAS_BOOL
+# ifdef UTS
+#  define bool int
+# else
+#  define bool char
+# endif
 #endif
 
 #ifdef TRUE
@@ -60,12 +60,12 @@ typedef unsigned char       U8;
 typedef short          I16;
 typedef unsigned short U16;
 
-#if INTSIZE == 4
-typedef int            I32;
-typedef unsigned int   U32;
+#if BYTEORDER > 0x4321
+  typedef int          I32;
+  typedef unsigned int U32;
 #else
-typedef long           I32;
-typedef unsigned long  U32;
+  typedef long         I32;
+  typedef unsigned long        U32;
 #endif
 
 #define Ctl(ch) (ch & 037)
@@ -79,14 +79,33 @@ typedef unsigned long       U32;
 #define strnNE(s1,s2,l) (strncmp(s1,s2,l))
 #define strnEQ(s1,s2,l) (!strncmp(s1,s2,l))
 
+#ifdef HAS_SETLOCALE  /* XXX Is there a better test for this? */
+#  ifndef CTYPE256
+#    define CTYPE256
+#  endif
+#endif
+
+#ifdef USE_NEXT_CTYPE 
+#define isALNUM(c)   (NXIsAlpha((unsigned int)c) || NXIsDigit((unsigned int)c) || c == '_')
+#define isIDFIRST(c) (NXIsAlpha((unsigned int)c) || c == '_')
+#define isALPHA(c)   NXIsAlpha((unsigned int)c)
+#define isSPACE(c)   NXIsSpace((unsigned int)c)
+#define isDIGIT(c)   NXIsDigit((unsigned int)c)
+#define isUPPER(c)   NXIsUpper((unsigned int)c)
+#define isLOWER(c)   NXIsLower((unsigned int)c)
+#define toUPPER(c)   NXToUpper((unsigned int)c)
+#define toLOWER(c)   NXToLower((unsigned int)c)
+#else /* USE_NEXT_CTYPE */
 #if defined(CTYPE256) || (!defined(isascii) && !defined(HAS_ISASCII))
-#define isALNUM(c)   (isalpha(c) || isdigit(c) || c == '_')
-#define isIDFIRST(c) (isalpha(c) || (c) == '_')
-#define isALPHA(c)   isalpha(c)
-#define isSPACE(c)   isspace(c)
-#define isDIGIT(c)   isdigit(c)
-#define isUPPER(c)   isupper(c)
-#define isLOWER(c)   islower(c)
+#define isALNUM(c)   (isalpha((unsigned char)(c)) || isdigit((unsigned char)(c)) || c == '_')
+#define isIDFIRST(c) (isalpha((unsigned char)(c)) || (c) == '_')
+#define isALPHA(c)   isalpha((unsigned char)(c))
+#define isSPACE(c)   isspace((unsigned char)(c))
+#define isDIGIT(c)   isdigit((unsigned char)(c))
+#define isUPPER(c)   isupper((unsigned char)(c))
+#define isLOWER(c)   islower((unsigned char)(c))
+#define toUPPER(c)   toupper((unsigned char)(c))
+#define toLOWER(c)   tolower((unsigned char)(c))
 #else
 #define isALNUM(c)   (isascii(c) && (isalpha(c) || isdigit(c) || c == '_'))
 #define isIDFIRST(c) (isascii(c) && (isalpha(c) || (c) == '_'))
@@ -95,7 +114,10 @@ typedef unsigned long       U32;
 #define isDIGIT(c)   (isascii(c) && isdigit(c))
 #define isUPPER(c)   (isascii(c) && isupper(c))
 #define isLOWER(c)   (isascii(c) && islower(c))
+#define toUPPER(c)   toupper(c)
+#define toLOWER(c)   tolower(c)
 #endif
+#endif /* USE_NEXT_CTYPE */
 
 /* Line numbers are unsigned, 16 bits. */
 typedef U16 line_t;
@@ -108,9 +130,9 @@ typedef U16 line_t;
 #ifndef lint
 #ifndef LEAKTEST
 #ifndef safemalloc
-char *safemalloc();
-char *saferealloc();
-void safefree();
+char *safemalloc _((MEM_SIZE));
+char *saferealloc _((char *, MEM_SIZE));
+void safefree _((char *));
 #endif
 #ifndef MSDOS
 #define New(x,v,n,t)  (v = (t*)safemalloc((MEM_SIZE)((n) * sizeof(t))))
@@ -159,7 +181,7 @@ long lastxcount[MAXXCOUNT];
 #define Safefree(d) d = d
 #endif /* lint */
 
-#ifdef STRUCTCOPY
+#ifdef USE_STRUCT_COPY
 #define StructCopy(s,d,t) *((t*)(d)) = *((t*)(s))
 #else
 #define StructCopy(s,d,t) Copy(s,d,1,t)