) where
import GHC.Base
-import GHC.Real (fromIntegral)
-import GHC.Int
-import GHC.Num (fromInteger)
+import GHC.Real (fromIntegral)
+import Foreign.C.Types (CInt)
+import GHC.Num (fromInteger)
#include "HsBaseConfig.h"
-- Regardless of the O/S and Library, use the functions contained in WCsubst.c
-type CInt = HTYPE_INT
-
isAlpha c = iswalpha (fromIntegral (ord c)) /= 0
isAlphaNum c = iswalnum (fromIntegral (ord c)) /= 0
--isSpace c = iswspace (fromIntegral (ord c)) /= 0
toUpper c = chr (fromIntegral (towupper (fromIntegral (ord c))))
toTitle c = chr (fromIntegral (towtitle (fromIntegral (ord c))))
-foreign import ccall unsafe "u_iswdigit"
- iswdigit :: CInt -> CInt
-
foreign import ccall unsafe "u_iswalpha"
iswalpha :: CInt -> CInt