module System.CodeDom

​

open System.CodeDom

open System.Collections.Generic

let onDisposal a d =

    a()

    {new System.IDisposable with

        member x.Dispose() =

            d()}

​

type CodeTypeDeclaration with

    member x.Start name = 

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

    member x.End name = 

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

    member x.Regionize name =

        onDisposal (fun _ -> x.Start(name)) (fun _ -> x.End(name))

    member x.AddFields (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