Changeset 7592 for trunk/configure.vbs

Timestamp:

03/27/08 16:01:05 (8 months ago)

Author:

vboxsync

Message:

bln not b.

Files:

• trunk/configure.vbs (modified) (9 diffs)

trunk/configure.vbs

@@ -168 +168 @@
-      set objLocator = CreateObject("Wbemscripting.SWbemLocator")
-      set objServices = objLocator.ConnectServer("", "root\default", "", "", , , , g_objRegCtx)
- 
+
-      g_blnRegistry = true
-   end if
@@ -182 +182 @@
-      dim strRoot, strKey, strValue
-      dim iRoot
-
+
-      ' split up into root, key and value parts.
-      strRoot = left(strName, instr(strName, "\") - 1)
@@ -525 +525 @@
-''
-' Finds the first directory matching the pattern.
- 
+
-' else return the complete path to the found directory.
-function LogFindDir(strPath, strPattern)
@@ -1809 +1809 @@
-' Checks for any Qt binaries. Failure here isn't fatal.
-sub CheckForQt(strOptQt)
-
+, blnQtWinFree
-
-   PrintHdr "Qt"
@@ -1817 +1817 @@
-   '
-   strPathQt = ""
-
+ln
-
-   LogPrint "Checking for user specified path of Qt ..."
@@ -1828 +1828 @@
-         if CheckForQtWinFreeSub(strOptQt) then
-            strPathQt = strOptQt
-
+ln
-         end if
-      end if
@@ -1844 +1844 @@
-      end if
-   end if
-
-
- 
+
+
+
-   ' located at http://qtwin.sf.net
-   '
@@ -1853 +1853 @@
-      str = LogFindDir(g_strPathDev & "/win.x86/qt", "v3.*")
-      if (str <> "") then
- 
+
-            strPathQt = str
-
+ln
-          end if
-      end if
@@ -1866 +1866 @@
-      CfgPrint "VBOX_WITH_QTGUI="
-      PrintResult "Qt", "not found"
-                               
+
-      CfgPrint "VBOX_PATH_QT          := " & strPathQt
-      CfgPrint "QTDIR                  = $(VBOX_PATH_QT)"
-
-
-   
+
+ln
+
-      else                          ' Licensed from Trolltech
-         PrintResult "Qt (v" & g_strQtVer & ")", strPathQt