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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
7e11ee28771b98af45edcc785b7d0daf |
| User & Date: | gerald 2013-06-29 00:56:55 |
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
1321
1322
1323
1324
1325
1326
1327
1328
1329
....
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
|
} 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
} else {
set typeName $serviceName:$type
}
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]]
}
................................................................................
parseComplexType $mode results $serviceName $middleNode $tns
}
simpleContent -
complexContent {
foreach child [$middleNode childNodes] {
set parent [$child parent]
set contentType [$child localName]
::log::log debug "Conent 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
|
|
>
>
>
>
>
>
>
>
>
>
>
|
|
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
....
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
|
} 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]]
}
................................................................................
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
|