f615eecc64 2019-10-10 rkeene: #! /usr/bin/env tclsh
f615eecc64 2019-10-10 rkeene:
f615eecc64 2019-10-10 rkeene: set sourceDirectory [file dirname [file normalize [info script]]]
f615eecc64 2019-10-10 rkeene:
f615eecc64 2019-10-10 rkeene: lappend auto_path [file join $sourceDirectory lib]
f615eecc64 2019-10-10 rkeene:
f615eecc64 2019-10-10 rkeene: package require xvfs
f615eecc64 2019-10-10 rkeene:
f615eecc64 2019-10-10 rkeene: set list {
f615eecc64 2019-10-10 rkeene: main.tcl foo fop gop top fooo lib/hello/hello.tcl lib/hello/pkgIndex.tcl lib/hello lib {}
f615eecc64 2019-10-10 rkeene: }
f615eecc64 2019-10-10 rkeene:
f615eecc64 2019-10-10 rkeene: for {set i 0} {$i < 2000} {incr i} {
f615eecc64 2019-10-10 rkeene: lappend list $i
f615eecc64 2019-10-10 rkeene: }
f615eecc64 2019-10-10 rkeene:
f615eecc64 2019-10-10 rkeene: for {set idx 0} {$idx < [llength $list]} {incr idx} {
f615eecc64 2019-10-10 rkeene: set subList [lrange $list 0 $idx]
f615eecc64 2019-10-10 rkeene: puts "$idx ($subList):"
f615eecc64 2019-10-10 rkeene: puts [time {
f615eecc64 2019-10-10 rkeene: puts [::xvfs::generatePerfectHashFunctionCall pathName strlen(pathName) -1 $subList triesAtHashSize 1]
f615eecc64 2019-10-10 rkeene: } 1]
f615eecc64 2019-10-10 rkeene: puts ""
f615eecc64 2019-10-10 rkeene: }
f615eecc64 2019-10-10 rkeene: