Changeset 14

Timestamp:

May 22, 2009, 1:53:06 AM (16 years ago)

Author:

Dmitry A. Kuminov

Message:

configure.cmd: Generate qconfig.cpp; generate Makefile and qconfig.h for qmake.

File:

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

trunk/configure.cmd

@@ -28 +28 @@
 G.ScreenWidth   = -1
 G.ScreenHeight  = -1
-
+G.Verbose       = 1
 
 /* initialize global variables */
@@ -46 +46 @@
 G.EditionString = "Open Source"
 G.QT_EDITION    = "QT_EDITION_OPENSOURCE"
-
-/* So far, GCC only */
-G.PLATFORM      = "os2-g++"
 
 
@@ -101 +98 @@
     /* the directory of this script is the "source tree */
     G.RelPath = G.ScriptDir
+
+
 
     /* reset the vars file */
@@ -116 +115 @@
     /* QTDIR may be set and point to an old or system-wide Qt installation */
     call UnsetEnv "QTDIR"
+
+
+
 
     /* initalize internal variables */
@@ -269 +271 @@
     G.QT_INSTALL_DATA = ""
     G.QT_INSTALL_TRANSLATIONS = ""
-    G.QT_INSTALL_SETTINGS = ""
     G.QT_INSTALL_EXAMPLES = ""
     G.QT_INSTALL_DEMOS = ""
@@ -411 +412 @@
     --------------------------------------------------------------------------*/
 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
     signal Nonsense
     return
@@ -439 +720 @@
  utility functions
 ------------------------------------------------------------------------------*/
+
+
+
+
+
 
 CompareFileToVar: procedure expose (Globals)
@@ -474 +760 @@
     return
 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 MakeDir: procedure expose (Globals)
+
     parse arg path
     rc = SysMkDir(path)
@@ -503 +808 @@
     if (noeol) then call charout, '>>> 'str
     else say '>>> 'str
+
+
+
+
+
     return
 
@@ -527 +837 @@
     parse value SysCurPos() with row col
     col = col + delta
-    row = row + (col % G.!ScreenWidth)
+    row = row + (col % G.ScreenWidth)
     if (col < 0) then
         row = row - 1
-    col = col // G.!ScreenWidth
+    col = col // G.ScreenWidth
     if (col < 0) then
-        col = col + G.!ScreenWidth
+        col = col + G.ScreenWidth
     call SysCurPos row, col
     return
@@ -572 +882 @@
 
     parse arg prompt, default, mode
-    call SaySay prompt
+
+    if (length(prompt) > 0) then
+        call SaySay prompt
     say
 
@@ -703 +1015 @@
 
 /**
- *  Shows a Yes/No choice.
- *
- *  @param  prompt  prompt to show (specify '' to suppress the prompt)
- *  @param  default default choice:
- *      ''          - no default choice
- *      'Y' or 1    - default is yes
- *      other       - default is no
- *  @return
- *      1 if Yes is selected, otherwise 0
- */
-GetYesNo: procedure expose (Globals)
-    parse arg prompt, default
-    default = translate(default)
-    if (default == 1) then default = 'Y'
-    else if (default \== '' & default \== 'Y') then default = 'N'
-    if (prompt \= '') then call SaySay prompt
-    say
-    call SayPrompt '[YN] ', 1
-    yn = ReadChoice('YN',, default, 'I')
-    say
-    say
-    return (yn == 'Y')
-
-/**
- *  Shows a menu of choices and returns the menu item number selected by the
- *  user. Letters in the mode argument have the following meanings:
- *
- *      E -- allow to press Enter w/o a choice (will return '')
- *      C -- ESC can be pressed to cancel selection (will return -1)
- *
- *  @param  prompt  prompt to display
- *  @param  stem    stem containing a list of choices
- *  @param  default default choice
- *  @param  mode    input mode string consisting of letters as described above
- *  @return
- *      selected menu item number
- */
-GetChoice: procedure expose (Globals)
-    parse arg prompt, stem, default, mode
-    mode = translate(mode)
-    allowEnter = pos('E', mode) > 0
-    allowESC = pos('C', mode) > 0
-    count = value(stem'.0')
-    if (count == 0) then return
-    call SaySay prompt
-    say
-    first = 1
-    do forever
-        extChoices = ''
-        last = first + 9
-        if (last > count) then last = count
-        choices = substr('1234567890', 1, last - first + 1)
-        prompt = choices
-        if (allowEnter) then prompt = prompt'/Enter'
-        if (allowESC) then do
-            prompt = prompt'/Esc'
-            choices = choices||'1B'x
-        end
-        if (first > 1) then do
-            extChoices = extChoices||'49'x
-            prompt = prompt'/PgUp'
-            call SaySay '^^'
-        end
-        do i = first to last
-            ii = i - first + 1
-            if (ii == 10) then ii = 0
-            call SaySay ii')' value(stem'.'i)
-        end
-        if (last < count) then do
-            extChoices = extChoices||'51'x
-            prompt = prompt'/PgDn'
-            call SaySay 'vv'
-        end
-        say
-        def = ''
-        if (default \== '') then do
-            def = default - first + 1
-            if (def < 1 | def > 10) then def = ''
-            else if (def == 10) then def = 0
-        end
-        call SayPrompt '['prompt'] ', 1
-        n = ReadChoice(choices, extChoices, def, mode)
-        say
-        say
-        if (n == '1B'x) then do
-            return -1
-        end
-        if (n == '0E49'x) then do
-            first = first - 10
-            iterate
-        end
-        if (n == '0E51'x) then do
-            first = first + 10
-            iterate
-        end
-        if (n \== '') then do
-            if (n == 0) then n = 10
-            n = n + first - 1
-        end
-        leave
-    end
-    return n
-
-/**
- *  Reads a one-key choice from the keyboard.
- *  user. Letters in the mode argument have the following meanings:
- *
- *      E -- allow to press Enter w/o a choice (will return '')
- *      C -- ESC can be pressed to cancel selection (will return '1B'x)
- *      I -- ignore case of pressed letters
- *
- *  @param  choices     string of allowed one-key choices
- *  @param  extChoices  string of allowed one-extended-key choices
- *  @param  default     default choice (can be a key from choices)
- *  @param  mode        input mode string consisting of letters as described above
- *  @return
- *      entered key (prefixed with 'E0'x if from extChoices)
- */
-ReadChoice: procedure expose (Globals)
-    parse arg choices, extChoices, default, mode
-    mode = translate(mode)
-    ignoreCase = pos('I', mode) > 0
-    allowEnter = pos('E', mode) > 0
-    allowCancel = pos('C', mode) > 0
-    choice = default
-    call charout, choice
-    if (ignoreCase) then choice = translate(choice)
-    extended = 0
-    do forever
-        key = SysGetKey('NOECHO')
-        if (key == 'E0'x) then do
-            extended = 1
-            iterate
-        end
-        if (\extended & ignoreCase) then key = translate(key)
-        select
-            when (allowCancel & \extended & key == '1B'x) then do
-                choice = key
-                leave
-            end
-            when (choice == '' & \extended & verify(key, choices) == 0) then do
-                choice = key
-            end
-            when (extended & verify(key, extChoices) == 0) then do
-                choice = '0E'x||key
-                leave
-            end
-            when (\extended & key == '08'x & choice \== '') then do
-                /* backspace pressed */
-                call charout, key' '
-                choice = ''
-            end
-            when (\extended & key == '0D'x & (choice \== '' | allowEnter)) then do
-                leave
-            end
-            otherwise do
-                extended = 0
-                iterate
-            end
-        end
-        call charout, key
-        extended = 0
-    end
-    return choice
-
-/**
- *  Shows a menu to select a path from the list of entries.
- *
- *  A special menu entry is automatically added as the last choice that allows
- *  to enter a new location to search for valid paths (this operation will
- *  completely overwrite all the menu entries passed to this function in the
- *  stem).
- *
- *  Letters in the mode argument have the following meanings:
- *
- *      C -- ESC can be pressed to cancel selection (will return '')
- *
- *  @param  stem
- *      stem containing entries to choose from (must be prefixed by a name from
- *      Globals), stem'.!choice' must contain a default choice (or '')
- *  @param  prompt
- *      prompt to display
- *  @param  searchPattern
- *      pattern to search for when selecting suitable paths in the new location
- *      (can include the directory prefix, but wildcards are supported in the
- *      filename part only)
- *  @param  checkPath
- *      name of the funciton to check the path. The first argument is the path
- *      to check. If the second argument is 0, it means a preliminary check (i.e.
- *      the path is the result of the SysFileThree procedure); checkPath must
- *      return a validated (and probably modified) path on success or '' if the
- *       path is invalid. If the second argument is 1, it's a final check
- *      (path is what returned by the preliminary check call); checkPath must
- *      return either 1 on success or 0 on failure. The final check is done
- *      right before calling checkVer, so it can set some global variables in
- *      order to pass necessary data to checkVer and to the global level for
- *      further configuration.
- *  @param  checkVer
- *      name of the funciton to check the version. The argument is a path to
- *      check the version for (as returned by checkPath after the preliminary
- *      check call).
- *  @param  errPath
- *      error message to display when a path check fails (%1 will be replaced
- *      with the failed path name)
- *  @param  mode
- *      input mode string consisting of letters as described above
- *  @return
- *      the selected path or '' if the selection was canceled.
- *      If a non-empty path is returned, stem'.!choice' will contain
- *      the selected item number, otherwise it will be empty.
- */
-MenuSelectPath: procedure expose (Globals)
-
-    parse arg stem, prompt, searchPattern, checkPath, checkVer, errPath, mode
-
-    mode = translate(mode)
-    if (pos('C', mode) > 0) then mode = 'C'
-    else mode = ''
-
-    if (symbol('Static.!MenuSelectPath.!Recent') \= 'VAR') then
-        Static.!MenuSelectPath.!Recent = ''
-
-    do forever
-
-        n = value(stem'.0') + 1
-        call SysStemInsert stem, n, '[type a location...]'
-        if (n == 1) then default = 1
-        else default = value(stem'.!choice')
-
-        choice = GetChoice(prompt, stem, default, mode)
-        call SysStemDelete stem, n
-
-        if (choice == -1) then return '' /* canceled */
-
-        if (choice == n) then do
-            call value stem'.!choice', ''
-            path = InputDir('Enter a location where to start searching from ',
-                            '(or Esc to cancel):',,
-                            Static.!MenuSelectPath.!Recent)
-            if (path == '') then iterate /* canceled */
-            Static.!MenuSelectPath.!Recent = path
-            call SaySay 'Please wait...'
-            say
-            patternPath = translate(filespec('D', searchPattern) || filespec('P', searchPattern))
-            patternName = filespec('N', searchPattern)
-            call SysFileTree FixDirNoSlash(path)'\'patternName, 'found', 'FSO'
-            found2.0 = 0
-            if (found.0 > 0) then do
-                do i = 1 to found.0
-                    dir = filespec('D', found.i) || filespec('P', found.i)
-                    /* check that the found path ends with the pattern path */
-                    if (translate(right(dir, length(patternPath))) \== patternPath) then
-                        iterate
-                    dir = left(dir, length(dir) - length(patternPath))
-                    /* check path validity  */
-                    interpret 'dir = 'checkPath'("'dir'")'
-                    if (dir \== '') then
-                        call SysStemInsert 'found2', 1, FixDir(dir)
-                end
-            end
-            if (found2.0 > 0) then do
-                call SysStemCopy 'found2', stem
-                /* SysStemCopy is bogus and doesn't copy the count field... */
-                call value stem'.0', found2.0
-                call value stem'.!choice', ''
-                call value stem'.!changed', 1
-                iterate
-            end
-        end
-        else do
-            path = value(stem'.'choice)
-            /* check path validity and tell the version check will be done next */
-            interpret 'ok = 'checkPath'("'path'", 1)'
-            if (ok) then do
-                if (value(stem'.!choice') \== choice) then
-                    call value stem'.!changed', 1
-                interpret 'ok = 'checkVer'("'path'")'
-                if (ok) then do
-                    call value stem'.!choice', choice
-                    return path
-                end
-                call value stem'.!choice', ''
-                iterate
-            end
-        end
-
-        call SayErr Replace(errPath, '%1', path)
-        say
-        call value stem'.!choice', ''
-
-    end
-
-/**
  *  Encloses the given path with quotes if it contains
  *  space characters, otherwise returns it w/o changes.
@@ -1349 +1368 @@
     parse arg code
     /* protect against recursive calls */
-    if (value('G.!Done_done') == 1) then exit code
-    call value 'G.!Done_done', 1
+    if (value('G.Done_done') == 1) then exit code
+    call value 'G.Done_done', 1
     /* cleanup stuff goes there */
     /* ... */