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

decoding_array_MacOSRoman = StaticArray (32) (255) "\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\255\255\255\255\196\0\0\0\197\0\0\0\199\0\0\0\201\0\0\0\209\0\0\0\214\0\0\0\220\0\0\0\225\0\0\0\224\0\0\0\226\0\0\0\228\0\0\0\227\0\0\0\229\0\0\0\231\0\0\0\233\0\0\0\232\0\0\0\234\0\0\0\235\0\0\0\237\0\0\0\236\0\0\0\238\0\0\0\239\0\0\0\241\0\0\0\243\0\0\0\242\0\0\0\244\0\0\0\246\0\0\0\245\0\0\0\250\0\0\0\249\0\0\0\251\0\0\0\252\0\0\0\32\32\0\0\176\0\0\0\162\0\0\0\163\0\0\0\167\0\0\0\34\32\0\0\182\0\0\0\223\0\0\0\174\0\0\0\169\0\0\0\34\33\0\0\180\0\0\0\168\0\0\0\96\34\0\0\198\0\0\0\216\0\0\0\30\34\0\0\177\0\0\0\100\34\0\0\101\34\0\0\165\0\0\0\181\0\0\0\2\34\0\0\17\34\0\0\15\34\0\0\192\3\0\0\43\34\0\0\170\0\0\0\186\0\0\0\169\3\0\0\230\0\0\0\248\0\0\0\191\0\0\0\161\0\0\0\172\0\0\0\26\34\0\0\146\1\0\0\72\34\0\0\6\34\0\0\171\0\0\0\187\0\0\0\38\32\0\0\160\0\0\0\192\0\0\0\195\0\0\0\213\0\0\0\82\1\0\0\83\1\0\0\19\32\0\0\20\32\0\0\28\32\0\0\29\32\0\0\24\32\0\0\25\32\0\0\247\0\0\0\202\37\0\0\255\0\0\0\120\1\0\0\68\32\0\0\172\32\0\0\57\32\0\0\58\32\0\0\1\251\0\0\2\251\0\0\33\32\0\0\183\0\0\0\26\32\0\0\30\32\0\0\48\32\0\0\194\0\0\0\202\0\0\0\193\0\0\0\203\0\0\0\200\0\0\0\205\0\0\0\206\0\0\0\207\0\0\0\204\0\0\0\211\0\0\0\212\0\0\0\255\248\0\0\210\0\0\0\218\0\0\0\219\0\0\0\217\0\0\0\49\1\0\0\198\2\0\0\220\2\0\0\175\0\0\0\216\2\0\0\217\2\0\0\218\2\0\0\184\0\0\0\221\2\0\0\219\2\0\0\199\2\0\0"#

encoding_map_MacOSRoman :: CharMap
encoding_map_MacOSRoman = LeafMap1 (StaticMap (StaticArray (1) (223) "\201\0\0\0\95\0\0\0\20\32\0\0\63\0\0\0\160\0\0\0\237\0\0\0\34\33\0\0\47\0\0\0\79\0\0\0\111\0\0\0\181\0\0\0\219\0\0\0\49\1\0\0\33\32\0\0\72\34\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\170\0\0\0\193\0\0\0\210\0\0\0\229\0\0\0\246\0\0\0\217\2\0\0\28\32\0\0\57\32\0\0\17\34\0\0\202\37\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\175\0\0\0\186\0\0\0\197\0\0\0\205\0\0\0\214\0\0\0\225\0\0\0\233\0\0\0\242\0\0\0\250\0\0\0\146\1\0\0\221\2\0\0\25\32\0\0\30\32\0\0\38\32\0\0\68\32\0\0\6\34\0\0\30\34\0\0\100\34\0\0\1\251\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\162\0\0\0\168\0\0\0\172\0\0\0\177\0\0\0\183\0\0\0\191\0\0\0\195\0\0\0\199\0\0\0\203\0\0\0\207\0\0\0\212\0\0\0\217\0\0\0\223\0\0\0\227\0\0\0\231\0\0\0\235\0\0\0\239\0\0\0\244\0\0\0\248\0\0\0\252\0\0\0\83\1\0\0\199\2\0\0\219\2\0\0\192\3\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\172\32\0\0\2\34\0\0\15\34\0\0\26\34\0\0\43\34\0\0\96\34\0\0\101\34\0\0\255\248\0\0\2\251\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\161\0\0\0\163\0\0\0\167\0\0\0\169\0\0\0\171\0\0\0\174\0\0\0\176\0\0\0\180\0\0\0\182\0\0\0\184\0\0\0\187\0\0\0\192\0\0\0\194\0\0\0\196\0\0\0\198\0\0\0\200\0\0\0\202\0\0\0\204\0\0\0\206\0\0\0\209\0\0\0\211\0\0\0\213\0\0\0\216\0\0\0\218\0\0\0\220\0\0\0\224\0\0\0\226\0\0\0\228\0\0\0\230\0\0\0\232\0\0\0\234\0\0\0\236\0\0\0\238\0\0\0\241\0\0\0\243\0\0\0\245\0\0\0\247\0\0\0\249\0\0\0\251\0\0\0\255\0\0\0\82\1\0\0\120\1\0\0\198\2\0\0\216\2\0\0\218\2\0\0\220\2\0\0\169\3\0\0\19\32\0\0"#) (StaticArray (1) (223) "\131\95\209\63\202\146\170\47\79\111\181\243\245\224\197\39\55\71\87\103\119\187\231\241\140\154\250\210\220\183\215\35\43\51\59\67\75\83\91\99\107\115\123\180\248\188\129\234\133\135\142\152\156\196\253\213\227\201\218\198\176\178\222\33\37\41\45\49\53\57\61\65\69\73\77\81\85\89\93\97\101\105\109\113\117\121\125\162\172\194\177\225\192\204\130\232\236\239\244\167\139\141\145\149\153\191\159\207\255\254\185\212\226\211\160\165\228\221\219\182\184\195\186\173\179\240\223\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\193\163\164\169\199\168\161\171\166\252\200\203\229\128\174\233\230\237\235\132\238\205\175\242\134\136\137\138\190\143\144\147\148\150\151\155\214\157\158\216\206\217\246\249\251\247\189\208"#))

instance Encoding MacOSRoman where
  decodeChar _ = do
    w <- fetchWord8
    (if w<32 then throwException $ IllegalCharacter $ fromIntegral w else return ())
    case decoding_array_MacOSRoman!w of
      Nothing -> throwException $ IllegalCharacter $ fromIntegral w
      Just c -> return c
  encodeChar _ c = mapEncode c encoding_map_MacOSRoman
  encodeable _ c = mapMember c encoding_map_MacOSRoman