f615eecc64 2019-10-10 1: #! /usr/bin/env tclsh
f615eecc64 2019-10-10 2:
f615eecc64 2019-10-10 3: set sourceDirectory [file dirname [file normalize [info script]]]
f615eecc64 2019-10-10 4:
f615eecc64 2019-10-10 5: lappend auto_path [file join $sourceDirectory lib]
f615eecc64 2019-10-10 6:
f615eecc64 2019-10-10 7: package require xvfs
f615eecc64 2019-10-10 8:
f615eecc64 2019-10-10 9: set list {
f615eecc64 2019-10-10 10: main.tcl foo fop gop top fooo lib/hello/hello.tcl lib/hello/pkgIndex.tcl lib/hello lib {}
f615eecc64 2019-10-10 11: }
f615eecc64 2019-10-10 12:
f615eecc64 2019-10-10 13: for {set i 0} {$i < 2000} {incr i} {
f615eecc64 2019-10-10 14: lappend list $i
f615eecc64 2019-10-10 15: }
f615eecc64 2019-10-10 16:
f615eecc64 2019-10-10 17: for {set idx 0} {$idx < [llength $list]} {incr idx} {
f615eecc64 2019-10-10 18: set subList [lrange $list 0 $idx]
f615eecc64 2019-10-10 19: puts "$idx ($subList):"
f615eecc64 2019-10-10 20: puts [time {
f615eecc64 2019-10-10 21: puts [::xvfs::generatePerfectHashFunctionCall pathName strlen(pathName) -1 $subList triesAtHashSize 1]
f615eecc64 2019-10-10 22: } 1]
f615eecc64 2019-10-10 23: puts ""
f615eecc64 2019-10-10 24: }
f615eecc64 2019-10-10 25: