Merge pull request #697 from Vidarls/vb6

Added modules for building VB6 projects with SxS manifests
fsprojects · Mar 22, 2015 · 3189782 · 3189782
2 parents d578d1c + 40b9b2f
commit 3189782
Show file tree

Hide file tree

Showing 5 changed files with 721 additions and 1 deletion.
diff --git a/src/app/FakeLib/EnvironmentHelper.fs b/src/app/FakeLib/EnvironmentHelper.fs
@@ -119,6 +119,19 @@ let mutable TargetPlatformPrefix =
         else Some @"C:\Windows\Microsoft.NET\Framework"
     |> Option.get
 
+/// Base path for getting tools from windows SDKs
+let sdkBasePath = ProgramFilesX86 @@ "Microsoft SDKs\Windows"
+
+/// Helper function to help find framework or sdk tools from the 
+/// newest toolkit available
+let getNewestTool possibleToolPaths = 
+       possibleToolPaths 
+       |> Seq.sortBy (fun p -> p) 
+       |> Array.ofSeq 
+       |> Array.rev 
+       |> Seq.ofArray 
+       |> Seq.head
+
 /// Gets the local directory for the given target platform
 let getTargetPlatformDir platformVersion = 
     if Directory.Exists(TargetPlatformPrefix + "64") then (TargetPlatformPrefix + "64") @@ platformVersion

diff --git a/src/app/FakeLib/FakeLib.fsproj b/src/app/FakeLib/FakeLib.fsproj
@@ -151,6 +151,8 @@
     <Compile Include="AzureWebJobs.fs" />
     <Compile Include="HockeyAppHelper.fs" />
     <Compile Include="AzureCloudServices.fs" />
+    <Compile Include="Sxshelper.fs" />
+    <Compile Include="Vb6helper.fs" />
     <None Include="app.config" />
   </ItemGroup>
   <ItemGroup>

diff --git a/src/app/FakeLib/RegAsmHelper.fs b/src/app/FakeLib/RegAsmHelper.fs
@@ -3,6 +3,11 @@
 module Fake.RegAsmHelper
 
 open System
+open System.IO
+
+/// Path to newest `regasm.exe`
+let regAsmToolPath = !! (TargetPlatformPrefix + "/**/RegAsm.exe")  
+                             |> getNewestTool
 
 /// RegAsm parameter type
 type RegAsmParams = 
@@ -13,7 +18,7 @@ type RegAsmParams =
 
 /// RegAsm default params
 let RegAsmDefaults = 
-    { ToolPath = @"C:\Windows\Microsoft.NET\Framework\v2.0.50727\regasm.exe"
+    { ToolPath = regAsmToolPath
       WorkingDir = "."
       TimeOut = TimeSpan.FromMinutes 5.
       ExportTypeLibrary = true }
@@ -36,3 +41,51 @@ let RegAsm setParams lib =
                 info.Arguments <- args) parameters.TimeOut
     then failwithf "RegAsm %s failed." args
     traceEndTask "RegAsm" lib
+
+/// Executes `RegAsm.exe` with the `/codebase` `/tlb` option
+///
+/// Used to temporarily register any .net dependencies before running 
+/// a VB6 build
+let public RegisterAssembliesWithCodebase workingDir (assemblies:string seq) =
+    traceStartTask "Regasm with codebase" "Registering assemblies with codebase, expect warnings"
+    let registerAssemblyWithCodebase assembly =
+        async {
+            let! regAsmResult = 
+                asyncShellExec {defaultParams with 
+                                    Program = regAsmToolPath
+                                    WorkingDirectory = workingDir
+                                    CommandLine = (sprintf "\"%s\" /tlb:%s /codebase" assembly ((Path.GetFileName assembly) + ".tlb"))
+                                }
+            if regAsmResult <> 0 then failwith (sprintf "Register %s with codebase failed" assembly)
+            return ()
+        }
+    assemblies
+    |> Seq.map registerAssemblyWithCodebase
+    |> Async.Parallel
+    |> Async.RunSynchronously
+    |> ignore
+    traceEndTask "Regasm with codebase" "Registering assemblies with codebase, expect warnings"
+
+/// Executes `Regasm.exe` with the `/codebase /tlb /unregister` options
+///
+/// Used to unregegister any temporarily registerd .net dependencies
+/// _after_ running a VB6 build
+let public UnregisterAssemblies workingDir (assemblies:string seq) =
+    traceStartTask "Regasm /unregister with codebase" "Registering assemblies with codebase, expect warnings"
+    let registerAssemblyWithCodebase assembly =
+        async {
+            let! regAsmResult = 
+                asyncShellExec {defaultParams with 
+                                    Program = regAsmToolPath
+                                    WorkingDirectory = workingDir
+                                    CommandLine = (sprintf "\"%s\" /tlb:%s /codebase /unregister"  assembly ((Path.GetFileName assembly) + ".tlb"))
+                                }
+            if regAsmResult <> 0 then failwith (sprintf "Unregister %s with codebase failed" assembly)
+            return ()
+        }
+    assemblies
+    |> Seq.map registerAssemblyWithCodebase
+    |> Async.Parallel
+    |> Async.RunSynchronously
+    |> ignore
+    traceEndTask "Regasm /unregister with codebase" "Registering assemblies with codebase, expect warnings"