【发布时间】：2018-05-31 10:56:21
【问题描述】：
我有一个非常简单的类型提供程序；所有类型都被擦除，提供的类型有 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 中的设计时行为。由于类型提供程序，我预计会有一些开销，但坦率地说，缓慢似乎过分了。下面报告的时间以秒为单位，是指从按下点 (.) 键到智能感知属性列表出现在屏幕上所测量的时间
- 提供的标签。 -> 15
- 本地标签。 -> 5
如果我注释掉或删除第一个测试代码行（以消除对所提供内容的任何引用），那么我得到
- 本地标签。 -> 立即
如果属性的数量更多，时间似乎呈指数增长，而不是线性增长，因此在 10000 处变为分钟。
问题是：
- 这是正常现象还是我做错了什么？
- 是否有实现更快响应的指南？
如果有人对我为什么需要这么多属性感到好奇，我正在尝试为数据分析师提供一种工具，以便他们可以编写 F# 脚本并从架构中包含 10000 多个标签的历史数据库中获取数据。
【问题讨论】：
-
我不知道如何修复它，但是您是否尝试在测试中引用提供者的 dll 而不是项目？我知道它不是最理想的，但我认为它在一种情况下确实对我有帮助
-
@DevNewb 是的，事实上，我所有的测试都是这样运行的。此外，报告的时间是在没有调试器的情况下进行的，以避免它可能引入的开销。
标签： visual-studio f# intellisense type-providers