cb81698b7e
This way, we can declare DynEncoding an instance of Show darcs-hash:20070827020833-a4fee-a84635bf911573022b780c17b2085ff814302b3e
33 lines
782 B
Haskell
33 lines
782 B
Haskell
module Data.Encoding.ISO885915
|
|
(ISO885915(..)) where
|
|
|
|
import Data.Array ((!),Array)
|
|
import Data.Word (Word8)
|
|
import Data.Map (Map,lookup,member)
|
|
import Data.Encoding.Base
|
|
import Prelude hiding (lookup)
|
|
import Control.Exception (throwDyn)
|
|
|
|
data ISO885915 = ISO885915 deriving Show
|
|
|
|
enc :: Char -> Word8
|
|
enc c = case lookup c encodeMap of
|
|
Just v -> v
|
|
Nothing -> throwDyn (HasNoRepresentation c)
|
|
|
|
instance Encoding ISO885915 where
|
|
encode _ = encodeSinglebyte enc
|
|
encodeLazy _ = encodeSinglebyteLazy enc
|
|
encodable _ c = member c encodeMap
|
|
decode _ = decodeSinglebyte (decodeArr!)
|
|
|
|
decodeArr :: Array Word8 Char
|
|
#ifndef __HADDOCK__
|
|
decodeArr = $(decodingArray "8859-15.TXT")
|
|
#endif
|
|
|
|
encodeMap :: Map Char Word8
|
|
#ifndef __HADDOCK__
|
|
encodeMap = $(encodingMap "8859-15.TXT")
|
|
#endif
|