On Fri, Feb 03, 2006 at 01:43:15PM -0000, Simon Marlow wrote:
GHC treats the Unicode categories Sm, Sc, Sk and So as symbols, FWIW. These are the same characters for which Data.Char.isSymbol returns True.
cool. I will try to make jhc do the same thing.
How do you implement the Data.Char predicates in jhc, BTW?
for now just via the following ffi call: (though the plain 'module Char' just uses the report definitions for now)
newtype CType = CType Int
-- | Get a ctype other than one of the defaults.
ctype :: String -> IO CType ctype s = withCString s >>= c_wctype
t_alnum, t_alpha, t_blank, t_cntrl, t_digit, t_graph, t_lower, t_print, t_punct, t_space, t_upper, t_xdigit, t_none :: CType
t_alnum = unsafePerformIO (ctype "alnum") t_alpha = unsafePerformIO (ctype "alpha") t_blank = unsafePerformIO (ctype "blank") t_cntrl = unsafePerformIO (ctype "cntrl") t_digit = unsafePerformIO (ctype "digit") t_graph = unsafePerformIO (ctype "graph") t_lower = unsafePerformIO (ctype "lower") t_print = unsafePerformIO (ctype "print") t_punct = unsafePerformIO (ctype "punct") t_space = unsafePerformIO (ctype "space") t_upper = unsafePerformIO (ctype "upper") t_xdigit = unsafePerformIO (ctype "xdigit") t_none = CType 0
foreign import ccall "wctype.h iswctype" c_iswctype :: Char -> CType -> IO Int foreign import ccall "wctype.h wctype" c_wctype :: CString -> IO CType
John -- John Meacham - ⑆repetae.net⑆john⑈