#!/usr/bin/env rune

# Copyright 2004-2006 Kevin Reid, under the terms of the MIT X license
# found at http://www.opensource.org/licenses/mit-license.html ................

pragma.enable("easy-return")
pragma.disable("explicit-result-guard")

pragma.enable("accumulator")
pragma.enable("dot-props")
pragma.enable("verb-curry")

def network := <import:keio.networkAuthor>(privilegedScope)

def xmlrpc__uriGetter := <import:keio.web.xmlrpcAuthor>(
  network.getRemoteTCPEndpoint,
  <unsafe:org.erights.e.elib.ref.EProxyResolver>,
  <unsafe:javax.xml.parsers.DocumentBuilderFactory>,
)

def localtest := <xmlrpc:http://waterpoint.org:8080/services/xmlrpc#localtest.>

when (localtest <- echo(43)) -> {
  println(`Got $result`)
} catch p {
  println(`Failed $p${p.eStack()}`)
} finally {
  interp.continueAtTop()
}

interp.blockAtTop()