b0e3b6588f 2019-09-17 rkeene: #! /usr/bin/env tclsh
b0e3b6588f 2019-09-17 rkeene:
b0e3b6588f 2019-09-17 rkeene: set LIB_SUFFIX [info sharedlibextension]
b0e3b6588f 2019-09-17 rkeene: load -global ./xvfs${LIB_SUFFIX}; # Optional, uses a dispatcher
b0e3b6588f 2019-09-17 rkeene: load ./example-flexible${LIB_SUFFIX} Xvfs_example
b0e3b6588f 2019-09-17 rkeene:
200a60c198 2019-09-18 rkeene: set benchmarkFormat "%-6s %-11s %s"
b0e3b6588f 2019-09-17 rkeene:
b0e3b6588f 2019-09-17 rkeene: proc benchmark {type name code} {
200a60c198 2019-09-18 rkeene: set iterations 10000
200a60c198 2019-09-18 rkeene:
200a60c198 2019-09-18 rkeene: set work [string trim [lindex [split [string trim $code] "\n"] 0]]
200a60c198 2019-09-18 rkeene: if {[string match "# iterations: *" $work]} {
200a60c198 2019-09-18 rkeene: set iterations [lindex $work 2]
200a60c198 2019-09-18 rkeene: }
200a60c198 2019-09-18 rkeene:
200a60c198 2019-09-18 rkeene: time $code [expr {max($iterations / 100, 1)}]
200a60c198 2019-09-18 rkeene: set time [time $code $iterations]
b0e3b6588f 2019-09-17 rkeene:
b0e3b6588f 2019-09-17 rkeene: puts [format $::benchmarkFormat $type $name $time]
b0e3b6588f 2019-09-17 rkeene: }
b0e3b6588f 2019-09-17 rkeene:
b0e3b6588f 2019-09-17 rkeene: set rootDirMap(xvfs) "//xvfs:/example"
b0e3b6588f 2019-09-17 rkeene: set rootDirMap(native) [file join [pwd] example]
b0e3b6588f 2019-09-17 rkeene:
200a60c198 2019-09-18 rkeene: proc recursiveGlob {dir} {
200a60c198 2019-09-18 rkeene: foreach subDir [glob -nocomplain -directory $dir -types d *] {
200a60c198 2019-09-18 rkeene: recursiveGlob $subDir
200a60c198 2019-09-18 rkeene: }
b0e3b6588f 2019-09-17 rkeene: }
b0e3b6588f 2019-09-17 rkeene:
200a60c198 2019-09-18 rkeene: array set test {
200a60c198 2019-09-18 rkeene: CD {
200a60c198 2019-09-18 rkeene: cd $::rootDir
200a60c198 2019-09-18 rkeene: pwd
200a60c198 2019-09-18 rkeene: }
200a60c198 2019-09-18 rkeene: Read {
200a60c198 2019-09-18 rkeene: set fd [open ${::rootDir}/main.tcl]
200a60c198 2019-09-18 rkeene: read $fd
200a60c198 2019-09-18 rkeene: close $fd
200a60c198 2019-09-18 rkeene: }
200a60c198 2019-09-18 rkeene: "Read Async" {
200a60c198 2019-09-18 rkeene: # iterations: 1000
200a60c198 2019-09-18 rkeene: set ::async_read_done false
200a60c198 2019-09-18 rkeene: set fd [open ${::rootDir}/main.tcl]
200a60c198 2019-09-18 rkeene: fconfigure $fd -blocking false
200a60c198 2019-09-18 rkeene: fileevent $fd readable [list apply {{fd} {
200a60c198 2019-09-18 rkeene: set input [read $fd 512]
200a60c198 2019-09-18 rkeene: if {[eof $fd] && $input eq ""} {
200a60c198 2019-09-18 rkeene: set ::async_read_done true
200a60c198 2019-09-18 rkeene: return
200a60c198 2019-09-18 rkeene: }
200a60c198 2019-09-18 rkeene: }} $fd]
200a60c198 2019-09-18 rkeene: vwait ::async_read_done
200a60c198 2019-09-18 rkeene: close $fd
200a60c198 2019-09-18 rkeene: }
200a60c198 2019-09-18 rkeene: Glob {
200a60c198 2019-09-18 rkeene: glob -directory ${::rootDir} *
200a60c198 2019-09-18 rkeene: }
200a60c198 2019-09-18 rkeene: Search {
200a60c198 2019-09-18 rkeene: recursiveGlob ${::rootDir}
200a60c198 2019-09-18 rkeene: }
200a60c198 2019-09-18 rkeene: +Stat {
200a60c198 2019-09-18 rkeene: file stat ${::rootDir}/main.tcl UNUSED
200a60c198 2019-09-18 rkeene: }
200a60c198 2019-09-18 rkeene: -Stat {
200a60c198 2019-09-18 rkeene: catch {
200a60c198 2019-09-18 rkeene: file stat ${::rootDir}/DOES-NOT-EXIST UNUSED
200a60c198 2019-09-18 rkeene: }
200a60c198 2019-09-18 rkeene: }
b0e3b6588f 2019-09-17 rkeene: }
b0e3b6588f 2019-09-17 rkeene:
b0e3b6588f 2019-09-17 rkeene: foreach {testName testBody} [lsort -stride 2 -dictionary [array get test]] {
b0e3b6588f 2019-09-17 rkeene: foreach rootDirType {xvfs native} {
b0e3b6588f 2019-09-17 rkeene: set rootDir $rootDirMap($rootDirType)
b0e3b6588f 2019-09-17 rkeene: benchmark $rootDirType $testName $testBody
b0e3b6588f 2019-09-17 rkeene: }
b0e3b6588f 2019-09-17 rkeene: }