| let construct_toml (toplevel:(string*Value)list, | |
| tables:(string*(string*Value)list)[]) = | |
| let addSection (table:Dictionary<string,Value>) (kvps:(string*Value) list) = | |
| kvps |> List.iter (fun (k,v)-> table.Add( keyName k,v )) | |
| let foldtoml (prev:string, nested:string list, acc:Dictionary<string,Value>,toml:Dictionary<string,Value>) | |
| (cur:string, elems:(string*Value)list) = | |
| try | |
| (* add parsed elements to current table *) |
| open System.Reflection | |
| open System.Reflection.Emit | |
| open System.Runtime.InteropServices | |
| open System | |
| [<AutoOpen>] | |
| module ByteUtils = | |
| type Bit = | |
| | One |
| (* | |
| Heterogeneous Parallel Async Composition Operator | |
| - an evolution of http://jackfoxy.com/transparent-heterogeneous-parallel-async-with-fsharp/ | |
| *) | |
| type 'T Parallel = | |
| private { | |
| Compute : obj Async [] | |
| Unpack : obj [] -> int -> 'T | |
| } |
| open System | |
| type message = string | |
| let logEvent = Event<message> () | |
| let logStream, post = logEvent.Publish, logEvent.Trigger | |
| logStream.Add <| printf "%s | " | |
| let dispose (d:#IDisposable) = d.Dispose() |
| [<System.Runtime.CompilerServices.Extension>] | |
| type ExtensionMethods() = | |
| [<System.Runtime.CompilerServices.Extension>] | |
| static member inline GetOption< ^a,'k,'v when 'a : (member TryGetValue : 'k * ('v byref) -> bool)>(this : ^a, key : 'k) = | |
| let mutable v = Unchecked.defaultof<'v> | |
| let scc = ( ^a : (member TryGetValue : 'k * ('v byref) -> bool) this, key, &v) | |
| if scc then | |
| Some v | |
| else | |
| None |
| // Boyer Moore String Search Algorithm | |
| open System | |
| open System.Collections | |
| /// Returns the index of the given character in the English alphabet counting from 0 | |
| let alphabet_index (ch:char) = | |
| let chlow = Char.ToLower( ch) | |
| let charnum = Convert.ToInt32 chlow | |
| charnum - 97 // 'a' is ASCII character 97 |
Make things easy for yourself and start by running posh as admin
If you already have dnvm installed remember to run update-self if you haven't recently
Clone and checkout the coreclr branch of Kevin Ransom's Fork of the Visual F# Compiler and Tools
You need DNVM as a starting point. DNVM enables you to acquire a (or multiple) .NET Execution Environment (DNX).
| <?xml version="1.0" encoding="utf-8"?> | |
| <Settings> | |
| <Shortcuts><?xml version="1.0" encoding="utf-16"?> | |
| <ArrayOfKeyShortcut xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> | |
| <KeyShortcut> | |
| <Value>EqualsPlus</Value> | |
| <Alignment>(^|[\w\s])(?&lt;x&gt;=)</Alignment> | |
| <AlignFromCaret>false</AlignFromCaret> | |
| <UseRegex>true</UseRegex> | |
| <AddSpace>true</AddSpace> |
| open System.Collections.Generic | |
| open Microsoft.FSharp.Collections | |
| [<RequireQualifiedAccess>] | |
| module Folds = | |
| // These are the fast implementations we actually want to use |