[Gd-chatter] r11466 - trunk/fundev/sources/environment/console

[housel at gwydiondylan.org]

Author: housel
Date: Sat Sep 29 20:41:50 2007
New Revision: 11466

Modified:
   trunk/fundev/sources/environment/console/command-line.dylan
   trunk/fundev/sources/environment/console/compiler-command-line.dylan
Log:
Bug: 7363
Merge r11465 from branches/opendylan-1-0-bignum:
Allow compiler debugging ouptut to be requested from the console
environment command line.

* sources/environment/console/command-line.dylan
  (<basic-main-command>): Un-comment flag slots definitions for %harp?,
  %assemble?, and %dfm?.
  (execute-main-command): Use the %harp?, %assemble?, and %dfm? flags
  to construct a sequence to pass to the output: constructor keyword
  for <build-project-command>.

* sources/environment/console/compiler-command-line.dylan
  (internal-main): Define -HARP, -ASSEMBLE, and -DFM command-line
  options.


Modified: trunk/fundev/sources/environment/console/command-line.dylan
==============================================================================
--- trunk/fundev/sources/environment/console/command-line.dylan	(original)
+++ trunk/fundev/sources/environment/console/command-line.dylan	Sat Sep 29 20:41:50 2007
@@ -60,13 +60,13 @@
     init-keyword: debug-info:;
   constant slot %messages :: false-or(<symbol>) = #f,
     init-keyword: messages:;
-/*---*** fill this in later.
   constant slot %harp?          :: <boolean> = #f,
     init-keyword: harp?:;
   constant slot %assemble?                   = #f,
     init-keyword: assemble?:;
   constant slot %dfm?           :: <boolean> = #f,
     init-keyword: dfm?:;
+/*---*** fill this in later.
   constant slot %exports?       :: <boolean> = #f,
     init-keyword: exports?:;
   let gc? = #f;
@@ -101,7 +101,14 @@
 	save?:       command.%save?,
 	link?:       #f,
 	release?:    command.%release?,
-	subprojects: command.%subprojects? & ~command.%not-recursive?)
+	subprojects: command.%subprojects? & ~command.%not-recursive?,
+        output:      begin
+                       let output = make(<stretchy-object-vector>);
+                       if (command.%assemble?) add!(output, #"assembler") end;
+                       if (command.%dfm?) add!(output, #"dfm") end;
+                       if (command.%harp?) add!(output, #"harp") end;
+                       output
+                     end)
   end;
   if (build? | command.%link?)
     let target

Modified: trunk/fundev/sources/environment/console/compiler-command-line.dylan
==============================================================================
--- trunk/fundev/sources/environment/console/compiler-command-line.dylan	(original)
+++ trunk/fundev/sources/environment/console/compiler-command-line.dylan	Sat Sep 29 20:41:50 2007
@@ -73,6 +73,9 @@
   keyword system-root   :: <directory-locator> = "system area root";
   flag unify            = "combine the libraries into a single executable";
   flag profile-commands = "profile the execution of each command";
+  flag harp             = "generate HARP output";
+  flag assemble         = "generate assembly-language output";
+  flag dfm              = "generate Dylan Flow Machine output";
 
   // Backwards-compatibility options for pentium-dw users
   flag not-recursive    = "don't build subprojects as well";