couldn't open "o.log": no such file or directory
    while executing
"open $f r"
    (procedure "LitFic" line 3)
    invoked from within
"LitFic o.log"
    (in namespace eval "::request" script line 101)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
#!/usr/local/bin/tclsh

proc LitFic f {

    set c [open $f r]
    set l [read -nonewline $c]
    close $c
    set Ll [split $l "\n"]
    
    return $Ll
}

proc AnaR {L aT} {
    upvar $aT T

    set comp 1
    foreach l $L {
	set l [string trim $l]
	if {$l eq ""} {continue}
	if {[regexp {^Done} $l]} {continue}
	set Li [split $l "\t"]
	foreach i $Li {
	    set i [string trim $i]
	    regsub -all { +} $i " " i
	    set Lc [split $i " "]
	    set T($comp,[lindex $Lc 0]) [join [lrange $Lc 1 end] "_"]
	}
	incr comp
    }

    return
}

proc Corres {} {
    global D O COD
    
    set Lon [array names O "*,Noeud"]
    set Ldn [array names D "*,Noeud"]
    foreach eo $Lon {
	set vo $O($eo)
	foreach ed $Ldn {
	    set vd $D($ed)
	    if {$vo eq $vd && $vo ne ""} {
		set io [lindex [split $eo ","] 0]
		set id [lindex [split $ed ","] 0]
		set COD($io) $id
	    }
	}
    }
    
    set Lol [lsort [array names O "*,length"]]
    set Ldl [lsort [array names D "*,length"]]
    set Low [lsort [array names O "*,width"]]
    set Ldw [lsort [array names D "*,width"]]
    foreach eo $Lol ewo $Low {
	set ixo [lindex [split $eo ","] 0]
	if {[info exists COD($ixo)]} {continue}
	set vo $O($eo)
	set wo $O($ewo)
	foreach ed $Ldl ewd $Ldw {
	    set vd $D($ed)
	    set wd $D($ewd)
	    if {$vo eq $vd && $wo == $wd && $vo ne ""} {
		set io [lindex [split $eo ","] 0]
		set id [lindex [split $ed ","] 0]
		set COD($io) $id
	    }
	}
    }

    return
}

proc PrintR {} {
    global COD O D

    foreach io [lsort -integer [array names COD]] {
	set id $COD($io)
	set Lio [array names O "$io,*"]
	set Lid [array names D "$id,*"]

	set name $O($io,Noeud)
	puts "$name :"
	foreach eo [lsort $Lio] {
	    set ko [lindex [split $eo ","] 1]
	    if {$ko eq "Noeud"} {continue}
	    set vo $O($eo)	    
	    foreach ed $Lid {
		set kd [lindex [split $ed ","] 1]
		if {$ko ne $kd} {continue}
		set vd $D($ed)
		puts "[format %12s $ko] : $vo | $vd"
	    }
	}
	puts "\n"
    }

    return
}

set Lo [LitFic o.log]
set Ld [LitFic "../phylip3.66/src/d.log"]

set Li [lsearch -all -regexp $Lo {^Dump }]
set ix [lindex $Li 1]
set Lo [lrange $Lo [expr {$ix+1}] end]

set Li [lsearch -all -regexp $Ld {^Noeud}]
set ix [lindex $Li 0]
set Ld [lrange $Ld $ix end]

AnaR $Lo O
AnaR $Ld D

Corres
PrintR



exit