[Gd-chatter] r11255 - trunk/libraries/network/koala/sources/examples/code-browser

[hannes at gwydiondylan.org]

Author: hannes
Date: Tue Apr 10 21:38:53 2007
New Revision: 11255

Modified:
   trunk/libraries/network/koala/sources/examples/code-browser/library.dylan
   trunk/libraries/network/koala/sources/examples/code-browser/main.dylan
Log:
Job: minor
test case for {complex type}...


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	Tue Apr 10 21:38:53 2007
@@ -27,6 +27,7 @@
   use regular-expressions;
   use graphviz-renderer;
 //use environment-deuce;
+  export code-browser;
 end;
 
 
@@ -52,5 +53,7 @@
   use registry-projects;
   use graphviz-renderer;
 //  use environment-deuce;
+
+  export $foo;
 end;
 

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	Tue Apr 10 21:38:53 2007
@@ -271,7 +271,15 @@
     if(application-arguments().size > 0)
       application-arguments()[0]
     end;
-  start-server(config-file: config-file);
+  populate-symbol-table();
+  let foo = $all-symbols["$foo"][0];
+  format-out("var-type %s name-type %s\n",
+             variable-type(foo.symbol-entry-project,
+                           name-value(foo.symbol-entry-project,
+                                      foo.symbol-entry-name)),
+             name-type(foo.symbol-entry-project,
+                       foo.symbol-entry-name));
+  //start-server(config-file: config-file);
 end;
 
 define function collect-projects () => (res :: <collection>)
@@ -316,10 +324,12 @@
 //  main();
 //end;
 
+define variable $foo :: false-or(<integer>) = 23;
+
 define function populate-symbol-table ()
   let projs = collect-projects();
   format-out("Found %d projects: %=\n", projs.size, projs);
-  for (project-name in #("dylan")) //projs)
+  for (project-name in #("dylan", "code-browser")) //projs)
     block()
       format-out("Project %s\n", project-name);
       let project = find-project(project-name);