managed-git/Git/Hash.fs

namespace Git

open System
open System.Globalization
open System.Text

type Hash =
    | Hash of byte list
    override this.ToString () =
        match this with
        | Hash h ->
        let t = StringBuilder (List.length h * 2)
        h
        |> List.iter (fun b -> t.AppendFormat ("{0:x2}" , b) |> ignore)
        t.ToString ()

[<RequireQualifiedAccess>]
module Hash =

    let ofBytes s = s |> Seq.toList |> Hash
    let ofString (s : string) : Hash =
        let rec b (pos : int) =
            seq {
                if pos < s.Length then
                    yield Byte.Parse (s.Substring (pos, 2), NumberStyles.AllowHexSpecifier)
                    yield! b (pos + 2)
            }
        b 0
        |> ofBytes

    // Given a byte array of *characters* spelling out e.g. 'b' 'd' '6' '3', return the hash this is spelling out.
    let ofSpelling (input : byte array) : Hash =
        let inline value (b : byte) =
            let c = char b
            if '0' <= c && c <= '9' then b - byte '0'
            elif 'A' <= c && c <= 'F' then b - (byte 'A') + 10uy
            elif 'a' <= c && c <= 'f' then b - (byte 'a') + 10uy
            else failwithf "Byte '%i' ('%c') is not a hex digit" b (char b)

        let rec b (pos : int) =
            seq {
                if pos < input.Length then
                    yield value (input.[pos]) * 16uy + value input.[pos + 1]
                    yield! b (pos + 2)
            }
        b 0
        |> ofBytes

    let toString (h : Hash) : string =
        h.ToString ()