diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 20:37:05 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 20:37:05 (GMT) |
commit | ac65df8e373c46967e2000b1b7f1439048fdcee2 (patch) | |
tree | 658268b7e04eed42e7cecc6338f5ef7d18cb788a /tclxml/tcldom-libxml2.tcl | |
parent | 62d64d9d13ee541e11854265c2817e540f50b59a (diff) | |
download | blt-ac65df8e373c46967e2000b1b7f1439048fdcee2.zip blt-ac65df8e373c46967e2000b1b7f1439048fdcee2.tar.gz blt-ac65df8e373c46967e2000b1b7f1439048fdcee2.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] -} |