Changeset 989

Timestamp:

Aug 16, 2011, 3:28:04 PM (14 years ago)

Author:

Dmitry A. Kuminov

Message:

OS/2: configure.cmd: Support build type options.

This includes -release, -debug, -debug-and-release and
-developer-build. Also, usual help options are recognized
and the help message is printed when requested.

File:

• trunk/configure.cmd (modified) (5 diffs)

trunk/configure.cmd

@@ -425 +425 @@
     --------------------------------------------------------------------------*/
 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
     if (aArgs \= "") then do
         call TokenizeString aArgs, 'G.Args'
@@ -431 +457 @@
             a = G.Args.i
             if (StartsWith(a, '-')) then do
-                a = strip(a, 'L', '-')
                 opt = ''
-                typ = 'P' /* path */
+                typ = '
                 select
-                    when (a == "prefix") then
-                        opt = 'G.QT_INSTALL_PREFIX'
-                    when (a == "datadir") then
-                        opt = 'G.QT_INSTALL_DATA'
-                    when (a == "libdir") then
-                        opt = 'G.QT_INSTALL_LIBS'
-                    when (a == "headerdir") then
-                        opt = 'G.QT_INSTALL_HEADERS'
-                    when (a == "bindir") then
-                        opt = 'G.QT_INSTALL_BINS'
-                    when (a == "plugindir") then
-                        opt = 'G.QT_INSTALL_PLUGINS'
-                    when (a == "importdir") then
-                        opt = 'G.QT_INSTALL_IMPORTS'
-                    when (a == "demosdir") then
-                        opt = 'G.QT_INSTALL_DEMOS'
-                    when (a == "examplesdir") then
-                        opt = 'G.QT_INSTALL_EXAMPLES'
-                    when (a == "docdir") then
-                        opt = 'G.QT_INSTALL_DOCS'
-                    when (a == "translationdir") then
-                        opt = 'G.QT_INSTALL_TRANSLATIONS'
-                    when (a == "sysconfdir" | a == "settingsdir") then
-                        opt = 'G.QT_INSTALL_SETTINGS'
-                    when (a == "sysconffile") then
-                        opt = 'G.QT_INSTALL_SYSCONFFILE'
-                    otherwise typ = ''
+                    when (a == "-h" | a == "-help" | a == "--help") then
+                        opt = 'F G.OPT_HELP'
+
+                    when (a == "-release") then
+                        opt = 'F~ G.CFG_DEBUG'
+                    when (a == "-debug") then
+                        opt = 'F G.CFG_DEBUG'
+                    when (a == "-debug-and-release") then
+                        opt = 'F G.CFG_DEBUG_RELEASE'
+                    when (a == "-developer-build") then
+                        opt = 'F G.CFG_DEV'
+
+                    when (a == "-prefix") then
+                        opt = 'P G.QT_INSTALL_PREFIX'
+                    when (a == "-bindir") then
+                        opt = 'P G.QT_INSTALL_BINS'
+                    when (a == "-libdir") then
+                        opt = 'P G.QT_INSTALL_LIBS'
+                    when (a == "-docdir") then
+                        opt = 'P G.QT_INSTALL_DOCS'
+                    when (a == "-headerdir") then
+                        opt = 'P G.QT_INSTALL_HEADERS'
+                    when (a == "-plugindir") then
+                        opt = 'P G.QT_INSTALL_PLUGINS'
+                    when (a == "-importdir") then
+                        opt = 'P G.QT_INSTALL_IMPORTS'
+                    when (a == "-datadir") then
+                        opt = 'P G.QT_INSTALL_DATA'
+                    when (a == "-translationdir") then
+                        opt = 'P G.QT_INSTALL_TRANSLATIONS'
+                    when (a == "-sysconfdir" | a == "settingsdir") then
+                        opt = 'P G.QT_INSTALL_SETTINGS'
+                    when (a == "-examplesdir") then
+                        opt = 'P G.QT_INSTALL_EXAMPLES'
+                    when (a == "-demosdir") then
+                        opt = 'P G.QT_INSTALL_DEMOS'
+                    when (a == "-sysconffile") then
+                        opt = 'P G.QT_INSTALL_SYSCONFFILE'
+
+                    otherwise nop
                 end
-                if (typ == '') then do
+                parse var opt typ opt
+                if (opt == '' | typ == '') then do
                     call SayErr "ERROR: Invalid option '"G.Args.i"'."
                     call Done 1
                 end
+
+
+
+
+
                 if (typ == 'P') then do
+
                     if (i == G.Args.0) then do
-                        call SayErr "ERROR: Option '"G.Args.i"' needs a path value."
+                        call SayErr "ERROR: Option '"G.Args.i"' needs a path."
                         call Done 1
                     end
@@ -626 +671 @@
             call CopyDir G.RelPath"\mkspecs\modules", G.OutPath"\mkspecs\modules"
             call DeleteDir G.OutPath"\mkspecs\default"
-
-/*@todo
-            # symlink the doc directory
-            rm -rf "$outpath/doc"
-            ln -s "$relpath/doc" "$outpath/doc"
-
-            # make sure q3porting.xml can be found
-            mkdir -p "$outpath/tools/porting/src"
-            rm -f "$outpath/tools/porting/src/q3porting.xml"
-            ln -s "$relpath/tools/porting/src/q3porting.xml" "$outpath/tools/porting/src"
-*/
         end
 
@@ -873 +907 @@
     --------------------------------------------------------------------------*/
 
-    /* next, emit a usage message if something failed. */
+    /* next, emit a usage message if ed. */
     if (G.OPT_HELP == "yes") then do
-        /* @todo */
-        call SayLog "TODO: Help message"
+        signal ShowHelp
     end
 
@@ -2550 +2583 @@
 SayVerbose: procedure expose (Globals)
     parse arg str, noeol
-    if (G.Verbose) then call SayLog str, noeol
+    if (G.Verbose) then call SayLog str, noeol
     return