load.build.fsx

#r "packages\FAKE.2.4.8.0\Tools\FakeLib.dll"
#load "packages\SourceLink.Fake.0.3.0-a1401160102-fc7f738e\Tools\Fake.fsx"

SourceLink.Target.build.fsx

Target "SourceLink" (fun _ ->
    !! "Tfs\Tfs.fsproj" 
    ++ "SourceLink\SourceLink.fsproj"
    |> Seq.iter (fun proj ->
        let p = VsProject.Load proj ["Configuration","Release"]
        let files = p.Compiles -- "**\AssemblyInfo.fs"
        verifyGitChecksums repo files
        verifyPdbChecksums p files
        p.SourceLink "https://raw.github.com/ctaggart/SourceLink/{0}/%var2%" repo.Revision (repo.Paths files)
        let cmd =
            if isTfsBuild then @"C:\Program Files\Microsoft Team Foundation Server 12.0\Tools\pdbstr.exe"
            else @"C:\Program Files (x86)\Windows Kits\8.0\Debuggers\x64\srcsrv\pdbstr.exe"
        let args = sprintf "-w -s:srcsrv -i:%s -p:%s" (Path.GetFileName p.OutputFilePdbSrcSrv) (Path.GetFileName p.OutputFilePdb)
        logfn "exec %s, %s, %s" cmd args p.OutputDirectory
        Shell.Exec(cmd, args, p.OutputDirectory) |> ignore
    )
)

SourceLink.Tfs.pdb.srcsrv

SRCSRV: ini ------------------------------------------------
VERSION=1
SRCSRV: variables ------------------------------------------
SRCSRVVERCTRL=https
SRCSRVTRG=https://raw.github.com/ctaggart/SourceLink/fc7f738e27bc32133584f20c9238161c3c651fa2/%var2%
SRCSRV: source files ---------------------------------------
C:\a\src\Tfs\TfsProcessParameters.fs*Tfs/TfsProcessParameters.fs
C:\a\src\Tfs\TfsConnection.fs*Tfs/TfsConnection.fs
C:\a\src\Tfs\TfsBuildServer.fs*Tfs/TfsBuildServer.fs
C:\a\src\Tfs\TfsVersionControl.fs*Tfs/TfsVersionControl.fs
C:\a\src\Tfs\TfsCredentialStorage.fs*Tfs/TfsCredentialStorage.fs
C:\a\src\Tfs\TfsUser.fs*Tfs/TfsUser.fs
C:\a\src\Tfs\TfsProject.fs*Tfs/TfsProject.fs
C:\a\src\Tfs\TfsBuild.fs*Tfs/TfsBuild.fs
C:\a\src\Tfs\TfsActivities.fs*Tfs/TfsActivities.fs
C:\a\src\Tfs\Activities.Process.fs*Tfs/Activities.Process.fs
C:\a\src\Tfs\Activities.Fake.fs*Tfs/Activities.Fake.fs
SRCSRV: end ------------------------------------------------