steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

new accessors

db4
Doug Coleman 2008-09-02 12:36:15 -05:00
parent d45b7afc3c
commit 24736c038c
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/xml-rpc/xml-rpc.factor
View File

@ -80,11 +80,11 @@ C: <rpc-fault> rpc-fault
GENERIC: send-rpc ( rpc -- xml ) GENERIC: send-rpc ( rpc -- xml )
M: rpc-method send-rpc M: rpc-method send-rpc
[ rpc-method-name ] keep rpc-method-params method-call ; [ name>> ] [ params>> ] bi method-call ;
M: rpc-response send-rpc M: rpc-response send-rpc
rpc-response-params return-params ; params>> return-params ;
M: rpc-fault send-rpc M: rpc-fault send-rpc
[ rpc-fault-code ] keep rpc-fault-string return-fault ; [ code>> ] [ string>> ] bi return-fault ;
! * Recieving RPC requests ! * Recieving RPC requests
! this needs to have much better error checking ! this needs to have much better error checking
@ -96,8 +96,8 @@ TUPLE: server-error tag message ;
M: server-error error. M: server-error error.
"Error in XML supplied to server" print "Error in XML supplied to server" print
"Description: " write dup server-error-message print "Description: " write dup message>> print
"Tag: " write server-error-tag xml>string print ; "Tag: " write tag>> xml>string print ;
PROCESS: xml>item ( tag -- object ) PROCESS: xml>item ( tag -- object )
@ -139,8 +139,8 @@ TAG: array xml>item
first-child-tag params>array ; first-child-tag params>array ;
: parse-method ( xml -- string array ) : parse-method ( xml -- string array )
children-tags dup first children>string children-tags first2
swap second params>array ; [ children>string ] [ params>array ] bi* ;
: parse-fault ( xml -- fault-code fault-string ) : parse-fault ( xml -- fault-code fault-string )
first-child-tag first-child-tag first-child-tag first-child-tag first-child-tag first-child-tag