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

encode Ping as ASN.1

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-04-30 13:37:46 +02:00
parent 1968b5f883
commit 187d164200
2 changed files with 23 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Hash2Pub/FediChord.asn1
View file

@ -16,7 +16,8 @@ Request ::= SEQUENCE {
queryIDSendPayload QueryIDSendPayload, queryIDSendPayload QueryIDSendPayload,
joinSendPayload JoinSendPayload, joinSendPayload JoinSendPayload,
leaveSendPayload LeaveSendPayload, leaveSendPayload LeaveSendPayload,
stabiliseSendPayload StabiliseSendPayload stabiliseSendPayload StabiliseSendPayload,
pingSendPayload PingSendPayload
} }
} }
@ -30,7 +31,8 @@ Response ::= SEQUENCE {
queryIDReceivePayload QueryIDReceivePayload, queryIDReceivePayload QueryIDReceivePayload,
joinReceivePayload JoinReceivePayload, joinReceivePayload JoinReceivePayload,
leaveReceivePayload LeaveReceivePayload, leaveReceivePayload LeaveReceivePayload,
stabiliseReceivePayload StabiliseReceivePayload stabiliseReceivePayload StabiliseReceivePayload,
pingReceivePayload PingReceivePayload
} }
} }
@ -87,5 +89,11 @@ LeaveSendPayload ::= SEQUENCE {
LeaveReceivePayload ::= NULL -- just a confirmation LeaveReceivePayload ::= NULL -- just a confirmation
PingSendPayload ::= NULL -- do not include a node/ vserver ID, so that
-- the node has to respond with all active ones
-- learning all active vserver IDs handled by the server at once
PingReceivePayload ::= SEQUENCE OF NodeState
END END

15
Hash2Pub/src/Hash2Pub/ASN1Coding.hs
View file

@ -28,6 +28,8 @@ data Action =
-- probably should be taken care of by the callers of this, as the ASN.1 -- probably should be taken care of by the callers of this, as the ASN.1
-- encoding functions are layer-4 agnostic -- encoding functions are layer-4 agnostic
-- ===== encoding functions =====
encodeNodeState :: NodeState -> [ASN1] encodeNodeState :: NodeState -> [ASN1]
encodeNodeState ns = [ encodeNodeState ns = [
Start Sequence Start Sequence
@ -82,7 +84,7 @@ encodeQueryIDReceivePayload resp =
FOUND _ -> [] FOUND _ -> []
FORWARD entrySet -> FORWARD entrySet ->
Start Sequence Start Sequence
: mconcat (map encodeCacheEntry . Set.elems $ entrySet) : concatMap encodeCacheEntry . Set.elems $ entrySet
++ [End Sequence] ++ [End Sequence]
++ [End Sequence] ++ [End Sequence]
@ -105,7 +107,7 @@ encodeJoinReceivePayload succ' pred' ncache =
++ map (IntVal . getNodeID) pred' ++ map (IntVal . getNodeID) pred'
++ [End Sequence ++ [End Sequence
, Start Sequence] , Start Sequence]
++ mconcat (map encodeCacheEntry ncache) ++ concatMap encodeCacheEntry ncache
++ [End Sequence ++ [End Sequence
, End Sequence] , End Sequence]
@ -131,3 +133,12 @@ encodeResponse responseTo senderID parts part action payload = [
, IntVal part , IntVal part
, Enumerated . fromIntegral . fromEnum $ action] , Enumerated . fromIntegral . fromEnum $ action]
++ payload ++ payload
encodePingSendPayload :: [ASN1]
encodePingSendPayload = Null
encodePingReceivePayload :: [NodeState] -> [ASN1]
encodePingReceivePayload nss =
Start Sequence
: concatMap encodeNodeState nss
++ [End Sequence]