#!../../src/xotclsh
set auto_path [concat . $auto_path]
package require xotcl::soap::server

array set opts {-port 8086}
array set opts $argv

# RESULT = string
# param = int

proc getStateName s {
  return "South Dakota"
}

### beide varianten sollten funktionieren, in der 2. kann man
### besser das verhalten durch mehrfache mixins komponieren....
#soap::Httpd s1 -soapTrigger exmaple -port $opts(-port)
Httpd s1  -port $opts(-port) \
    -mixin soap::Httpd -soapTrigger exmaple


vwait forever

