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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f86b5382459e8db041a683e512afdc77 |
| User & Date: | gerald 2013-05-29 21:23:21 |
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 ... 211 212 213 214 215 216 217 218 219 220 221 222 223 224 ... 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 .... 2083 2084 2085 2086 2087 2088 2089 2090 2091 2092 2093 2094 2095 2096 2097 2098 |
UseNS {}
parseInAttr {}
genOutAttr {}
valueAttrCompatiblityMode 1
suppressNS {}
useTypeNs {}
nsOnChangeOnly {}
}
set ::WS::Client::utilsOptionsList {
UseNS
parseInAttr
genOutAttr
valueAttrCompatiblityMode
suppressNS
................................................................................
# 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
................................................................................
# ------- ---------- ---------- -------------------------------------------
# 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] {
................................................................................
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" \
"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"
}
|
> > > > > > > > > > > > > > > | > | > |
100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 ... 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 ... 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 .... 2098 2099 2100 2101 2102 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112 2113 2114 2115 |
UseNS {}
parseInAttr {}
genOutAttr {}
valueAttrCompatiblityMode 1
suppressNS {}
useTypeNs {}
nsOnChangeOnly {}
noTargetNs 0
errorOnRedefine 0
}
set ::WS::Client::utilsOptionsList {
UseNS
parseInAttr
genOutAttr
valueAttrCompatiblityMode
suppressNS
................................................................................
# 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
................................................................................
# ------- ---------- ---------- -------------------------------------------
# 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] {
................................................................................
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"
}
|