{- This file has been auto-generated. Do not edit it. -} {-# LANGUAGE MagicHash,DeriveDataTypeable #-} {- | 32 = (32) 33 = ! (33) 34 = " (34) 35 = # (35) 36 = $ (36) 37 = % (37) 38 = & (38) 39 = ' (39) 40 = ( (40) 41 = ) (41) 42 = * (42) 43 = + (43) 44 = , (44) 45 = - (45) 46 = . (46) 47 = / (47) 48 = 0 (48) 49 = 1 (49) 50 = 2 (50) 51 = 3 (51) 52 = 4 (52) 53 = 5 (53) 54 = 6 (54) 55 = 7 (55) 56 = 8 (56) 57 = 9 (57) 58 = : (58) 59 = ; (59) 60 = < (60) 61 = = (61) 62 = > (62) 63 = ? (63) 64 = @ (64) 65 = A (65) 66 = B (66) 67 = C (67) 68 = D (68) 69 = E (69) 70 = F (70) 71 = G (71) 72 = H (72) 73 = I (73) 74 = J (74) 75 = K (75) 76 = L (76) 77 = M (77) 78 = N (78) 79 = O (79) 80 = P (80) 81 = Q (81) 82 = R (82) 83 = S (83) 84 = T (84) 85 = U (85) 86 = V (86) 87 = W (87) 88 = X (88) 89 = Y (89) 90 = Z (90) 91 = [ (91) 92 = ¥ (165) 93 = ] (93) 94 = ^ (94) 95 = _ (95) 96 = ` (96) 97 = a (97) 98 = b (98) 99 = c (99) 100 = d (100) 101 = e (101) 102 = f (102) 103 = g (103) 104 = h (104) 105 = i (105) 106 = j (106) 107 = k (107) 108 = l (108) 109 = m (109) 110 = n (110) 111 = o (111) 112 = p (112) 113 = q (113) 114 = r (114) 115 = s (115) 116 = t (116) 117 = u (117) 118 = v (118) 119 = w (119) 120 = x (120) 121 = y (121) 122 = z (122) 123 = { (123) 124 = | (124) 125 = } (125) 126 = ‾ (8254) 161 = ｡ (65377) 162 = ｢ (65378) 163 = ｣ (65379) 164 = ､ (65380) 165 = ･ (65381) 166 = ｦ (65382) 167 = ｧ (65383) 168 = ｨ (65384) 169 = ｩ (65385) 170 = ｪ (65386) 171 = ｫ (65387) 172 = ｬ (65388) 173 = ｭ (65389) 174 = ｮ (65390) 175 = ｯ (65391) 176 = ｰ (65392) 177 = ｱ (65393) 178 = ｲ (65394) 179 = ｳ (65395) 180 = ｴ (65396) 181 = ｵ (65397) 182 = ｶ (65398) 183 = ｷ (65399) 184 = ｸ (65400) 185 = ｹ (65401) 186 = ｺ (65402) 187 = ｻ (65403) 188 = ｼ (65404) 189 = ｽ (65405) 190 = ｾ (65406) 191 = ｿ (65407) 192 = ﾀ (65408) 193 = ﾁ (65409) 194 = ﾂ (65410) 195 = ﾃ (65411) 196 = ﾄ (65412) 197 = ﾅ (65413) 198 = ﾆ (65414) 199 = ﾇ (65415) 200 = ﾈ (65416) 201 = ﾉ (65417) 202 = ﾊ (65418) 203 = ﾋ (65419) 204 = ﾌ (65420) 205 = ﾍ (65421) 206 = ﾎ (65422) 207 = ﾏ (65423) 208 = ﾐ (65424) 209 = ﾑ (65425) 210 = ﾒ (65426) 211 = ﾓ (65427) 212 = ﾔ (65428) 213 = ﾕ (65429) 214 = ﾖ (65430) 215 = ﾗ (65431) 216 = ﾘ (65432) 217 = ﾙ (65433) 218 = ﾚ (65434) 219 = ﾛ (65435) 220 = ﾜ (65436) 221 = ﾝ (65437) 222 = ﾞ (65438) 223 = ﾟ (65439) -} module Data.Encoding.JISX0201(JISX0201(..)) 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 JISX0201 = JISX0201 deriving (Show,Eq,Typeable) decoding_array_JISX0201 = StaticArray (32) (223) "\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\165\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\62\32\0\0\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\97\255\0\0\98\255\0\0\99\255\0\0\100\255\0\0\101\255\0\0\102\255\0\0\103\255\0\0\104\255\0\0\105\255\0\0\106\255\0\0\107\255\0\0\108\255\0\0\109\255\0\0\110\255\0\0\111\255\0\0\112\255\0\0\113\255\0\0\114\255\0\0\115\255\0\0\116\255\0\0\117\255\0\0\118\255\0\0\119\255\0\0\120\255\0\0\121\255\0\0\122\255\0\0\123\255\0\0\124\255\0\0\125\255\0\0\126\255\0\0\127\255\0\0\128\255\0\0\129\255\0\0\130\255\0\0\131\255\0\0\132\255\0\0\133\255\0\0\134\255\0\0\135\255\0\0\136\255\0\0\137\255\0\0\138\255\0\0\139\255\0\0\140\255\0\0\141\255\0\0\142\255\0\0\143\255\0\0\144\255\0\0\145\255\0\0\146\255\0\0\147\255\0\0\148\255\0\0\149\255\0\0\150\255\0\0\151\255\0\0\152\255\0\0\153\255\0\0\154\255\0\0\155\255\0\0\156\255\0\0\157\255\0\0\158\255\0\0\159\255\0\0"# encoding_map_JISX0201 :: CharMap encoding_map_JISX0201 = LeafMap1 (StaticMap (StaticArray (1) (158) "\62\32\0\0\95\0\0\0\128\255\0\0\63\0\0\0\111\0\0\0\112\255\0\0\144\255\0\0\47\0\0\0\79\0\0\0\103\0\0\0\119\0\0\0\104\255\0\0\120\255\0\0\136\255\0\0\152\255\0\0\39\0\0\0\55\0\0\0\71\0\0\0\87\0\0\0\99\0\0\0\107\0\0\0\115\0\0\0\123\0\0\0\100\255\0\0\108\255\0\0\116\255\0\0\124\255\0\0\132\255\0\0\140\255\0\0\148\255\0\0\156\255\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\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\98\255\0\0\102\255\0\0\106\255\0\0\110\255\0\0\114\255\0\0\118\255\0\0\122\255\0\0\126\255\0\0\130\255\0\0\134\255\0\0\138\255\0\0\142\255\0\0\146\255\0\0\150\255\0\0\154\255\0\0\158\255\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\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\165\0\0\0\97\255\0\0\99\255\0\0\101\255\0\0\103\255\0\0\105\255\0\0\107\255\0\0\109\255\0\0\111\255\0\0\113\255\0\0\115\255\0\0\117\255\0\0\119\255\0\0\121\255\0\0\123\255\0\0\125\255\0\0\127\255\0\0\129\255\0\0\131\255\0\0\133\255\0\0\135\255\0\0\137\255\0\0\139\255\0\0\141\255\0\0\143\255\0\0\145\255\0\0\147\255\0\0\149\255\0\0\151\255\0\0\153\255\0\0\155\255\0\0\157\255\0\0\159\255\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\93\0\0\0"#) (StaticArray (1) (158) "\126\95\192\63\111\176\208\47\79\103\119\168\184\200\216\39\55\71\87\99\107\115\123\164\172\180\188\196\204\212\220\35\43\51\59\67\75\83\91\97\101\105\109\113\117\121\125\162\166\170\174\178\182\186\190\194\198\202\206\210\214\218\222\33\37\41\45\49\53\57\61\65\69\73\77\81\85\89\94\96\98\100\102\104\106\108\110\112\114\116\118\120\122\124\92\161\163\165\167\169\171\173\175\177\179\181\183\185\187\189\191\193\195\197\199\201\203\205\207\209\211\213\215\217\219\221\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\93"#)) instance Encoding JISX0201 where decodeChar _ = do w <- fetchWord8 (if w<32||w>223 then throwException $ IllegalCharacter $ fromIntegral w else return ()) case decoding_array_JISX0201!w of Nothing -> throwException $ IllegalCharacter $ fromIntegral w Just c -> return c encodeChar _ c = mapEncode c encoding_map_JISX0201 encodeable _ c = mapMember c encoding_map_JISX0201