| 1 | #!/usr/local/bin/wish |
|---|
| 2 | set Revision {$Revision: 7 $ $Date: 2009-12-04 22:58:48 +0000 (Fri, 04 Dec 2009) $} |
|---|
| 3 | # display a .LST file in a text box |
|---|
| 4 | # updates 8/26 add bindings for page-up, -down, uparrow, downarrow |
|---|
| 5 | # read from gzip .LST.gz files using gunzip and then append the .LST file |
|---|
| 6 | # start work on plotting variables change next line to use |
|---|
| 7 | set plotvars 0 |
|---|
| 8 | set txtvw(menulength) 25 |
|---|
| 9 | set txtvw(stringcount) 0 |
|---|
| 10 | set txtvw(string) {} |
|---|
| 11 | set txtvw(sum) 0 |
|---|
| 12 | # maximum characters to read initially from a .LST file |
|---|
| 13 | set txtvw(maxchars) 1000000 |
|---|
| 14 | if {$tcl_platform(platform) == "windows"} { |
|---|
| 15 | # windows is slow! |
|---|
| 16 | set txtvw(maxchars) 200000 |
|---|
| 17 | } |
|---|
| 18 | if {[set expnam [lindex $argv 0]] == ""} { |
|---|
| 19 | tk_dialog .warn Notify "No filename specified" error 0 OK |
|---|
| 20 | destroy . |
|---|
| 21 | } |
|---|
| 22 | set filename $expnam.LST |
|---|
| 23 | set zfil {} |
|---|
| 24 | set fil {} |
|---|
| 25 | # is there a compressed version of the file? |
|---|
| 26 | if {[file exists $filename.gz] && $tcl_platform(platform) != "windows"} { |
|---|
| 27 | set zfil [open "|gunzip < $filename.gz" r] |
|---|
| 28 | } |
|---|
| 29 | set box {} |
|---|
| 30 | set txtvw(followcycle) 1 |
|---|
| 31 | # override options with locally defined values |
|---|
| 32 | if [file exists ~/.lstview_config] { |
|---|
| 33 | source ~/.lstview_config |
|---|
| 34 | } |
|---|
| 35 | |
|---|
| 36 | proc waitmsg {message} { |
|---|
| 37 | set w .wait |
|---|
| 38 | # kill any window/frame with this name |
|---|
| 39 | catch {destroy $w} |
|---|
| 40 | pack [frame $w] |
|---|
| 41 | frame $w.bot -relief raised -bd 1 |
|---|
| 42 | pack $w.bot -side bottom -fill both |
|---|
| 43 | frame $w.top -relief raised -bd 1 |
|---|
| 44 | pack $w.top -side top -fill both -expand 1 |
|---|
| 45 | label $w.msg -justify left -text $message -wrap 3i |
|---|
| 46 | catch {$w.msg configure -font \ |
|---|
| 47 | -Adobe-Times-Medium-R-Normal--*-180-*-*-*-*-*-* |
|---|
| 48 | } |
|---|
| 49 | pack $w.msg -in $w.top -side right -expand 1 -fill both -padx 3m -pady 3m |
|---|
| 50 | label $w.bitmap -bitmap info |
|---|
| 51 | pack $w.bitmap -in $w.top -side left -padx 3m -pady 3m |
|---|
| 52 | update |
|---|
| 53 | } |
|---|
| 54 | |
|---|
| 55 | proc donewait {} { |
|---|
| 56 | catch {destroy .wait} |
|---|
| 57 | } |
|---|
| 58 | waitmsg "Reading $expnam.LST, Please wait" |
|---|
| 59 | |
|---|
| 60 | set txtvw(runnumber) 0 |
|---|
| 61 | |
|---|
| 62 | proc findcyc {win menu {pos 0.0}} { |
|---|
| 63 | global txtvw valuelst |
|---|
| 64 | set i 0 |
|---|
| 65 | set lastpos {} |
|---|
| 66 | # loop over cycles |
|---|
| 67 | set startpos $pos |
|---|
| 68 | # get current cycle number |
|---|
| 69 | set pos [$win search -regexp -count chars \ |
|---|
| 70 | {Cycle *[0-9]+ +There} $pos+1line end] |
|---|
| 71 | while {$pos != ""} { |
|---|
| 72 | # add the current cycle number to the menu |
|---|
| 73 | set line [lindex [split $pos .] 0] |
|---|
| 74 | $win tag add cycle $line.1 $line.10 |
|---|
| 75 | incr i |
|---|
| 76 | set cycle {} |
|---|
| 77 | regexp {Cycle *([0-9]+) +There} [$win get $pos $line.end] x cycle |
|---|
| 78 | if {$cycle != ""} { |
|---|
| 79 | set lastpos $pos |
|---|
| 80 | set txtvw(lastcycle) "Cycle $cycle" |
|---|
| 81 | .a.goto.menu entryconfigure 1 -state normal |
|---|
| 82 | $menu insert 1 command \ |
|---|
| 83 | -font 6x12 \ |
|---|
| 84 | -label "Cycle $cycle" \ |
|---|
| 85 | -command "$win see $pos" |
|---|
| 86 | if {[$menu index end] > $txtvw(menulength)} {$menu delete end} |
|---|
| 87 | } |
|---|
| 88 | # get next cycle number |
|---|
| 89 | set nextpos [$win search -regexp -count chars \ |
|---|
| 90 | {Cycle *[0-9]+ +There} $pos+1line end] |
|---|
| 91 | if {$nextpos == ""} { |
|---|
| 92 | set epos end |
|---|
| 93 | } else { |
|---|
| 94 | set epos $nextpos |
|---|
| 95 | } |
|---|
| 96 | |
|---|
| 97 | # loop to highlight all Rwp & Rp values |
|---|
| 98 | set npos $startpos |
|---|
| 99 | set npos [$win search -regexp -count chars \ |
|---|
| 100 | {Hstgm *[0-9]+} $npos+1line $pos] |
|---|
| 101 | while {$npos != ""} { |
|---|
| 102 | set line [lindex [split $npos .] 0] |
|---|
| 103 | set x [$win get $line.0 $line.end] |
|---|
| 104 | scan $x %s%d%s%d%d%f%f%f a hst c d e f rwp rp |
|---|
| 105 | lappend valuelst(Rwp$hst) $cycle $rwp |
|---|
| 106 | lappend valuelst(Rp$hst) $cycle $rp |
|---|
| 107 | $win tag add rval $npos $line.end |
|---|
| 108 | set npos [$win search -regexp -count chars \ |
|---|
| 109 | {Hstgm *[0-9]+} $npos+1line $pos] |
|---|
| 110 | } |
|---|
| 111 | # get the CHI**2 value |
|---|
| 112 | set chipos [$win search {Reduced CHI**2 =} $pos $epos] |
|---|
| 113 | if {$chipos != ""} { |
|---|
| 114 | $win tag add chi $chipos+8chars $chipos+23chars |
|---|
| 115 | set chi [string trim [$win get $chipos+16chars $chipos+23chars]] |
|---|
| 116 | set txtvw(lastchi) "Chi**2 $chi" |
|---|
| 117 | lappend valuelst(chi2) $cycle $chi |
|---|
| 118 | # puts "$cycle $chi" |
|---|
| 119 | } |
|---|
| 120 | set sumpos [$win search {Final sum} $pos $epos] |
|---|
| 121 | if {$sumpos != ""} { |
|---|
| 122 | set finalshift [string trim [$win get $sumpos+42chars $sumpos+54chars]] |
|---|
| 123 | set txtvw(finalshift) "Shift $finalshift" |
|---|
| 124 | lappend valuelst(final_shft2) $cycle $finalshift |
|---|
| 125 | } |
|---|
| 126 | # loop to highlight all R(F**2) values |
|---|
| 127 | set npos $pos |
|---|
| 128 | set npos [$win search -regexp -count chars \ |
|---|
| 129 | {Histogram *[0-9]+} $npos+1line $epos] |
|---|
| 130 | while {$npos != ""} { |
|---|
| 131 | set line [lindex [split $npos .] 0] |
|---|
| 132 | set x [$win get $line.0 $line.end] |
|---|
| 133 | regexp {gram *([0-9]+).*\) =(.*)} $x a hst rf2 |
|---|
| 134 | lappend valuelst(Rbragg$hst) $cycle $rf2 |
|---|
| 135 | $win tag add rval $npos $line.end |
|---|
| 136 | set npos [$win search -regexp -count chars \ |
|---|
| 137 | {Histogram *[0-9]+} $npos+1line $epos] |
|---|
| 138 | } |
|---|
| 139 | # get ready to loop again |
|---|
| 140 | set startpos $pos |
|---|
| 141 | set pos $nextpos |
|---|
| 142 | } |
|---|
| 143 | if {$txtvw(followcycle) && $lastpos != ""} {$win see $lastpos} |
|---|
| 144 | } |
|---|
| 145 | |
|---|
| 146 | proc findrun {win {menu ""} {pos 0.0}} { |
|---|
| 147 | global txtvw |
|---|
| 148 | while {$pos != ""} { |
|---|
| 149 | set pos [$win search "Program GENLES" $pos+1line end] |
|---|
| 150 | if {$menu != "" && $pos != ""} { |
|---|
| 151 | incr txtvw(runnumber) |
|---|
| 152 | .a.goto.menu entryconfigure 2 -state normal |
|---|
| 153 | $menu insert 1 command \ |
|---|
| 154 | -font 6x12 \ |
|---|
| 155 | -label "Run $txtvw(runnumber)" \ |
|---|
| 156 | -command "$win see $pos" |
|---|
| 157 | if {[$menu index end] > $txtvw(menulength)} {$menu delete end} |
|---|
| 158 | } |
|---|
| 159 | } |
|---|
| 160 | } |
|---|
| 161 | |
|---|
| 162 | |
|---|
| 163 | proc findsum {win menu {pos 0.0}} { |
|---|
| 164 | global txtvw |
|---|
| 165 | set fpos [$win search {Final sum(} $pos+1line end] |
|---|
| 166 | if {$fpos == ""} return |
|---|
| 167 | set pos [$win search {Summary table} $fpos+1line end] |
|---|
| 168 | while {$pos != ""} { |
|---|
| 169 | set line [lindex [split $fpos .] 0] |
|---|
| 170 | set x [$win get $line.0 $line.end] |
|---|
| 171 | regexp {cycle *([0-9]+) is} $x a lstcyc |
|---|
| 172 | incr txtvw(sum) |
|---|
| 173 | .a.goto.menu entryconfigure 3 -state normal |
|---|
| 174 | $menu insert 1 command \ |
|---|
| 175 | -font 6x12 \ |
|---|
| 176 | -label "Summary $txtvw(sum)" \ |
|---|
| 177 | -command "$win see $pos" |
|---|
| 178 | if {[$menu index end] > $txtvw(menulength)} {$menu delete end} |
|---|
| 179 | set line [lindex [split $pos .] 0] |
|---|
| 180 | incr line |
|---|
| 181 | set ncyc [string range [string trim [$win get $line.0 $line.end]] end end] |
|---|
| 182 | while {[set x [$win get $line.0 $line.end]] != ""} { |
|---|
| 183 | incr line |
|---|
| 184 | set lbl [string trim [string range $x 0 8]] |
|---|
| 185 | if {$lbl != "Name" && [string range $x 0 0] != "1"} { |
|---|
| 186 | # are there values here? |
|---|
| 187 | set len [llength [set vals [string range $x 9 end]]] |
|---|
| 188 | foreach val $vals { |
|---|
| 189 | if {[scan $val %f s] == 1} { |
|---|
| 190 | lappend valuelst($lbl) [expr $lstcyc - $ncyc +1] $s |
|---|
| 191 | } |
|---|
| 192 | } |
|---|
| 193 | } |
|---|
| 194 | } |
|---|
| 195 | set fpos [$win search {Final sum(} $pos+1line end] |
|---|
| 196 | if {$fpos == ""} return |
|---|
| 197 | set pos [$win search {Summary table} $fpos+1line end] |
|---|
| 198 | } |
|---|
| 199 | } |
|---|
| 200 | |
|---|
| 201 | |
|---|
| 202 | proc findsetstring {win string {menu ""} {pos 0.0}} { |
|---|
| 203 | global txtvw |
|---|
| 204 | while {$pos != ""} { |
|---|
| 205 | set pos [$win search -regexp -count chars \ |
|---|
| 206 | $string $pos+1line end] |
|---|
| 207 | if {$menu != "" && $pos != ""} { |
|---|
| 208 | $win tag add found $pos "$pos + $chars chars" |
|---|
| 209 | incr txtvw(stringcount) |
|---|
| 210 | $menu insert 1 command \ |
|---|
| 211 | -font 6x12 \ |
|---|
| 212 | -label "loc #$txtvw(stringcount)" \ |
|---|
| 213 | -command "$win see $pos" |
|---|
| 214 | if {[$menu index end] > $txtvw(menulength)} {$menu delete end} |
|---|
| 215 | } |
|---|
| 216 | } |
|---|
| 217 | } |
|---|
| 218 | |
|---|
| 219 | proc setsearchstring { } { |
|---|
| 220 | global txtvw |
|---|
| 221 | set txtvw(stringcount) 0 |
|---|
| 222 | .a.goto.menu entryconfigure 5 -state disabled -label "" |
|---|
| 223 | .a.goto.menu.str delete 1 end |
|---|
| 224 | catch {.txt tag delete found} |
|---|
| 225 | .txt tag config found -foreground red |
|---|
| 226 | if {[string trim $txtvw(entry)] == ""} { |
|---|
| 227 | set txtvw(string) {} |
|---|
| 228 | return |
|---|
| 229 | } else { |
|---|
| 230 | set txtvw(string) [string trim $txtvw(entry)] |
|---|
| 231 | } |
|---|
| 232 | findsetstring .txt $txtvw(string) .a.goto.menu.str |
|---|
| 233 | if {$txtvw(stringcount) > 0} { |
|---|
| 234 | .a.goto.menu entryconfigure 5 -state normal -label "$txtvw(string)..." |
|---|
| 235 | } |
|---|
| 236 | } |
|---|
| 237 | |
|---|
| 238 | proc updatetext {fil {repeat 1}} { |
|---|
| 239 | global txtvw filename |
|---|
| 240 | |
|---|
| 241 | if $repeat {after 5000 updatetext $fil} |
|---|
| 242 | set txt [read $fil] |
|---|
| 243 | if {$txt == ""} return |
|---|
| 244 | .txt config -state normal |
|---|
| 245 | set oldend [.txt index end] |
|---|
| 246 | # truncate the text if too long |
|---|
| 247 | if {[string length $txt] > $txtvw(maxchars) && $repeat == 0} { |
|---|
| 248 | set beg [expr [string length $txt] - $txtvw(maxchars)] |
|---|
| 249 | .txt insert end "(first $beg characters in file skipped)\n" |
|---|
| 250 | .txt insert end [string range $txt $beg end] |
|---|
| 251 | } else { |
|---|
| 252 | .txt insert end $txt |
|---|
| 253 | } |
|---|
| 254 | .txt config -state disabled |
|---|
| 255 | update idletasks |
|---|
| 256 | findrun .txt .a.goto.menu.run $oldend |
|---|
| 257 | update |
|---|
| 258 | findcyc .txt .a.goto.menu.cyc $oldend |
|---|
| 259 | update |
|---|
| 260 | findsum .txt .a.goto.menu.sum $oldend |
|---|
| 261 | update |
|---|
| 262 | |
|---|
| 263 | if {$txtvw(string) != ""} { |
|---|
| 264 | findsetstring .txt $txtvw(string) .a.goto.menu.str $oldend |
|---|
| 265 | if {$txtvw(stringcount) > 0} { |
|---|
| 266 | .a.goto.menu entryconfigure 5 -state normal -label "$txtvw(string)..." |
|---|
| 267 | } |
|---|
| 268 | } |
|---|
| 269 | } |
|---|
| 270 | proc getstring {} { |
|---|
| 271 | catch {destroy .str} |
|---|
| 272 | toplevel .str |
|---|
| 273 | grab .str |
|---|
| 274 | pack [frame .str.1] -side top |
|---|
| 275 | pack [frame .str.2] -side top |
|---|
| 276 | pack [label .str.1.l -text "Search String"] -side left |
|---|
| 277 | pack [entry .str.1.e -textvariable txtvw(entry) -width 12] -side left |
|---|
| 278 | pack [label .str.1.2 -text "(regexp)"] -side left |
|---|
| 279 | pack [button .str.2.ok -text "Search" -command \ |
|---|
| 280 | "setsearchstring; destroy .str" ] -side left |
|---|
| 281 | pack [button .str.2.q -text "Quit" -command \ |
|---|
| 282 | "destroy .str" ] -side left |
|---|
| 283 | # bind to RETURN here |
|---|
| 284 | # bind .str |
|---|
| 285 | } |
|---|
| 286 | |
|---|
| 287 | proc findstring {win str1 {str2 ""}} { |
|---|
| 288 | set pos [$win search -backwards $str1 end] |
|---|
| 289 | if {$pos == "" && $str2 != ""} { |
|---|
| 290 | set pos [$win search -backwards $str2 end] |
|---|
| 291 | } |
|---|
| 292 | if {$pos == ""} return |
|---|
| 293 | $win see $pos |
|---|
| 294 | } |
|---|
| 295 | |
|---|
| 296 | proc aboutgsas {} { |
|---|
| 297 | global Revision |
|---|
| 298 | tk_dialog .warn About " |
|---|
| 299 | GSAS\n\ |
|---|
| 300 | A. C. Larson and\n R. B. Von Dreele,\n LANSCE, Los Alamos\n\n\ |
|---|
| 301 | LSTVIEW\nB. Toby, NIST\nNot subject to copyright\n\n\ |
|---|
| 302 | $Revision\n\ |
|---|
| 303 | " {} 0 OK |
|---|
| 304 | } |
|---|
| 305 | |
|---|
| 306 | |
|---|
| 307 | set txtvw(lastchi) {} |
|---|
| 308 | set txtvw(lastcycle) {} |
|---|
| 309 | set txtvw(finalshift) {} |
|---|
| 310 | text .txt -width 100 -wrap none \ |
|---|
| 311 | -yscrollcommand ".yscroll set" \ |
|---|
| 312 | -xscrollcommand ".xscroll set" |
|---|
| 313 | if {$tcl_version >= 8.0} {.txt config -font Courier} |
|---|
| 314 | scrollbar .yscroll -command ".txt yview" |
|---|
| 315 | scrollbar .xscroll -command ".txt xview" -orient horizontal |
|---|
| 316 | grid .xscroll -column 0 -row 2 -sticky ew |
|---|
| 317 | grid .txt -column 0 -row 1 -sticky nsew |
|---|
| 318 | grid .yscroll -column 1 -row 1 -sticky ns |
|---|
| 319 | grid columnconfigure . 0 -weight 1 |
|---|
| 320 | grid rowconfigure . 1 -weight 1 |
|---|
| 321 | wm title . "View $filename" |
|---|
| 322 | wm iconname . $filename |
|---|
| 323 | grid [frame .a -bd 2 -relief raised] -column 0 -row 0 -columnspan 2 -sticky ew |
|---|
| 324 | pack [menubutton .a.file -text File -underline 0 -menu .a.file.menu] \ |
|---|
| 325 | -side left |
|---|
| 326 | menu .a.file.menu |
|---|
| 327 | .a.file.menu add command -label Exit -command "destroy ." |
|---|
| 328 | |
|---|
| 329 | pack [menubutton .a.goto -text "Go To" -underline 0 -menu .a.goto.menu] \ |
|---|
| 330 | -side left |
|---|
| 331 | menu .a.goto.menu |
|---|
| 332 | .a.goto.menu add checkbutton -label "Auto Advance" -variable txtvw(followcycle) |
|---|
| 333 | .a.goto.menu add cascade -label "Cycle #" -menu .a.goto.menu.cyc \ |
|---|
| 334 | -state disabled |
|---|
| 335 | menu .a.goto.menu.cyc |
|---|
| 336 | .a.goto.menu add cascade -label "Refinement Run #" -menu .a.goto.menu.run \ |
|---|
| 337 | -state disabled |
|---|
| 338 | menu .a.goto.menu.run |
|---|
| 339 | .a.goto.menu add cascade -label "Summary #" -menu .a.goto.menu.sum \ |
|---|
| 340 | -state disabled |
|---|
| 341 | menu .a.goto.menu.sum |
|---|
| 342 | .a.goto.menu add command -label "Set Search String" -command getstring |
|---|
| 343 | #pack [button .but.lbl1 -text "Set Search String" -command getstring] -side left |
|---|
| 344 | .a.goto.menu add cascade -label "" -menu .a.goto.menu.str -state disabled |
|---|
| 345 | menu .a.goto.menu.str |
|---|
| 346 | |
|---|
| 347 | if {$plotvars && ![catch {package require BLT}]} { |
|---|
| 348 | pack [menubutton .a.plot -text "Plot" -underline 0 -menu .a.plot.menu ] \ |
|---|
| 349 | -side left |
|---|
| 350 | menu .a.plot.menu -postcommand postingvars |
|---|
| 351 | .a.plot.menu add cascade -label "Variable(s)" -menu .a.plot.menu.vars |
|---|
| 352 | menu .a.plot.menu.vars |
|---|
| 353 | } |
|---|
| 354 | |
|---|
| 355 | proc postingvars {} { |
|---|
| 356 | global valuelst |
|---|
| 357 | .a.plot.menu.vars delete 1 end |
|---|
| 358 | foreach var [lsort [array names valuelst]] { |
|---|
| 359 | .a.plot.menu.vars add checkbutton -label $var -command plotvars \ |
|---|
| 360 | -variable plotlist($var) |
|---|
| 361 | } |
|---|
| 362 | } |
|---|
| 363 | proc plotvars {} { |
|---|
| 364 | global valuelst plotlist |
|---|
| 365 | catch { |
|---|
| 366 | toplevel .plot |
|---|
| 367 | pack [graph .plot.g] |
|---|
| 368 | Blt_ZoomStack .plot.g |
|---|
| 369 | Blt_ActiveLegend .plot.g |
|---|
| 370 | .plot.g config -title "" |
|---|
| 371 | .plot.g xaxis config -title "cycle" |
|---|
| 372 | .plot.g yaxis config -title "" |
|---|
| 373 | } |
|---|
| 374 | raise .plot |
|---|
| 375 | .plot.g element delete * |
|---|
| 376 | set num 0 |
|---|
| 377 | foreach var [lsort [array names valuelst]] { |
|---|
| 378 | if $plotlist($var) { |
|---|
| 379 | incr num |
|---|
| 380 | set color [lindex {red green blue magenta cyan yellow} [expr $num % 6]] |
|---|
| 381 | .plot.g element create "$var" -data $valuelst($var) -color $color |
|---|
| 382 | } |
|---|
| 383 | } |
|---|
| 384 | } |
|---|
| 385 | |
|---|
| 386 | pack [menubutton .a.help -text Help -underline 0 -menu .a.help.menu] -side right |
|---|
| 387 | menu .a.help.menu |
|---|
| 388 | .a.help.menu add command -command aboutgsas -label "About" |
|---|
| 389 | |
|---|
| 390 | grid [frame .but ] -column 0 -row 3 -columnspan 2 -sticky ew |
|---|
| 391 | pack [label .but.lbl2 -textvariable txtvw(lastcycle) -relief sunken] -side left |
|---|
| 392 | pack [label .but.lbl3 -textvariable txtvw(lastchi) -relief sunken] -side left |
|---|
| 393 | pack [label .but.lbl4 -textvariable txtvw(finalshift) -relief sunken] -side left |
|---|
| 394 | bind all <Control-KeyPress-c> {destroy .} |
|---|
| 395 | bind . <KeyPress-Prior> ".txt yview scroll -1 page" |
|---|
| 396 | bind . <KeyPress-Next> ".txt yview scroll 1 page" |
|---|
| 397 | bind . <KeyPress-Up> ".txt yview scroll -1 unit" |
|---|
| 398 | bind . <KeyPress-Down> ".txt yview scroll 1 unit" |
|---|
| 399 | bind . <KeyPress-Home> ".txt yview 0" |
|---|
| 400 | bind . <KeyPress-End> ".txt yview end" |
|---|
| 401 | #pack [button .but.q -text close -command "destroy ." ] -side right |
|---|
| 402 | .txt tag config cycle -background yellow |
|---|
| 403 | .txt tag config rval -background green |
|---|
| 404 | .txt tag config chi -background green |
|---|
| 405 | if [file exists $filename] { |
|---|
| 406 | set fil [open $filename r] |
|---|
| 407 | } else { |
|---|
| 408 | # create a file if it does not exist |
|---|
| 409 | set fil [open $filename a+] |
|---|
| 410 | close $fil |
|---|
| 411 | set fil [open $filename r] |
|---|
| 412 | } |
|---|
| 413 | donewait |
|---|
| 414 | # read a file compressed file |
|---|
| 415 | if {$zfil != ""} {updatetext $zfil 0; close $zfil} |
|---|
| 416 | # read the initial file |
|---|
| 417 | updatetext $fil 0 |
|---|
| 418 | # now start reading with updates |
|---|
| 419 | updatetext $fil 1 |
|---|
