| open System.ComponentModel | |
| [<TypeConverter(typedefof<TabsConverter>)>] | |
| type Tabs = | |
| | Item | |
| | Hour | |
| | Event | |
| | Search | |
| and TabsConverter() = |
| // Toy async server for fun | |
| open System.Net.Sockets | |
| let mutable runServer = true | |
| let handleHeaders (text : string) = | |
| let lines = text.Split([| '\n' |]) |> List.ofArray | |
| let requestType = lines.Head.Split([| ' ' |]) | |
| lines.Tail | |
| |> List.filter (fun x -> not <| System.String.IsNullOrWhiteSpace x) |
| namespace Fake | |
| type ProjectDetails = | |
| { | |
| /// Project name, useful for filtering against project files | |
| Name : string; | |
| /// Summary for AssemblyInfo and NuGet metadata | |
| Summary : string; | |
| /// Longer description for NuGet metadata | |
| Description : string option; |
| let input = @"$(SolutionDir) == '' Or $(SolutionDir) == '*Undefined*' And $(Configuration) == 'Debug'" | |
| let rec parseWord (data : System.Text.StringBuilder) (input : string) (index : int) (inQuotes : bool) : string * int = | |
| let substr = input.Substring(index) | |
| let f i () = (data.ToString()), (index + i) | |
| let ret = f 1 | |
| if input.Length = index | |
| then f 0 () | |
| else | |
| let c = input.[index] |
This is a short test of comparing the public API in two .NET binaries. There isn't any special comparison being done beyond determining whether or not the public APIs match perfectly.
To determine whether or not the two APIs match, build the .cs files like so:
csc /out:Lib1.dll /target:library 10_Lib1.cs
csc /out:Lib2.dll /target:library 20_Lib2.cs
Original code is in Record updates.fs, the IL output for the type is in type.il, and the IL output for the function is in func.il. Also included ILSpy's interpretation of the function into C# code in func.cs.
| open System | |
| let degToRad deg = deg * (Math.PI / 180.0) | |
| // This is a very slow implementation of the sine function, and could be easily | |
| // optimized in a lot of ways, but I wanted to know how to calculate sine, and | |
| // this works. | |
| // Taken from the accepted answer at: | |
| // https://math.stackexchange.com/questions/501660/is-there-a-way-to-get-trig-functions-without-a-calculator | |
| let sine angle places = |
| type FatalError(message: string) = | |
| inherit System.Attribute() | |
| member __.Message = message | |
| type Errors = | |
| | [<FatalError("The value specified is currently not available")>] UnknownValue | |
| | NotAnError | |
| let PrintErrorMessage : Errors -> string = | |
| fun err -> |
| #!/usr/bin/env bash | |
| # To use this script, go into your GitHub account settings, go into the | |
| # Applications section, and then under `Personal access tokens` click | |
| # `Generate new token`. Name the token whatever you want, give it access | |
| # to the `repo` and `public_repo` scopes (`user` and `gist` are also | |
| # selected by default, but you don't need them for this). | |
| # | |
| # Take the generated token and store it in your personal .gitconfig | |
| # (located at either ~/.gitconfig or ~/.config/git/config on OSX/*nix) |
I hereby claim:
To claim this, I am signing this object: