Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Debug log spelling |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
dd05a239744739be50276fe024100402 |
| User & Date: | andy 2018-07-20 15:21:46 |
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
3255
3256
3257
3258
3259
3260
3261
3262
....
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
|
# 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 "Enteringing [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]
................................................................................
# ------- ---------- ---------- -------------------------------------------
# 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 "Enteringing [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} {
|
|
|
|
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
....
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
|
# 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]
................................................................................
# ------- ---------- ---------- -------------------------------------------
# 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} {
|