{- This file has been auto-generated. Do not edit it. -}
{-# LANGUAGE MagicHash,DeriveDataTypeable #-}
{- |

0	 = � (0)

1	 =  (1)

2	 =  (2)

3	 =  (3)

4	 =  (4)

5	 =  (5)

6	 =  (6)

7	 =  (7)

8	 =  (8)

9	 = 	 (9)

10	 = 
 (10)

11	 =  (11)

12	 =  (12)

13	 = 
 (13)

14	 =  (14)

15	 =  (15)

16	 =  (16)

17	 =  (17)

18	 =  (18)

19	 =  (19)

20	 =  (20)

21	 =  (21)

22	 =  (22)

23	 =  (23)

24	 =  (24)

25	 =  (25)

26	 =  (26)

27	 =  (27)

28	 =  (28)

29	 =  (29)

30	 =  (30)

31	 =  (31)

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; (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	 = \ (92)

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	 = ~ (126)

127	 =  (127)

128	 = Α (913)

129	 = Β (914)

130	 = Γ (915)

131	 = Δ (916)

132	 = Ε (917)

133	 = Ζ (918)

134	 = Η (919)

135	 = Θ (920)

136	 = Ι (921)

137	 = Κ (922)

138	 = Λ (923)

139	 = Μ (924)

140	 = Ν (925)

141	 = Ξ (926)

142	 = Ο (927)

143	 = Π (928)

144	 = Ρ (929)

145	 = Σ (931)

146	 = Τ (932)

147	 = Υ (933)

148	 = Φ (934)

149	 = Χ (935)

150	 = Ψ (936)

151	 = Ω (937)

152	 = α (945)

153	 = β (946)

154	 = γ (947)

155	 = δ (948)

156	 = ε (949)

157	 = ζ (950)

158	 = η (951)

159	 = θ (952)

160	 = ι (953)

161	 = κ (954)

162	 = λ (955)

163	 = μ (956)

164	 = ν (957)

165	 = ξ (958)

166	 = ο (959)

167	 = π (960)

168	 = ρ (961)

169	 = σ (963)

170	 = ς (962)

171	 = τ (964)

172	 = υ (965)

173	 = φ (966)

174	 = χ (967)

175	 = ψ (968)

176	 = ░ (9617)

177	 = ▒ (9618)

178	 = ▓ (9619)

179	 = │ (9474)

180	 = ┤ (9508)

181	 = ╡ (9569)

182	 = ╢ (9570)

183	 = ╖ (9558)

184	 = ╕ (9557)

185	 = ╣ (9571)

186	 = ║ (9553)

187	 = ╗ (9559)

188	 = ╝ (9565)

189	 = ╜ (9564)

190	 = ╛ (9563)

191	 = ┐ (9488)

192	 = └ (9492)

193	 = ┴ (9524)

194	 = ┬ (9516)

195	 = ├ (9500)

196	 = ─ (9472)

197	 = ┼ (9532)

198	 = ╞ (9566)

199	 = ╟ (9567)

200	 = ╚ (9562)

201	 = ╔ (9556)

202	 = ╩ (9577)

203	 = ╦ (9574)

204	 = ╠ (9568)

205	 = ═ (9552)

206	 = ╬ (9580)

207	 = ╧ (9575)

208	 = ╨ (9576)

209	 = ╤ (9572)

210	 = ╥ (9573)

211	 = ╙ (9561)

212	 = ╘ (9560)

213	 = ╒ (9554)

214	 = ╓ (9555)

215	 = ╫ (9579)

216	 = ╪ (9578)

217	 = ┘ (9496)

218	 = ┌ (9484)

219	 = █ (9608)

220	 = ▄ (9604)

221	 = ▌ (9612)

222	 = ▐ (9616)

223	 = ▀ (9600)

224	 = ω (969)

225	 = ά (940)

226	 = έ (941)

227	 = ή (942)

228	 = ϊ (970)

229	 = ί (943)

230	 = ό (972)

231	 = ύ (973)

232	 = ϋ (971)

233	 = ώ (974)

234	 = Ά (902)

235	 = Έ (904)

236	 = Ή (905)

237	 = Ί (906)

238	 = Ό (908)

239	 = Ύ (910)

240	 = Ώ (911)

241	 = ± (177)

242	 = ≥ (8805)

243	 = ≤ (8804)

244	 = Ϊ (938)

245	 = Ϋ (939)

246	 = ÷ (247)

247	 = ≈ (8776)

248	 = ° (176)

249	 = ∙ (8729)

250	 = · (183)

251	 = √ (8730)

252	 = ⁿ (8319)

253	 = ² (178)

254	 = ■ (9632)

255	 =   (160)
 -}
module Data.Encoding.CP737(CP737(..)) 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 CP737 = CP737
  deriving (Show,Eq,Typeable)

decoding_array_CP737 = 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\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\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\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\195\3\0\0\194\3\0\0\196\3\0\0\197\3\0\0\198\3\0\0\199\3\0\0\200\3\0\0\145\37\0\0\146\37\0\0\147\37\0\0\2\37\0\0\36\37\0\0\97\37\0\0\98\37\0\0\86\37\0\0\85\37\0\0\99\37\0\0\81\37\0\0\87\37\0\0\93\37\0\0\92\37\0\0\91\37\0\0\16\37\0\0\20\37\0\0\52\37\0\0\44\37\0\0\28\37\0\0\0\37\0\0\60\37\0\0\94\37\0\0\95\37\0\0\90\37\0\0\84\37\0\0\105\37\0\0\102\37\0\0\96\37\0\0\80\37\0\0\108\37\0\0\103\37\0\0\104\37\0\0\100\37\0\0\101\37\0\0\89\37\0\0\88\37\0\0\82\37\0\0\83\37\0\0\107\37\0\0\106\37\0\0\24\37\0\0\12\37\0\0\136\37\0\0\132\37\0\0\140\37\0\0\144\37\0\0\128\37\0\0\201\3\0\0\172\3\0\0\173\3\0\0\174\3\0\0\202\3\0\0\175\3\0\0\204\3\0\0\205\3\0\0\203\3\0\0\206\3\0\0\134\3\0\0\136\3\0\0\137\3\0\0\138\3\0\0\140\3\0\0\142\3\0\0\143\3\0\0\177\0\0\0\101\34\0\0\100\34\0\0\170\3\0\0\171\3\0\0\247\0\0\0\72\34\0\0\176\0\0\0\25\34\0\0\183\0\0\0\26\34\0\0\127\32\0\0\178\0\0\0\160\37\0\0\160\0\0\0"#

encoding_map_CP737 :: CharMap
encoding_map_CP737 = LeafMap1 (StaticMap (StaticArray (1) (256) "\160\0\0\0\64\0\0\0\198\3\0\0\32\0\0\0\96\0\0\0\165\3\0\0\86\37\0\0\16\0\0\0\48\0\0\0\80\0\0\0\112\0\0\0\148\3\0\0\182\3\0\0\2\37\0\0\102\37\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\137\3\0\0\156\3\0\0\173\3\0\0\190\3\0\0\206\3\0\0\52\37\0\0\94\37\0\0\132\37\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\183\0\0\0\143\3\0\0\152\3\0\0\160\3\0\0\169\3\0\0\178\3\0\0\186\3\0\0\194\3\0\0\202\3\0\0\72\34\0\0\24\37\0\0\82\37\0\0\90\37\0\0\98\37\0\0\106\37\0\0\145\37\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\177\0\0\0\134\3\0\0\140\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\180\3\0\0\184\3\0\0\188\3\0\0\192\3\0\0\196\3\0\0\200\3\0\0\204\3\0\0\25\34\0\0\101\34\0\0\16\37\0\0\36\37\0\0\80\37\0\0\84\37\0\0\88\37\0\0\92\37\0\0\96\37\0\0\100\37\0\0\104\37\0\0\108\37\0\0\140\37\0\0\147\37\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\176\0\0\0\178\0\0\0\247\0\0\0\136\3\0\0\138\3\0\0\142\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\177\3\0\0\179\3\0\0\181\3\0\0\183\3\0\0\185\3\0\0\187\3\0\0\189\3\0\0\191\3\0\0\193\3\0\0\195\3\0\0\197\3\0\0\199\3\0\0\201\3\0\0\203\3\0\0\205\3\0\0\127\32\0\0\26\34\0\0\100\34\0\0\0\37\0\0\12\37\0\0\20\37\0\0\28\37\0\0\44\37\0\0\60\37\0\0\81\37\0\0\83\37\0\0\85\37\0\0\87\37\0\0\89\37\0\0\91\37\0\0\93\37\0\0\95\37\0\0\97\37\0\0\99\37\0\0\101\37\0\0\103\37\0\0\105\37\0\0\107\37\0\0\128\37\0\0\136\37\0\0\144\37\0\0\146\37\0\0\160\37\0\0\0\0\0\0"#) (StaticArray (1) (256) "\255\64\173\32\96\147\183\16\48\80\112\131\157\179\203\8\24\40\56\72\88\104\120\236\139\226\165\233\193\198\220\4\12\20\28\36\44\52\60\68\76\84\92\100\108\116\124\250\240\135\143\151\153\161\170\228\247\217\213\200\182\216\176\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\241\234\238\129\133\137\141\145\149\245\229\155\159\163\167\171\175\230\249\242\191\180\205\201\212\189\204\209\208\206\221\178\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\248\253\246\235\237\239\128\130\132\134\136\138\140\142\144\146\148\150\244\225\227\152\154\156\158\160\162\164\166\168\169\172\174\224\232\231\252\251\243\196\218\192\195\194\197\186\214\184\187\211\190\188\199\181\185\210\207\202\215\223\219\222\177\254\0"#))

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