Ticket #43194: find_the_culprit.tcl

File find_the_culprit.tcl, 424 bytes (added by neverpanic (Clemens Lang), 11 years ago)
Line 
1#!/usr/bin/tclsh
2
3foreach path $auto_path {
4        set tclIndexFile [file join $path tclIndex]
5        set type "none"
6        if {[file exists $tclIndexFile]} {
7                set type [file type $tclIndexFile]
8        }
9        puts [format "%10s %s" $type $tclIndexFile]
10
11        if {[file exists $tclIndexFile]} {
12                if {[catch {
13                        set f [open $tclIndexFile]
14                        gets $f
15                        close $f
16                } msg]} {
17                        puts [format "           failed to open %s: %s" $tclIndexFile $msg]
18                }
19        }
20}