/[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.2 by gmariano, Wed Sep 10 10:14:05 2003 UTC revision 1.3 by gmariano, Wed Sep 10 10:32:15 2003 UTC
# Line 7  Line 7 
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
# Line 28  proc GeoXML { args  } { Line 31  proc GeoXML { args  } {
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    
# Line 64  pack  $cw.start Line 67  pack  $cw.start
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
# Line 75  set l [open "test.tcl" ] Line 82  set l [open "test.tcl" ]
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    

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

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