mirror of
https://github.com/fluencelabs/examples
synced 2025-04-24 18:22:15 +00:00
55 lines
1.2 KiB
Plaintext
55 lines
1.2 KiB
Plaintext
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
|
|
(call %init_peer_id% ("getDataSrv" "node") [] node)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "n_neighborhood") [] n_neighborhood)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "n_returnvalues") [] n_returnvalues)
|
|
)
|
|
(call -relay- ("op" "noop") [])
|
|
)
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call node ("op" "string_to_b58") [node] k)
|
|
(call node ("kad" "neighborhood") [k false] nodes)
|
|
)
|
|
(fold nodes n
|
|
(par
|
|
(seq
|
|
(xor
|
|
(call n ("peer" "timestamp_ms") [] $res)
|
|
(null)
|
|
)
|
|
(call node ("op" "noop") [])
|
|
)
|
|
(next n)
|
|
)
|
|
)
|
|
)
|
|
(call node ("op" "identity") [$res.$.[9]!])
|
|
)
|
|
(seq
|
|
(call -relay- ("op" "noop") [])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
|
|
)
|
|
)
|
|
)
|
|
(call -relay- ("op" "noop") [])
|
|
)
|
|
(xor
|
|
(call %init_peer_id% ("callbackSrv" "response") [$res])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 2])
|
|
)
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 3])
|
|
)
|