Changeset 15215 in project


Ignore:
Timestamp:
07/15/09 19:32:16 (10 years ago)
Author:
sjamaan
Message:

Fix tests and separate out the construction of a method call

Location:
release/4/xml-rpc/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/xml-rpc/trunk/tests/run.scm

    r15214 r15215  
    269269        '("test")
    270270        (receive params
    271           (handle-xml-rpc-response
     271          (xml-rpc-response->values
    272272          `(*TOP*
    273273            (*PI* xml "version=\"1.0\"")
     
    279279        '("test" 1 2 3)
    280280        (receive params
    281           (handle-xml-rpc-response
     281          (xml-rpc-response->values
    282282           `(*TOP*
    283283             (*PI* xml "version=\"1.0\"")
     
    291291  (test-error "fault code throws exception"
    292292              (receive params
    293                 (handle-xml-rpc-response
     293                (xml-rpc-response->values
    294294                 `(*TOP*
    295295                   (*PI* xml "version=\"1.0\"")
  • release/4/xml-rpc/trunk/xml-rpc-client.scm

    r15214 r15215  
    4040
    4141(module xml-rpc-client
    42   (xml-rpc-server xml-rpc-response->values)
     42  (xml-rpc-server xml-rpc-response->values xml-rpc-methodcall)
    4343
    4444(import chicken scheme)
     
    7979  (string-concatenate (flatten (sxml:sxml->xml sxml))))
    8080
     81(define (xml-rpc-methodcall method-name args)
     82  (if (null? args)
     83      `(methodCall (methodName ,method-name))
     84      `(methodCall
     85        (methodName ,method-name)
     86        (params
     87         ,(map (lambda (p)
     88                 `(param
     89                   (value ,(value->xml-rpc-fragment p))))
     90               args)))))
     91
    8192(define (xml-rpc-server uri)
    82   (set! uri (uri-reference uri))
     93  (when (string? uri)
     94    (set! uri (uri-reference uri)))
    8395  (lambda (method-name)
    8496    (lambda args
     
    8698              (string-append
    8799               "<?xml version=\"1.0\"?>\n"
    88                (sxml->string
    89                 (if (null? args)
    90                     `(methodCall (methodName ,method-name))
    91                     `(methodCall
    92                       (methodName ,method-name)
    93                       (params
    94                        ,(map (lambda (p)
    95                                `(param
    96                                  (value ,(value->xml-rpc-fragment p))))
    97                              args)))))))
     100               (sxml->string (xml-rpc-methodcall method-name args))))
    98101             (req (make-request
    99102                   method: 'POST uri: uri
Note: See TracChangeset for help on using the changeset viewer.