1 |
# $Id$ |
# $Id$ |
2 |
|
|
3 |
# Evaluation récusrive de BXML |
# Evaluation récusrive de GeOXML |
4 |
# Petit exemple |
# Petit exemple |
5 |
|
|
6 |
|
|
|
# cw current widget |
|
|
|
|
7 |
proc debug { texte } { |
proc debug { texte } { |
8 |
puts $texte |
puts $texte |
9 |
} |
} |
10 |
# Proc principale d'évaluation |
# Proc principale d'évaluation |
11 |
|
|
|
set visible(PredParen) 0 |
|
|
set visible(Predicate) 0 |
|
|
set visible(idList) 0 |
|
|
set visible(Expr) 0 |
|
|
set visible(ExprList) 0 |
|
|
set visible(ExprParen) 0 |
|
|
#set visible(Sequence) 0 |
|
|
set visible(ClausesList) 0 |
|
|
set visible(default) 0 |
|
|
set visible(OperHead) 0 |
|
|
set visible(Block) 0 |
|
|
set visible(instance) 0 |
|
|
set visible(AMN) 0 |
|
|
|
|
|
set convert(Sequence) ";" |
|
|
set convert(OperOut) "-->" |
|
|
set convert(And) "/\\" |
|
|
|
|
12 |
proc GeoXML { args } { |
proc GeoXML { args } { |
13 |
global cw |
global cw |
14 |
global convert |
global convert |
15 |
global visible |
global visible |
|
# debug XML debug $cw |
|
|
# Placer ici les traitements de fermeture de balise |
|
16 |
|
|
17 |
set l [lindex $args 0] |
set l [lindex $args 0] |
18 |
# set w $cw._$l |
|
|
# |
|
19 |
set w $cw |
set w $cw |
|
# frame $w -relief sunken |
|
|
# pack $w -side top -fill both |
|
|
# -padx 1 -pady 1 -ipadx 2 -ipady 2 |
|
20 |
|
|
21 |
set v 1 |
set v 1 |
22 |
catch { |
catch { |
25 |
|
|
26 |
if $v { |
if $v { |
27 |
set e $w.l |
set e $w.l |
|
# debug $e |
|
28 |
set text $l |
set text $l |
29 |
catch { |
catch { |
30 |
set text $convert($l) |
set text $convert($l) |
66 |
|
|
67 |
set f [tk_getOpenFile -initialdir ../exemple] |
set f [tk_getOpenFile -initialdir ../exemple] |
68 |
|
|
69 |
catch { eval "exec xsltproc geo2tcl.xsl $f > test.tcl " } |
set xslsheet ../xsl/geo2tcl.xsl |
70 |
|
catch { eval "exec xsltproc $xslsheet $f > test.tcl " } xslerror |
71 |
|
|
72 |
|
puts $xslerror |
73 |
|
|
74 |
set l [open "test.tcl" ] |
set l [open "test.tcl" ] |
75 |
|
|