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