diff options
Diffstat (limited to 'tclxml/tcldom-libxml2.tcl')
-rw-r--r-- | tclxml/tcldom-libxml2.tcl | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/tclxml/tcldom-libxml2.tcl b/tclxml/tcldom-libxml2.tcl deleted file mode 100644 index d5ef415..0000000 --- a/tclxml/tcldom-libxml2.tcl +++ /dev/null @@ -1,37 +0,0 @@ -# impl.tcl -- -# -# Support script for libxml2 implementation. -# -# Std disclaimer -# -# $Id: tcldom-libxml2.tcl,v 1.1.1.1 2009/01/16 22:11:49 joye Exp $ - -namespace eval ::dom { - variable strictDOM 1 -} - -proc dom::libxml2::parse {xml args} { - - array set options { - -keep normal - -retainpath /* - } - array set options $args - - if {[catch {eval ::xml::parser -parser libxml2 [array get options]} parser]} { - return -code error "unable to create XML parser due to \"$parser\"" - } - - if {[catch {$parser parse $xml} msg]} { - return -code error $msg - } - - set doc [$parser get document] - set dom [dom::libxml2::adoptdocument $doc] - $parser free - - return $dom -} -proc dom::parse {xml args} { - return [eval ::dom::libxml2::parse [list $xml] $args] -} |