-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
-----------------------------------------------------------------------------
-- |
-- Module : GHC.Unicde
import GHC.Word
import GHC.Num (fromInteger)
-#include "config.h"
+#include "ghcconfig.h"
+#include "HsBaseConfig.h"
-- | Selects the first 128 characters of the Unicode character set,
-- corresponding to the ASCII character set.
isLower :: Char -> Bool
-- | Selects alphabetic Unicode characters (letters).
+--
+-- Note: the Haskell 98 definition of 'isAlpha' is:
+--
+-- > isAlpha c = isUpper c || isLower c
+--
+-- the implementation here diverges from the Haskell 98
+-- definition in the sense that Unicode alphabetic characters which
+-- are neither upper nor lower case will still be identified as
+-- alphabetic by 'isAlpha'.
isAlpha :: Char -> Bool
-- | Selects alphabetic or numeric digit Unicode characters.
-- -----------------------------------------------------------------------------
-- Win32 implementation
-#if (defined(HAVE_WCTYPE_H) && HAVE_ISWSPACE && defined(HTYPE_WINT_T)) || mingw32_TARGET_OS
+#if (defined(HAVE_WCTYPE_H) && HAVE_ISWSPACE && defined(HTYPE_WINT_T)) || mingw32_HOST_OS
-- Use the wide-char classification functions if available. Glibc
-- seems to implement these properly, even for chars > 0xffff, as long