{-# LANGUAGE MagicHash,DeriveDataTypeable #-}
module Data.Encoding.CP855(CP855(..)) where
import Data.Encoding.Base
import Data.Encoding.ByteSource
import Data.Encoding.ByteSink
import Data.Encoding.Exception
import Data.CharMap
import Data.Array.Static
import Data.Map.Static
import Control.Throws
import Prelude hiding (lookup)
import Data.Word
import Data.Typeable
data CP855 = CP855
deriving (Int -> CP855 -> ShowS
[CP855] -> ShowS
CP855 -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CP855] -> ShowS
$cshowList :: [CP855] -> ShowS
show :: CP855 -> String
$cshow :: CP855 -> String
showsPrec :: Int -> CP855 -> ShowS
$cshowsPrec :: Int -> CP855 -> ShowS
Show,CP855 -> CP855 -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CP855 -> CP855 -> Bool
$c/= :: CP855 -> CP855 -> Bool
== :: CP855 -> CP855 -> Bool
$c== :: CP855 -> CP855 -> Bool
Eq,Typeable)
decoding_array_CP855 :: StaticArray Word8 e
decoding_array_CP855 = forall i e. i -> i -> Addr# -> StaticArray i e
StaticArray (Word8
0) (Word8
255) Addr#
"\0\0\0\0\1\0\0\0\2\0\0\0\3\0\0\0\4\0\0\0\5\0\0\0\6\0\0\0\7\0\0\0\8\0\0\0\9\0\0\0\10\0\0\0\11\0\0\0\12\0\0\0\13\0\0\0\14\0\0\0\15\0\0\0\16\0\0\0\17\0\0\0\18\0\0\0\19\0\0\0\20\0\0\0\21\0\0\0\22\0\0\0\23\0\0\0\24\0\0\0\25\0\0\0\26\0\0\0\27\0\0\0\28\0\0\0\29\0\0\0\30\0\0\0\31\0\0\0\32\0\0\0\33\0\0\0\34\0\0\0\35\0\0\0\36\0\0\0\37\0\0\0\38\0\0\0\39\0\0\0\40\0\0\0\41\0\0\0\42\0\0\0\43\0\0\0\44\0\0\0\45\0\0\0\46\0\0\0\47\0\0\0\48\0\0\0\49\0\0\0\50\0\0\0\51\0\0\0\52\0\0\0\53\0\0\0\54\0\0\0\55\0\0\0\56\0\0\0\57\0\0\0\58\0\0\0\59\0\0\0\60\0\0\0\61\0\0\0\62\0\0\0\63\0\0\0\64\0\0\0\65\0\0\0\66\0\0\0\67\0\0\0\68\0\0\0\69\0\0\0\70\0\0\0\71\0\0\0\72\0\0\0\73\0\0\0\74\0\0\0\75\0\0\0\76\0\0\0\77\0\0\0\78\0\0\0\79\0\0\0\80\0\0\0\81\0\0\0\82\0\0\0\83\0\0\0\84\0\0\0\85\0\0\0\86\0\0\0\87\0\0\0\88\0\0\0\89\0\0\0\90\0\0\0\91\0\0\0\92\0\0\0\93\0\0\0\94\0\0\0\95\0\0\0\96\0\0\0\97\0\0\0\98\0\0\0\99\0\0\0\100\0\0\0\101\0\0\0\102\0\0\0\103\0\0\0\104\0\0\0\105\0\0\0\106\0\0\0\107\0\0\0\108\0\0\0\109\0\0\0\110\0\0\0\111\0\0\0\112\0\0\0\113\0\0\0\114\0\0\0\115\0\0\0\116\0\0\0\117\0\0\0\118\0\0\0\119\0\0\0\120\0\0\0\121\0\0\0\122\0\0\0\123\0\0\0\124\0\0\0\125\0\0\0\126\0\0\0\127\0\0\0\82\4\0\0\2\4\0\0\83\4\0\0\3\4\0\0\81\4\0\0\1\4\0\0\84\4\0\0\4\4\0\0\85\4\0\0\5\4\0\0\86\4\0\0\6\4\0\0\87\4\0\0\7\4\0\0\88\4\0\0\8\4\0\0\89\4\0\0\9\4\0\0\90\4\0\0\10\4\0\0\91\4\0\0\11\4\0\0\92\4\0\0\12\4\0\0\94\4\0\0\14\4\0\0\95\4\0\0\15\4\0\0\78\4\0\0\46\4\0\0\74\4\0\0\42\4\0\0\48\4\0\0\16\4\0\0\49\4\0\0\17\4\0\0\70\4\0\0\38\4\0\0\52\4\0\0\20\4\0\0\53\4\0\0\21\4\0\0\68\4\0\0\36\4\0\0\51\4\0\0\19\4\0\0\171\0\0\0\187\0\0\0\145\37\0\0\146\37\0\0\147\37\0\0\2\37\0\0\36\37\0\0\69\4\0\0\37\4\0\0\56\4\0\0\24\4\0\0\99\37\0\0\81\37\0\0\87\37\0\0\93\37\0\0\57\4\0\0\25\4\0\0\16\37\0\0\20\37\0\0\52\37\0\0\44\37\0\0\28\37\0\0\0\37\0\0\60\37\0\0\58\4\0\0\26\4\0\0\90\37\0\0\84\37\0\0\105\37\0\0\102\37\0\0\96\37\0\0\80\37\0\0\108\37\0\0\164\0\0\0\59\4\0\0\27\4\0\0\60\4\0\0\28\4\0\0\61\4\0\0\29\4\0\0\62\4\0\0\30\4\0\0\63\4\0\0\24\37\0\0\12\37\0\0\136\37\0\0\132\37\0\0\31\4\0\0\79\4\0\0\128\37\0\0\47\4\0\0\64\4\0\0\32\4\0\0\65\4\0\0\33\4\0\0\66\4\0\0\34\4\0\0\67\4\0\0\35\4\0\0\54\4\0\0\22\4\0\0\50\4\0\0\18\4\0\0\76\4\0\0\44\4\0\0\22\33\0\0\173\0\0\0\75\4\0\0\43\4\0\0\55\4\0\0\23\4\0\0\72\4\0\0\40\4\0\0\77\4\0\0\45\4\0\0\73\4\0\0\41\4\0\0\71\4\0\0\39\4\0\0\167\0\0\0\160\37\0\0\160\0\0\0"#
encoding_map_CP855 :: CharMap
encoding_map_CP855 :: CharMap
encoding_map_CP855 = StaticMap Char Word8 -> CharMap
LeafMap1 (forall i e. StaticArray Int i -> StaticArray Int e -> StaticMap i e
StaticMap (forall i e. i -> i -> Addr# -> StaticArray i e
StaticArray (Int
1) (Int
256) Addr#
"\160\0\0\0\64\0\0\0\60\4\0\0\32\0\0\0\96\0\0\0\28\4\0\0\94\4\0\0\16\0\0\0\48\0\0\0\80\0\0\0\112\0\0\0\11\4\0\0\44\4\0\0\76\4\0\0\84\37\0\0\8\0\0\0\24\0\0\0\40\0\0\0\56\0\0\0\72\0\0\0\88\0\0\0\104\0\0\0\120\0\0\0\3\4\0\0\20\4\0\0\36\4\0\0\52\4\0\0\68\4\0\0\85\4\0\0\24\37\0\0\108\37\0\0\4\0\0\0\12\0\0\0\20\0\0\0\28\0\0\0\36\0\0\0\44\0\0\0\52\0\0\0\60\0\0\0\68\0\0\0\76\0\0\0\84\0\0\0\92\0\0\0\100\0\0\0\108\0\0\0\116\0\0\0\124\0\0\0\173\0\0\0\7\4\0\0\16\4\0\0\24\4\0\0\32\4\0\0\40\4\0\0\48\4\0\0\56\4\0\0\64\4\0\0\72\4\0\0\81\4\0\0\89\4\0\0\2\37\0\0\52\37\0\0\96\37\0\0\145\37\0\0\2\0\0\0\6\0\0\0\10\0\0\0\14\0\0\0\18\0\0\0\22\0\0\0\26\0\0\0\30\0\0\0\34\0\0\0\38\0\0\0\42\0\0\0\46\0\0\0\50\0\0\0\54\0\0\0\58\0\0\0\62\0\0\0\66\0\0\0\70\0\0\0\74\0\0\0\78\0\0\0\82\0\0\0\86\0\0\0\90\0\0\0\94\0\0\0\98\0\0\0\102\0\0\0\106\0\0\0\110\0\0\0\114\0\0\0\118\0\0\0\122\0\0\0\126\0\0\0\167\0\0\0\1\4\0\0\5\4\0\0\9\4\0\0\14\4\0\0\18\4\0\0\22\4\0\0\26\4\0\0\30\4\0\0\34\4\0\0\38\4\0\0\42\4\0\0\46\4\0\0\50\4\0\0\54\4\0\0\58\4\0\0\62\4\0\0\66\4\0\0\70\4\0\0\74\4\0\0\78\4\0\0\83\4\0\0\87\4\0\0\91\4\0\0\22\33\0\0\16\37\0\0\36\37\0\0\80\37\0\0\90\37\0\0\102\37\0\0\132\37\0\0\147\37\0\0\1\0\0\0\3\0\0\0\5\0\0\0\7\0\0\0\9\0\0\0\11\0\0\0\13\0\0\0\15\0\0\0\17\0\0\0\19\0\0\0\21\0\0\0\23\0\0\0\25\0\0\0\27\0\0\0\29\0\0\0\31\0\0\0\33\0\0\0\35\0\0\0\37\0\0\0\39\0\0\0\41\0\0\0\43\0\0\0\45\0\0\0\47\0\0\0\49\0\0\0\51\0\0\0\53\0\0\0\55\0\0\0\57\0\0\0\59\0\0\0\61\0\0\0\63\0\0\0\65\0\0\0\67\0\0\0\69\0\0\0\71\0\0\0\73\0\0\0\75\0\0\0\77\0\0\0\79\0\0\0\81\0\0\0\83\0\0\0\85\0\0\0\87\0\0\0\89\0\0\0\91\0\0\0\93\0\0\0\95\0\0\0\97\0\0\0\99\0\0\0\101\0\0\0\103\0\0\0\105\0\0\0\107\0\0\0\109\0\0\0\111\0\0\0\113\0\0\0\115\0\0\0\117\0\0\0\119\0\0\0\121\0\0\0\123\0\0\0\125\0\0\0\127\0\0\0\164\0\0\0\171\0\0\0\187\0\0\0\2\4\0\0\4\4\0\0\6\4\0\0\8\4\0\0\10\4\0\0\12\4\0\0\15\4\0\0\17\4\0\0\19\4\0\0\21\4\0\0\23\4\0\0\25\4\0\0\27\4\0\0\29\4\0\0\31\4\0\0\33\4\0\0\35\4\0\0\37\4\0\0\39\4\0\0\41\4\0\0\43\4\0\0\45\4\0\0\47\4\0\0\49\4\0\0\51\4\0\0\53\4\0\0\55\4\0\0\57\4\0\0\59\4\0\0\61\4\0\0\63\4\0\0\65\4\0\0\67\4\0\0\69\4\0\0\71\4\0\0\73\4\0\0\75\4\0\0\77\4\0\0\79\4\0\0\82\4\0\0\84\4\0\0\86\4\0\0\88\4\0\0\90\4\0\0\92\4\0\0\95\4\0\0\0\37\0\0\12\37\0\0\20\37\0\0\28\37\0\0\44\37\0\0\60\37\0\0\81\37\0\0\87\37\0\0\93\37\0\0\99\37\0\0\105\37\0\0\128\37\0\0\136\37\0\0\146\37\0\0\160\37\0\0\0\0\0\0"#) (forall i e. i -> i -> Addr# -> StaticArray i e
StaticArray (Int
1) (Int
256) Addr#
"\255\64\210\32\96\211\152\16\48\80\112\149\238\237\201\8\24\40\56\72\88\104\120\131\167\171\166\170\136\217\206\4\12\20\28\36\44\52\60\68\76\84\92\100\108\116\124\240\141\161\184\226\246\160\183\225\245\132\144\179\193\204\176\2\6\10\14\18\22\26\30\34\38\42\46\50\54\58\62\66\70\74\78\82\86\90\94\98\102\106\110\114\118\122\126\253\133\137\145\153\236\234\199\215\230\165\159\157\235\233\198\214\229\164\158\156\130\140\148\239\191\180\205\200\203\220\178\1\3\5\7\9\11\13\15\17\19\21\23\25\27\29\31\33\35\37\39\41\43\45\47\49\51\53\55\57\59\61\63\65\67\69\71\73\75\77\79\81\83\85\87\89\91\93\95\97\99\101\103\105\107\109\111\113\115\117\119\121\123\125\127\207\174\175\129\135\139\143\147\151\155\163\173\169\244\190\209\213\221\228\232\182\252\250\242\248\224\162\172\168\243\189\208\212\216\227\231\181\251\249\241\247\222\128\134\138\142\146\150\154\196\218\192\195\194\197\186\187\188\185\202\223\219\177\254\0"#))
instance Encoding CP855 where
decodeChar :: forall (m :: * -> *). ByteSource m => CP855 -> m Char
decodeChar CP855
_ = do
Word8
w <- forall (m :: * -> *). ByteSource m => m Word8
fetchWord8
forall (m :: * -> *) a. Monad m => a -> m a
return ()
case forall {e}. StaticArray Word8 e
decoding_array_CP855forall e i. (StaticElement e, Ix i) => StaticArray i e -> i -> e
!Word8
w of
Maybe Char
Nothing -> forall e (m :: * -> *) a. Throws e m => e -> m a
throwException forall a b. (a -> b) -> a -> b
$ Word8 -> DecodingException
IllegalCharacter forall a b. (a -> b) -> a -> b
$ forall a b. (Integral a, Num b) => a -> b
fromIntegral Word8
w
Just Char
c -> forall (m :: * -> *) a. Monad m => a -> m a
return Char
c
encodeChar :: forall (m :: * -> *). ByteSink m => CP855 -> Char -> m ()
encodeChar CP855
_ Char
c = forall (m :: * -> *). ByteSink m => Char -> CharMap -> m ()
mapEncode Char
c CharMap
encoding_map_CP855
encodeable :: CP855 -> Char -> Bool
encodeable CP855
_ Char
c = Char -> CharMap -> Bool
mapMember Char
c CharMap
encoding_map_CP855