home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / demos / TclSOAP / soap-methods-client.tcl < prev    next >
Encoding:
Text File  |  2001-10-22  |  2.1 KB  |  68 lines
  1. # soap-methods-client.tcl 
  2. #                  - Copyright (C) 2001 Pat Thoyts <Pat.Thoyts@bigfoot.com>
  3. #
  4. #  Setup the client side of the sample services provided through the
  5. #  SOAP::Domain package.
  6. #
  7. # -------------------------------------------------------------------------
  8. # This software is distributed in the hope that it will be useful, but
  9. # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  10. # or FITNESS FOR A PARTICULAR PURPOSE.  See the accompanying file `LICENSE'
  11. # for more details.
  12. # -------------------------------------------------------------------------
  13. #
  14. # @(#)$Id: soap-methods-client.tcl,v 1.3 2001/08/01 23:47:06 patthoyts Exp $
  15.  
  16. package require SOAP
  17.  
  18. # Description:
  19. #   Setup the client methods for our sample services. Optionally specify the
  20. #   serving host.
  21. #
  22. proc define_domain_methods {{proxy http://localhost:8015/soap}} {
  23.     set uri urn:tclsoap-Test
  24.     set methods {}
  25.  
  26.     set name rcsid
  27.     lappend methods [ SOAP::create $name -name rcsid -uri $uri \
  28.         -proxy "${proxy}/${name}" -params {} ]
  29.     
  30.     set name zbase64
  31.     lappend methods [ SOAP::create $name -name base64 -uri $uri \
  32.         -proxy "${proxy}/base64" -params {msg string} ]
  33.  
  34.     set name ztime
  35.     lappend methods [ SOAP::create $name -name time -uri $uri \
  36.         -proxy "${proxy}/time" -params {} ]
  37.     
  38.     set name square
  39.     lappend methods [ SOAP::create $name -name square -uri $uri \
  40.         -proxy "${proxy}/${name}" -params {num double} ]
  41.     
  42.     set name sum
  43.     lappend methods [ SOAP::create $name -name sum -uri $uri \
  44.         -proxy "${proxy}/${name}" -params {lhs double rhs double} ]
  45.  
  46.     set name sort
  47.     lappend methods [ SOAP::create $name -name sort -uri $uri \
  48.         -proxy "${proxy}/${name}" -params {myArray array} ]
  49.  
  50.     set name platform
  51.     lappend methods [ SOAP::create $name -name platform -uri $uri \
  52.         -proxy "${proxy}/${name}" -params {} ]
  53.  
  54.     set name xml
  55.     lappend methods [ SOAP::create $name -name xml -uri $uri \
  56.         -proxy "${proxy}/${name}" -params {} ]
  57.     
  58.     return $methods
  59. }
  60.  
  61. define_domain_methods
  62.  
  63. # -------------------------------------------------------------------------
  64. #
  65. # Local variables:
  66. # mode: tcl
  67. # End:
  68.