#1 #2 AppVeyor SourceLink

.gitattributes

@@ -1,5 +1,5 @@
 # Auto detect text files and perform LF normalization
-* text=auto
+* text=auto eol=lf
 
 # Custom for Visual Studio
 *.cs     text diff=csharp

appveyor.yml

@@ -0,0 +1,7 @@
+build_script:
+  - cmd: build.cmd nuget
+test: off
+artifacts:
+  - path: bin\*.nupkg
+environment:
+  gitHome: https://github.com/ctaggart

build.cmd

@@ -2,5 +2,7 @@
 if not exist packages\FAKE\tools\Fake.exe ( 
   .nuget\NuGet.exe install FAKE -OutputDirectory packages -ExcludeVersion
 )
+if not exist packages\SourceLink.Fake\tools\SourceLink.fsx ( 
+  .nuget\NuGet.exe install SourceLink.Fake -OutputDirectory packages -ExcludeVersion
+)
 packages\FAKE\tools\FAKE.exe build.fsx %*
-pause

build.fsx

@@ -4,11 +4,13 @@
 
 #I "packages/FAKE/tools"
 #r "packages/FAKE/tools/FakeLib.dll"
+#load "packages/SourceLink.Fake/tools/SourceLink.fsx"
 open System
 open Fake 
 open Fake.Git
 open Fake.ReleaseNotesHelper
 open Fake.AssemblyInfoFile
+open SourceLink
 
 // --------------------------------------------------------------------------------------
 // Information about the project to be used at NuGet and in AssemblyInfo files
@@ -24,7 +26,7 @@ let description = """
   interactive service that can be used for embedding F# scripting into your applications."""
 let tags = "F# fsharp interactive compiler editor"
 
-let gitHome = "https://github.com/fsharp"
+let gitHome = environVarOrDefault "gitHome" "https://github.com/fsharp"
 let gitName = "FSharp.Compiler.Service"
 //let testAssemblies = ["tests/*/bin/Release/Deedle*Tests*.dll"]
 
@@ -35,6 +37,14 @@ let gitName = "FSharp.Compiler.Service"
 // Read release notes & version info from RELEASE_NOTES.md
 Environment.CurrentDirectory <- __SOURCE_DIRECTORY__
 let release = parseReleaseNotes (IO.File.ReadAllLines "RELEASE_NOTES.md")
+let isAppVeyorBuild = environVar "APPVEYOR" <> null
+let nugetVersion = 
+    if isAppVeyorBuild then sprintf "%s-a%s" release.NugetVersion (DateTime.UtcNow.ToString "yyMMddHHmm")
+    else release.NugetVersion
+
+Target "BuildVersion" (fun _ ->
+    Shell.Exec("appveyor", sprintf "UpdateBuild -Version \"%s\"" nugetVersion) |> ignore
+)
 
 // Generate assembly info files with the right version & up-to-date information
 Target "AssemblyInfo" (fun _ ->
@@ -82,6 +92,38 @@ Target "Build" (fun _ ->
     |> Log "AppBuild-Output: "
 )
 
+Target "SourceLink" (fun _ ->
+    #if MONO
+    ()
+    #else
+    let f = !! "src/fsharp/FSharp.Compiler.Service/FSharp.Compiler.Service.fsproj" |> Seq.head
+    use repo = new GitRepo(__SOURCE_DIRECTORY__)
+    let proj = VsProj.LoadRelease f
+    logfn "source linking %s" proj.OutputFilePdb
+    let compiles = proj.Compiles.SetBaseDirectory __SOURCE_DIRECTORY__ 
+    let gitFiles =
+        compiles
+        -- "src/assemblyinfo/assemblyinfo*.fs" // not source indexed
+        // generated and in fsproj as Compile, but in .gitignore, not source indexed
+        -- "src/fsharp/FSharp.Compiler.Service/illex.fs" // <FsLex Include="..\..\absil\illex.fsl">
+        -- "src/fsharp/FSharp.Compiler.Service/ilpars.fs"
+        -- "src/fsharp/FSharp.Compiler.Service/lex.fs"
+        -- "src/fsharp/FSharp.Compiler.Service/pars.fs"
+    repo.VerifyChecksums gitFiles
+    let pdbFiles =  
+        compiles
+        // generated, not in the fsproj as Compile, not source indexed
+        ++ "src/absil/illex.fsl"
+        ++ "src/absil/ilpars.fsy"
+        ++ "src/fsharp/fsharp.compiler.service/obj/x86/release/fscomp.fs"
+        ++ "src/fsharp/fsharp.compiler.service/obj/x86/release/fsistrings.fs"
+        ++ "src/fsharp/lex.fsl"
+        ++ "src/fsharp/pars.fsy"
+    proj.VerifyPdbChecksums pdbFiles
+    proj.CreateSrcSrv (sprintf "%s/%s/{0}/%%var2%%" gitHome gitName) repo.Revision (repo.Paths gitFiles)
+    Pdbstr.exec proj.OutputFilePdb proj.OutputFilePdbSrcSrv
+    #endif
+)
 
 // --------------------------------------------------------------------------------------
 // Run the unit tests using test runner & kill test runner when complete
@@ -158,11 +200,13 @@ Target "PrepareRelease" DoNothing
 Target "All" DoNothing
 
 "Clean"
+  =?> ("BuildVersion", isAppVeyorBuild)
   ==> "RestorePackages"
   ==> "AssemblyInfo"
   ==> "GenerateFSIStrings"
   ==> "Prepare"
   ==> "Build"
+  ==> "SourceLink"
   ==> "RunTests" 
   ==> "All"
 

build.sh

@@ -2,4 +2,7 @@
 if [ ! -f packages/FAKE/tools/Fake.exe ]; then
   mono .nuget/NuGet.exe install FAKE -OutputDirectory packages -ExcludeVersion
 fi
+if [ ! -f packages/SourceLink.Fake/tools/SourceLink.fsx ]; then
+  mono .nuget/NuGet.exe install SourceLink.Fake -OutputDirectory packages -ExcludeVersion
+fi
 mono packages/FAKE/tools/FAKE.exe build.fsx $@