[Tcl-bugs] [ tcl-Bugs-1661378 ] "file readable" broken on vmware shared folders

[SourceForge.net <no...@so...>]

Bugs item #1661378, was opened at 2007-02-16 10:13
Message generated for change (Settings changed) made by dkf
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1661378&group_id=10894

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
>Category: 36. File System
Group: current: 8.4.14
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: aotto1968 (aotto1968)
>Assigned to: Vince Darley (vincentdarley)
Summary: "file readable" broken on vmware shared folders

Initial Comment:
Dear Support,

  I have a problem with "file readable" on winxp 32bit
  as vmware guest on an openSuse host.

  I using "Shared Folders" on windows to access
  a directory from linux.

  but tcl on winxp has a problem with acessing
  files on the shared folder:

  detail:

   1. file readable returns 0 -> not readable
   2. but in tcl I can open and read this file -> readable
   3. the problem is that the tcl pkgLoader stops working

from tclPkgUnknown in tcl8.4 package.tcl
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
501   catch {
502       foreach file [glob -directory $dir -join -nocomplain \
503               * pkgIndex.tcl] {
504           set dir [file dirname $file]
505           if {![info exists procdDirs($dir)] && [file readable $file]} {
506               if {[catch {source $file} msg]} {
507                   tclLog "error reading package index file $file: $msg"
508               } else {
509                   set procdDirs($dir) 1
510               }
511           }
512       }
513   }
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

the "file readable" will return 0 and the pkgLoader will not
load the pkgIndex.tcl file

=> this is a bug
from the code down you get the info that from inside tcl
"files readable" returns 0 but I can open and read the file

test script
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><

parray tcl_platform

foreach f {"//.host/Shared
Folders/FbgBase/src/TestFreiburg/lib/TestFbg/pkgIndex.tcl"} {

    puts "++ $f"
    if {![file exists $f]} {
        puts "  -> file does not exists !!"
        continue
    }
    unset -nocomplain stat
    unset -nocomplain attribute
    file stat $f stat
    array set attribute [file attributes $f]
    puts exists:[file exists $f]
    puts readable:[file readable $f]
    parray stat
    parray attribute
    set FH [open $f r]
    while {![eof $FH]} {
        puts "pkgIndex.tcl: [gets $FH]"
    }
    close $FH
}
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

results
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
tcl_platform(byteOrder) = littleEndian
tcl_platform(machine)   = intel
tcl_platform(os)        = Windows NT
tcl_platform(osVersion) = 5.1
tcl_platform(platform)  = windows
tcl_platform(user)      = SYSTEM
tcl_platform(wordSize)  = 4
++ //.host/Shared Folders/FbgBase/src/TestFreiburg/lib/TestFbg/pkgIndex.tcl
exists:1
readable:0
stat(atime) = 1171619183
stat(ctime) = 1171619183
stat(dev)   = -1
stat(gid)   = 0
stat(ino)   = 0
stat(mode)  = 33188
stat(mtime) = 1171545538
stat(nlink) = 1
stat(size)  = 369
stat(type)  = file
stat(uid)   = 0
attribute(-archive)   = 0
attribute(-hidden)    = 0
attribute(-longname)  = //.host/Shared
Folders/FbgBase/src/TestFreiburg/lib/TestFbg/pkgIndex.tcl
attribute(-readonly)  = 0
attribute(-shortname) = //.host/Shared
Folders/FbgBase/src/TestFreiburg/lib/TestFbg/pkgIndex.tcl
attribute(-system)    = 0
pkgIndex.tcl: ##
pkgIndex.tcl: ##  testFreiburg - src/TestFreiburg/lib/pkgIndex.tcl
pkgIndex.tcl: ##
pkgIndex.tcl: ##  (C) 2004 - Freiburg - Project - Group
pkgIndex.tcl: ##  ------------------------------------------------------
pkgIndex.tcl: ##  EMail: freiburg AT compiler-factory DOT de
pkgIndex.tcl: ##  ------------------------------------------------------
pkgIndex.tcl: ##  all rights reserved
pkgIndex.tcl: ##
pkgIndex.tcl:
pkgIndex.tcl: package ifneeded TestFbg 2.0 [list source [file join $dir
TestFbg.tcl]]
pkgIndex.tcl:
pkgIndex.tcl:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


mfg

  Andreas Otto


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1661378&group_id=10894