Make a string survive rehashing...

[Nimos]

how can I write something into a file, and reload it after rehashing?

[nml375]

There are a few various techniques to accomplish that. If your intention is to restore the value of a variable, you might be able to use something like this:

Code: Select all

proc savevars {file varlist} {
 set fId [open $file "WRONLY CREAT TRUNC"]
 foreach var $varlist {
  upvar #0 $var tmp
  puts $fId [list set $var $tmp]
 }
 close $fId
}

Then, all you have to do to save is call savevars with the file to store variables in, and the list of variables to save, and load the savefile as a normal script to restore:

Code: Select all

#save var1, var2, and var3 in myvars.save
savevars "./myvars.save" [list var1 var2 var3]

#Restore saved values
if {[file exists "./myvars.save"]} {source ./myvars.save}

[nml375]

You could also save the variables automatically, using something like this.
In this case, you use register_savevar to tell the script which global variables to save.

Code: Select all

bind evnt - "prerehash" save_rehash
bind evnt - "prerestart" save_rehash

proc save_rehash {evnt} {
 if {[info exists ::savevars]} {
  savevars "./botname.savevars" $::savevars
 }
}

proc register_savevar {var} {
 if {!([info exists ::savevars] && [lsearch -exact $::savevars $var])} {
  lappend ::savevars $var
 }
}

The following modifications to savevars is also recommended, in order to handle non-existent variables.

Code: Select all

proc savevars {file varlist} {
 set fId [open $file "WRONLY CREAT TRUNC"]
 foreach var $varlist {
  upvar #0 $var tmp
  if {[info exists tmp]} {
   puts $fId [list set $var $tmp]
  }
 }
 close $fId
}