::nsmcp::codeStaticDefinition

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::codeStaticDefinition {source name} {
    
    if {[string bytelength $source]>1048576} {error "upstream-source-too-large"}
    if {[llength $name]==3 && [lindex $name 1] in {proc instproc}} {
        lassign $name object tag member; set target [list [codeQualified $object ::] $tag $member]
    } else {set target [codeQualified $name ::]}
    set state [dict create commands 0 dynamicCommands 0 unsupportedCommands 0 limited false matches {}]
    codeStaticWalk $source $target :: {} {} 0 state
    if {[dict get $state limited]} {error "upstream-extraction-limit"}
    if {[llength [dict get $state matches]]!=1} {error "upstream-definition-missing-or-ambiguous"}
    return [dict merge [lindex [dict get $state matches] 0] [dict remove $state matches]]

}