mirror of
https://github.com/fluencelabs/examples
synced 2025-04-25 02:32:16 +00:00
1622 lines
57 KiB
JavaScript
1622 lines
57 KiB
JavaScript
/* eslint-disable */
|
|
// @ts-nocheck
|
|
/**
|
|
*
|
|
* This file is auto-generated. Do not edit manually: changes may be erased.
|
|
* Generated by Aqua compiler: https://github.com/fluencelabs/aqua/.
|
|
* If you find any bugs, please write an issue on GitHub: https://github.com/fluencelabs/aqua/issues
|
|
* Aqua version: 0.10.1
|
|
*
|
|
*/
|
|
|
|
import {
|
|
v5_callFunction as callFunction$$,
|
|
v5_registerService as registerService$$,
|
|
} from '@fluencelabs/js-client.api';
|
|
|
|
|
|
|
|
// Services
|
|
|
|
|
|
|
|
export function registerNumOp(...args) {
|
|
registerService$$(
|
|
args,
|
|
{
|
|
"defaultServiceId" : "op",
|
|
"functions" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"identity" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"n" : {
|
|
"tag" : "scalar",
|
|
"name" : "u64"
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "scalar",
|
|
"name" : "i64"
|
|
}
|
|
]
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
);
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
export function registerLogger(...args) {
|
|
registerService$$(
|
|
args,
|
|
{
|
|
"defaultServiceId" : "logger",
|
|
"functions" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"log" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"s" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "nil"
|
|
}
|
|
},
|
|
"logCall" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"s" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "nil"
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
);
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
export function registerQuorumChecker(...args) {
|
|
registerService$$(
|
|
args,
|
|
{
|
|
"defaultServiceId" : "quorum",
|
|
"functions" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"check" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"results" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
},
|
|
"minResults" : {
|
|
"tag" : "scalar",
|
|
"name" : "u32"
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "QuorumResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"results" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
);
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
export function registerEthCaller(...args) {
|
|
registerService$$(
|
|
args,
|
|
{
|
|
"functions" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"eth_call" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"uri" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"method" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"jsonArgs" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
);
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
export function registerCounter(...args) {
|
|
registerService$$(
|
|
args,
|
|
{
|
|
"defaultServiceId" : "counter",
|
|
"functions" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"incrementAndReturn" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "nil"
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "scalar",
|
|
"name" : "u32"
|
|
}
|
|
]
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
);
|
|
}
|
|
|
|
// Functions
|
|
|
|
export function roundRobinEth(...args) {
|
|
|
|
let script = `
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
|
|
(call %init_peer_id% ("getDataSrv" "uris") [] uris)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "method") [] method)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "jsonArgs") [] jsonArgs)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "serviceId") [] serviceId)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "counterServiceId") [] counterServiceId)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "counterPeerId") [] counterPeerId)
|
|
)
|
|
(call -relay- ("op" "noop") [])
|
|
)
|
|
(xor
|
|
(call counterPeerId (counterServiceId "incrementAndReturn") [] requestNumber)
|
|
(seq
|
|
(call -relay- ("op" "noop") [])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
|
|
)
|
|
)
|
|
)
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(ap uris uris_to_functor)
|
|
(ap uris_to_functor.length uris_length)
|
|
)
|
|
(call %init_peer_id% ("math" "rem") [requestNumber uris_length] rem)
|
|
)
|
|
(call %init_peer_id% ("logger" "logCall") [uris.$.[rem]!])
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 2])
|
|
)
|
|
)
|
|
(xor
|
|
(call -relay- (serviceId "eth_call") [uris.$.[rem]! method jsonArgs] res)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 3])
|
|
)
|
|
)
|
|
(xor
|
|
(call %init_peer_id% ("callbackSrv" "response") [res])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 4])
|
|
)
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 5])
|
|
)
|
|
`
|
|
return callFunction$$(
|
|
args,
|
|
{
|
|
"functionName" : "roundRobinEth",
|
|
"arrow" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"uris" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"method" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"jsonArgs" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"serviceId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"counterServiceId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"counterPeerId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
},
|
|
"names" : {
|
|
"relay" : "-relay-",
|
|
"getDataSrv" : "getDataSrv",
|
|
"callbackSrv" : "callbackSrv",
|
|
"responseSrv" : "callbackSrv",
|
|
"responseFnName" : "response",
|
|
"errorHandlingSrv" : "errorHandlingSrv",
|
|
"errorFnName" : "error"
|
|
}
|
|
},
|
|
script
|
|
)
|
|
}
|
|
|
|
|
|
export function empty(...args) {
|
|
|
|
let script = `
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
|
|
(call %init_peer_id% ("json" "obj") ["error" "" "success" true "value" ""] EthResult_obj)
|
|
)
|
|
(xor
|
|
(call %init_peer_id% ("callbackSrv" "response") [EthResult_obj])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
|
|
)
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 2])
|
|
)
|
|
`
|
|
return callFunction$$(
|
|
args,
|
|
{
|
|
"functionName" : "empty",
|
|
"arrow" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
},
|
|
"names" : {
|
|
"relay" : "-relay-",
|
|
"getDataSrv" : "getDataSrv",
|
|
"callbackSrv" : "callbackSrv",
|
|
"responseSrv" : "callbackSrv",
|
|
"responseFnName" : "response",
|
|
"errorHandlingSrv" : "errorHandlingSrv",
|
|
"errorFnName" : "error"
|
|
}
|
|
},
|
|
script
|
|
)
|
|
}
|
|
|
|
|
|
export function quorumEth(...args) {
|
|
|
|
let script = `
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
|
|
(call %init_peer_id% ("getDataSrv" "uris") [] uris)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "quorumNumber") [] quorumNumber)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "timeout") [] timeout)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "method") [] method)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "jsonArgs") [] jsonArgs)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "serviceId") [] serviceId)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "quorumServiceId") [] quorumServiceId)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "quorumPeerId") [] quorumPeerId)
|
|
)
|
|
(new $results
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(xor
|
|
(par
|
|
(fold uris uri-0
|
|
(par
|
|
(seq
|
|
(seq
|
|
(xor
|
|
(call -relay- (serviceId "eth_call") [uri-0 method jsonArgs] res)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
|
|
)
|
|
(ap res $results)
|
|
)
|
|
(call %init_peer_id% ("op" "noop") [])
|
|
)
|
|
(next uri-0)
|
|
)
|
|
(never)
|
|
)
|
|
(null)
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 2])
|
|
)
|
|
(par
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(ap uris uris_to_functor)
|
|
(ap uris_to_functor.length uris_length)
|
|
)
|
|
(call %init_peer_id% ("math" "sub") [uris_length 1] sub)
|
|
)
|
|
(new $results_test
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("math" "add") [sub 1] results_incr)
|
|
(fold $results s
|
|
(seq
|
|
(seq
|
|
(ap s $results_test)
|
|
(canon %init_peer_id% $results_test #results_iter_canon)
|
|
)
|
|
(xor
|
|
(match #results_iter_canon.length results_incr
|
|
(null)
|
|
)
|
|
(next s)
|
|
)
|
|
)
|
|
(never)
|
|
)
|
|
)
|
|
(canon %init_peer_id% $results_test #results_result_canon)
|
|
)
|
|
(ap #results_result_canon results_gate)
|
|
)
|
|
)
|
|
)
|
|
(ap uris uris_to_functor-0)
|
|
)
|
|
(ap uris_to_functor-0.length uris_length-0)
|
|
)
|
|
(call %init_peer_id% ("math" "sub") [uris_length-0 1] sub-0)
|
|
)
|
|
(call %init_peer_id% ("peer" "timeout") [timeout ""])
|
|
)
|
|
)
|
|
(call -relay- ("op" "noop") [])
|
|
)
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(canon quorumPeerId $results #results_canon)
|
|
(call quorumPeerId ("quorum" "check") [#results_canon quorumNumber] quorumResult)
|
|
)
|
|
(call -relay- ("op" "noop") [])
|
|
)
|
|
(seq
|
|
(call -relay- ("op" "noop") [])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 3])
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(xor
|
|
(call %init_peer_id% ("callbackSrv" "response") [quorumResult])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 4])
|
|
)
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 5])
|
|
)
|
|
`
|
|
return callFunction$$(
|
|
args,
|
|
{
|
|
"functionName" : "quorumEth",
|
|
"arrow" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"uris" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"quorumNumber" : {
|
|
"tag" : "scalar",
|
|
"name" : "u32"
|
|
},
|
|
"timeout" : {
|
|
"tag" : "scalar",
|
|
"name" : "u32"
|
|
},
|
|
"method" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"jsonArgs" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"serviceId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"quorumServiceId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"quorumPeerId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "QuorumResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"results" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
},
|
|
"names" : {
|
|
"relay" : "-relay-",
|
|
"getDataSrv" : "getDataSrv",
|
|
"callbackSrv" : "callbackSrv",
|
|
"responseSrv" : "callbackSrv",
|
|
"responseFnName" : "response",
|
|
"errorHandlingSrv" : "errorHandlingSrv",
|
|
"errorFnName" : "error"
|
|
}
|
|
},
|
|
script
|
|
)
|
|
}
|
|
|
|
|
|
export function randomLoadBalancing(...args) {
|
|
|
|
let script = `
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
|
|
(call %init_peer_id% ("getDataSrv" "uris") [] uris)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "method") [] method)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "jsonArgs") [] jsonArgs)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "serviceId") [] serviceId)
|
|
)
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("peer" "timestamp_sec") [] timestamp_sec)
|
|
(call %init_peer_id% ("op" "identity") [timestamp_sec] time)
|
|
)
|
|
(call %init_peer_id% ("op" "array_length") [uris] array_length)
|
|
)
|
|
(call %init_peer_id% ("math" "rem") [time array_length] rem)
|
|
)
|
|
(call %init_peer_id% ("logger" "logCall") [uris.$.[rem]!])
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
|
|
)
|
|
)
|
|
(xor
|
|
(call %init_peer_id% ("callbackSrv" "callFunc") [uris.$.[rem]! method jsonArgs serviceId] init_call_res0)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 2])
|
|
)
|
|
)
|
|
(xor
|
|
(call %init_peer_id% ("callbackSrv" "response") [init_call_res0])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 3])
|
|
)
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 4])
|
|
)
|
|
`
|
|
return callFunction$$(
|
|
args,
|
|
{
|
|
"functionName" : "randomLoadBalancing",
|
|
"arrow" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"uris" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"method" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"jsonArgs" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"serviceId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"callFunc" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
{
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
{
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
{
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
]
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
},
|
|
"names" : {
|
|
"relay" : "-relay-",
|
|
"getDataSrv" : "getDataSrv",
|
|
"callbackSrv" : "callbackSrv",
|
|
"responseSrv" : "callbackSrv",
|
|
"responseFnName" : "response",
|
|
"errorHandlingSrv" : "errorHandlingSrv",
|
|
"errorFnName" : "error"
|
|
}
|
|
},
|
|
script
|
|
)
|
|
}
|
|
|
|
|
|
export function randomLoadBalancingEth(...args) {
|
|
|
|
let script = `
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
|
|
(call %init_peer_id% ("getDataSrv" "uris") [] uris)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "method") [] method)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "jsonArgs") [] jsonArgs)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "serviceId") [] serviceId)
|
|
)
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("peer" "timestamp_sec") [] timestamp_sec)
|
|
(call %init_peer_id% ("op" "identity") [timestamp_sec] time)
|
|
)
|
|
(call %init_peer_id% ("op" "array_length") [uris] array_length)
|
|
)
|
|
(call %init_peer_id% ("math" "rem") [time array_length] rem)
|
|
)
|
|
(call %init_peer_id% ("logger" "logCall") [uris.$.[rem]!])
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
|
|
)
|
|
)
|
|
(xor
|
|
(call -relay- (serviceId "eth_call") [uris.$.[rem]! method jsonArgs] res)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 2])
|
|
)
|
|
)
|
|
(xor
|
|
(call %init_peer_id% ("callbackSrv" "response") [res])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 3])
|
|
)
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 4])
|
|
)
|
|
`
|
|
return callFunction$$(
|
|
args,
|
|
{
|
|
"functionName" : "randomLoadBalancingEth",
|
|
"arrow" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"uris" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"method" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"jsonArgs" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"serviceId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
},
|
|
"names" : {
|
|
"relay" : "-relay-",
|
|
"getDataSrv" : "getDataSrv",
|
|
"callbackSrv" : "callbackSrv",
|
|
"responseSrv" : "callbackSrv",
|
|
"responseFnName" : "response",
|
|
"errorHandlingSrv" : "errorHandlingSrv",
|
|
"errorFnName" : "error"
|
|
}
|
|
},
|
|
script
|
|
)
|
|
}
|
|
|
|
|
|
export function quorum(...args) {
|
|
|
|
let script = `
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
|
|
(call %init_peer_id% ("getDataSrv" "uris") [] uris)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "quorumNumber") [] quorumNumber)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "timeout") [] timeout)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "method") [] method)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "jsonArgs") [] jsonArgs)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "serviceId") [] serviceId)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "quorumServiceId") [] quorumServiceId)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "quorumPeerId") [] quorumPeerId)
|
|
)
|
|
(new $results
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(xor
|
|
(par
|
|
(fold uris uri-0
|
|
(par
|
|
(seq
|
|
(seq
|
|
(xor
|
|
(call %init_peer_id% ("callbackSrv" "callFunc") [uri-0 method jsonArgs serviceId] init_call_res0)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
|
|
)
|
|
(ap init_call_res0 $results)
|
|
)
|
|
(call %init_peer_id% ("op" "noop") [])
|
|
)
|
|
(next uri-0)
|
|
)
|
|
(never)
|
|
)
|
|
(null)
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 2])
|
|
)
|
|
(par
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(ap uris uris_to_functor)
|
|
(ap uris_to_functor.length uris_length)
|
|
)
|
|
(call %init_peer_id% ("math" "sub") [uris_length 1] sub)
|
|
)
|
|
(new $results_test
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("math" "add") [sub 1] results_incr)
|
|
(fold $results s
|
|
(seq
|
|
(seq
|
|
(ap s $results_test)
|
|
(canon %init_peer_id% $results_test #results_iter_canon)
|
|
)
|
|
(xor
|
|
(match #results_iter_canon.length results_incr
|
|
(null)
|
|
)
|
|
(next s)
|
|
)
|
|
)
|
|
(never)
|
|
)
|
|
)
|
|
(canon %init_peer_id% $results_test #results_result_canon)
|
|
)
|
|
(ap #results_result_canon results_gate)
|
|
)
|
|
)
|
|
)
|
|
(ap uris uris_to_functor-0)
|
|
)
|
|
(ap uris_to_functor-0.length uris_length-0)
|
|
)
|
|
(call %init_peer_id% ("math" "sub") [uris_length-0 1] sub-0)
|
|
)
|
|
(call %init_peer_id% ("peer" "timeout") [timeout ""])
|
|
)
|
|
)
|
|
(call -relay- ("op" "noop") [])
|
|
)
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(canon quorumPeerId $results #results_canon)
|
|
(call quorumPeerId ("quorum" "check") [#results_canon quorumNumber] quorumResult)
|
|
)
|
|
(call -relay- ("op" "noop") [])
|
|
)
|
|
(seq
|
|
(call -relay- ("op" "noop") [])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 3])
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
(xor
|
|
(call %init_peer_id% ("callbackSrv" "response") [quorumResult])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 4])
|
|
)
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 5])
|
|
)
|
|
`
|
|
return callFunction$$(
|
|
args,
|
|
{
|
|
"functionName" : "quorum",
|
|
"arrow" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"uris" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"quorumNumber" : {
|
|
"tag" : "scalar",
|
|
"name" : "u32"
|
|
},
|
|
"timeout" : {
|
|
"tag" : "scalar",
|
|
"name" : "u32"
|
|
},
|
|
"method" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"jsonArgs" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"serviceId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"quorumServiceId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"quorumPeerId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"callFunc" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
{
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
{
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
{
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
]
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "QuorumResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"results" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
},
|
|
"names" : {
|
|
"relay" : "-relay-",
|
|
"getDataSrv" : "getDataSrv",
|
|
"callbackSrv" : "callbackSrv",
|
|
"responseSrv" : "callbackSrv",
|
|
"responseFnName" : "response",
|
|
"errorHandlingSrv" : "errorHandlingSrv",
|
|
"errorFnName" : "error"
|
|
}
|
|
},
|
|
script
|
|
)
|
|
}
|
|
|
|
|
|
export function roundRobin(...args) {
|
|
|
|
let script = `
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
|
|
(call %init_peer_id% ("getDataSrv" "uris") [] uris)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "method") [] method)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "jsonArgs") [] jsonArgs)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "serviceId") [] serviceId)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "counterServiceId") [] counterServiceId)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "counterPeerId") [] counterPeerId)
|
|
)
|
|
(call -relay- ("op" "noop") [])
|
|
)
|
|
(xor
|
|
(call counterPeerId (counterServiceId "incrementAndReturn") [] requestNumber)
|
|
(seq
|
|
(call -relay- ("op" "noop") [])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
|
|
)
|
|
)
|
|
)
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(ap uris uris_to_functor)
|
|
(ap uris_to_functor.length uris_length)
|
|
)
|
|
(call %init_peer_id% ("math" "rem") [requestNumber uris_length] rem)
|
|
)
|
|
(call %init_peer_id% ("logger" "logCall") [uris.$.[rem]!])
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 2])
|
|
)
|
|
)
|
|
(xor
|
|
(call %init_peer_id% ("callbackSrv" "callFunc") [uris.$.[rem]! method jsonArgs serviceId] init_call_res0)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 3])
|
|
)
|
|
)
|
|
(xor
|
|
(call %init_peer_id% ("callbackSrv" "response") [init_call_res0])
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 4])
|
|
)
|
|
)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 5])
|
|
)
|
|
`
|
|
return callFunction$$(
|
|
args,
|
|
{
|
|
"functionName" : "roundRobin",
|
|
"arrow" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"uris" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"method" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"jsonArgs" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"serviceId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"counterServiceId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"counterPeerId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"callFunc" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
{
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
{
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
{
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
]
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
},
|
|
"names" : {
|
|
"relay" : "-relay-",
|
|
"getDataSrv" : "getDataSrv",
|
|
"callbackSrv" : "callbackSrv",
|
|
"responseSrv" : "callbackSrv",
|
|
"responseFnName" : "response",
|
|
"errorHandlingSrv" : "errorHandlingSrv",
|
|
"errorFnName" : "error"
|
|
}
|
|
},
|
|
script
|
|
)
|
|
}
|
|
|
|
|
|
export function call(...args) {
|
|
|
|
let script = `
|
|
(xor
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(seq
|
|
(call %init_peer_id% ("getDataSrv" "-relay-") [] -relay-)
|
|
(call %init_peer_id% ("getDataSrv" "uri") [] uri)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "method") [] method)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "jsonArgs") [] jsonArgs)
|
|
)
|
|
(call %init_peer_id% ("getDataSrv" "serviceId") [] serviceId)
|
|
)
|
|
(xor
|
|
(call -relay- (serviceId "eth_call") [uri method jsonArgs] res)
|
|
(call %init_peer_id% ("errorHandlingSrv" "error") [%last_error% 1])
|
|
)
|
|
)
|
|
(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])
|
|
)
|
|
`
|
|
return callFunction$$(
|
|
args,
|
|
{
|
|
"functionName" : "call",
|
|
"arrow" : {
|
|
"tag" : "arrow",
|
|
"domain" : {
|
|
"tag" : "labeledProduct",
|
|
"fields" : {
|
|
"uri" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"method" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"jsonArgs" : {
|
|
"tag" : "array",
|
|
"type" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
},
|
|
"serviceId" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
},
|
|
"codomain" : {
|
|
"tag" : "unlabeledProduct",
|
|
"items" : [
|
|
{
|
|
"tag" : "struct",
|
|
"name" : "EthResult",
|
|
"fields" : {
|
|
"error" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
},
|
|
"success" : {
|
|
"tag" : "scalar",
|
|
"name" : "bool"
|
|
},
|
|
"value" : {
|
|
"tag" : "scalar",
|
|
"name" : "string"
|
|
}
|
|
}
|
|
}
|
|
]
|
|
}
|
|
},
|
|
"names" : {
|
|
"relay" : "-relay-",
|
|
"getDataSrv" : "getDataSrv",
|
|
"callbackSrv" : "callbackSrv",
|
|
"responseSrv" : "callbackSrv",
|
|
"responseFnName" : "response",
|
|
"errorHandlingSrv" : "errorHandlingSrv",
|
|
"errorFnName" : "error"
|
|
}
|
|
},
|
|
script
|
|
)
|
|
}
|
|
|
|
/* eslint-enable */ |