egghelp/eggheads community

Make a string survive rehashing...

2008-06-07T11:41:32-04:00

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:

bind evnt - "prerehash" save_rehashbind evnt - "prerestart" save_rehashproc 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:

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}

Statistics: Posted by nml375 — Sat Jun 07, 2008 11:41 am

Make a string survive rehashing...

2008-06-06T21:27:28-04:00

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:

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:

#save var1, var2, and var3 in myvars.savesavevars "./myvars.save" [list var1 var2 var3]#Restore saved valuesif {[file exists "./myvars.save"]} {source ./myvars.save}

Statistics: Posted by nml375 — Fri Jun 06, 2008 9:27 pm

Make a string survive rehashing...

2008-06-06T19:15:40-04:00

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

Statistics: Posted by Nimos — Fri Jun 06, 2008 7:15 pm