- Haskell-i18n - Haskell.org

E-mail direct marketing... (would ministers see Satan, like lightning, fall from heaven, )
by Beatles F. Squirreled 22 Sep '04

22 Sep '04

Hello, Advancement of your business by direct e-mail marketing. We offer e-mail mass mailing to any country. We guarantee professional and quick performance of the work. Contacts: icq: 174677598 spam(a)emails.ru sorrowful heart) and showed his Lord these things. However

1 0

Ã¢¾÷Á¤º¸ÀÔ´Ï´Ù.
by ��絷 16 Jun '04

16 Jun '04

1 0

(±¤°í)¼îÇÎ¸ô¼Ö·ç¼ÇÆíÇÑ°Í ¾øÀ»±î? ¢Ñ ¼ö¸¹Àº µðÀÚÀÌ³Êµé²²¼ ¼±ÅÃÇÑ¼Ö·ç¼ÇÀÔ´Ï´Ù. @
by �� 01 Jun '04

01 Jun '04

1 0

[Haskell-i18n] "(±¤°í)¿Â¶óÀÎ°ñÇÁ ÇÔ ÇØº¸½Ã°í-Å« »ç¾÷±¸»óÇÏ½Ê½Ã¿À@""
by ų��ڷ� 21 Apr '04

21 Apr '04

1 0

[Haskell-i18n] "'(±¤°í)¿Â¶óÀÎ°ÔÀÓ»ç¾÷ÀÌ ´ç½ÅÀÇ ºÎ¾÷ÀÌ µÈ´Ù¸é-ÇÔ ÇØº¸½Ã°Ú½À´Ï±î?@"'
by �� 15 Apr '04

15 Apr '04

1 0

Code for conversion to and from UTF8
by George Russell 12 Feb '04

12 Feb '04

I don't know if anyone else has done this, but I thought my own effort (attached) might be of interest. It converts String -> String to and from UTF8 representations. It /should/ compile with any Haskell98 compiler which also has the (base) library Data.Bits. I'd be happy to see it in the standard hierarchy, if that's desired. Good points: (1) I think I've tested it fairly thoroughly; (2) when decoding UTF8 sequences, it rejects all ill-formatted sequences, and such errors can be easily detected (without exception handlers). Bad points: it's unoptimised. {- This module contains functions for converting to and from the UTF8 representations for Strings. -} module UTF8( toUTF8, -- :: String -> String -- Converts a String (whose characters must all have codes <2^31) into -- its UTF8 representation. fromUTF8WE, -- :: Monad m => String -> m String -- Converts a UTF8 representation of a String back into the String, -- catching all possible format errors. -- -- Example: With the Haskell module Control.Monad.Error, you can -- instance this as -- (fromUTF8WE :: String -> Either String String) -- to get a conversion function which either succeeds (Right) or -- returns an error message (Left). ) where import Char import List import Data.Bits -- -------------------------------------------------------------------------- -- Encoding -- -------------------------------------------------------------------------- -- | Converts a String into its UTF8 representation. toUTF8 :: String -> String toUTF8 [] = [] toUTF8 (x:xs) = let xs1 = toUTF8 xs ox = ord x mkUTF8 :: Int -> String -> Int -> Int -> String mkUTF8 x0 xs0 xmask0 xmax0 = let xbot = 0x80 .|. (x0 .&. 0x3f) x1 = x0 `shiftR` 6 xs1 = chr xbot : xs0 in if x1 < xmax0 then chr (xmask0 .|. x1) : xs1 else let xmask1 = xmask0 .|. xmax0 xmax1 = xmax0 `shiftR` 1 in mkUTF8 x1 xs1 xmask1 xmax1 in if ox <= 0x7f then x : xs1 else if ox `shiftR` 31 /= 0 then error ("Huge character with code " ++ show ox ++ " detected in string being converted to UTF8.") else mkUTF8 ox xs1 0xc0 0x20 -- | Converts a UTF8 representation of a String back into the String, -- catching all possible format errors. -- -- Example: With the Haskell module Control.Monad.Error, you can -- instance this as -- (fromUTF8WE :: String -> Either String String) -- to get a conversion function which either succeeds (Right) or -- returns an error message (Left). fromUTF8WE :: Monad m => String -> m String fromUTF8WE [] = return [] fromUTF8WE (x0 : xs0) = let ox = ord x0 in case topZero8 ox of 7 -> do xs1 <- fromUTF8WE xs0 return (x0 : xs1) 6 -> fail "UTF8 escape sequence starts 10xxxxxx" 0 -> fail "UTF8 escape sequence starts 11111110" -1 -> fail "UTF8 escape sequence starts 11111111" n -> let r = 6 - n -- number of 6-bit pieces xtop = ox .&. ones n minx = bit ( if r == 1 then 7 else 5*r + 1 ) mkx [] _ _ = fail "UTF8 string ends in middle of escape sequence" mkx (ch : xs1) x0 count0 = do let och = ord ch if och .&. 0x80 /= 0x80 then fail ("UTF8 escape sequence contains continuing " ++ "character not of form 10xxxxxx") else return () let xbot = och .&. 0x3f x1 = (x0 `shiftL` 6) .|. xbot count1 = count0 - 1 if count1 == 0 then return (x1,xs1) else mkx xs1 x1 count1 in do (x,xs1) <- mkx xs0 xtop r if x < minx then fail ("UTF8 escape sequence contains character not " ++ "optimally encoded") else do xs2 <- fromUTF8WE xs1 return (chr x : xs2) -- -------------------------------------------------------------------------- -- Binary utilities -- -------------------------------------------------------------------------- -- | return the number of the top bit which is zero, or -1 if they -- are all zero, for a number between 0 and 255. topZero8 :: Int -> Int topZero8 i = case (findIndex not (map (\ bn -> testBit i bn) [7,6..0] )) of Just n -> 7 - n Nothing -> -1 -- | (ones i) is number with binary representation 1 written i times. ones :: Int -> Int ones i = bit i - 1

2 1

Experimental Unicode Support in Hugs Available for Testing
by Dimitry Golubovsky 06 Dec '03

06 Dec '03

Finally, the code to support Unicode has been integrated into Hugs. Special thanks to Ross Paterson who carefully inserted the code I proposed into the hugs sources hierarchy. Please see the release notes and to find out how to obtain the code for testing: http://www.golubovsky.org/software/hugs-patch/hugs_unicode_test.html Please direct all questions and comments to me <dimitry at golubovsky dot org> or in appropriate mailing lists. -- Dmitry M. Golubovsky South Lyon, MI

1 0

[Haskell-i18n] "(±¤°í)±â°¡¸·Èù ºÎ¾÷Á¤º¸-½ºÆÄÀÌ´õ(ÀÏ¸í:µ·°Å¹Ì)¹«·áºÐ¾ç@"
by ��з�� 05 Dec '03

05 Dec '03

1 0

"(±¤°í)´ëÇÑ¹Î±¹-ÀÎÅÍ³ÝÀÇ ÁöÃàÀ» Èçµé°ÔµÉ ¸Å¿ì ³î¶ó¿î»ç½Ç ÇÑ°¡Áö¸¦ ÀüÇÕ´Ï´Ù.@"
by ��ģ�� 23 Nov '03

23 Nov '03

1 0

isnt it time you refinanced?
by flowers 05 Oct '03

05 Oct '03

1 0