blob: 1b7804bda101f59a52389b29a8a884d9c065a267 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# adapted from FreeBSD ports (author's email: dereckson@gmail.com)
--- SOAP.tcl
+++ SOAP.tcl
@@ -22,12 +22,11 @@ package require rpcvar; # TclSOAP
namespace eval ::SOAP {variable domVersion}
if {[catch {package require SOAP::dom 1.0} ::SOAP::domVersion]} {
- if { [catch {package require dom 2.0} ::SOAP::domVersion]} {
- if { [catch {package require dom 1.6} ::SOAP::domVersion]} {
- error "require dom package greater than 1.6"
- }
- package require SOAP::xpath; # TclSOAP
+ if {[catch {package require dom} ::SOAP::domVersion] || [package vcompare $::SOAP::domVersion 1.6] < 0} {
+ error "require dom package greater than 1.6"
}
+ package require SOAP::xpath; # TclSOAP
+
proc ::SOAP::createDocument {name} {
set doc [dom::DOMImplementation create]
return [dom::document createElement $doc $name]
|
