1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
-- |
-- Module : Codec.Archive.Zip.CP437
-- Copyright : © 2016–present Mark Karpov
-- License : BSD 3 clause
--
-- Maintainer : Mark Karpov <markkarpov92@gmail.com>
-- Stability : experimental
-- Portability : portable
--
-- Support for decoding of CP 437 text.
module Codec.Archive.Zip.CP437
( decodeCP437,
)
where
import Control.Arrow (first)
import Data.ByteString (ByteString)
import Data.ByteString qualified as B
import Data.Char
import Data.Text (Text)
import Data.Text qualified as T
import Data.Word (Word8)
-- | Decode a 'ByteString' containing CP 437 encoded text.
decodeCP437 :: ByteString -> Text
decodeCP437 bs =
T.unfoldrN
(B.length bs)
(fmap (first decodeByteCP437) . B.uncons)
bs
-- | Decode a single byte of CP437 encoded text.
decodeByteCP437 :: Word8 -> Char
decodeByteCP437 byte = chr $ case byte of
128 -> 199
129 -> 252
130 -> 233
131 -> 226
132 -> 228
133 -> 224
134 -> 229
135 -> 231
136 -> 234
137 -> 235
138 -> 232
139 -> 239
140 -> 238
141 -> 236
142 -> 196
143 -> 197
144 -> 201
145 -> 230
146 -> 198
147 -> 244
148 -> 246
149 -> 242
150 -> 251
151 -> 249
152 -> 255
153 -> 214
154 -> 220
155 -> 162
156 -> 163
157 -> 165
158 -> 8359
159 -> 402
160 -> 225
161 -> 237
162 -> 243
163 -> 250
164 -> 241
165 -> 209
166 -> 170
167 -> 186
168 -> 191
169 -> 8976
170 -> 172
171 -> 189
172 -> 188
173 -> 161
174 -> 171
175 -> 187
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 -> 945
225 -> 223
226 -> 915
227 -> 960
228 -> 931
229 -> 963
230 -> 181
231 -> 964
232 -> 934
233 -> 920
234 -> 937
235 -> 948
236 -> 8734
237 -> 966
238 -> 949
239 -> 8745
240 -> 8801
241 -> 177
242 -> 8805
243 -> 8804
244 -> 8992
245 -> 8993
246 -> 247
247 -> 8776
248 -> 176
249 -> 8729
250 -> 183
251 -> 8730
252 -> 8319
253 -> 178
254 -> 9632
255 -> 160
x -> fromIntegral x -- the rest of characters translate directly
|
