diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 20:09:25 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 20:09:25 (GMT) |
commit | dcdc519395ebb847898ec8730b33a70a21516df1 (patch) | |
tree | 658268b7e04eed42e7cecc6338f5ef7d18cb788a /tclxml/tcldom-libxml2.tcl | |
parent | 482241bea02f1e740f0a4f4fcf5b9ea29f1f678a (diff) | |
download | blt-dcdc519395ebb847898ec8730b33a70a21516df1.zip blt-dcdc519395ebb847898ec8730b33a70a21516df1.tar.gz blt-dcdc519395ebb847898ec8730b33a70a21516df1.tar.bz2 |
update TEA 3.13
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] -} |