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
|
-- |
-- Module : Data.ASN1.Encoding
-- License : BSD-style
-- Maintainer : Vincent Hanquez <vincent@snarc.org>
-- Stability : experimental
-- Portability : unknown
--
module Data.ASN1.Encoding
(
-- * generic class for decoding and encoding stream
ASN1Decoding(..)
, ASN1DecodingRepr(..)
, ASN1Encoding(..)
-- * strict bytestring version
, decodeASN1'
, decodeASN1Repr'
, encodeASN1'
) where
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as L
import Data.ASN1.Stream
import Data.ASN1.Types
import Data.ASN1.Error
-- | Describe an ASN1 decoding, that transform a bytestream into an asn1stream
class ASN1Decoding a where
-- | decode a lazy bytestring into an ASN1 stream
decodeASN1 :: a -> L.ByteString -> Either ASN1Error [ASN1]
-- | transition class.
class ASN1DecodingRepr a where
-- | decode a lazy bytestring into an ASN1 stream
decodeASN1Repr :: a -> L.ByteString -> Either ASN1Error [ASN1Repr]
-- | Describe an ASN1 encoding, that transform an asn1stream into a bytestream
class ASN1Encoding a where
-- | encode a stream into a lazy bytestring
encodeASN1 :: a -> [ASN1] -> L.ByteString
-- | decode a strict bytestring into an ASN1 stream
decodeASN1' :: ASN1Decoding a => a -> B.ByteString -> Either ASN1Error [ASN1]
decodeASN1' encoding bs = decodeASN1 encoding $ L.fromChunks [bs]
-- | decode a strict bytestring into an ASN1Repr stream
decodeASN1Repr' :: ASN1DecodingRepr a => a -> B.ByteString -> Either ASN1Error [ASN1Repr]
decodeASN1Repr' encoding bs = decodeASN1Repr encoding $ L.fromChunks [bs]
-- | encode a stream into a strict bytestring
encodeASN1' :: ASN1Encoding a => a -> [ASN1] -> B.ByteString
encodeASN1' encoding = B.concat . L.toChunks . encodeASN1 encoding
|
