couldn't read file "gscope_xml.tcl": no such file or directory
    while executing
"source gscope_xml.tcl"
    (in namespace eval "::request" script line 138)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/tclsh




proc tDOMtest {xdata} {
    
    package require tdom

    set ledoc [dom parse -simple $xdata]
    puts $ledoc
    
    set leroot [$ledoc documentElement]
    puts $leroot
    
    set Lall [$leroot asList]
    set Lneu [$leroot selectNodes //seq-data]
    
    foreach n $Lall {
	puts "l == $n"
    }
    
    foreach n $Lneu {
	puts "n == $n"
	puts "  [$n nodeType]"
	puts "  [$n nodeName]"
	puts "  [$n nodeValue]"
    }
    return
}

proc domtest {xdata} {

    package require dom
    package require xpath

    source domtree.tcl

    set token [DecortiqueUnXml $xdata Seq]
    puts "$token"
    puts "[array names Seq]"
    set lf [ExtraitListeDesFeatures $token]
    puts "$lf"
    return

    set token [dom::DOMImplementation parse $xdata]
    set search [dom::document getElementsByTagName $token "seq-data"]
    set Lnode [set $search]
    foreach n $Lnode {
	set nodename [dom::node configure $n -nodeName]
	set nodeval "string value: \"[dom::node stringValue $n]\"" 
	puts "$nodename\n$nodeval"
    }

    return
    ::domtree .dt
    pack .dt
    .dt configure -rootnode $token

    return
}


proc Letest {xdata quoi} {

    global LesNomsDesSequencesDansLOrdre

    puts "On teste $quoi\n"

    if {$quoi == "dom"} {
	package require dom
	package require xpath
#	source domtree.tcl
    } else {
	package require tdom
    }

    set token [DecortiqueUnXml $xdata Seq $quoi]
    puts "$token"
    puts "[array names Seq]"

    set lf [ExtraitListeDesFeatures $token $quoi]
    EspionneL $lf

    TabFeaturesDesSeqs $token Tfs

    foreach c [array names Tfs] {
	puts "$c :"
	puts "----"
	EspionneL [set Tfs($c)]
	puts "\n"
    }

    return
}

proc Bidouille xdata {

    global LesNomsDesSequencesDansLOrdre

    package require tdom

    set id [dom parse $xdata]
    set RId [$id documentElement]
    DecortiqueUnXml $xdata LesNomsDesSequencesDansLOrdre seq

    ExtraitListeItemFeatures $id toto
    EspionneL $toto

    TabFeaturesDesSeqs $id tata
    puts "\n[array names tata]"
    EspionneL [set tata(P27824)]
    exit

    set ln [$RId selectNodes {//*[string(seq-name)='P27824']} ]
    puts "1) $ln == [$ln selectNodes string(.)]\n"
    set ln [$RId selectNodes {//*[string(seq-name)='P27824']|//ftype} ]
    foreach n $ln {
	puts "2) $n == [$n selectNodes string(.)]\n"
    }
    
    set ln [$RId selectNodes {//*[string(seq-name)='P27824']/descendant::*[name()='ftype']}]
    puts "3) direct :: $ln"
    set nom "P27824"
    set ln [$RId selectNodes "//*\[string(seq-name)='$nom'\]/descendant::*\[name()='ftype'\]" ]
    puts "3) direct 3  :: $ln"

    set query "//*\[string(seq-name)='$nom'\]/descendant::*\[name()='ftype'\]"
    set ln [$RId selectNodes "$query" ]
    foreach n $ln {
	puts "4) $n == [$n selectNodes string(.)]"
    }
    return
}



source gscope_xml.tcl
source "../elsa/gscope_outils.tcl"

#set f [open "calibrate3.xml" r]
#set f [open "relacs.xml" r]
set f [open "SSH18.xml" r]

set xml [read -nonewline $f]

#set xml "salut"


Bidouille $xml
exit
Letest $xml tdom
exit