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

[hannes at gwydiondylan.org]

Author: hannes
Date: Thu Nov 15 03:16:06 2007
New Revision: 11490

Modified:
   trunk/libraries/network/koala/sources/koala/dsp-taglib.dylan
   trunk/libraries/network/koala/sources/koala/dsp.dylan
Log:
Job: koala
cosmetic: shorten lines, otherwise it looks screwed
          up in emacs


Modified: trunk/libraries/network/koala/sources/koala/dsp-taglib.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/dsp-taglib.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/dsp-taglib.dylan	Thu Nov 15 03:16:06 2007
@@ -11,9 +11,9 @@
 
 define thread variable *if-tag-test-result* = #"unbound";
 
-// <dsp:if> exists so that if the test function is expensive, it need only be executed
-// once, whereas using <dsp:when> and <dsp:unless> it would have to be executed twice
-// (or cached).
+// <dsp:if> exists so that if the test function is expensive, it need
+// only be executed once, whereas using <dsp:when> and <dsp:unless>
+// it would have to be executed twice (or cached).
 //
 // <dsp:if test="foo">
 //   <dsp:then>foo then</dsp:then>
@@ -72,9 +72,10 @@
 
 
 
-// ---TODO: Define a tag to replace the HTML <input> tag, that will automatically take
-//          care of defaulting the value correctly if the form is redisplayed due to
-//          error, and will allow CSS to display the input tag in a unique way.
+// ---TODO: Define a tag to replace the HTML <input> tag, that will
+//          automatically take care of defaulting the value correctly
+//          if the form is redisplayed due to error, and will allow
+//          CSS to display the input tag in a unique way.
 //
 define tag show-query-value in dsp (page :: <dylan-server-page>)
  (name :: <string>)
@@ -85,9 +86,9 @@
 
 //// Date Tags
 
-// Display a date.  If a key is given, it will be looked up in the given scope
-// and should be a <date>, which will then be displayed according to timezone
-// and style.
+// Display a date.  If a key is given, it will be looked up in the
+// given scope and should be a <date>, which will then be displayed
+// according to timezone and style.
 // @see parse-tag-arg(<string>, <date>)
 //
 define tag show-date in dsp (page :: <dylan-server-page>)

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	Thu Nov 15 03:16:06 2007
@@ -6,13 +6,16 @@
 
 
 // Users of this library may respond to HTTP requests in two ways:
-// (1) Use "define responder" to register a response function for a given URL.  The function
-//     will be passed a <request> and a <response>.
-// (2) Define a subclass of <page> and implement the methods respond-to-post, respond-to-get,
-//     and respond-to-head.  Use "define page", specifying <page> as a superclass to register
-//     a page to be used for a particular URL.
-// (3) Use "define page", specifying <dylan-server-page> as a superclass and define any "tags"
-//     you need with "define tag".  Create a .dsp file that calls the tags with <dsp:my-tag .../>
+// (1) Use "define responder" to register a response function for a
+//     given URL.  The function will be passed a <request> and a <response>.
+//
+// (2) Define a subclass of <page> and implement the method respond-to.
+//     Use "define page", specifying <page> as a superclass to register a
+//     page to be used for a particular URL.
+//
+// (3) Use "define page", specifying <dylan-server-page> as a superclass
+//     and define any "tags" you need with "define tag".  Create a .dsp
+//     file that calls the tags with <dsp:my-tag .../>
 //
 // See .../koala/sources/examples/koala-basics/ for example DSP usage.
 
@@ -786,14 +789,14 @@
 end;
 
 
-// Default method on respond-to-get processes the DSP template and displays
+// Default method on respond-to processes the DSP template and displays
 // the result.  Subclasses can either call this with next-method() or call
 // process-template explicitly.
 //
 
-// Subclasses of <dylan-server-page> can call this in their respond-to-get/post
+// Subclasses of <dylan-server-page> can call this in their respond-to
 // methods if they decide they want the DSP template to be processed.  (They
-// may also skip template processing by calling some other respond-to-get/post
+// may also skip template processing by calling some other respond-to
 // method, throwing an exception, etc.
 //
 define open method process-template (page :: <dylan-server-page>)
@@ -806,7 +809,7 @@
 end;
 
 define method display-template (tmplt :: <dsp-template>, page :: <dylan-server-page>)
-  log-debug("Displaying template %=", tmplt);
+  log-debug("Displaying template %s", as(<string>, tmplt.source));
   let stream = current-response().output-stream;
   for (item in tmplt.entries)
     select (item by instance?)