Remove some commented out code
authorIan Lynagh <igloo@earth.li>
Mon, 21 May 2012 19:16:54 +0000 (20:16 +0100)
committerIan Lynagh <igloo@earth.li>
Mon, 21 May 2012 19:16:54 +0000 (20:16 +0100)
Commented out since 2005, so doesn't seem worth maintaining it

libraries/base/GHC/Unicode.hs

index 9de8ea4..429767d 100644 (file)
@@ -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
-