Index: openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl 1 Nov 2003 08:45:37 -0000 1.8 +++ openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl 8 Feb 2004 18:36:07 -0000 1.9 @@ -10,7 +10,7 @@ # Use shiny new ns_cache-based util_memoize. -ad_proc util_memoize {script {max_age ""}} { +ad_proc -public util_memoize {script {max_age ""}} { If script has been executed before, return the value it returned last time, unless it was more than max_age seconds ago. @@ -54,7 +54,7 @@ return [lindex $pair 1] } -ad_proc util_memoize_seed {script value {max_age ""}} { +ad_proc -public util_memoize_seed {script value {max_age ""}} { Pretend util_memoize was called with script and it returned value. Cache value, replacing any previous cache entry for script. @@ -75,7 +75,7 @@ ns_cache set util_memoize $script [list [ns_time] $value] } -ad_proc util_memoize_flush_local {script} { +ad_proc -private util_memoize_flush_local {script} { Forget any cached value for script. You probably want to use util_memoize_flush to flush the caches on all servers in the cluster, in case clustering is enabled. @@ -105,7 +105,7 @@ ns_cache flush util_memoize $script } -ad_proc util_memoize_flush {script} { +ad_proc -public util_memoize_flush {script} { Forget any cached value for script. If clustering is enabled, flush the caches on all servers in the cluster. @@ -114,7 +114,7 @@ unset flush_body -ad_proc util_memoize_cached_p {script {max_age ""}} { +ad_proc -public util_memoize_cached_p {script {max_age ""}} { Check whether script's value has been cached, and whether it was cached no more than max_age seconds ago.