Re: [Tcllib-devel] fileutil::find in tcllib 1.17 does not come back when used on /sys/devices

[Frank S. <Fra...@gm...>]

Hi Andreas,

> Please report this at the ticket system at
>     https://core.tcl.tk/tcllib/tktnew

ok, done.

> This "/sys/devices" directory, is that a special filesystem on linux ?
> Or some other platform ?

Yes, that's a special file system under Linux. It provides direct
hardware access via file I/O (https://en.wikipedia.org/wiki/Sysfs). It
also uses a lot of linking inside between drivers, devices, etc. So my
suspicion is that you get into an endless loop while following some of
these links.

> only the top 4 changes were made after 1.16 (Feb 11, 2014) was released.
> Right now I suspect the top-most, last change, because it is the only
> one directly reworking "find" a bit.

If you want me to do some trials perhaps with debug output then please
let me know.

Best regards,
Frank


Am 11.05.2015 um 19:03 schrieb Andreas Kupries:
> Thank you for the report.
>
> Please report this at the ticket system at
>     https://core.tcl.tk/tcllib/tktnew
> An anon login is enough to be allowed to make tickets.
>
> Looking at the history of the file, at
>     https://core.tcl.tk/tcllib/finfo?name=modules/fileutil/fileutil.tcl&ci=4dc136d4389178dc
>
> only the top 4 changes were made after 1.16 (Feb 11, 2014) was released.
> Right now I suspect the top-most, last change, because it is the only
> one directly reworking "find" a bit.
>
> This "/sys/devices" directory, is that a special filesystem on linux ?
> Or some other platform ?
>
>
>
> On Sat, May 9, 2015 at 6:43 AM, Frank Storm <Fra...@gm...> wrote:
>> Hi,
>>
>> I'm using the fileutil::find command to search for certain USB devices
>> under /sys/devices. This still worked fine in tcllib 1.16. However, the
>> functions hangs (endless loop?) in tcllib 1.17.
>> Here is a small test program:
>>
>> --- snip ---
>>
>> package require fileutil
>>
>>
>> proc IsIdVendorFile {fileName} {
>>
>>     return [string equal idVendor $fileName]
>> }
>>
>>
>> foreach vendorIdFileName [fileutil::find /sys/devices IsIdVendorFile] {
>>     puts $vendorIdFileName
>> }
>>
>> --- snip ---
>>
>> I did not check the find command for other trees. As the function is
>> also a bit more complex, I also did not start any debugging ;-)
>>
>>
>> Best regards,
>> Frank
>>
>>
>>
>> ------------------------------------------------------------------------------
>> One dashboard for servers and applications across Physical-Virtual-Cloud
>> Widest out-of-the-box monitoring support with 50+ applications
>> Performance metrics, stats and reports that give you Actionable Insights
>> Deep dive visibility with transaction tracing using APM Insight.
>> http://ad.doubleclick.net/ddm/clk/290420510;117567292;y
>> _______________________________________________
>> Tcllib-devel mailing list
>> Tcl...@li...
>> https://lists.sourceforge.net/lists/listinfo/tcllib-devel
>
>