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::codeUpstreamMapping {path mappings} {
codeUpstreamPath $path
set selected {}; set longest -1
foreach mapping $mappings {
foreach key {localPrefix repository upstreamPrefix ref} {if {![dict exists $mapping $key]} {error "invalid-upstream-mapping"}}
set prefix [codeUpstreamPath [dict get $mapping localPrefix]]
if {[string index $prefix end] ne "/"} {error "upstream-local-prefix-must-end-in-slash"}
set repo [dict get $mapping repository]
if {![regexp {^[A-Za-z0-9][A-Za-z0-9_.-]*/[A-Za-z0-9][A-Za-z0-9_.-]*$} $repo]} {error "invalid-upstream-repository"}
set remote [codeUpstreamPath [dict get $mapping upstreamPrefix] true]
if {$remote ne {} && [string index $remote end] ne "/"} {error "upstream-prefix-must-end-in-slash"}
codeUpstreamRef [dict get $mapping ref]
if {[dict exists $mapping baselineRef] && [dict get $mapping baselineRef] ne {}} {codeUpstreamRef [dict get $mapping baselineRef]}
if {[string first $prefix $path]==0 && [string length $prefix]>$longest} {
set selected $mapping; set longest [string length $prefix]
dict set selected path $remote[string range $path $longest end]
}
}
if {$selected eq {}} {error "upstream-mapping-not-configured"}
codeUpstreamPath [dict get $selected path]
return $selected
}
