file readable name
Returns 1 if file name is readable by the current user, 0 otherwise.
On NTFS volumes, this doesn't currently take account of the more complex Windows user/group stuff, so can return the wrong value. Code contributions using 'GetSecurityInfo()' much appreciated.
RS 2007-02-16 Quick workaround:
proc file'readable name {
set rc [catch {open $name} fp]
if {$rc==0} {close $fp}
expr {$rc==0}
}
See also:
Tcl syntax help - Category Command - Category Introspection - Category File