diff options
author | Ian Lynagh <igloo@earth.li> | 2008-11-08 14:34:23 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2008-11-08 14:34:23 +0000 |
commit | fb8bf8536a4b72b59cb7a3fc26c5787f3b80348d (patch) | |
tree | c97a1e0e828d2437ecf8a4d982db364925406f1a /compiler/utils | |
parent | b55b4a3e97fe740dc480cfe815b0b77950eb78c3 (diff) | |
download | haskell-fb8bf8536a4b72b59cb7a3fc26c5787f3b80348d.tar.gz |
Remove the GHC 6.4 unicode compat stuff; we can now just use Data.Char
Diffstat (limited to 'compiler/utils')
-rw-r--r-- | compiler/utils/Unicode.hs | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/compiler/utils/Unicode.hs b/compiler/utils/Unicode.hs deleted file mode 100644 index c12dc4600f..0000000000 --- a/compiler/utils/Unicode.hs +++ /dev/null @@ -1,69 +0,0 @@ -{-# OPTIONS -cpp #-} -module Unicode ( - GeneralCategory(..), generalCategory, isPrint, isUpper - ) where - -#if __GLASGOW_HASKELL__ > 604 - -import Data.Char (GeneralCategory(..), generalCategory,isPrint,isUpper) - -#else - -import Foreign.C ( CInt ) -import Data.Char ( ord ) - --- | Unicode General Categories (column 2 of the UnicodeData table) --- in the order they are listed in the Unicode standard. - -data GeneralCategory - = UppercaseLetter -- Lu Letter, Uppercase - | LowercaseLetter -- Ll Letter, Lowercase - | TitlecaseLetter -- Lt Letter, Titlecase - | ModifierLetter -- Lm Letter, Modifier - | OtherLetter -- Lo Letter, Other - | NonSpacingMark -- Mn Mark, Non-Spacing - | SpacingCombiningMark -- Mc Mark, Spacing Combining - | EnclosingMark -- Me Mark, Enclosing - | DecimalNumber -- Nd Number, Decimal - | LetterNumber -- Nl Number, Letter - | OtherNumber -- No Number, Other - | ConnectorPunctuation -- Pc Punctuation, Connector - | DashPunctuation -- Pd Punctuation, Dash - | OpenPunctuation -- Ps Punctuation, Open - | ClosePunctuation -- Pe Punctuation, Close - | InitialQuote -- Pi Punctuation, Initial quote - | FinalQuote -- Pf Punctuation, Final quote - | OtherPunctuation -- Po Punctuation, Other - | MathSymbol -- Sm Symbol, Math - | CurrencySymbol -- Sc Symbol, Currency - | ModifierSymbol -- Sk Symbol, Modifier - | OtherSymbol -- So Symbol, Other - | Space -- Zs Separator, Space - | LineSeparator -- Zl Separator, Line - | ParagraphSeparator -- Zp Separator, Paragraph - | Control -- Cc Other, Control - | Format -- Cf Other, Format - | Surrogate -- Cs Other, Surrogate - | PrivateUse -- Co Other, Private Use - | NotAssigned -- Cn Other, Not Assigned - deriving (Eq, Ord, Enum, Read, Show, Bounded) - --- | Retrieves the general Unicode category of the character. -generalCategory :: Char -> GeneralCategory -generalCategory c = toEnum $ fromIntegral $ wgencat $ fromIntegral $ ord c - -foreign import ccall unsafe "u_gencat" - wgencat :: CInt -> CInt - -isPrint :: Char -> Bool -isPrint c = iswprint (fromIntegral (ord c)) /= 0 - -isUpper :: Char -> Bool -isUpper c = iswupper (fromIntegral (ord c)) /= 0 - -foreign import ccall unsafe "u_iswprint" - iswprint :: CInt -> CInt - -foreign import ccall unsafe "u_iswupper" - iswupper :: CInt -> CInt -#endif |