(define-xmlrpc-method "suggest"
 (lambda () '("<methodCall><methodName>serverClientApplet.prompt</methodName><params><param><value>You could try setting the current into R_1</value></param></params></methodCall>" "<methodCall><methodName>serverClientApplet.highlight</methodName><params><param><value>instance[@name=\"R_1\"]</value></param><param><value>0000BB</value></param></params></methodCall>")))
(define-xmlrpc-method "test"
 (lambda () "<methodCall><methodName>serverClientApplet.prompt</methodName><params><param><value>FOO</value></param></params></methodCall>"))
(define-xmlrpc-method "cooee"
 (lambda () "<methodCall><methodName>serverClientApplet.prompt</methodName><params><param><value>Coo-ee!</value></param></params></methodCall>"))
(define-xmlrpc-method "testArray"
 (lambda () '("one" "two")))
(define-xmlrpc-method "list"
 (lambda () "<methodCall><methodName>serverClientApplet.showList</methodName><params><param><value>The following variables are set:</value></param><param><value><array><data><value>Current into B of Q1 = 0.82mA</value><value>Current into C of Q1 = 3.22mA</value></data></array></value></param></params></methodCall>"))
(define-xmlrpc-method "retract"
 (lambda () "<methodCall><methodName>serverClientApplet.retractionPrompt</methodName><params><param><value><array><data><value>instance[@name=&quot;Q1&quot;]/terminal[@name=&quot;E&quot;]/property[@name=&quot;i&quot;]</value><value>instance[@name=&quot;Q1&quot;]/terminal[@name=&quot;B&quot;]/property[@name=&quot;i&quot;]</value></data></array></value></param><param><value><array><data><value>current into E of Q1</value><value>current into B of Q1</value></data></array></value></param></params></methodCall>"))
(define-xmlrpc-method "setValue"
 (lambda (path val) "<methodCall><methodName>serverClientApplet.prompt</methodName><params><param><value>Done</value></param></params></methodCall>"))
(define-xmlrpc-method "setAttribute"
 (lambda (p n v) '("<methodCall><methodName>serverClientApplet.prompt</methodName><params><param><value>Attribute set. Now what?</value></param></params></methodCall>" i)))


;(load "/web/www/.....")
(define-xmlrpc-method "TestInterface"
  (lambda ()
    (test)))