2004/08/19 Rafael Teixeira <rafaelteixeirabr@hotmail.com>

	* driver.cs : Some cleanup, also renamed checked option as it was removeintchecks in disguise

svn path=/trunk/mcs/; revision=32530

diff --git a/mcs/mbas/ChangeLog b/mcs/mbas/ChangeLog
index 59972ea040b45f2ad59834c5cc0366c8a9dcd271..ca5f7c6feff1dcbf434808e21abfa39c3c8e28f2 100644 (file)
--- a/mcs/mbas/ChangeLog
+++ b/mcs/mbas/ChangeLog
@@ -1,3 +1,6 @@
+2004/08/19  Rafael Teixeira <rafaelteixeirabr@hotmail.com>\r
+       * driver.cs : Some cleanup, also renamed checked option as it was removeintchecks in disguise
+
 2004-08-18 Anirban Bhattacharjee <banirban@novell.com>
        * mb-parser.jay: MyBase support in Handles clause e.g. 
                                Sub EH() Handles MyBase.E

diff --git a/mcs/mbas/driver.cs b/mcs/mbas/driver.cs
index 0d6546372cc25513758e3e0c531d8e68db85e1c3..eb11789251a1dc5c06cd59abdecfa67992f8a1bd 100644 (file)
--- a/mcs/mbas/driver.cs
+++ b/mcs/mbas/driver.cs
@@ -82,9 +82,6 @@ namespace Mono.Languages
                [Option("[Mono] Allows unsafe code", "unsafe")]
                public bool AllowUnsafeCode { set { RootContext.Unsafe = value; } }
 
-               [Option("[Mono] Set default context to checked", "checked")]
-               public bool Checked { set { RootContext.Checked = value; } }
-
                [Option("[Mono] Debugger {arguments}", "debug-args")]
                public WhatToDoNext SetDebugArgs(string args)
                {
@@ -188,8 +185,9 @@ namespace Mono.Languages
 //             [Option("[NOT IMPLEMENTED YET]Enable optimizations", "optimize")]
                public bool optimize = false;
 
-//             [Option("[NOT IMPLEMENTED YET]Remove integer checks. Default off.")]
-               public bool removeintchecks = false;
+               // TODO: handle VB.NET [+|-] boolean syntax
+               [Option("Remove integer checks. Default off.")]
+               public bool removeintchecks { set { RootContext.Checked = !value; } }
 
                // TODO: handle VB.NET [+|-] boolean syntax
                [Option("Emit debugging information", 'g', "debug")]
@@ -310,8 +308,6 @@ namespace Mono.Languages
                [Option("[IGNORED]Emit compiler output in UTF8 character encoding")]
                public bool utf8output;
 
-               // TODO : response file support
-               
                ArrayList defines = new ArrayList();
                ArrayList references = new ArrayList();
                ArrayList soft_references = new ArrayList();
@@ -537,25 +533,6 @@ namespace Mono.Languages
                        Mono.MonoBASIC.Parser.ImportsList.Add("Microsoft.VisualBasic");
                }
 
-
-               //
-               // Returns the directory where the system assemblies are installed
-               //
-               string GetSystemDir ()
-               {
-                       Assembly [] assemblies = AppDomain.CurrentDomain.GetAssemblies ();
-
-                       foreach (Assembly a in assemblies){
-                               string codebase = a.CodeBase;
-                               if (codebase.EndsWith ("corlib.dll")){
-                                       return codebase.Substring (0, codebase.LastIndexOf ("/"));
-                               }
-                       }
-
-                       Report.Error (-15, "Can not compute my system path");
-                       return "";
-               }
-
                //
                // Given a path specification, splits the path from the file/pattern
                //
@@ -1011,6 +988,9 @@ namespace Mono.Languages
                        
                        SetupDefaultImports();
 
+                       // Some defaults
+                       RootContext.Checked = true;
+
                        ProcessArgs(args);
                        
                        if (first_source == null)