1 files changed, 174 insertions, 0 deletions

diff --git a/src/Codec/Binary/DataEncoding.hs b/src/Codec/Binary/DataEncoding.hs
new file mode 100644
index 0000000..1be49c8
--- /dev/null
+++ b/src/Codec/Binary/DataEncoding.hs
@@ -0,0 +1,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
+    }