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