[Gd-chatter] r11494 - trunk/libraries/network/koala/sources/koala

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Sun Nov 18 21:49:45 2007
New Revision: 11494

Modified:
   trunk/libraries/network/koala/sources/koala/dsp.dylan
   trunk/libraries/network/koala/sources/koala/library-unix.dylan
Log:
Job: koala
enable reparsing the dsp in user-space


Modified: trunk/libraries/network/koala/sources/koala/dsp.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/dsp.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/dsp.dylan	Sun Nov 18 21:49:45 2007
@@ -630,7 +630,7 @@
 define open primary class <dylan-server-page> (<file-page-mixin>, <page>)
   // A sequence of strings and functions.  Strings are output directly
   // to the network stream.  The functions are created by 'define tag'.
-  each-subclass slot page-template :: <dsp-template>;
+  each-subclass slot page-template :: false-or(<dsp-template>) = #f;
 end;
 
 // define page my-dsp (<dylan-server-page>) (url: "/hello", source: make-locator(...), ...)
@@ -800,7 +800,7 @@
 // method, throwing an exception, etc.
 //
 define open method process-template (page :: <dylan-server-page>)
-  when (page-source-modified?(page) | ~ slot-initialized?(page, page-template))
+  when (page-source-modified?(page) | ~ page.page-template)
     page.mod-time := file-property(source-location(page),
                                    #"modification-date");
     page.page-template := parse-page(page);

Modified: trunk/libraries/network/koala/sources/koala/library-unix.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/library-unix.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/library-unix.dylan	Sun Nov 18 21:49:45 2007
@@ -393,6 +393,8 @@
 
     page-source,
     page-source-setter,
+    page-template,
+    page-template-setter,
 
     <dylan-server-page>,         // Subclass this using the "define page" macro
     page-definer,                // Defines a new page class