[Gd-chatter] r11319 - in trunk/libraries/network/koala: sources/examples/code-browser www/code-browser
hannes at gwydiondylan.org
hannes at gwydiondylan.org
Fri May 4 15:16:01 CEST 2007
Author: hannes
Date: Fri May 4 15:15:59 2007
New Revision: 11319
Added:
trunk/libraries/network/koala/sources/examples/code-browser/generic-function.dylan (contents, props changed)
trunk/libraries/network/koala/sources/examples/code-browser/module-variable.dylan (contents, props changed)
trunk/libraries/network/koala/www/code-browser/constant.dsp (contents, props changed)
trunk/libraries/network/koala/www/code-browser/generic-function.dsp (contents, props changed)
trunk/libraries/network/koala/www/code-browser/macro.dsp (contents, props changed)
trunk/libraries/network/koala/www/code-browser/module-variable.dsp (contents, props changed)
Modified:
trunk/libraries/network/koala/sources/examples/code-browser/TODO
trunk/libraries/network/koala/sources/examples/code-browser/code-browser.lid
Log:
Job: minor
some more changes I had here... support for generic functions [this is unfinished], macros, variables and constants
Modified: trunk/libraries/network/koala/sources/examples/code-browser/TODO
==============================================================================
--- trunk/libraries/network/koala/sources/examples/code-browser/TODO (original)
+++ trunk/libraries/network/koala/sources/examples/code-browser/TODO Fri May 4 15:15:59 2007
@@ -13,14 +13,13 @@
*search:
display project-name instead of library name!
display project, library and module where the symbol was found!
+*constant/variable:
+ value is always #f (because we have no application running?!)
implement dsp and tags for
- *constant
*domain
*generic-function
*method
*simple-function
- *macro
- *module-variable
draw nice graphs! (module/library deps|call deps|class graphs|...)
\ No newline at end of file
Modified: trunk/libraries/network/koala/sources/examples/code-browser/code-browser.lid
==============================================================================
--- trunk/libraries/network/koala/sources/examples/code-browser/code-browser.lid (original)
+++ trunk/libraries/network/koala/sources/examples/code-browser/code-browser.lid Fri May 4 15:15:59 2007
@@ -3,5 +3,7 @@
main
search
class
+ module-variable
+ generic-function
library-objects
module
Added: trunk/libraries/network/koala/sources/examples/code-browser/generic-function.dylan
==============================================================================
--- (empty file)
+++ trunk/libraries/network/koala/sources/examples/code-browser/generic-function.dylan Fri May 4 15:15:59 2007
@@ -0,0 +1,82 @@
+module: code-browser
+Synopsis: Brwose Open Dylan environment objects
+Author: Andreas Bogk, Bastian Mueller, Hannes Mehnert
+
+define body tag generic-function-parameters in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define body tag function-parameters in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define tag parameter-name in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define tag parameter-type in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define tag rest in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define body tag keyword-parameters in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define tag parameter-keyword in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define tag parameter-default-value in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define tag all-keys in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define tag next-method in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define body tag values in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define tag rest-value in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
+define tag print-method-signature in code-browser
+ (page :: <code-browser-page>, response :: <response>, do-body :: <function>)
+ ()
+
+end;
+
Added: trunk/libraries/network/koala/sources/examples/code-browser/module-variable.dylan
==============================================================================
--- (empty file)
+++ trunk/libraries/network/koala/sources/examples/code-browser/module-variable.dylan Fri May 4 15:15:59 2007
@@ -0,0 +1,27 @@
+module: code-browser
+Synopsis: Brwose Open Dylan environment objects
+Author: Andreas Bogk, Bastian Mueller, Hannes Mehnert
+
+define tag variable-value in code-browser
+ (page :: <code-browser-page>, response :: <response>)
+ ()
+ let value = variable-value(*project*, *environment-object*);
+ format(output-stream(response), "%=", value);
+end;
+
+define tag variable-type in code-browser
+ (page :: <code-browser-page>, response :: <response>)
+ ()
+ let type = variable-type(*project*, *environment-object*);
+ format(output-stream(response), "<a href=\"%s\">%s</a>",
+ do-canonical-link(type),
+ html-name(type));
+end;
+
+define tag thread-variable in code-browser
+ (page :: <code-browser-page>, response :: <response>)
+ ()
+ if (instance?(*environment-object*, <thread-variable-object>))
+ format(output-stream(response), "thread");
+ end
+end;
Added: trunk/libraries/network/koala/www/code-browser/constant.dsp
==============================================================================
--- (empty file)
+++ trunk/libraries/network/koala/www/code-browser/constant.dsp Fri May 4 15:15:59 2007
@@ -0,0 +1,14 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<%dsp:taglib name="code-browser"/>
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+ <title>Constant: <code-browser:display-name/></title>
+</head>
+<body>
+Name: <code-browser:display-name/><br/>
+Type: <code-browser:variable-type/><br/>
+Value: <code-browser:variable-value/><br/>
+Source code:
+ <pre><code-browser:source/></pre>
+</body>
+</html>
Added: trunk/libraries/network/koala/www/code-browser/generic-function.dsp
==============================================================================
--- (empty file)
+++ trunk/libraries/network/koala/www/code-browser/generic-function.dsp Fri May 4 15:15:59 2007
@@ -0,0 +1,40 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<%dsp:taglib name="code-browser"/>
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+ <title>Generic function: <code-browser:display-name/></title>
+</head>
+<body>
+Generic function: <code-browser:display-name/><br/>
+Required parameters:
+<ul>
+ <code-browser:function-parameters>
+ <li><code-browser:parameter-name/> :: <code-browser:parameter-type/></li>
+ </code-browser:function-parameters>
+</ul>
+Rest: <code-browser:rest><code-browser:parameter-name/> :: <code-browser:parameter-type/></code-browser:rest>
+Keys:
+<ul>
+ <code-browser:keyword-parameters>
+ <li><code-browser:parameter-name/> :: <code-browser:parameter-type/>, Keyword: <code-browser:parameter-keyword/>, default value: <code-browser:parameter-default-value/></li>
+ </code-browser:keyword-parameters>
+</ul>
+All-keys: <code-browser:all-keys/>
+Next: <code-browser:next-method><code-browser:parameter-name/> :: <code-browser:parameter-type/></code-browser:next-method>
+Values:
+<ul>
+ <code-browser:values>
+ <li><code-browser:parameter-name/> :: <code-browser:parameter-type/></li>
+ </code-browser:values>
+</ul>
+Rest-value: <code-browser:rest-value><code-browser:parameter-name/> :: <code-browser:parameter-type/></code-browser:rest-value>
+<hr>
+Methods:
+<ul>
+ <code-browser:generic-function-methods>
+ <li><code-browser:print-method-signature/></li>
+ </code-browser:generic-function-methods>
+</ul>
+ <pre><code-browser:source/></pre>
+</body>
+</html>
Added: trunk/libraries/network/koala/www/code-browser/macro.dsp
==============================================================================
--- (empty file)
+++ trunk/libraries/network/koala/www/code-browser/macro.dsp Fri May 4 15:15:59 2007
@@ -0,0 +1,11 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<%dsp:taglib name="code-browser"/>
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+ <title>Macro: <code-browser:display-name/></title>
+</head>
+<body>
+Source code:
+ <pre><code-browser:source/></pre>
+</body>
+</html>
Added: trunk/libraries/network/koala/www/code-browser/module-variable.dsp
==============================================================================
--- (empty file)
+++ trunk/libraries/network/koala/www/code-browser/module-variable.dsp Fri May 4 15:15:59 2007
@@ -0,0 +1,15 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<%dsp:taglib name="code-browser"/>
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+ <title>Variable: <code-browser:display-name/></title>
+</head>
+<body>
+Thread?: <code-browser:thread-variable/><br/>
+Name: <code-browser:display-name/><br/>
+Type: <code-browser:variable-type/><br/>
+Value: <code-browser:variable-value/><br/>
+Source code:
+ <pre><code-browser:source/></pre>
+</body>
+</html>
More information about the chatter
mailing list