/[geocaml]/geocaml/src/geoxml.tcl
ViewVC logotype

Diff of /geocaml/src/geoxml.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by gmariano, Tue Sep 9 16:11:37 2003 UTC revision 1.2 by gmariano, Wed Sep 10 10:14:05 2003 UTC
# Line 1  Line 1 
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 {
# Line 51  proc GeoXML { args  } { Line 25  proc GeoXML { args  } {
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)
# Line 93  set cw $cw.start Line 66  set cw $cw.start
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    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26