Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Correct typo in debug statement and added code to handle a reply message that is just a simple type (e.g. a string) with no components. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
7e11ee28771b98af45edcc785b7d0daf |
User & Date: | gerald 2013-06-29 00:56:55.379 |
Context
2013-07-21 00:27 |
Added GetParsedWsdl to ClientSide.
Rolled versions to 2.3.7 check-in: 2ca79da750 user: gerald tags: trunk | |
2013-06-29 00:56 | Correct typo in debug statement and added code to handle a reply message that is just a simple type (e.g. a string) with no components. check-in: 7e11ee2877 user: gerald tags: trunk | |
2013-05-31 18:31 | Correction to ignore namespace definitions on child elements when parsing response with attributes. check-in: 0c0c56dfc5 user: gerald tags: trunk, Release_2.3.6 | |
Changes
Changes to Utilities.tcl.
︙ | ︙ | |||
1314 1315 1316 1317 1318 1319 1320 | } else { set valueAttr {::value} } set xsiNsUrl {http://www.w3.org/2001/XMLSchema-instance} ::log::log debug [list ::WS::Utils::convertTypeToDict $mode $serviceName $node $type $root $isArray] if {[dict exists $typeInfo $mode $serviceName $type]} { set typeName $type | | > > > > > > > > > > > | 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 | } else { set valueAttr {::value} } set xsiNsUrl {http://www.w3.org/2001/XMLSchema-instance} ::log::log debug [list ::WS::Utils::convertTypeToDict $mode $serviceName $node $type $root $isArray] if {[dict exists $typeInfo $mode $serviceName $type]} { set typeName $type } elseif {[dict exists $typeInfo $mode $serviceName $serviceName:$type]} { set typeName $serviceName:$type } else { ## ## Assume this is a simple type ## set baseType [::WS::Utils::GetServiceTypeDef $mode $serviceName $type] if {[string equal $baseType {XML}]} { set results [$node asXML] } else { set results [$node asText] } return $results } set typeDefInfo [dict get $typeInfo $mode $serviceName $typeName] ::log::log debug "\t type def = {$typeDefInfo}" set xns [dict get $typeDefInfo xns] if {[$node hasAttribute href]} { set node [GetReferenceNode $root [$node getAttribute href]] } |
︙ | ︙ | |||
3058 3059 3060 3061 3062 3063 3064 | parseComplexType $mode results $serviceName $middleNode $tns } simpleContent - complexContent { foreach child [$middleNode childNodes] { set parent [$child parent] set contentType [$child localName] | | | 3069 3070 3071 3072 3073 3074 3075 3076 3077 3078 3079 3080 3081 3082 3083 | parseComplexType $mode results $serviceName $middleNode $tns } simpleContent - complexContent { foreach child [$middleNode childNodes] { set parent [$child parent] set contentType [$child localName] ::log::log debug "Content Type is {$contentType}" switch -exact -- $contentType { restriction { set nodeFound 1 set restriction $child set element [$child selectNodes -namespaces $nsList xs:attribute] set typeInfoList [list baseType [$restriction getAttribute base]] array unset attrArr |
︙ | ︙ |