[svn] r5840: nemerle/trunk: ncc/CompilationOptions.n tools/msbuild-task/MSBuildTask.n

[nazgul]

Log:
Update MsBUild task a bit. Split elements of define switch

Author: nazgul
Date: Sun Oct 23 00:35:27 2005
New Revision: 5840

Modified:
   nemerle/trunk/ncc/CompilationOptions.n
   nemerle/trunk/tools/msbuild-task/MSBuildTask.n

Modified: nemerle/trunk/ncc/CompilationOptions.n
==============================================================================
--- nemerle/trunk/ncc/CompilationOptions.n	(original)
+++ nemerle/trunk/ncc/CompilationOptions.n	Sun Oct 23 00:35:27 2005
@@ -305,7 +305,10 @@
         Getopt.CliOption.String (name = "-define",
                        aliases = ["-d", "-def"],
                        help = "Define preprocessor symbol for conditional compilation",
-                       handler = fun (x) { LexerFile.command_defines.Set (x, true) }),
+                       handler = fun (x) { 
+                         foreach (constant in x.Split (array [';']))
+                           LexerFile.command_defines.Set (constant, true) 
+                       }),
 
         Getopt.CliOption.String (name = "-doc", 
                      aliases = [], 

Modified: nemerle/trunk/tools/msbuild-task/MSBuildTask.n
==============================================================================
--- nemerle/trunk/tools/msbuild-task/MSBuildTask.n	(original)
+++ nemerle/trunk/tools/msbuild-task/MSBuildTask.n	Sun Oct 23 00:35:27 2005
@@ -66,14 +66,8 @@
       commandLine.AppendSwitchIfNotNull("/doc:", this.DocumentationFile);
       commandLine.AppendSwitchUnquotedIfNotNull("/define:", base.DefineConstants);
 
-      match (Bag ["EmitDebugInformation"]) {
-        | x is bool when x => 
-          commandLine.AppendSwitch("/debug");
-        | null | _ => ()
-     }
-      
+      Bag ["Optimize"] = null; // prevent standard handling by ManagedCompiler      
       
-      Bag ["EmitDebugInformation"] = null; // prevent standard handling by ManagedCompiler
       base.AddResponseFileCommands(commandLine);
 
       when (base.ResponseFiles != null)