summaryrefslogtreecommitdiffstats
path: root/tclxml/tcldom-libxml2.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tclxml/tcldom-libxml2.tcl')
-rw-r--r--tclxml/tcldom-libxml2.tcl37
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]
-}