eip712-validation-node/client-peer/aqua/demo_validation.aqua

data Response:
    peer_id: string
    timestamp: u64
    eip_validation: bool
    ts_validation: bool

data EipResponse:
    signature: string
    validation: Response

data ValidationResult:
    stderr: string
    stdout: EipResponse


data DBRecord:
    signature: string
    event_address: string
    eip712_doc: string
    peer_id: string
    timestamp: u64
    eip_validation: bool
    ts_validation: bool
    signed_response: string

data DBResult:
    stderr: string
    stdout: []DBRecord

service EIPValidator("EIPValidator"):
    eip712_validation_string(eip_str: string, peer_id: string) -> ValidationResult
    eip712_validation_url(eip_str: string, peer_id: string) -> ValidationResult

service DataProvider("DataProvider"):
    get_records() -> DBResult
    get_record(signature: string) -> DBResult
    get_record_count() -> u64
    delete_records(password: string) -> DBResult


func validate(eip712_url: string, node: string, relay:string) -> ValidationResult:
    on node via relay:
        res <- EIPValidator.eip712_validation_url(eip712_url, node)
    <- res

func get_records(node: string, relay:string) -> DBResult:
    on node via relay:
        res <- DataProvider.get_records()
    <- res

func get_record(signature: string, node: string, relay:string) -> DBResult:
    on node via relay:
        res <- DataProvider.get_record(signature)
    <- res

func get_record_count(node: string, relay:string) -> u64:
    on node via relay:
        res <- DataProvider.get_record_count()
    <- res

func delete_records(password: string, node: string, relay:string) -> DBResult:
    on node via relay:
        result <- DataProvider.delete_records(password)
    <- result


-- Example to collect many node validations and run them through a simple frequency count
-- algorithm
data EIPLocation:
    node: string
    relay: string

service ConsensusService("ConsensusService"):
    consensus([]bool) -> bool

func eip_consensus((signature: string, node_locations:[]EIPLocation, service_node: string, consensus_service: string) -> bool:
    result: *bool

    for loc in node_locations par:
        on node via relay:
            res <- DataProvider.get_record(signature)
            result <- res.ts_validation
    
    on service_node:
        ConsensusService consensus_service
        consensus <- ConsensusService.consensus(result)
    <- consensus