visual-studio - F# 类型提供程序减慢了 Visual Studio 2017 中的智能感知

Question

我有一个非常简单的类型提供程序；所有类型都被删除，提供的类型有 2000 个 int 只读属性 Tag1..Tag2000

let ns = "MyNamespace"
let asm = Assembly.GetExecutingAssembly()

let private newProperty t name getter isStatic = ProvidedProperty(name, t, getter, isStatic = isStatic)
let private newStaticProperty t name getter = newProperty t name (fun _ -> getter) true
let private newInstanceProperty t name getter = newProperty t name (fun _ -> getter) false
let private addStaticProperty t name getter (``type``:ProvidedTypeDefinition) = ``type``.AddMember (newStaticProperty t name getter); ``type``
let private addInstanceProperty t name getter (``type``:ProvidedTypeDefinition) = ``type``.AddMember (newInstanceProperty t name getter); ``type``

[<TypeProvider>]
type TypeProvider(config : TypeProviderConfig) as this = 
    inherit TypeProviderForNamespaces(config)

    let provider = ProvidedTypeDefinition(asm, ns, "Provider", Some typeof<obj>, hideObjectMethods = true)
    let tags = ProvidedTypeDefinition(asm, ns, "Tags", Some typeof<obj>, hideObjectMethods = true)           
    do [1..2000] |> Seq.iter (fun i -> addInstanceProperty typeof<int> (sprintf "Tag%d" i) <@@ i @@> tags |> ignore)

    do provider.DefineStaticParameters([ProvidedStaticParameter("Host", typeof<string>)], fun name args ->
        let provided = ProvidedTypeDefinition(asm, ns, name, Some typeof<obj>, hideObjectMethods = true)
        addStaticProperty tags "Tags" <@@ obj() @@> provided |> ignore
        provided
    )

    do this.AddNamespace(ns, [provider; tags])

然后是一个在不同文件中包含两个模块的测试项目:

module Common
open MyNamespace

type Provided = Provider<"">
let providedTags = Provided.Tags

type LocalTags() = 
    member this.Tag1 with get() : int = 1
    member this.Tag2 with get() : int = 2
.
.
    member this.Tag1999 with get() : int = 1999
    member this.Tag2000 with get() : int = 2000

let localTags = LocalTags()

---

module Tests

open Common
open Xunit

[<Fact>]
let ProvidedTagsTest () =
    Assert.Equal<int>(providedTags.Tag1001, 1001)

[<Fact>]
let LocalTagsTest () =
    Assert.Equal<int>(localTags.Tag100, 100)

一切都按预期工作(包括测试执行)。我遇到的问题是在我编写代码时 Visual Studio 中的设计时行为。由于类型提供者的原因，我预计会有一些开销，但坦率地说，这种缓慢似乎过分了。下面报告的时间以秒为单位，指的是从按下点 (.) 键到智能感知属性列表出现在屏幕上所测量的时间

1. 提供标签。 -> 15
2. 本地标签。 -> 5

如果我注释掉或删除第一行测试代码(以消除对所提供内容的任何引用)，那么我得到

1. 本地标签。 -> 立即

如果属性的数量更多，时间似乎呈指数增长，而不是线性增长，因此在 10000 时变成分钟。

问题是:

• 这是正常现象还是我做错了什么？
• 是否有更快响应的指南？

如果有人对我为什么需要这么多属性感到好奇，我正在尝试为数据分析师提供一种工具，以便他们可以编写 F# 脚本并从架构中包含 10000 多个标签的历史数据库中获取数据。

Answer 1

问题已由 Don Syme 修复，请参阅 https://github.com/fsprojects/FSharp.TypeProviders.SDK/issues/220

和

https://github.com/fsprojects/FSharp.TypeProviders.SDK/pull/229