open FSharp.Data.SqlClient

open Microsoft.FSharp.Core.CompilerServices

open System.Reflection

open System

type SingleRootTypeProvider(config: TypeProviderConfig, providerName, parameters, ?isErased) as this =

inherit TypeProviderForNamespaces (

config

#if MICROSOFT_DATA_SQLCLIENT

, assemblyReplacementMap=[("FSharp.Data.MicrosoftSqlClient.DesignTime", "FSharp.Data.MicrosoftSqlClient")]

#endif

#if SYSTEM_DATA_SQLCLIENT

, assemblyReplacementMap=[("FSharp.Data.SqlClient.DesignTime", "FSharp.Data.SqlClient")]

#endif

, addDefaultProbingLocation=true

)

let cache = new Cache<ProvidedTypeDefinition>()

do

FixReferenceAssemblies.loadSqlServerTypes.Force() |> Option.iter this.TargetContext.AddSourceAssembly

do

let isErased = defaultArg isErased true

let nameSpace = this.GetType().Namespace

let assembly = Assembly.GetExecutingAssembly()

let _ = FixReferenceAssemblies.manualLoadNet8Runtime.Force()

let providerType = ProvidedTypeDefinition(assembly, nameSpace, providerName, Some typeof<obj>, hideObjectMethods = true, isErased = isErased)

providerType.DefineStaticParameters(

parameters = parameters,

instantiationFunction = fun typeName args ->

match cache.TryGetValue(typeName) with

| true, cachedType -> cachedType.Value

| false, _ ->

let typ, monitors = this.CreateRootType(assembly, nameSpace, typeName, args)

monitors

|> Seq.iter(fun m ->

match m with

| :? System.Runtime.Caching.ChangeMonitor as monitor ->

monitor.NotifyOnChanged(fun _ ->

cache.Remove(typeName)

this.Invalidate()

monitor.Dispose()

)

| _ -> ()

)

cache.GetOrAdd(typeName, typ)

)

this.AddNamespace( nameSpace, [ providerType ])

abstract CreateRootType: assemblyName: Assembly * nameSpace: string * typeName: string * args: obj[] -> Lazy<ProvidedTypeDefinition> * obj[] // ChangeMonitor[] underneath but there is a problem https://github.com/fsprojects/FSharp.Data.SqlClient/issues/234#issuecomment-240694390