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
|
-- |
-- Module : Data.ASN1.BinaryEncoding.Writer
-- License : BSD-style
-- Maintainer : Vincent Hanquez <vincent@snarc.org>
-- Stability : experimental
-- Portability : unknown
--
-- Serialize events for streaming.
--
module Data.ASN1.BinaryEncoding.Writer
( toByteString
, toLazyByteString
) where
import Data.ByteString (ByteString)
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as L
import Data.ASN1.Types.Lowlevel
import Data.ASN1.Serialize
-- | transform a list of ASN1 Events into a strict bytestring
toByteString :: [ASN1Event] -> ByteString
toByteString = B.concat . L.toChunks . toLazyByteString
-- | transform a list of ASN1 Events into a lazy bytestring
toLazyByteString :: [ASN1Event] -> L.ByteString
toLazyByteString evs = L.fromChunks $ loop [] evs
where loop _ [] = []
loop acc (x@(Header (ASN1Header _ _ pc len)):xs) = toBs x : loop (if pc then (len == LenIndefinite):acc else acc) xs
loop acc (ConstructionEnd:xs) = case acc of
[] -> error "malformed stream: end before construction"
(True:r) -> toBs ConstructionEnd : loop r xs
(False:r) -> loop r xs
loop acc (x:xs) = toBs x : loop acc xs
toBs (Header hdr) = putHeader hdr
toBs (Primitive bs) = bs
toBs ConstructionBegin = B.empty
toBs ConstructionEnd = B.empty
|
