No problem, i just wanted to remove non-functional global cache
Stephen Deasey wrote:
Some people 'cache' content to disk in the form of Tcl pages. There's the logic in there that needs to run at page delivery time, plus some data from a db, for example. New Tcl pages are created as new content arrives, deleted as necessary. The ns:tclcache_* procs are only ever created. This is a cache of infinite size. It may be easier to just bite the bullet and create an ADP wrapper that simulates a single-chunk ADP page... On 7/22/06, Vlad Seryakov <[EMAIL PROTECTED]> wrote:Update of /cvsroot/naviserver/naviserver/tcl In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv23802/tcl Modified Files: file.tcl Log Message: Use wrapped Tcl proc aroun d.tcl file instead of not exactly as needed working global ns_cache for cacheing Tcl bytecode Index: file.tcl =================================================================== RCS file: /cvsroot/naviserver/naviserver/tcl/file.tcl,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** file.tcl 9 Mar 2006 11:25:55 -0000 1.7 --- file.tcl 22 Jul 2006 02:24:09 -0000 1.8 *************** *** 53,57 **** ns_register_proc POST /*.tcl ns_sourceproc ns_register_proc HEAD /*.tcl ns_sourceproc - ns_cache_create ns:filecache [ns_config $path filecachesize 5000000] } --- 53,56 ---- *************** *** 86,126 **** # # Side effects: ! # Caches the file content and Tcl_Obj's rep of the ! # sourced script in per-thread cache (is this true?) # ! proc ns_sourcefile {filename} { ! ! file stat $filename stat ! set current_cookie $stat(mtime):$stat(ctime):$stat(ino):$stat(dev) ! ! # ! # Read current cached file ! # ! ! set pair [ns_cache_eval ns:filecache $filename { ! list $current_cookie [ns_fileread $filename] ! }] ! # ! # If changed, re-cache it ! # ! if {[lindex $pair 0] ne $current_cookie} { ! ns_cache_flush ns:filecache $filename ! set pair [ns_cache_eval ns:filecache $filename { ! list $current_cookie [ns_fileread $filename] ! }] } ! ! # ! # And here's the magic part. We're using "for" here to translate the ! # text source file into bytecode, which will be associated with the ! # Tcl_Obj we just cached (as its internal representation). "eval" ! # doesn't do this as the eval provided in Tcl uses the TCL_EVAL_DIRECT ! # flag, and hence interprets the text directly. ! # ! ! uplevel [for [lindex $pair 1] {0} {} {}] } --- 85,107 ---- # # Side effects: ! # Each .tcl file will be wrapped into Tcl proc in every thread # ! proc ns_sourcefile { path } { ! set proc0 [info procs ns:tclcache_$path] ! file stat $path stat ! set cookie0 $stat(mtime):$stat(ctime):$stat(ino):$stat(dev) ! # Verify file modification time ! if { $proc0 == "" || [$proc0 1] != $cookie0 } { ! set code [ns_fileread $path] ! proc ns:tclcache_$path { {getcookie 0} } " ! if { \$getcookie } { return $cookie0 } ! $code ! " } ! # Run the proc ! ns:tclcache_$path } ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys -- and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV _______________________________________________ naviserver-commits mailing list [EMAIL PROTECTED] https://lists.sourceforge.net/lists/listinfo/naviserver-commits------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys -- and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV _______________________________________________ naviserver-devel mailing list naviserver-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/naviserver-devel
-- Vlad Seryakov 571 262-8608 office [EMAIL PROTECTED] http://www.crystalballinc.com/vlad/
