fluencelabs/dashboard
1
0
Fork 0
mirror of https://github.com/fluencelabs/dashboard synced 2025-06-25 12:41:40 +00:00
Code Issues Projects Releases Wiki Activity

refactor air scripts

Browse Source
This commit is contained in:
DieMyst
2020-11-26 15:14:12 +03:00
parent 5bac4d8e6f
commit d8aa521f60
4 changed files with 46 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
src/AirScripts/CallPeers.elm Normal file
View File

@ -0,0 +1,31 @@
module AirScripts.CallPeers exposing (..)
import Air exposing (Air)
import Air exposing (Air, callBI, fold, next, par, relayEvent, seq, set)
import Json.Encode exposing (list, string)
air : String -> String -> (String, String, String) -> List String -> Air
air peerId relayId (event, service, fnName) peers =
let
clientIdSet =
set "clientId" <| string peerId
relayIdSet =
set "relayId" <| string relayId
peersSet =
set "peers" <| list string peers
airScript =
seq
(callBI "relayId" ( "op", "identity" ) [] Nothing)
(fold "peers" "p" <|
par
(seq
(callBI "p" ( service, fnName ) [] (Just "result"))
(relayEvent event [ "p", "result" ])
)
(next "p")
)
in
clientIdSet <| relayIdSet <| peersSet <| airScript

28
src/Modules/Air.elm
View File

@ -1,31 +1,9 @@
module Modules.Air exposing (..) module Modules.Air exposing (..)
import Air exposing (Air, callBI, fold, next, par, relayEvent, seq, set) import Air exposing (Air)
import Json.Encode exposing (list, string) import AirScripts.CallPeers
air : String -> String -> List String -> Air air : String -> String -> List String -> Air
air peerId relayId peers = air peerId relayId peers =
let AirScripts.CallPeers.air peerId relayId ("modules_discovered", "dist", "get_modules") peers
clientIdSet =
set "clientId" <| string peerId
relayIdSet =
set "relayId" <| string relayId
peersSet =
set "peers" <| list string peers
airScript =
seq
(callBI "relayId" ( "op", "identity" ) [] Nothing)
(fold "peers" "p" <|
par
(seq
(callBI "p" ( "dist", "get_modules" ) [] (Just "modules"))
(relayEvent "modules_discovered" [ "p", "modules" ])
)
(next "p")
)
in
clientIdSet <| relayIdSet <| peersSet <| airScript

9
src/Nodes/Air.elm Normal file
View File

@ -0,0 +1,9 @@
module Nodes.Air exposing (..)
import Air exposing (Air)
import AirScripts.CallPeers
air : String -> String -> List String -> Air
air peerId relayId peers =
AirScripts.CallPeers.air peerId relayId ("peer_identity", "op", "identify") peers

28
src/Services/Air.elm
View File

@ -1,31 +1,9 @@
module Services.Air exposing (..) module Services.Air exposing (..)
import Air exposing (Air, callBI, fold, next, par, relayEvent, seq, set) import Air exposing (Air)
import Json.Encode exposing (list, string) import AirScripts.CallPeers
air : String -> String -> List String -> Air air : String -> String -> List String -> Air
air peerId relayId peers = air peerId relayId peers =
let AirScripts.CallPeers.air peerId relayId ("services_discovered", "srv", "get_interfaces") peers
clientIdSet =
set "clientId" <| string peerId
relayIdSet =
set "relayId" <| string relayId
peersSet =
set "peers" <| list string peers
airScript =
seq
(callBI "relayId" ( "op", "identity" ) [] Nothing)
(fold "peers" "p" <|
par
(seq
(callBI "p" ( "srv", "get_interfaces" ) [] (Just "interfaces"))
(relayEvent "services_discovered" [ "p", "interfaces" ])
)
(next "p")
)
in
clientIdSet <| relayIdSet <| peersSet <| airScript