Changeset 5499 for trunk/src

Timestamp:

Apr 14, 2001, 9:22:12 AM (24 years ago)

Author:

bird

Message:

Added option for omitting win32k.sys. (-w)

File:

• trunk/src/win32k/configure.cmd (modified) (3 diffs)

trunk/src/win32k/configure.cmd

@@ -1 @@
-/* $Id: configure.cmd,v 1.17 2001-03-11 16:45:28 bird Exp $
+/* $Id: configure.cmd,v 1.18 2001-04-14 07:22:12 bird Exp $
  *
  * Configuration script.
@@ -12 +12 @@
     call SysLoadFuncs;
 
-    /* check for silent argument */
-    parse arg fNonInteractive
-    if (fNonInteractive <> '') then
-        fInteractive = 0;
-    else
-        fInteractive = 1;
+    /* Argument defaults */
+    fInteractive    = 1;
+    fWin32k         = 1;
+
+    /* parse arguments */
+    parse arg asArgs.1 asArgs.2 asArgs.3 asArgs.4 asArgs.5 asArgs.6 asArgs.7 asArgs.8 asArgs.9
+    asArgs.0 = 0;
+    do i = 1 to 9
+        if (asArgs.i <> '') then
+            asArgs.0 = i;
+    end
+    do i = 1 to asArgs.0
+        if (substr(asArgs.i, 1, 1) = '-' | substr(asArgs.i, 1, 1) = '/')  then
+        do
+            sArg = translate(substr(asArgs.i, 2));
+            ch = substr(sArg, 1, 1);
+            select
+                when (ch = 'N') then
+                    fInteractive = 0;
+                when (ch = 'I') then
+                    fInteractive = 1;
+                when (ch = 'W') then
+                    fWin32k = 0;
+                when (ch = '?' | ch = 'H' | substr(sArg, 1, 2) = '-H') then
+                do
+                    say 'Odin32 Configure.cmd. $Revision: 1.18 $.'
+                    say 'syntax: Configure.cmd [-n] [-w]'
+                    say '  -n   Noninteractive.'
+                    say '  -w   Don''t build Win32k.'
+                    say '  -h   This text.'
+                    exit(1);
+                end
+                otherwise
+                    say 'syntax error ('asArgs.i')';
+                    exit(2);
+            end
+        end
+    end
 
     /* strings */
@@ -149 +181 @@
  *   sPath-sFile ignoring '..\'s in sFile.
  */
-SearchPaths: procedure expose fInteractive;
+SearchPaths: procedure expose fInteractive fWin32k;
+    /*
+     * Check if there is need to waste time searching.
+     * Init local variables.
+     */
+    if (\fWin32k) then
+        return '';
     i = 1;
     sPath = '';