tcldom-libxml2.tcl

Go to the documentation of this file.

/*  impl.tcl --*/
/* */
/*  Support script for libxml2 implementation.*/
/* */
/*  Std disclaimer*/
/* */
/*  $Id: impl.tcl,v 1.4 2005/05/20 14:07:35 balls Exp $*/

namespace ::dom {
    variable strictDOM 1
}

ret  dom::libxml2::parse (type xml , type 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
}
ret  dom::parse (type xml , type args) {
    return [eval ::dom::libxml2::parse [list $xml] $args]
}