::nsmcp::codeLocalComparable

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::codeLocalComparable {name doc} {
    
    set resolved [codeResolve $name]; set definition [dict get $resolved definition]
    set args [lindex $definition end-1]; set body [lindex $definition end]
    if {[dict get $resolved kind] in {nx xotcl}} {
        lassign $name object tag member
        set scope [expr {$tag eq "instproc" ? "class" : "object"}]
        set api ::nsf::methods::${scope}::info::method
        if {[catch {
            set body [nsf::directdispatch $object $api body $member]
            set args [nsf::directdispatch $object $api parameter $member]
        }]} {error "local-definition-not-scripted"}
    }
    if {[dict exists $doc arg_list]} {set args [dict get $doc arg_list]}
    return [dict create arguments [codeCanonicalArguments $args] body $body definitionSha256 [ns_crypto::md string -digest sha256 -- $definition]]

}