指定した型のシグネチャをVisual F# Power Toolsで取得する

gistfile1.fs

// #r "FSharp.Compiler.Services.dll"
// #r "FSharpVSPowerTools.Core.dll"

open Microsoft.FSharp.Compiler.SourceCodeServices
open FSharpVSPowerTools.CodeGeneration.SignatureGenerator

System.Diagnostics.Trace.Listeners.Clear()

let checker = FSharpChecker.Create()
let tempfile = Path.ChangeExtension(Path.GetTempFileName(), "fs")

let parseAndTypeCheckSingleFile (file, input) =
    async {
        File.WriteAllText(file, input)
        let! projOptions = checker.GetProjectOptionsFromScript(file, input)
        return! checker.ParseAndCheckProject(projOptions)
    }

let symbolForTypeName name =
    async {
        let! checkResult = parseAndTypeCheckSingleFile(tempfile, "typeof<" + name + "> |> ignore")
        let! symbolUses = checkResult.GetAllUsesOfAllSymbols()
        let symbolUse =
            match Array.isEmpty symbolUses with
            | true -> None
            | false -> Some (symbolUses |> Seq.filter (fun x -> x.IsFromType) |> Seq.last)
        return symbolUse |> Option.map (fun x -> x.Symbol)
    } |> Async.RunSynchronously

let sigForSymbol (symbol: FSharpSymbol) =
    formatSymbol
        (fun x -> XmlDoc.Empty) //getXmlDocBySignature (XmlDocSig -> XmlDoc)
        4 //indentation
        FSharpDisplayContext.Empty //displayContext (FSharpDisplayContext)
        Seq.empty //openDeclarations seq<OpenDeclaration>
        symbol //symbol (FSharpSymbol)
        Filterer.NoFilters //filterer (Filterer)
        BlankLines.Default //blankLines (BlankLines)

symbolForTypeName "option" |> Option.bind sigForSymbol |> Option.iter stdout.WriteLine
symbolForTypeName "Microsoft.FSharp.Core.Option" |> Option.bind sigForSymbol |> Option.iter stdout.WriteLine
symbolForTypeName "System.DateTime" |> Option.bind sigForSymbol |> Option.iter stdout.WriteLine