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

[cgay at gwydiondylan.org]

Author: cgay
Date: Tue Feb 20 06:02:09 2007
New Revision: 11192

Modified:
   trunk/libraries/network/koala/sources/koala/dsp.dylan
   trunk/libraries/network/koala/sources/koala/server.dylan
Log:
job: koala
Fix some whitespace problems: too-long lines, arglist indentation, tabs.

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	Tue Feb 20 06:02:09 2007
@@ -101,21 +101,26 @@
   end;
 end process-page;
 
-define open generic respond-to (request-method :: <symbol>, page :: <page>, request :: <request>, response :: <response>);
+define open generic respond-to
+    (request-method :: <symbol>, page :: <page>, request :: <request>, response :: <response>);
 
-define method respond-to (request-method :: <symbol>, page :: <page>, request :: <request>, response :: <response>)
+define method respond-to
+    (request-method :: <symbol>, page :: <page>, request :: <request>, response :: <response>)
   unsupported-request-method-error()
 end;
 
-define method respond-to (request-method == #"GET", page :: <page>, request :: <request>, response :: <response>)
+define method respond-to
+    (request-method == #"GET", page :: <page>, request :: <request>, response :: <response>)
   respond-to-get(page, request, response);
 end;
 
-define method respond-to (request-method == #"POST", page :: <page>, request :: <request>, response :: <response>)
+define method respond-to
+    (request-method == #"POST", page :: <page>, request :: <request>, response :: <response>)
   respond-to-post(page, request, response);                                                          
 end;
 
-define method respond-to (request-method == #"HEAD", page :: <page>, request :: <request>, response :: <response>)
+define method respond-to
+    (request-method == #"HEAD", page :: <page>, request :: <request>, response :: <response>)
   respond-to-head(page, request, response);                                                          
 end;
 
@@ -817,7 +822,7 @@
 // process-template explicitly.
 //
 define method respond-to-get
- (page :: <dylan-server-page>, request :: <request>, response :: <response>)
+    (page :: <dylan-server-page>, request :: <request>, response :: <response>)
   process-template(page, request, response);
 end;
 

Modified: trunk/libraries/network/koala/sources/koala/server.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/server.dylan	(original)
+++ trunk/libraries/network/koala/sources/koala/server.dylan	Tue Feb 20 06:02:09 2007
@@ -439,7 +439,7 @@
                    unless (listener.listener-exit-requested?)
                      log-info("Ready for service on port %d",
                               listener.listener-port);
-	             // use "element-type: <byte>" here?
+                     // use "element-type: <byte>" here?
                      accept(listener.listener-socket); // blocks
                    end;
                  exception (c :: <socket-condition>)
@@ -644,7 +644,7 @@
     invalid-request-line-error();
   else
     request.request-method
-    := as(<symbol>, copy-sequence(buffer, start: 0, end: method-end));
+      := as(<symbol>, copy-sequence(buffer, start: 0, end: method-end));
     let bpos = skip-whitespace(buffer, method-end, eol);
     let epos = whitespace-position(buffer, bpos, eol) | eol;
     when (epos > bpos)
@@ -702,8 +702,10 @@
     let n = kludge-read-into!(request-socket(request), content-length, buffer);
     assert(n == content-length, "Unexpected incomplete read");
     request-content(request)
-      := process-request-content(as(<symbol>, first(split(get-header(request, "content-type"), separator: ";"))),
-        request, buffer, content-length);
+      := process-request-content(as(<symbol>,
+                                    first(split(get-header(request, "content-type"),
+                                                separator: ";"))),
+                                 request, buffer, content-length);
   end
 end read-request-content;
 
@@ -737,19 +739,24 @@
 end;
 
 define open generic process-request-content
- (content-type :: <symbol>, request :: <request>, buffer :: <byte-string>, content-length :: <integer>)
-  => (content :: <string>);
+    (content-type :: <symbol>,
+     request :: <request>,
+     buffer :: <byte-string>,
+     content-length :: <integer>)
+ => (content :: <string>);
 
 define method process-request-content
- (content-type :: <symbol>, request :: <request>,
-  buffer :: <byte-string>, content-length :: <integer>)
+    (content-type :: <symbol>,
+     request :: <request>,
+     buffer :: <byte-string>,
+     content-length :: <integer>)
  => (content :: <string>)
   unsupported-media-type-error()
 end;
 
 define method process-request-content
- (content-type == #"application/x-www-form-urlencoded", request :: <request>,
-  buffer :: <byte-string>, content-length :: <integer>)
+    (content-type == #"application/x-www-form-urlencoded", request :: <request>,
+     buffer :: <byte-string>, content-length :: <integer>)
  => (content :: <string>)
   log-debug("Form query string = %=",
             copy-sequence(buffer, end: content-length));
@@ -769,15 +776,17 @@
 end;
 
 define method process-request-content
- (content-type :: one-of(#"text/xml", #"text/html", #"text/plain"), request :: <request>,
-  buffer :: <byte-string>, content-length :: <integer>)
+    (content-type :: one-of(#"text/xml", #"text/html", #"text/plain"),
+     request :: <request>,
+     buffer :: <byte-string>,
+     content-length :: <integer>)
  => (content :: <string>)
   request-content(request) := buffer
 end;
 
 define method process-request-content
- (content-type == #"multipart/form-data", request :: <request>,
-  buffer :: <byte-string>, content-length :: <integer>)
+    (content-type == #"multipart/form-data", request :: <request>,
+     buffer :: <byte-string>, content-length :: <integer>)
  => (content :: <string>)
   let header-content-type = split(get-header(request, "content-type"), separator: ";");
   let boundary = split(second(header-content-type), separator: "=");