module Codec.Binary.DataEncoding
( DataCodec
, base16
, base32
, base32Hex
, base64
, base64Url
, base85
, chop
, decode
, 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
data DataCodec = DataCodec {
encode :: [Word8] -> String,
decode :: String -> Maybe [Word8],
decode' :: String -> [Maybe Word8],
chop :: Int -> String -> [String],
unchop :: [String] -> String
}
base16 :: DataCodec
base16 = DataCodec {
encode=Base16.encode,
decode=Base16.decode,
decode'=Base16.decode',
chop=Base16.chop,
unchop=Base16.unchop
}
base32 :: DataCodec
base32 = DataCodec {
encode=Base32.encode,
decode=Base32.decode,
decode'=Base32.decode',
chop=Base32.chop,
unchop=Base32.unchop
}
base32Hex :: DataCodec
base32Hex = DataCodec {
encode=Base32Hex.encode,
decode=Base32Hex.decode,
decode'=Base32Hex.decode',
chop=Base32Hex.chop,
unchop=Base32Hex.unchop
}
base64 :: DataCodec
base64 = DataCodec {
encode=Base64.encode,
decode=Base64.decode,
decode'=Base64.decode',
chop=Base64.chop,
unchop=Base64.unchop
}
base64Url :: DataCodec
base64Url = DataCodec {
encode=Base64Url.encode,
decode=Base64Url.decode,
decode'=Base64Url.decode',
chop=Base64Url.chop,
unchop=Base64Url.unchop
}
base85 :: DataCodec
base85 = DataCodec {
encode=Base85.encode,
decode=Base85.decode,
decode'=Base85.decode',
chop=Base85.chop,
unchop=Base85.unchop
}
uu :: DataCodec
uu = DataCodec {
encode=Uu.encode,
decode=Uu.decode,
decode'=Uu.decode',
chop=Uu.chop,
unchop=Uu.unchop
}
xx :: DataCodec
xx = DataCodec {
encode=Xx.encode,
decode=Xx.decode,
decode'=Xx.decode',
chop=Xx.chop,
unchop=Xx.unchop
}
qp :: DataCodec
qp = DataCodec
{ encode = QP.encode
, decode = QP.decode
, decode' = QP.decode'
, chop = QP.chop
, unchop = QP.unchop
}
py :: DataCodec
py = DataCodec
{ encode = Py.encode
, decode = Py.decode
, decode' = Py.decode'
, chop = Py.chop
, unchop = Py.unchop
}
url :: DataCodec
url = DataCodec
{ encode = Url.encode
, decode = Url.decode
, decode' = Url.decode'
, chop = Url.chop
, unchop = Url.unchop
}