{-# LANGUAGE MagicHash,DeriveDataTypeable #-}
module Data.Encoding.ISO885910(ISO885910(..)) 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 ISO885910 = ISO885910
deriving (Show,Eq,Typeable)
decoding_array_ISO885910 = StaticArray (0) (255) "\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\128\0\0\0\129\0\0\0\130\0\0\0\131\0\0\0\132\0\0\0\133\0\0\0\134\0\0\0\135\0\0\0\136\0\0\0\137\0\0\0\138\0\0\0\139\0\0\0\140\0\0\0\141\0\0\0\142\0\0\0\143\0\0\0\144\0\0\0\145\0\0\0\146\0\0\0\147\0\0\0\148\0\0\0\149\0\0\0\150\0\0\0\151\0\0\0\152\0\0\0\153\0\0\0\154\0\0\0\155\0\0\0\156\0\0\0\157\0\0\0\158\0\0\0\159\0\0\0\160\0\0\0\4\1\0\0\18\1\0\0\34\1\0\0\42\1\0\0\40\1\0\0\54\1\0\0\167\0\0\0\59\1\0\0\16\1\0\0\96\1\0\0\102\1\0\0\125\1\0\0\173\0\0\0\106\1\0\0\74\1\0\0\176\0\0\0\5\1\0\0\19\1\0\0\35\1\0\0\43\1\0\0\41\1\0\0\55\1\0\0\183\0\0\0\60\1\0\0\17\1\0\0\97\1\0\0\103\1\0\0\126\1\0\0\21\32\0\0\107\1\0\0\75\1\0\0\0\1\0\0\193\0\0\0\194\0\0\0\195\0\0\0\196\0\0\0\197\0\0\0\198\0\0\0\46\1\0\0\12\1\0\0\201\0\0\0\24\1\0\0\203\0\0\0\22\1\0\0\205\0\0\0\206\0\0\0\207\0\0\0\208\0\0\0\69\1\0\0\76\1\0\0\211\0\0\0\212\0\0\0\213\0\0\0\214\0\0\0\104\1\0\0\216\0\0\0\114\1\0\0\218\0\0\0\219\0\0\0\220\0\0\0\221\0\0\0\222\0\0\0\223\0\0\0\1\1\0\0\225\0\0\0\226\0\0\0\227\0\0\0\228\0\0\0\229\0\0\0\230\0\0\0\47\1\0\0\13\1\0\0\233\0\0\0\25\1\0\0\235\0\0\0\23\1\0\0\237\0\0\0\238\0\0\0\239\0\0\0\240\0\0\0\70\1\0\0\77\1\0\0\243\0\0\0\244\0\0\0\245\0\0\0\246\0\0\0\105\1\0\0\248\0\0\0\115\1\0\0\250\0\0\0\251\0\0\0\252\0\0\0\253\0\0\0\254\0\0\0\56\1\0\0"#
encoding_map_ISO885910 :: CharMap
encoding_map_ISO885910 = LeafMap1 (StaticMap (StaticArray (1) (256) "\128\0\0\0\64\0\0\0\229\0\0\0\32\0\0\0\96\0\0\0\160\0\0\0\34\1\0\0\16\0\0\0\48\0\0\0\80\0\0\0\112\0\0\0\144\0\0\0\208\0\0\0\253\0\0\0\75\1\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\136\0\0\0\152\0\0\0\196\0\0\0\220\0\0\0\243\0\0\0\16\1\0\0\54\1\0\0\105\1\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\132\0\0\0\140\0\0\0\148\0\0\0\156\0\0\0\183\0\0\0\203\0\0\0\214\0\0\0\225\0\0\0\237\0\0\0\248\0\0\0\4\1\0\0\22\1\0\0\42\1\0\0\60\1\0\0\97\1\0\0\115\1\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\130\0\0\0\134\0\0\0\138\0\0\0\142\0\0\0\146\0\0\0\150\0\0\0\154\0\0\0\158\0\0\0\173\0\0\0\194\0\0\0\198\0\0\0\206\0\0\0\212\0\0\0\218\0\0\0\222\0\0\0\227\0\0\0\233\0\0\0\239\0\0\0\245\0\0\0\251\0\0\0\0\1\0\0\12\1\0\0\18\1\0\0\24\1\0\0\40\1\0\0\46\1\0\0\56\1\0\0\70\1\0\0\77\1\0\0\103\1\0\0\107\1\0\0\126\1\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\129\0\0\0\131\0\0\0\133\0\0\0\135\0\0\0\137\0\0\0\139\0\0\0\141\0\0\0\143\0\0\0\145\0\0\0\147\0\0\0\149\0\0\0\151\0\0\0\153\0\0\0\155\0\0\0\157\0\0\0\159\0\0\0\167\0\0\0\176\0\0\0\193\0\0\0\195\0\0\0\197\0\0\0\201\0\0\0\205\0\0\0\207\0\0\0\211\0\0\0\213\0\0\0\216\0\0\0\219\0\0\0\221\0\0\0\223\0\0\0\226\0\0\0\228\0\0\0\230\0\0\0\235\0\0\0\238\0\0\0\240\0\0\0\244\0\0\0\246\0\0\0\250\0\0\0\252\0\0\0\254\0\0\0\1\1\0\0\5\1\0\0\13\1\0\0\17\1\0\0\19\1\0\0\23\1\0\0\25\1\0\0\35\1\0\0\41\1\0\0\43\1\0\0\47\1\0\0\55\1\0\0\59\1\0\0\69\1\0\0\74\1\0\0\76\1\0\0\96\1\0\0\102\1\0\0\104\1\0\0\106\1\0\0\114\1\0\0\125\1\0\0\21\32\0\0\0\0\0\0"#) (StaticArray (1) (256) "\128\64\229\32\96\160\163\16\48\80\112\144\208\253\191\8\24\40\56\72\88\104\120\136\152\196\220\243\169\166\247\4\12\20\28\36\44\52\60\68\76\84\92\100\108\116\124\132\140\148\156\183\203\214\225\237\248\161\204\164\184\186\249\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\130\134\138\142\146\150\154\158\173\194\198\206\212\218\222\227\233\239\245\251\192\200\162\202\165\199\255\241\242\187\190\188\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\129\131\133\135\137\139\141\143\145\147\149\151\153\155\157\159\167\176\193\195\197\201\205\207\211\213\216\219\221\223\226\228\230\235\238\240\244\246\250\252\254\224\177\232\185\178\236\234\179\181\180\231\182\168\209\175\210\170\171\215\174\217\172\189\0"#))
instance Encoding ISO885910 where
decodeChar _ = do
w <- fetchWord8
return ()
case decoding_array_ISO885910!w of
Nothing -> throwException $ IllegalCharacter $ fromIntegral w
Just c -> return c
encodeChar _ c = mapEncode c encoding_map_ISO885910
encodeable _ c = mapMember c encoding_map_ISO885910