::nsmcp::cleanup

This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.

The procedure is defined as:

proc ::nsmcp::cleanup {} {
    
    variable temporary
    if {![info exists temporary]} return
    set objects [dict keys $temporary]
    unset temporary
    foreach object [lreverse $objects] {
        if {[::nsf::object::exists $object]} {
            if {[catch {$object destroy}]} {
                if {[info commands ns_log] ne ""} {
                    ns_log error "nsmcp: temporary object cleanup failed"
                }
                # Never return a potentially contaminated interpreter to pool.
                if {[info commands ns_ictl] ne ""} {ns_ictl markfordelete}
            }
        }
    }

}