::nsmcp::codeStaticDefinitions

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::codeStaticDefinitions {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]]} {
        error "upstream-definition-missing-or-ambiguous"
    }
    return $state

}