From 11dd0b3b5107a784bcb12c2d504a48a9a57884c5 Mon Sep 17 00:00:00 2001 From: Araq Date: Mon, 24 Oct 2016 21:55:57 +0200 Subject: simplified code of the upcoming vccexe and vcclinkerexe tools --- tools/vccenv.nim | 67 ------------------------------------------- tools/vccenv/vccenv.nim | 58 +++++++++++++++++++++++++++++++++++++ tools/vccenv/vccexe.nim | 24 ++++++++++++++++ tools/vccenv/vcclinkerexe.nim | 25 ++++++++++++++++ tools/vccexe.nim | 25 ---------------- tools/vcclinkerexe.nim | 25 ---------------- 6 files changed, 107 insertions(+), 117 deletions(-) delete mode 100644 tools/vccenv.nim create mode 100644 tools/vccenv/vccenv.nim create mode 100644 tools/vccenv/vccexe.nim create mode 100644 tools/vccenv/vcclinkerexe.nim delete mode 100644 tools/vccexe.nim delete mode 100644 tools/vcclinkerexe.nim diff --git a/tools/vccenv.nim b/tools/vccenv.nim deleted file mode 100644 index 4017368a0..000000000 --- a/tools/vccenv.nim +++ /dev/null @@ -1,67 +0,0 @@ -import strtabs, os, osproc, streams, strutils - -const - comSpecEnvKey = "ComSpec" - vsComnToolsEnvKeys = [ - "VS140COMNTOOLS", - "VS130COMNTOOLS", - "VS120COMNTOOLS", - "VS110COMNTOOLS", - "VS100COMNTOOLS", - "VS90COMNTOOLS" - ] - vcvarsallRelativePath = joinPath("..", "..", "VC", "vcvarsall") - -proc getVsComnToolsPath*(): TaintedString = - for vsComnToolsEnvKey in vsComnToolsEnvKeys: - if existsEnv vsComnToolsEnvKey: - let vsComnToolsEnvVal = getEnv vsComnToolsEnvKey - if (not vsComnToolsEnvVal.isNil) and (vsComnToolsEnvVal.len > 0): - return vsComnToolsEnvVal - return nil - -proc getVccEnv*(platform: string, windowsStoreSdk: bool = false, sdkVersion: string = nil): StringTableRef = - var comSpecCommandString: TaintedString - if existsEnv comSpecEnvKey: - comSpecCommandString = getEnv comSpecEnvKey - else: - comSpecCommandString = "cmd" - - let vsComnToolsPath = getVsComnToolsPath() - if (isNil vsComnToolsPath) or (vsComnToolsPath.len < 1): - return nil - let vcvarsallPath = expandFilename joinPath(vsComnToolsPath, vcvarsallRelativePath) - - var vcvarsallArgs: seq[string] = @[] - if (not isNil platform) and (platform.len > 0): - vcvarsallArgs.add(platform) - if windowsStoreSdk: - vcvarsallArgs.add("store") - if (not isNil sdkVersion) and (sdkVersion.len > 0): - vcvarsallArgs.add(sdkVersion) - var vcvarsallArgString: string - if vcvarsallArgs.len > 0: - vcvarsallArgString = vcvarsallArgs.join(" ") - else: - vcvarsallArgString = nil - - var vcvarsallCommandString: string - if (not isNil vcvarsallArgString) and (vcvarsallArgString.len > 0): - vcvarsallCommandString = "\"$1\" $2" % [ vcvarsallPath, vcvarsallArgString ] - else: - vcvarsallCommandString = vcvarsallPath - - let vcvarsallExecCommand = "\"$1\" /C \"$2 && SET\"" % [ comSpecCommandString, vcvarsallCommandString ] - when defined(release): - let vccvarsallOptions = { poEvalCommand, poDemon } - else: - let vccvarsallOptions = { poEchoCmd, poEvalCommand, poDemon } - let vcvarsallStdOut = execProcess(vcvarsallExecCommand, options = vccvarsallOptions) - let vcvarsallEnv = newStringTable(modeCaseInsensitive) - for vcvarsallEnvLine in vcvarsallStdOut.splitLines: - let vcvarsallEqualsIndex = vcvarsallEnvLine.find('=') - if vcvarsallEqualsIndex > 0: - let vcvarsallEnvKey = vcvarsallEnvLine[0..(vcvarsallEqualsIndex - 1)] - let vcvarsallEnvVal = vcvarsallEnvLine[(vcvarsallEqualsIndex + 1)..(vcvarsallEnvLine.len - 1)] - vcvarsallEnv[vcvarsallEnvKey] = vcvarsallEnvVal - return vcvarsallEnv diff --git a/tools/vccenv/vccenv.nim b/tools/vccenv/vccenv.nim new file mode 100644 index 000000000..a335efd10 --- /dev/null +++ b/tools/vccenv/vccenv.nim @@ -0,0 +1,58 @@ +import strtabs, os, osproc, streams, strutils + +const + comSpecEnvKey = "ComSpec" + vsComnToolsEnvKeys = [ + "VS140COMNTOOLS", + "VS130COMNTOOLS", + "VS120COMNTOOLS", + "VS110COMNTOOLS", + "VS100COMNTOOLS", + "VS90COMNTOOLS" + ] + vcvarsallRelativePath = joinPath("..", "..", "VC", "vcvarsall") + +proc getVsComnToolsPath*(): TaintedString = + for vsComnToolsEnvKey in vsComnToolsEnvKeys: + let vsComnToolsEnvVal = getEnv vsComnToolsEnvKey + if vsComnToolsEnvVal.len > 0: + return vsComnToolsEnvVal + +proc getVccEnv*(platform: string, windowsStoreSdk: bool = false, + sdkVersion: string = nil): StringTableRef = + var comSpecCommandString = getEnv comSpecEnvKey + if comSpecCommandString.len == 0: + comSpecCommandString = "cmd" + + let vsComnToolsPath = getVsComnToolsPath() + if vsComnToolsPath.len < 1: + return nil + let vcvarsallPath = expandFilename joinPath(vsComnToolsPath, vcvarsallRelativePath) + + var vcvarsallArgs: seq[string] = @[] + if platform.len > 0: + vcvarsallArgs.add(platform) + if windowsStoreSdk: + vcvarsallArgs.add("store") + if sdkVersion.len > 0: + vcvarsallArgs.add(sdkVersion) + let vcvarsallArgString = vcvarsallArgs.join(" ") + + var vcvarsallCommandString: string + if vcvarsallArgString.len > 0: + vcvarsallCommandString = "\"$1\" $2" % [vcvarsallPath, vcvarsallArgString] + else: + vcvarsallCommandString = vcvarsallPath + + let vcvarsallExecCommand = "\"$1\" /C \"$2 && SET\"" % + [comSpecCommandString, vcvarsallCommandString] + when defined(release): + let vccvarsallOptions = {poEvalCommand, poDemon} + else: + let vccvarsallOptions = {poEchoCmd, poEvalCommand, poDemon} + let vcvarsallStdOut = execProcess(vcvarsallExecCommand, options = vccvarsallOptions) + result = newStringTable(modeCaseInsensitive) + for line in vcvarsallStdOut.splitLines: + let idx = line.find('=') + if idx > 0: + result[line[0..(idx - 1)]] = line[(idx + 1)..(line.len - 1)] diff --git a/tools/vccenv/vccexe.nim b/tools/vccenv/vccexe.nim new file mode 100644 index 000000000..48ae8c8da --- /dev/null +++ b/tools/vccenv/vccexe.nim @@ -0,0 +1,24 @@ +import strtabs, os, osproc, vccenv + +when defined(release): + let vccOptions = {poParentStreams} +else: + let vccOptions = {poEchoCmd, poParentStreams} + +when isMainModule: + var vccEnvStrTab: StringTableRef = nil + when defined(i386): + vccEnvStrTab = getVccEnv "x86" + when defined(amd64): + vccEnvStrTab = getVccEnv "amd64" + when defined(arm): + vccEnvStrTab = getVccEnv "arm" + if vccEnvStrTab != nil: + for vccEnvKey, vccEnvVal in vccEnvStrTab: + putEnv(vccEnvKey, vccEnvVal) + let vccProcess = startProcess( + "cl.exe", + args = commandLineParams(), + options = vccOptions + ) + quit vccProcess.waitForExit() diff --git a/tools/vccenv/vcclinkerexe.nim b/tools/vccenv/vcclinkerexe.nim new file mode 100644 index 000000000..51c778f38 --- /dev/null +++ b/tools/vccenv/vcclinkerexe.nim @@ -0,0 +1,25 @@ +import strtabs, os, osproc, vccenv + +when defined(release): + let vccOptions = {poParentStreams} +else: + let vccOptions = {poEchoCmd, poParentStreams} + +when isMainModule: + var vccEnvStrTab: StringTableRef = nil + when defined(i386): + vccEnvStrTab = getVccEnv "x86" + when defined(amd64): + vccEnvStrTab = getVccEnv "amd64" + when defined(arm): + vccEnvStrTab = getVccEnv "arm" + if vccEnvStrTab != nil: + for vccEnvKey, vccEnvVal in vccEnvStrTab: + putEnv(vccEnvKey, vccEnvVal) + let vccProcess = startProcess( + "link.exe", + args = commandLineParams(), + options = vccOptions + ) + quit vccProcess.waitForExit() + diff --git a/tools/vccexe.nim b/tools/vccexe.nim deleted file mode 100644 index a62def77c..000000000 --- a/tools/vccexe.nim +++ /dev/null @@ -1,25 +0,0 @@ -import strtabs, os, osproc, vccenv - -when defined(release): - let vccOptions = { poParentStreams } -else: - let vccOptions = { poEchoCmd, poParentStreams } - -when isMainModule: - var vccEnvStrTab: StringTableRef = nil - when defined(i386): - vccEnvStrTab = getVccEnv "x86" - when defined(amd64): - vccEnvStrTab = getVccEnv "amd64" - when defined(arm): - vccEnvStrTab = getVccEnv "arm" - if vccEnvStrTab != nil: - for vccEnvKey, vccEnvVal in vccEnvStrTab: - putEnv(vccEnvKey, vccEnvVal) - let vccProcess = startProcess( - "cl".addFileExt(ExeExt), - args = commandLineParams(), - options = vccOptions - ) - quit vccProcess.waitForExit() - \ No newline at end of file diff --git a/tools/vcclinkerexe.nim b/tools/vcclinkerexe.nim deleted file mode 100644 index 2598d6312..000000000 --- a/tools/vcclinkerexe.nim +++ /dev/null @@ -1,25 +0,0 @@ -import strtabs, os, osproc, vccenv - -when defined(release): - let vccOptions = { poParentStreams } -else: - let vccOptions = { poEchoCmd, poParentStreams } - -when isMainModule: - var vccEnvStrTab: StringTableRef = nil - when defined(i386): - vccEnvStrTab = getVccEnv "x86" - when defined(amd64): - vccEnvStrTab = getVccEnv "amd64" - when defined(arm): - vccEnvStrTab = getVccEnv "arm" - if vccEnvStrTab != nil: - for vccEnvKey, vccEnvVal in vccEnvStrTab: - putEnv(vccEnvKey, vccEnvVal) - let vccProcess = startProcess( - "link".addFileExt(ExeExt), - args = commandLineParams(), - options = vccOptions - ) - quit vccProcess.waitForExit() - -- cgit 1.4.1-2-gfad0