xml-rpc: Delete dead code.
parent
7a35d85f30
commit
2f158d1691
|
@ -1,27 +0,0 @@
|
|||
IN: rpc-example
|
||||
REQUIRES: contrib/http-client contrib/calendar ;
|
||||
USING: kernel hashtables xml-rpc xml calendar sequences
|
||||
arrays math httpd io http-client namespaces ;
|
||||
|
||||
: functions
|
||||
H{ { "add" [ + ] }
|
||||
{ "subtract" [ - ] }
|
||||
{ "multiply" [ * ] }
|
||||
{ "divide" [ / ] } } ;
|
||||
|
||||
: apply-function ( name args -- {number} )
|
||||
[ functions hash ] dip first2 rot call 1array ;
|
||||
|
||||
: problem>solution ( xml-doc -- xml-doc )
|
||||
receive-rpc dup rpc-method-name swap rpc-method-params
|
||||
apply-function <rpc-response> send-rpc ;
|
||||
|
||||
: respond-rpc-arith ( -- )
|
||||
"raw-response" get
|
||||
string>xml problem>solution xml>string
|
||||
put-http-response ;
|
||||
|
||||
: test-rpc-arith
|
||||
"add" { 1 2 } <rpc-method> send-rpc
|
||||
"http://localhost:8080/responder/rpc/"
|
||||
http-post ;
|
Loading…
Reference in New Issue