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
|
| ︙ | ︙ |