Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added option to suppress default namespace. Added option to generate error on service redefine and code to to unset on a redefine. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f86b5382459e8db041a683e512afdc77 |
| User & Date: | gerald 2013-05-29 21:23:21.622 |
Context
| 2013-05-29 21:24 | Make suppression of target namespace addition backwardly compatiable with older parsed wsdls. check-in: e01d3735c3 user: gerald tags: trunk | |
| 2013-05-29 21:23 | Added option to suppress default namespace. Added option to generate error on service redefine and code to to unset on a redefine. check-in: f86b538245 user: gerald tags: trunk | |
| 2013-05-28 21:20 | Roll version numbers to 2.3.5. check-in: 596f9ffbe6 user: gerald tags: trunk | |
Changes
Changes to ClientSide.tcl.
| ︙ | ︙ | |||
100 101 102 103 104 105 106 107 108 109 110 111 112 113 |
UseNS {}
parseInAttr {}
genOutAttr {}
valueAttrCompatiblityMode 1
suppressNS {}
useTypeNs {}
nsOnChangeOnly {}
}
set ::WS::Client::utilsOptionsList {
UseNS
parseInAttr
genOutAttr
valueAttrCompatiblityMode
suppressNS
| > > | 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 |
UseNS {}
parseInAttr {}
genOutAttr {}
valueAttrCompatiblityMode 1
suppressNS {}
useTypeNs {}
nsOnChangeOnly {}
noTargetNs 0
errorOnRedefine 0
}
set ::WS::Client::utilsOptionsList {
UseNS
parseInAttr
genOutAttr
valueAttrCompatiblityMode
suppressNS
|
| ︙ | ︙ | |||
211 212 213 214 215 216 217 218 219 220 221 222 223 224 |
# 1 04/14/2009 G.Lester Initial version
#
#
###########################################################################
proc ::WS::Client::CreateService {serviceName type url target args} {
variable serviceArr
variable options
dict set serviceArr($serviceName) types {}
dict set serviceArr($serviceName) operList {}
dict set serviceArr($serviceName) objList {}
dict set serviceArr($serviceName) headers {}
dict set serviceArr($serviceName) targetNamespace tns1 $target
dict set serviceArr($serviceName) name $serviceName
| > > > > > > | 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 |
# 1 04/14/2009 G.Lester Initial version
#
#
###########################################################################
proc ::WS::Client::CreateService {serviceName type url target args} {
variable serviceArr
variable options
if {$options(errorOnRedefine) && [info exists serviceArr($serviceName)]} {
return -code error "Service '$serviceName' already exists"
} elseif {[info exists serviceArr($serviceName)]} {
unset serviceArr($serviceName)
}
dict set serviceArr($serviceName) types {}
dict set serviceArr($serviceName) operList {}
dict set serviceArr($serviceName) objList {}
dict set serviceArr($serviceName) headers {}
dict set serviceArr($serviceName) targetNamespace tns1 $target
dict set serviceArr($serviceName) name $serviceName
|
| ︙ | ︙ | |||
749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 |
# ------- ---------- ---------- -------------------------------------------
# 1 07/06/2006 G.Lester Initial version
#
#
###########################################################################
proc ::WS::Client::LoadParsedWsdl {serviceInfo {headers {}} {serviceAlias {}}} {
variable serviceArr
if {[string length $serviceAlias]} {
set serviceName $serviceAlias
} else {
set serviceName [dict get $serviceInfo name]
}
if {[llength $headers]} {
dict set serviceInfo headers $headers
}
set serviceArr($serviceName) $serviceInfo
if {[dict exists $serviceInfo types]} {
foreach {typeName partList} [dict get $serviceInfo types] {
| > > > > > > > | 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 |
# ------- ---------- ---------- -------------------------------------------
# 1 07/06/2006 G.Lester Initial version
#
#
###########################################################################
proc ::WS::Client::LoadParsedWsdl {serviceInfo {headers {}} {serviceAlias {}}} {
variable serviceArr
variable options
if {[string length $serviceAlias]} {
set serviceName $serviceAlias
} else {
set serviceName [dict get $serviceInfo name]
}
if {$options(errorOnRedefine) && [info exists serviceArr($serviceName)]} {
return -code error "Service '$serviceName' already exists"
} elseif {[info exists serviceArr($serviceName)]} {
unset serviceArr($serviceName)
}
if {[llength $headers]} {
dict set serviceInfo headers $headers
}
set serviceArr($serviceName) $serviceInfo
if {[dict exists $serviceInfo types]} {
foreach {typeName partList} [dict get $serviceInfo types] {
|
| ︙ | ︙ | |||
2083 2084 2085 2086 2087 2088 2089 |
dom createDocument "SOAP-ENV:Envelope" doc
$doc documentElement env
$env setAttribute \
"xmlns:SOAP-ENV" "http://schemas.xmlsoap.org/soap/envelope/" \
"xmlns:SOAP-ENC" "http://schemas.xmlsoap.org/soap/encoding/" \
"xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance" \
| | > | > | 2098 2099 2100 2101 2102 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112 2113 2114 2115 |
dom createDocument "SOAP-ENV:Envelope" doc
$doc documentElement env
$env setAttribute \
"xmlns:SOAP-ENV" "http://schemas.xmlsoap.org/soap/envelope/" \
"xmlns:SOAP-ENC" "http://schemas.xmlsoap.org/soap/encoding/" \
"xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance" \
"xmlns:xs" "http://www.w3.org/2001/XMLSchema"
if {![dict get $serviceInfo noTargetNs]} {
$env setAttribute "xmlns" [dict get $xnsList tns1]
}
array unset tnsArray *
array set tnsArray {
"http://schemas.xmlsoap.org/soap/envelope/" "xmlns:SOAP-ENV"
"http://schemas.xmlsoap.org/soap/encoding/" "xmlns:SOAP-ENC"
"http://www.w3.org/2001/XMLSchema-instance" "xmlns:xsi"
"http://www.w3.org/2001/XMLSchema" "xmlns:xs"
}
|
| ︙ | ︙ |