This is preliminary, but:
load ./libCacheOut.so
proc cache { stuff } {
global CACHE
if { ! [info exists CACHE($stuff)] } {
puts "CACHING STUFF"
opencache
uplevel 0 $stuff
set CACHE($stuff) [ closecache ]
}
puts $CACHE($stuff)
}
proc falsecache { stuff } {
uplevel 0 $stuff
}
proc main {} {
set tm [ time {
falsecache {
# this is just to make it do some 'real' work
source /home/davidw/download/src/tcl/library/http1.0/http.tcl
puts Hi
puts HO
puts "it's off to work we go"
}
} 100 ]
puts $tm
}
main
1623 microseconds per iteration
switch it to use 'cache' instead of 'falsecache' and
131 microseconds per iteration
I do it by stacking a channel and saving up the output
opencache and closecache turn it on and off, and closecache
regurgitates the saved up output.
Thoughts? This is alpha quality work...
--
David N. Welton
Free Software: http://people.debian.org/~davidw/
Apache Tcl: http://tcl.apache.org/
Personal: http://www.efn.org/~davidw/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
