schmittlauch/Hash2Pub
1
0
Fork 1
Code Issues 47 Pull requests Releases Wiki Activity

more complex prototype example of modular parsing

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-04-26 21:06:52 +02:00
parent 7e6c4985ce
commit 7a20ea5225
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Hash2Pub/src/asn1test.hs
View file

@ -8,6 +8,7 @@ import qualified Data.ASN1.Types as ASN1 -- asn1-types package
import qualified Data.ASN1.Parse as ASN1P import qualified Data.ASN1.Parse as ASN1P
import qualified Data.ByteString as BS import qualified Data.ByteString as BS
import Data.Maybe (fromMaybe) import Data.Maybe (fromMaybe)
import Debug.Trace (trace)
-- import Hash2Pub.Fedichord -- import Hash2Pub.Fedichord
@ -30,7 +31,17 @@ getUnicodeField ((ASN1.Start ASN1.Sequence) : _ : (ASN1.ASN1String strASN1) : _)
testParser :: ASN1P.ParseASN1 String testParser :: ASN1P.ParseASN1 String
testParser = do testParser = do
show <$> ASN1P.getNext foo <- ASN1P.onNextContainer ASN1.Sequence getAll
return $ show foo
getAll :: ASN1P.ParseASN1 [ASN1.ASN1]
getAll = ASN1P.getMany ASN1P.getNext
-- | run a function of the next elements of a container of specified type
onNextContainer' :: ASN1.ASN1ConstructionType -> ASN1P.ParseASN1 a -> ASN1P.ParseASN1 a
onNextContainer' ty f = do
cont <- ASN1P.getNextContainer ty
either ASN1P.throwParseError return . trace (show cont) $ ASN1P.runParseASN1 f cont
--stringParser asn1obj = --stringParser asn1obj =
-- fmap (fromMaybe "" $ ASN1.asn1CharacterToString) ASN1P.getNext -- fmap (fromMaybe "" $ ASN1.asn1CharacterToString) ASN1P.getNext