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

decoding_array_CP1256 = 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\126\6\0\0\26\32\0\0\146\1\0\0\30\32\0\0\38\32\0\0\32\32\0\0\33\32\0\0\198\2\0\0\48\32\0\0\121\6\0\0\57\32\0\0\82\1\0\0\134\6\0\0\152\6\0\0\136\6\0\0\175\6\0\0\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\169\6\0\0\34\33\0\0\145\6\0\0\58\32\0\0\83\1\0\0\12\32\0\0\13\32\0\0\186\6\0\0\160\0\0\0\12\6\0\0\162\0\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\190\6\0\0\171\0\0\0\172\0\0\0\173\0\0\0\174\0\0\0\175\0\0\0\176\0\0\0\177\0\0\0\178\0\0\0\179\0\0\0\180\0\0\0\181\0\0\0\182\0\0\0\183\0\0\0\184\0\0\0\185\0\0\0\27\6\0\0\187\0\0\0\188\0\0\0\189\0\0\0\190\0\0\0\31\6\0\0\193\6\0\0\33\6\0\0\34\6\0\0\35\6\0\0\36\6\0\0\37\6\0\0\38\6\0\0\39\6\0\0\40\6\0\0\41\6\0\0\42\6\0\0\43\6\0\0\44\6\0\0\45\6\0\0\46\6\0\0\47\6\0\0\48\6\0\0\49\6\0\0\50\6\0\0\51\6\0\0\52\6\0\0\53\6\0\0\54\6\0\0\215\0\0\0\55\6\0\0\56\6\0\0\57\6\0\0\58\6\0\0\64\6\0\0\65\6\0\0\66\6\0\0\67\6\0\0\224\0\0\0\68\6\0\0\226\0\0\0\69\6\0\0\70\6\0\0\71\6\0\0\72\6\0\0\231\0\0\0\232\0\0\0\233\0\0\0\234\0\0\0\235\0\0\0\73\6\0\0\74\6\0\0\238\0\0\0\239\0\0\0\75\6\0\0\76\6\0\0\77\6\0\0\78\6\0\0\244\0\0\0\79\6\0\0\80\6\0\0\247\0\0\0\81\6\0\0\249\0\0\0\82\6\0\0\251\0\0\0\252\0\0\0\14\32\0\0\15\32\0\0\210\6\0\0"#

encoding_map_CP1256 :: CharMap
encoding_map_CP1256 = LeafMap1 (StaticMap (StaticArray (1) (256) "\160\0\0\0\64\0\0\0\47\6\0\0\32\0\0\0\96\0\0\0\232\0\0\0\126\6\0\0\16\0\0\0\48\0\0\0\80\0\0\0\112\0\0\0\178\0\0\0\27\6\0\0\68\6\0\0\20\32\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\169\0\0\0\187\0\0\0\249\0\0\0\39\6\0\0\55\6\0\0\76\6\0\0\190\6\0\0\33\32\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\165\0\0\0\174\0\0\0\182\0\0\0\215\0\0\0\238\0\0\0\83\1\0\0\35\6\0\0\43\6\0\0\51\6\0\0\64\6\0\0\72\6\0\0\80\6\0\0\152\6\0\0\13\32\0\0\28\32\0\0\57\32\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\163\0\0\0\167\0\0\0\172\0\0\0\176\0\0\0\180\0\0\0\184\0\0\0\189\0\0\0\226\0\0\0\234\0\0\0\244\0\0\0\252\0\0\0\198\2\0\0\33\6\0\0\37\6\0\0\41\6\0\0\45\6\0\0\49\6\0\0\53\6\0\0\57\6\0\0\66\6\0\0\70\6\0\0\74\6\0\0\78\6\0\0\82\6\0\0\136\6\0\0\175\6\0\0\210\6\0\0\15\32\0\0\25\32\0\0\30\32\0\0\38\32\0\0\172\32\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\162\0\0\0\164\0\0\0\166\0\0\0\168\0\0\0\171\0\0\0\173\0\0\0\175\0\0\0\177\0\0\0\179\0\0\0\181\0\0\0\183\0\0\0\185\0\0\0\188\0\0\0\190\0\0\0\224\0\0\0\231\0\0\0\233\0\0\0\235\0\0\0\239\0\0\0\247\0\0\0\251\0\0\0\82\1\0\0\146\1\0\0\12\6\0\0\31\6\0\0\34\6\0\0\36\6\0\0\38\6\0\0\40\6\0\0\42\6\0\0\44\6\0\0\46\6\0\0\48\6\0\0\50\6\0\0\52\6\0\0\54\6\0\0\56\6\0\0\58\6\0\0\65\6\0\0\67\6\0\0\69\6\0\0\71\6\0\0\73\6\0\0\75\6\0\0\77\6\0\0\79\6\0\0\81\6\0\0\121\6\0\0\134\6\0\0\145\6\0\0\169\6\0\0\186\6\0\0\193\6\0\0\12\32\0\0\14\32\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"#) (StaticArray (1) (256) "\160\64\207\32\96\232\129\16\48\80\112\178\186\225\151\8\24\40\56\72\88\104\120\169\187\249\199\216\241\170\135\4\12\20\28\36\44\52\60\68\76\84\92\100\108\116\124\165\174\182\215\238\156\195\203\211\220\230\246\142\158\147\139\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\163\167\172\176\180\184\189\226\234\244\252\136\193\197\201\205\209\213\218\222\228\237\243\250\143\144\255\254\146\132\133\128\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\162\164\166\168\171\173\175\177\179\181\183\185\188\190\224\231\233\235\239\247\251\140\131\161\191\194\196\198\200\202\204\206\208\210\212\214\217\219\221\223\227\229\236\240\242\245\248\138\141\154\152\159\192\157\253\150\145\130\148\134\149\137\155\153\0"#))

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