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::accessScanDiscover {paths rotations maxFiles} {
    
    set files {}; set identities {}; set omitted 0; set unavailable 0; set ignored 0
    set candidates {}; set rotated {}; set source 0
    foreach path $paths {
        # Reserve current files before rotations, even with multiple sources.
        if {[llength $candidates]<$maxFiles} {lappend candidates [list $path $source false]} else {incr omitted}
        if {$rotations} {
            # glob only lists the configured basename's siblings. Retain at most
            # maxFiles rotation candidates, preferring recently modified files.
            set base [file tail $path]
            set pattern [string map {\\ \\\\ [ \\[ ] \\] * \\* ? \\?} $base]
            if {[catch {glob -nocomplain -directory [file dirname $path] -- $pattern.*} siblings]} {
                incr unavailable; set siblings {}
            }
            foreach candidate $siblings {
                set suffix [string range [file tail $candidate] [expr {[string length $base]+1}] end]
                if {![regexp {^[0-9][0-9T_.:-]*(?:\.gz)?$} $suffix]} {incr ignored; continue}
                if {[catch {file lstat $candidate st}]} {incr unavailable; continue}
                if {$st(type) ne "file"} {incr ignored; continue}
                lappend rotated [list $st(mtime) $candidate $source]
                set rotated [lsort -integer -decreasing -index 0 $rotated]
                if {[llength $rotated]>$maxFiles} {set rotated [lrange $rotated 0 [expr {$maxFiles-1}]]; incr omitted}
            }
        }
        incr source
    }
    foreach entry $rotated {lassign $entry mtime path source; lappend candidates [list $path $source true]}
    foreach candidate $candidates {
        lassign $candidate filename source rotation
        if {[catch {file stat $filename st}]} {incr unavailable; continue}
        set identity [list $st(dev) $st(ino)]
        if {$identity in $identities} {continue}
        if {[llength $files]>=$maxFiles} {incr omitted; continue}
        if {[catch {accessScanSnapshot $filename $source $rotation} snapshot]} {incr unavailable; continue}
        lappend identities [dict get $snapshot identity]
        dict set snapshot fileIndex [llength $files]
        lappend files $snapshot
    }
    return [dict create files $files omittedFiles $omitted unavailableFiles $unavailable ignoredCandidates $ignored]

}

Show another procedure: