7 |
proc debug { texte } { |
proc debug { texte } { |
8 |
puts $texte |
puts $texte |
9 |
} |
} |
10 |
|
|
11 |
# Proc principale d'évaluation |
# Proc principale d'évaluation |
12 |
|
# Ne traite pas les attributs, la feuille XSL geo2tcl est incomplète! |
13 |
|
|
14 |
proc GeoXML { args } { |
# Le profile de GeoXML ne peut être modifié |
15 |
|
proc GeoXML { args } { |
16 |
global cw |
global cw |
17 |
global convert |
global convert |
18 |
global visible |
global visible |
31 |
set text $l |
set text $l |
32 |
catch { |
catch { |
33 |
set text $convert($l) |
set text $convert($l) |
34 |
} |
} xmlerror |
35 |
|
debug $xmlerror |
36 |
label $e -text "$text" -relief raised -anchor n |
label $e -text "$text" -relief raised -anchor n |
37 |
pack $e -side left -fill x |
pack $e -side left -fill x |
38 |
} |
} |
39 |
# Placer ici les traitements des "fils" XML |
# Placer ici les traitements des "fils" XML |
|
|
|
|
|
|
|
|
|
40 |
set largs [lrange $args 1 end] |
set largs [lrange $args 1 end] |
41 |
set k 0 |
set k 0 |
42 |
foreach l $largs { |
foreach l $largs { |
43 |
incr k |
incr k |
44 |
set w $w.$k |
set wk $w.$k |
45 |
puts $w |
frame $wk -relief sunken |
46 |
frame $w -relief sunken |
pack $wk -side top -fill both |
47 |
pack $w -side top -fill both |
set cw $wk |
|
set cw $w |
|
48 |
catch { |
catch { |
49 |
eval $l |
eval $l |
50 |
} error |
} error |
|
# debug $error |
|
51 |
} |
} |
52 |
# Placer ici les traitements de fermeture de balise |
# Placer ici les traitements de fermeture de balise |
53 |
} |
} |
54 |
|
|
55 |
|
|
56 |
|
proc GeoXmlFileSelect { } { |
57 |
|
set f [tk_getOpenFile -title "Sélectionner un fichier" -initialdir ../exemple] |
58 |
|
} |
59 |
|
|
60 |
set cw .top |
set cw .top |
61 |
toplevel $cw |
toplevel $cw |
62 |
|
|
67 |
|
|
68 |
set cw $cw.start |
set cw $cw.start |
69 |
|
|
70 |
set f [tk_getOpenFile -initialdir ../exemple] |
|
71 |
|
set f [GeoXmlFileSelect] |
72 |
|
|
73 |
|
debug [read [open [file rootname $f]]] |
74 |
|
debug [read [open $f]] |
75 |
|
|
76 |
set xslsheet ../xsl/geo2tcl.xsl |
set xslsheet ../xsl/geo2tcl.xsl |
77 |
catch { eval "exec xsltproc $xslsheet $f > test.tcl " } xslerror |
catch { eval "exec xsltproc $xslsheet $f > test.tcl " } xslerror |
82 |
|
|
83 |
set l [read $l] |
set l [read $l] |
84 |
|
|
85 |
|
debug $l |
86 |
|
|
87 |
set l [lindex $l 0] |
set l [lindex $l 0] |
88 |
eval $l |
eval $l |
89 |
|
|
90 |
|
|