[Gd-chatter] r11367 - in trunk/libraries/network/koala/sources: examples/code-browser koala
cgay at gwydiondylan.org
cgay at gwydiondylan.org
Mon May 21 06:25:53 CEST 2007
Author: cgay
Date: Mon May 21 06:25:44 2007
New Revision: 11367
Added:
trunk/libraries/network/koala/sources/examples/code-browser/README (contents, props changed)
Modified:
trunk/libraries/network/koala/sources/examples/code-browser/class.dylan
trunk/libraries/network/koala/sources/examples/code-browser/generic-function.dylan
trunk/libraries/network/koala/sources/examples/code-browser/library-objects.dylan
trunk/libraries/network/koala/sources/examples/code-browser/library.dylan
trunk/libraries/network/koala/sources/examples/code-browser/main.dylan
trunk/libraries/network/koala/sources/examples/code-browser/module-variable.dylan
trunk/libraries/network/koala/sources/examples/code-browser/module.dylan
trunk/libraries/network/koala/sources/examples/code-browser/search.dylan
trunk/libraries/network/koala/sources/koala/dsp-taglib.dylan
trunk/libraries/network/koala/sources/koala/dsp.dylan
trunk/libraries/network/koala/sources/koala/pages.dylan
Log:
job: koala
Fixed some warnings and typos in koala and code-browser.
Added a simple readme for code-browser.
Added: trunk/libraries/network/koala/sources/examples/code-browser/README
==============================================================================
--- (empty file)
+++ trunk/libraries/network/koala/sources/examples/code-browser/README Mon May 21 06:25:44 2007
@@ -0,0 +1,12 @@
+* Start the code-browser app with one command-line argument: the koala
+ config file pathname.
+
+* Use a config file that points to
+ libraries/network/koala/www/code-browser as the document root.
+
+* Go to one of these URLs:
+ /symbol/<library-name>
+ /symbol/<library-name>/<module-name>
+ /symbol/<library-name>/<module-name>/<definition-name>
+ /search?search=xxx (seems to have problems)
+
Modified: trunk/libraries/network/koala/sources/examples/code-browser/class.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/examples/code-browser/class.dylan (original)
+++ trunk/libraries/network/koala/sources/examples/code-browser/class.dylan Mon May 21 06:25:44 2007
@@ -1,5 +1,5 @@
module: code-browser
-Synopsis: Brwose Open Dylan environment objects
+Synopsis: Browse Open Dylan environment objects
Author: Andreas Bogk, Bastian Mueller, Hannes Mehnert
define body tag slots in code-browser
Modified: trunk/libraries/network/koala/sources/examples/code-browser/generic-function.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/examples/code-browser/generic-function.dylan (original)
+++ trunk/libraries/network/koala/sources/examples/code-browser/generic-function.dylan Mon May 21 06:25:44 2007
@@ -1,5 +1,5 @@
module: code-browser
-Synopsis: Brwose Open Dylan environment objects
+Synopsis: Browse Open Dylan environment objects
Author: Andreas Bogk, Bastian Mueller, Hannes Mehnert
define body tag generic-function-parameters in code-browser
@@ -14,19 +14,19 @@
end;
-define tag parameter-name in code-browser
+define body tag parameter-name in code-browser
(page :: <code-browser-page>, response :: <response>, do-body :: <function>)
()
end;
-define tag parameter-type in code-browser
+define body tag parameter-type in code-browser
(page :: <code-browser-page>, response :: <response>, do-body :: <function>)
()
end;
-define tag rest in code-browser
+define body tag rest in code-browser
(page :: <code-browser-page>, response :: <response>, do-body :: <function>)
()
@@ -38,25 +38,25 @@
end;
-define tag parameter-keyword in code-browser
+define body tag parameter-keyword in code-browser
(page :: <code-browser-page>, response :: <response>, do-body :: <function>)
()
end;
-define tag parameter-default-value in code-browser
+define body tag parameter-default-value in code-browser
(page :: <code-browser-page>, response :: <response>, do-body :: <function>)
()
end;
-define tag all-keys in code-browser
+define body tag all-keys in code-browser
(page :: <code-browser-page>, response :: <response>, do-body :: <function>)
()
end;
-define tag next-method in code-browser
+define body tag next-method in code-browser
(page :: <code-browser-page>, response :: <response>, do-body :: <function>)
()
@@ -68,13 +68,13 @@
end;
-define tag rest-value in code-browser
+define body tag rest-value in code-browser
(page :: <code-browser-page>, response :: <response>, do-body :: <function>)
()
end;
-define tag print-method-signature in code-browser
+define body tag print-method-signature in code-browser
(page :: <code-browser-page>, response :: <response>, do-body :: <function>)
()
Modified: trunk/libraries/network/koala/sources/examples/code-browser/library-objects.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/examples/code-browser/library-objects.dylan (original)
+++ trunk/libraries/network/koala/sources/examples/code-browser/library-objects.dylan Mon May 21 06:25:44 2007
@@ -1,5 +1,5 @@
module: code-browser
-Synopsis: Brwose Open Dylan environment objects
+Synopsis: Browse Open Dylan environment objects
Author: Andreas Bogk, Bastian Mueller, Hannes Mehnert
define body tag modules in code-browser
Modified: trunk/libraries/network/koala/sources/examples/code-browser/library.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/examples/code-browser/library.dylan (original)
+++ trunk/libraries/network/koala/sources/examples/code-browser/library.dylan Mon May 21 06:25:44 2007
@@ -1,5 +1,5 @@
Module: dylan-user
-Synopsis: Brwose FD environment objects
+Synopsis: Browse FD environment objects
Author: Andreas Bogk
define library code-browser
Modified: trunk/libraries/network/koala/sources/examples/code-browser/main.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/examples/code-browser/main.dylan (original)
+++ trunk/libraries/network/koala/sources/examples/code-browser/main.dylan Mon May 21 06:25:44 2007
@@ -1,5 +1,5 @@
Module: code-browser
-Synopsis: Brwose Open Dylan environment objects
+Synopsis: Browse Open Dylan environment objects
Author: Andreas Bogk, Bastian Mueller, Hannes Mehnert
define thread variable *project* = #f;
@@ -279,7 +279,7 @@
foo.symbol-entry-name)),
name-type(foo.symbol-entry-project,
foo.symbol-entry-name));
- //start-server(config-file: config-file);
+ start-server(config-file: config-file);
end;
define function collect-projects () => (res :: <collection>)
Modified: trunk/libraries/network/koala/sources/examples/code-browser/module-variable.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/examples/code-browser/module-variable.dylan (original)
+++ trunk/libraries/network/koala/sources/examples/code-browser/module-variable.dylan Mon May 21 06:25:44 2007
@@ -1,5 +1,5 @@
module: code-browser
-Synopsis: Brwose Open Dylan environment objects
+Synopsis: Browse Open Dylan environment objects
Author: Andreas Bogk, Bastian Mueller, Hannes Mehnert
define tag variable-value in code-browser
Modified: trunk/libraries/network/koala/sources/examples/code-browser/module.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/examples/code-browser/module.dylan (original)
+++ trunk/libraries/network/koala/sources/examples/code-browser/module.dylan Mon May 21 06:25:44 2007
@@ -1,5 +1,5 @@
module: code-browser
-Synopsis: Brwose Open Dylan environment objects
+Synopsis: Browse Open Dylan environment objects
Author: Andreas Bogk, Bastian Mueller, Hannes Mehnert
define body tag used-modules in code-browser
Modified: trunk/libraries/network/koala/sources/examples/code-browser/search.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/examples/code-browser/search.dylan (original)
+++ trunk/libraries/network/koala/sources/examples/code-browser/search.dylan Mon May 21 06:25:44 2007
@@ -1,5 +1,5 @@
module: code-browser
-Synopsis: Brwose Open Dylan environment objects
+Synopsis: Browse Open Dylan environment objects
Author: Andreas Bogk, Bastian Mueller, Hannes Mehnert
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 Mon May 21 06:25:44 2007
@@ -164,13 +164,15 @@
end;
end;
+// ---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>, response :: <response>)
(name :: <string>)
- let value = get-query-value(name);
- if (value)
- format(output-stream(response), "%s", value);
- end if;
+ let qv = get-query-value(name);
+ qv & write(output-stream(response), qv);
end;
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 Mon May 21 06:25:44 2007
@@ -124,16 +124,6 @@
respond-to-head(page, request, response);
end;
-// convenience
-
-define method post (page :: <page>)
- respond-to(#"post", page, current-request(), current-response());
-end;
-
-define method get (page :: <page>)
- respond-to(#"get", page, current-request(), current-response());
-end;
-
// Applications should call this to register a page for a particular URL.
define function register-page
(url :: <string>, page :: <page>, #key replace?, prefix?)
Modified: trunk/libraries/network/koala/sources/koala/pages.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/koala/pages.dylan (original)
+++ trunk/libraries/network/koala/sources/koala/pages.dylan Mon May 21 06:25:44 2007
@@ -226,14 +226,3 @@
format-string: "Invalid form field."));
end;
-// ---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 display the input tag in a different background color.
-//
-define tag show-query-value in dsp
- (page :: <dylan-server-page>, response :: <response>)
- (name :: <string>)
- let qv = get-query-value(name);
- qv & write(output-stream(response), qv);
-end;
-
More information about the chatter
mailing list