Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d277e19b91024ba8412efd1ffd83ec3772ea6010 >--------------------------------------------------------------- commit d277e19b91024ba8412efd1ffd83ec3772ea6010 Author: Ian Lynagh <[email protected]> Date: Mon May 21 20:16:54 2012 +0100 Remove some commented out code Commented out since 2005, so doesn't seem worth maintaining it >--------------------------------------------------------------- GHC/Unicode.hs | 46 +--------------------------------------------- 1 files changed, 1 insertions(+), 45 deletions(-) diff --git a/GHC/Unicode.hs b/GHC/Unicode.hs index 9de8ea4..429767d 100644 --- a/GHC/Unicode.hs +++ b/GHC/Unicode.hs @@ -130,9 +130,7 @@ toTitle :: Char -> Char -- ----------------------------------------------------------------------------- -- Implementation with the supplied auto-generated Unicode character properties --- table (default) - -#if 1 +-- table -- Regardless of the O/S and Library, use the functions contained in WCsubst.c @@ -181,45 +179,3 @@ foreign import ccall unsafe "u_towtitle" foreign import ccall unsafe "u_gencat" wgencat :: CInt -> CInt --- ----------------------------------------------------------------------------- --- No libunicode, so fall back to the ASCII-only implementation (never used, indeed) - -#else - -isControl c = c < ' ' || c >= '\DEL' && c <= '\x9f' -isPrint c = not (isControl c) - --- The upper case ISO characters have the multiplication sign dumped --- randomly in the middle of the range. Go figure. -isUpper c = c >= 'A' && c <= 'Z' || - c >= '\xC0' && c <= '\xD6' || - c >= '\xD8' && c <= '\xDE' --- The lower case ISO characters have the division sign dumped --- randomly in the middle of the range. Go figure. -isLower c = c >= 'a' && c <= 'z' || - c >= '\xDF' && c <= '\xF6' || - c >= '\xF8' && c <= '\xFF' - -isAlpha c = isLower c || isUpper c -isAlphaNum c = isAlpha c || isDigit c - --- Case-changing operations - -toUpper c@(C# c#) - | isAsciiLower c = C# (chr# (ord# c# -# 32#)) - | isAscii c = c - -- fall-through to the slower stuff. - | isLower c && c /= '\xDF' && c /= '\xFF' - = unsafeChr (ord c `minusInt` ord 'a' `plusInt` ord 'A') - | otherwise - = c - - -toLower c@(C# c#) - | isAsciiUpper c = C# (chr# (ord# c# +# 32#)) - | isAscii c = c - | isUpper c = unsafeChr (ord c `minusInt` ord 'A' `plusInt` ord 'a') - | otherwise = c - -#endif - _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
