Differences From Artifact [4af4948972]:
- File example/main.tcl — part of check-in [12ff77016f] at 2019-09-14 04:56:19 on branch trunk — Added support for accessProc and mapped X_OK to directories (user: rkeene, size: 2497) [annotate] [blame] [check-ins using]
To Artifact [eabae151b2]:
- File example/main.tcl — part of check-in [fa71466879] at 2019-09-14 05:24:52 on branch trunk — Comment out broken tests (user: rkeene, size: 2556) [annotate] [blame] [check-ins using]
1 2 3 4 5 6 7 8 9 | 1 2 3 4 5 6 7 8 9 10 | + |
set dir "//xvfs:/example"
set dirNative [file join [pwd] example]
#set dir $dirNative
set file "${dir}/foo"
set fd [open $file]
seek $fd 0 end
seek $fd -1 current
set check [read $fd 1]
if {$check != "\n"} {
|
| ︙ | |||
113 114 115 116 117 118 119 120 121 | 114 115 116 117 118 119 120 121 122 123 124 125 126 127 | + + - + + |
}
cd $dir
cd lib
glob *
# XXX:TODO:CURRENTLY BROKEN
if {0} {
lappend auto_path ${dir}/lib
package require hello
|