helper.vbs,configure.vbs: Added a bunch of new helpers and adjusted/renamed several old ones in preparation for a new envSub.vbs script.

git-svn-id: https://www.virtualbox.org/svn/vbox/trunk@85840 cfe28804-0f27-0410-a406-dd0f0b0b656f

1 files changed, 2 insertions, 10 deletions

diff --git a/configure.vbs b/configure.vbs
index da86fbf006d..3e4a52cd42d 100644
--- a/configure.vbs
+++ b/configure.vbs
@@ -83,14 +83,6 @@ dim g_blnDisableCOM, g_strDisableCOM
 g_blnDisableCOM = False

 g_strDisableCOM = ""

 

-' Whether to ignore (continue) on errors.

-dim g_blnContinueOnError, g_rcExit

-g_blnContinueOnError = False

-

-' The script's exit code (for ignored errors).

-dim g_rcScript

-g_rcScript = 0

-

 ' Whether to try the internal stuff first or last.

 dim g_blnInternalFirst

 g_blnInternalFirst = True

@@ -699,7 +691,7 @@ sub CheckForkBuild(strOptkBuild)
          EnvPrintCleanup "PATH", DosSlashes(Left(g_strPathkBuildBin, Len(g_strPathkBuildBin) - 9) & "win.x86"), ";"

       end if

       EnvPrintPrepend "PATH", DosSlashes(g_strPathkBuildBin), ";"

-      EnvPrepend "PATH", g_strPathkBuildBin & ";"

+      EnvPrependPathItem "PATH", g_strPathkBuildBin, ";"

    end if

 

    PrintResult "kBuild", g_strPathkBuild

@@ -794,7 +786,7 @@ class VisualCPPState
 

       strSavedPath = EnvGet("PATH")

       if (m_strPathVCCommon <> "") then

-         EnvAppend "PATH", ";" & m_strPathVCCommon & "/IDE"

+         EnvAppendPathItem "PATH", m_strPathVCCommon & "/IDE", ";"

       end if

       rcExit = Shell(DosSlashes(strClExe), True, strOutput)

       EnvSet "PATH", strSavedPath