Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Debug log spelling |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
dd05a239744739be50276fe024100402 |
| User & Date: | andy 2018-07-20 15:21:46.052 |
Context
| 2018-07-20 15:25 | Removed execute flags (again) check-in: 50b6c37ac6 user: andy tags: trunk | |
| 2018-07-20 15:21 | Debug log spelling check-in: dd05a23974 user: andy tags: trunk | |
| 2018-07-20 15:17 | Minor spelling fix check-in: f041a75d3a user: andy tags: trunk | |
Changes
Changes to ClientSide.tcl.
| ︙ | ︙ | |||
3248 3249 3250 3251 3252 3253 3254 |
# 2.4.3 2017-11-03 H.Oehlmann If name is not given, set the default
# name of <OP>Request/Response given by the
# WSDL 1.0 standard.
#
#
###########################################################################
proc ::WS::Client::getTypesForPort {wsdlNode serviceName operName portName inName serviceInfoVar style} {
| | | 3248 3249 3250 3251 3252 3253 3254 3255 3256 3257 3258 3259 3260 3261 3262 |
# 2.4.3 2017-11-03 H.Oehlmann If name is not given, set the default
# name of <OP>Request/Response given by the
# WSDL 1.0 standard.
#
#
###########################################################################
proc ::WS::Client::getTypesForPort {wsdlNode serviceName operName portName inName serviceInfoVar style} {
::log:::log debug "Entering [info level 0]"
upvar 1 $serviceInfoVar serviceInfo
set inType {}
set outType {}
#set portQuery [format {w:portType[attribute::name='%s']} $portName]
#set portNode [lindex [$wsdlNode selectNodes $portQuery] 0]
|
| ︙ | ︙ | |||
3343 3344 3345 3346 3347 3348 3349 |
# ------- ---------- ---------- -------------------------------------------
# 1 08/06/2006 G.Lester Initial version
#
#
###########################################################################
proc ::WS::Client::messageToType {wsdlNode serviceName operName msgName serviceInfoVar style} {
upvar 1 $serviceInfoVar serviceInfo
| | | 3343 3344 3345 3346 3347 3348 3349 3350 3351 3352 3353 3354 3355 3356 3357 |
# ------- ---------- ---------- -------------------------------------------
# 1 08/06/2006 G.Lester Initial version
#
#
###########################################################################
proc ::WS::Client::messageToType {wsdlNode serviceName operName msgName serviceInfoVar style} {
upvar 1 $serviceInfoVar serviceInfo
::log:::log debug "Entering [info level 0]"
#puts "Message to Type $serviceName $operName $msgName"
set msgQuery [format {w:message[attribute::name='%s']} $msgName]
set msg [$wsdlNode selectNodes $msgQuery]
if {$msg eq {} &&
[llength [set msgNameList [split $msgName {:}]]] > 1} {
|
| ︙ | ︙ |