XML-RPC Goodie
http://homepage.mac.com/eviltofu/.cv/eviltofu/Public/XML-RPC.zip-link.zipHere is a pre-alpha version of my xml-rpc goodie (there's not even a
version number!).
Requires YAXO, Base64 and HTTP Client from Steve Warings Spray package.
http://www.dolphinharbor.org/dh/projects/spray/index.htmlHow to use it?
request := XMLRPCRequest withServerAtURL:
'
http://betty.userland.com:80/RPC2'.
response := request invoke: 'examples.getState' with: 10.
"response isError = false"
"response value = 'Florida'"
response := request invoke: 'examples.getState' with: 20.
"response isError = false"
"response value = 'Maine'"
response is a XMLRPCResponse object.
To test for errors send 'isError' to the object and it will return a
Boolean value.
In order to get the mapped value below send 'value' to the object.
Mapping XMLRPC <-> Smalltalk
Array <-> OrderedCollection
Base64 <-> ByteArray
Boolean <-> Boolean
Date <-> TimeStamp
Double <-> Float
Integer <-> Integer
String <-> String
Struct <-> Dictionary
sending 'value' to
response := request invoke: 'examples.getState' with: 10.
will return the string 'Florida'.
If there are several parameters required for the invocation just use
more 'with:'s.
response := request invoke: 'system.listMethods'.
response := request invoke: 'methodWithOneParameter' with: true.
response := request invoke: 'methodWithTwoParameters' with: true with: 1.
response := request invoke: 'methodWithThreeParameters' with: true with:
2 with: 'hello'.
response := request invoke: 'methodWithFourParameters' with: true with:
false with: (OrderedCollection with: 1 with: 2) with: TimeStamp current.
You can use up to six parameters. If you need more just add in another
'with:with:with:with:with...' method to the class.
Bugs:
There are problems with my Double to float conversion and Date to
TimeStamp conversion. Sometimes you lose precision on doubles depending
on how its represented in memory. TimeStamps are identical if compared
with 'asSeconds' but not with 'asMilliseconds' which is what the default
is under the '=' operator for dolphin.
Locked
