Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Two log optimizations "a $b" -> [list "a" $b] |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f52de144932b399bc176aecb81ce5961 |
| User & Date: | oehhar 2017-11-28 15:37:11 |
Context
| 2017-12-04 20:51 | New global option "inlineElementNS" to switch inline WSDL namespace prefixes. Document "WS::Client::SetOption". Extend both option procedures by a return of current dict. Tickets: [7140a6c07a], [dcce437d7a]. ::WS::Client package now version 2.4.5 check-in: 4bc013299a user: oehhar tags: trunk | |
| 2017-11-28 15:43 | Add option "inlineElementNS" - struggleing at the fact that there are no options available in the WSDL parsing phase. Tickets: [7140a6c07a], [dcce437d7a] check-in: 9592c7f1a4 user: oehhar tags: hao-option-inlineElementNS | |
| 2017-11-28 15:37 | Two log optimizations "a $b" -> [list "a" $b] check-in: f52de14493 user: oehhar tags: trunk | |
| 2017-11-14 10:14 | Reworked the webservice call option list documentation (so I understand it better) check-in: 63108ec92f user: oehhar tags: trunk | |
Changes
Changes to ClientSide.tcl.
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
....
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
|
array set defaults $args
set first [string first {<} $wsdlXML]
if {$first > 0} {
set wsdlXML [string range $wsdlXML $first end]
}
::log::log debug "Parsing WSDL {$wsdlXML}"
# save parsed document node to tmpdoc
dom parse $wsdlXML tmpdoc
# save transformed document handle in variable wsdlDoc
$tmpdoc xslt $::WS::Utils::xsltSchemaDom wsdlDoc
$tmpdoc delete
# save top node in variable wsdlNode
................................................................................
}
foreach serviceNode $serviceNameList {
lappend serviceInfo [parseService $wsdlNode $serviceNode $serviceAlias $tnsDict]
}
::log::log debug "Leaving ::WS::Client::buildServiceInfo with {$serviceInfo}"
return $serviceInfo
}
###########################################################################
#
# Private Procedure Header - as this procedure is modified, please be sure
# that you update this header block. Thanks.
|
|
|
|
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
....
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
|
array set defaults $args
set first [string first {<} $wsdlXML]
if {$first > 0} {
set wsdlXML [string range $wsdlXML $first end]
}
::log::log debug [list "Parsing WSDL" $wsdlXML]
# save parsed document node to tmpdoc
dom parse $wsdlXML tmpdoc
# save transformed document handle in variable wsdlDoc
$tmpdoc xslt $::WS::Utils::xsltSchemaDom wsdlDoc
$tmpdoc delete
# save top node in variable wsdlNode
................................................................................
}
foreach serviceNode $serviceNameList {
lappend serviceInfo [parseService $wsdlNode $serviceNode $serviceAlias $tnsDict]
}
::log::log debug [list "Leaving ::WS::Client::buildServiceInfo with" $serviceInfo]
return $serviceInfo
}
###########################################################################
#
# Private Procedure Header - as this procedure is modified, please be sure
# that you update this header block. Thanks.
|