3 # this script converts the result from mdltest to a MS EXCEL readable formated spreed sheet
5 # The next line is executed by /bin/sh, but not Tcl \
6 exec tclsh $0 ${1+"$@"}
9 error "Usage: test2xl filename"
11 set sourfile [open [lindex $argv 0] r]
14 # set result [open toot r]
16 while {[ gets $sourfile line ] >= 0 } {
17 if [regexp {GRILLES-BOOLEAN ([a-zA-Z0-9]*) ([a-zA-Z][0-9]) : ([\ ]*) ([a-zA-Z]*)} $line dummy EDCnb AZnb dummy1 oko] {
22 set result [open $file w]
24 puts $result ":: $EDCnb"
25 puts ": 1 commun : 2 fusion : 3 coupe 1 par 2 : 4 coupe 2 par 1 "
26 puts $result ": 1 commun : 2 fusion : 3 coupe 1 par 2 : 4 coupe 2 par 1 "
33 if {[string index $AZnb 1 ] == "1"} {
38 } elseif {[string index $AZnb 1 ] == "2"} {
41 } elseif {[string index $AZnb 1 ] == "3"} {
44 } elseif {[string index $AZnb 1 ] == "4"} {