Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Two log optimizations "a $b" -> [list "a" $b] |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
f52de144932b399bc176aecb81ce5961 |
| User & Date: | oehhar 2017-11-28 15:37:11.507 |
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 |
array set defaults $args
set first [string first {<} $wsdlXML]
if {$first > 0} {
set wsdlXML [string range $wsdlXML $first end]
}
| | | 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 |
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
|
| ︙ | ︙ | |||
2557 2558 2559 2560 2561 2562 2563 |
}
foreach serviceNode $serviceNameList {
lappend serviceInfo [parseService $wsdlNode $serviceNode $serviceAlias $tnsDict]
}
| | | 2557 2558 2559 2560 2561 2562 2563 2564 2565 2566 2567 2568 2569 2570 2571 |
}
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.
|
| ︙ | ︙ |