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