Temporary productivity workaround for Xamarin bug #31423

kill-locked-handles.fsx

open System.Diagnostics
open System.Text.RegularExpressions

// Pre-req: FSharp runtime
// Usage: run from command line using "fsi.exe kill-locked-handles.fsx" no quotes
// Hints & tips as follows:
// Prepare the script by editing line 11 with a search string that will be used by handle.exe
// Ensure handle.exe (from SysInternals) is in your PATH, or edit this script to use an absolute path, or ensure handle.exe is in same path as this script.
// Edit into your build script or pre-build event on your project so this script is run each time.

let psi = new ProcessStartInfo("handle.exe", @"-p devenv.exe singapore.mobile.android\bin\debug\", RedirectStandardOutput = true, UseShellExecute = false)
let proc = Process.Start(psi)
proc.WaitForExit(5000) |> ignore

let output = proc.StandardOutput.ReadToEnd()

let regex = new Regex(@"devenv.exe         pid: (?<ProcessId>\d+)   type: File          (?<FileHandle>[0-9a-f]+): ", RegexOptions.ExplicitCapture ||| RegexOptions.IgnoreCase)
for m in regex.Matches(output) |> Seq.cast<Match> do
    let processId, fileHandle = m.Groups.["ProcessId"].Value, m.Groups.["FileHandle"].Value
    let psi = new ProcessStartInfo("handle.exe", sprintf "-p %s -c %s -y" processId fileHandle, UseShellExecute = false)
    Process.Start(psi).WaitForExit(5000) |> ignore

Pre-build event in VS project (ensure the script is in your project's root folder)

pushd $(ProjectDir)
fsi kill-locked-handles.fsx
popd