{-# LANGUAGE MagicHash,DeriveDataTypeable #-}
module Data.Encoding.CP1253(CP1253(..)) 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 CP1253 = CP1253
  deriving (Show,Eq,Typeable)

decoding_array_CP1253 = 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\172\32\0\0\255\255\255\255\26\32\0\0\146\1\0\0\30\32\0\0\38\32\0\0\32\32\0\0\33\32\0\0\255\255\255\255\48\32\0\0\255\255\255\255\57\32\0\0\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\24\32\0\0\25\32\0\0\28\32\0\0\29\32\0\0\34\32\0\0\19\32\0\0\20\32\0\0\255\255\255\255\34\33\0\0\255\255\255\255\58\32\0\0\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\160\0\0\0\133\3\0\0\134\3\0\0\163\0\0\0\164\0\0\0\165\0\0\0\166\0\0\0\167\0\0\0\168\0\0\0\169\0\0\0\255\255\255\255\171\0\0\0\172\0\0\0\173\0\0\0\174\0\0\0\21\32\0\0\176\0\0\0\177\0\0\0\178\0\0\0\179\0\0\0\132\3\0\0\181\0\0\0\182\0\0\0\183\0\0\0\136\3\0\0\137\3\0\0\138\3\0\0\187\0\0\0\140\3\0\0\189\0\0\0\142\3\0\0\143\3\0\0\144\3\0\0\145\3\0\0\146\3\0\0\147\3\0\0\148\3\0\0\149\3\0\0\150\3\0\0\151\3\0\0\152\3\0\0\153\3\0\0\154\3\0\0\155\3\0\0\156\3\0\0\157\3\0\0\158\3\0\0\159\3\0\0\160\3\0\0\161\3\0\0\255\255\255\255\163\3\0\0\164\3\0\0\165\3\0\0\166\3\0\0\167\3\0\0\168\3\0\0\169\3\0\0\170\3\0\0\171\3\0\0\172\3\0\0\173\3\0\0\174\3\0\0\175\3\0\0\176\3\0\0\177\3\0\0\178\3\0\0\179\3\0\0\180\3\0\0\181\3\0\0\182\3\0\0\183\3\0\0\184\3\0\0\185\3\0\0\186\3\0\0\187\3\0\0\188\3\0\0\189\3\0\0\190\3\0\0\191\3\0\0\192\3\0\0\193\3\0\0\194\3\0\0\195\3\0\0\196\3\0\0\197\3\0\0\198\3\0\0\199\3\0\0\200\3\0\0\201\3\0\0\202\3\0\0\203\3\0\0\204\3\0\0\205\3\0\0\206\3\0\0\255\255\255\255"#

encoding_map_CP1253 :: CharMap
encoding_map_CP1253 = LeafMap1 (StaticMap (StaticArray (1) (239) "\127\0\0\0\63\0\0\0\177\3\0\0\31\0\0\0\95\0\0\0\144\3\0\0\21\32\0\0\15\0\0\0\47\0\0\0\79\0\0\0\111\0\0\0\179\0\0\0\160\3\0\0\193\3\0\0\33\32\0\0\7\0\0\0\23\0\0\0\39\0\0\0\55\0\0\0\71\0\0\0\87\0\0\0\103\0\0\0\119\0\0\0\169\0\0\0\133\3\0\0\152\3\0\0\169\3\0\0\185\3\0\0\201\3\0\0\28\32\0\0\57\32\0\0\3\0\0\0\11\0\0\0\19\0\0\0\27\0\0\0\35\0\0\0\43\0\0\0\51\0\0\0\59\0\0\0\67\0\0\0\75\0\0\0\83\0\0\0\91\0\0\0\99\0\0\0\107\0\0\0\115\0\0\0\123\0\0\0\165\0\0\0\174\0\0\0\187\0\0\0\138\3\0\0\148\3\0\0\156\3\0\0\165\3\0\0\173\3\0\0\181\3\0\0\189\3\0\0\197\3\0\0\205\3\0\0\25\32\0\0\30\32\0\0\38\32\0\0\172\32\0\0\1\0\0\0\5\0\0\0\9\0\0\0\13\0\0\0\17\0\0\0\21\0\0\0\25\0\0\0\29\0\0\0\33\0\0\0\37\0\0\0\41\0\0\0\45\0\0\0\49\0\0\0\53\0\0\0\57\0\0\0\61\0\0\0\65\0\0\0\69\0\0\0\73\0\0\0\77\0\0\0\81\0\0\0\85\0\0\0\89\0\0\0\93\0\0\0\97\0\0\0\101\0\0\0\105\0\0\0\109\0\0\0\113\0\0\0\117\0\0\0\121\0\0\0\125\0\0\0\163\0\0\0\167\0\0\0\172\0\0\0\177\0\0\0\182\0\0\0\146\1\0\0\136\3\0\0\142\3\0\0\146\3\0\0\150\3\0\0\154\3\0\0\158\3\0\0\163\3\0\0\167\3\0\0\171\3\0\0\175\3\0\0\179\3\0\0\183\3\0\0\187\3\0\0\191\3\0\0\195\3\0\0\199\3\0\0\203\3\0\0\19\32\0\0\24\32\0\0\26\32\0\0\29\32\0\0\32\32\0\0\34\32\0\0\48\32\0\0\58\32\0\0\34\33\0\0\0\0\0\0\2\0\0\0\4\0\0\0\6\0\0\0\8\0\0\0\10\0\0\0\12\0\0\0\14\0\0\0\16\0\0\0\18\0\0\0\20\0\0\0\22\0\0\0\24\0\0\0\26\0\0\0\28\0\0\0\30\0\0\0\32\0\0\0\34\0\0\0\36\0\0\0\38\0\0\0\40\0\0\0\42\0\0\0\44\0\0\0\46\0\0\0\48\0\0\0\50\0\0\0\52\0\0\0\54\0\0\0\56\0\0\0\58\0\0\0\60\0\0\0\62\0\0\0\64\0\0\0\66\0\0\0\68\0\0\0\70\0\0\0\72\0\0\0\74\0\0\0\76\0\0\0\78\0\0\0\80\0\0\0\82\0\0\0\84\0\0\0\86\0\0\0\88\0\0\0\90\0\0\0\92\0\0\0\94\0\0\0\96\0\0\0\98\0\0\0\100\0\0\0\102\0\0\0\104\0\0\0\106\0\0\0\108\0\0\0\110\0\0\0\112\0\0\0\114\0\0\0\116\0\0\0\118\0\0\0\120\0\0\0\122\0\0\0\124\0\0\0\126\0\0\0\160\0\0\0\164\0\0\0\166\0\0\0\168\0\0\0\171\0\0\0\173\0\0\0\176\0\0\0\178\0\0\0\181\0\0\0\183\0\0\0\189\0\0\0\132\3\0\0\134\3\0\0\137\3\0\0\140\3\0\0\143\3\0\0\145\3\0\0\147\3\0\0\149\3\0\0\151\3\0\0\153\3\0\0\155\3\0\0\157\3\0\0\159\3\0\0\161\3\0\0\164\3\0\0\166\3\0\0\168\3\0\0\170\3\0\0\172\3\0\0\174\3\0\0\176\3\0\0\178\3\0\0\180\3\0\0\182\3\0\0\184\3\0\0\186\3\0\0\188\3\0\0\190\3\0\0\192\3\0\0\194\3\0\0\196\3\0\0\198\3\0\0\200\3\0\0\202\3\0\0\204\3\0\0\206\3\0\0\20\32\0\0"#) (StaticArray (1) (239) "\127\63\225\31\95\192\175\15\47\79\111\179\208\241\135\7\23\39\55\71\87\103\119\169\161\200\217\233\249\147\139\3\11\19\27\35\43\51\59\67\75\83\91\99\107\115\123\165\174\187\186\196\204\213\221\229\237\245\253\146\132\133\128\1\5\9\13\17\21\25\29\33\37\41\45\49\53\57\61\65\69\73\77\81\85\89\93\97\101\105\109\113\117\121\125\163\167\172\177\182\131\184\190\194\198\202\206\211\215\219\223\227\231\235\239\243\247\251\150\145\130\148\134\149\137\155\153\0\2\4\6\8\10\12\14\16\18\20\22\24\26\28\30\32\34\36\38\40\42\44\46\48\50\52\54\56\58\60\62\64\66\68\70\72\74\76\78\80\82\84\86\88\90\92\94\96\98\100\102\104\106\108\110\112\114\116\118\120\122\124\126\160\164\166\168\171\173\176\178\181\183\189\180\162\185\188\191\193\195\197\199\201\203\205\207\209\212\214\216\218\220\222\224\226\228\230\232\234\236\238\240\242\244\246\248\250\252\254\151"#))

instance Encoding CP1253 where
  decodeChar _ = do
    w <- fetchWord8
    return ()
    case decoding_array_CP1253!w of
      Nothing -> throwException $ IllegalCharacter $ fromIntegral w
      Just c -> return c
  encodeChar _ c = mapEncode c encoding_map_CP1253
  encodeable _ c = mapMember c encoding_map_CP1253