module System.CodeDom

​

open System.CodeDom

open System.Collections.Generic

let onDisposal a d =

    a()

    {new System.IDisposable with

        member x.Dispose() =

            d()}

​

open System.Runtime.CompilerServices

​

[<Extension>]

type CodeTypeDeclarationExtensions =

    [<Extension>]

    static member Start(ctd:CodeTypeDeclaration) name = 

        ctd.StartDirectives.Add(CodeRegionDirective(CodeRegionMode.Start,name)) |> ignore

    [<Extension>]

    static member End (ctd:CodeTypeDeclaration) name = 

        ctd.EndDirectives.Add(CodeRegionDirective(CodeRegionMode.End,name)) |> ignore

    [<Extension>]

    static member Regionize (ctd:CodeTypeDeclaration) name =

        onDisposal (fun _ -> CodeTypeDeclarationExtensions.Start ctd name) (fun _ -> CodeTypeDeclarationExtensions.End ctd name)

    [<Extension>]

    static member AddFields (x:CodeTypeDeclaration) (kvpList:IDictionary<_,string>) f (cleaner:(string->string) option) = 

        for KeyValue(k,v) in kvpList do

            let field = CodeMemberField(typedefof<string>,if cleaner.IsSome then cleaner.Value(v) else v)

            f k v field

            x.Members.Add field |> ignore