::nsmcp::codeResolve

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::codeResolve {name} {
    
    # Exact Tcl command lookup: namespace which is literal, unlike info procs.
    set absolute [expr {[string first :: $name]==0 ? $name : "::$name"}]
    set command [namespace which -command $absolute]
    if {$command ne {} && ![catch {info body $command} body]} {
        set arguments {}
        if {[catch {info args $command} formals]} {
            # nsf::proc exposes info body but needs NSF signature introspection.
            set native [::nx::Object info method definition ::nsf::procs::$command]
            set arguments [lindex $native end-1]
            set doc [codeMetadata $command]
            if {$doc eq {}} {set doc [codeMetadata [string trimleft $command :]]}
            if {[dict exists $doc arg_list]} {set arguments [dict get $doc arg_list]}
        } else {
            foreach arg $formals {
                if {[info default $command $arg default]} {lappend arguments [list $arg $default]} else {lappend arguments $arg}
            }
        }
        return [dict create kind tcl definition [list proc $command $arguments $body]]
    }
    if {[catch {llength $name} length] || $length!=3} {error "Definition unavailable in this interpreter"}
    lassign $name object tag member
    if {$tag ni {proc instproc} || ![nsf::is object $object]} {error "Definition unavailable in this interpreter"}
    set scope [expr {$tag eq "instproc" ? "class" : "object"}]
    if {$scope eq "class" && ![nsf::is class $object]} {error "Definition unavailable in this interpreter"}
    set api ::nsf::methods::${scope}::info::method
    # The built-in returns definitions for scripted methods and native aliases;
    # directdispatch bypasses application overrides of 'info' and filters.
    set definition [nsf::directdispatch $object $api definition $member]
    if {$definition eq {}} {error "Definition unavailable in this interpreter"}
    set kind [expr {[nsf::is object,type=::nx::Object $object] ? "nx" : "xotcl"}]
    return [dict create kind $kind definition $definition]

}