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
164
165
166
167
168
169
170
171
172
173
174
|
-- |
-- Module : Codec.Binary.DataEncoding
-- Copyright : (c) 2007 Magnus Therning
-- License : BSD3
--
-- This module exposes several instances of 'DataCodec', one for each data
-- encoding implemented in the library without causing the name clashing that
-- would result from importing the individual encoding modules.
--
-- Further documentation and information can be found at
-- <http://www.haskell.org/haskellwiki/Library/Data_encoding>.
module Codec.Binary.DataEncoding
( DataCodec
, base16
, base32
, base32Hex
, base64
, base64Url
, base85
, chop
, decode
, encode
, py
, qp
, unchop
, url
, uu
, xx
)
where
import Data.Word
import qualified Codec.Binary.Base16 as Base16
import qualified Codec.Binary.Base32 as Base32
import qualified Codec.Binary.Base32Hex as Base32Hex
import qualified Codec.Binary.Base64 as Base64
import qualified Codec.Binary.Base64Url as Base64Url
import qualified Codec.Binary.Base85 as Base85
import qualified Codec.Binary.Url as Url
import qualified Codec.Binary.Uu as Uu
import qualified Codec.Binary.Xx as Xx
import qualified Codec.Binary.QuotedPrintable as QP
import qualified Codec.Binary.PythonString as Py
-- {{{1 DataCodec
-- | Used to group a specific data encoding's functions.
data DataCodec = DataCodec {
encode :: [Word8] -> String,
decode :: String -> Maybe [Word8],
chop :: Int -> String -> [String],
unchop :: [String] -> String
}
-- {{{1 base16
-- | Base16 encoding, see "Codec.Binary.Base16" for more details on
-- the individual functions.
base16 :: DataCodec
base16 = DataCodec {
encode=Base16.encode,
decode=Base16.decode,
chop=Base16.chop,
unchop=Base16.unchop
}
-- {{{1 base32
-- | Base32 encoding, see "Codec.Binary.Base32" for more details on
-- the individual functions.
base32 :: DataCodec
base32 = DataCodec {
encode=Base32.encode,
decode=Base32.decode,
chop=Base32.chop,
unchop=Base32.unchop
}
-- {{{1 base32Hex
-- | Base32Hex encoding, see "Codec.Binary.Base32Hex" for more details
-- on the individual functions.
base32Hex :: DataCodec
base32Hex = DataCodec {
encode=Base32Hex.encode,
decode=Base32Hex.decode,
chop=Base32Hex.chop,
unchop=Base32Hex.unchop
}
-- {{{1 base64
-- | Base64 encoding, see "Codec.Binary.Base64" for more details on
-- the individual functions.
base64 :: DataCodec
base64 = DataCodec {
encode=Base64.encode,
decode=Base64.decode,
chop=Base64.chop,
unchop=Base64.unchop
}
-- {{{1 base64Url
-- | Base64Url encoding, see "Codec.Binary.Base64Url" for more details
-- on the individual functions.
base64Url :: DataCodec
base64Url = DataCodec {
encode=Base64Url.encode,
decode=Base64Url.decode,
chop=Base64Url.chop,
unchop=Base64Url.unchop
}
-- {{{1 base85
-- | Base85 encoding, see "Codec.Binary.Base85" for more details
-- on the individual functions.
base85 :: DataCodec
base85 = DataCodec {
encode=Base85.encode,
decode=Base85.decode,
chop=Base85.chop,
unchop=Base85.unchop
}
-- {{{1 uu
-- | Uuencoding, see "Codec.Binary.Uu" for more details on the
-- individual functions.
uu :: DataCodec
uu = DataCodec {
encode=Uu.encode,
decode=Uu.decode,
chop=Uu.chop,
unchop=Uu.unchop
}
-- {{{1 xx
-- | Xxencoding, see "Codec.Binary.Xx" for more details on the
-- individual functions.
xx :: DataCodec
xx = DataCodec {
encode=Xx.encode,
decode=Xx.decode,
chop=Xx.chop,
unchop=Xx.unchop
}
-- {{{1 quoted-printable
-- | Quoted-printable, see "Codec.Binary.QuotedPrintable" for more details on
-- the individual functions.
qp :: DataCodec
qp = DataCodec
{ encode = QP.encode
, decode = QP.decode
, chop = QP.chop
, unchop = QP.unchop
}
-- {{{1 python string
-- | Quoted-printable, see "Codec.Binary.PythonString" for more details on
-- the individual functions.
py :: DataCodec
py = DataCodec
{ encode = Py.encode
, decode = Py.decode
, chop = Py.chop
, unchop = Py.unchop
}
-- {{{1 url encoding
-- | URL encoding, see "Codec.Binary.Url" for more details on the individual
-- functions.
url :: DataCodec
url = DataCodec
{ encode = Url.encode
, decode = Url.decode
, chop = Url.chop
, unchop = Url.unchop
}
|
