This file is indexed.

/usr/lib/tclx8.4/tclx.tcl is in tclx8.4 8.4.1-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
#-----------------------------------------------------------------------------
# tclx.tcl -- Extended Tcl initialization.
#-----------------------------------------------------------------------------
# $Id: tclx.tcl,v 1.6 2005/11/21 18:37:58 hobbs Exp $
#-----------------------------------------------------------------------------

namespace eval ::tclx {
    global auto_path auto_index tclx_library
    if {[info exists tclx_library] && [string length $tclx_library]} {
	set auto_index(buildpackageindex) \
		{source [file join $tclx_library buildidx.tcl]}
	if {![info exists auto_path] ||
	    [lsearch -exact $auto_path $tclx_library] == -1} {
	    lappend auto_path $tclx_library
	}
    }

    variable file ""
    variable dir  ""
    variable libfiles
    array set libfiles {
	arrayprocs.tcl	1
	autoload.tcl	0
	buildhelp.tcl	0
	buildidx.tcl	0
	compat.tcl	1
	convlib.tcl	1
	edprocs.tcl	1
	events.tcl	1
	fmath.tcl	1
	forfile.tcl	1
	globrecur.tcl	1
	help.tcl	1
	profrep.tcl	1
	pushd.tcl	1
	setfuncs.tcl	1
	showproc.tcl	1
	stringfile.tcl	1
	tcllib.tcl	0
	tclx.tcl	0
    }
    set dir [file dirname [info script]]
    foreach file [array names libfiles] {
	if {$libfiles($file)} {
	    uplevel \#0 [list source [file join $dir $file]]
	}
    }

    if 0 {
	# A pure Tcl equivalent to TclX's readdir, except that it includes
	# . and .., which should be removed
	proc ::readdir {args} {
	    set len [llength $args]
	    set ptn [list *]
	    if {![string equal $::tcl_platform(platform) "windows"]} {
		lappend ptn .*
	    }
	    if {$len == 1} {
		set dir [lindex $args 0]
	    } elseif {$len == 2} {
		if {![string equal [lindex $args 0] "-hidden"]} {
		    return -code error \
			"expected option of \"-hidden\", got \"[lindex $args 0]\""
		}
		if {[string equal $::tcl_platform(platform) "windows"]} {
		    lappend ptn .*
		}
		set dir [lindex $args 1]
	    } else {
		set cmd [lindex [info level 0] 0]
		return -code error \
		    "wrong \# args: $cmd ?-hidden? dirPath"
	    }
	    return [eval [list glob -tails -nocomplain -directory $dir] $ptn]
	}
    }

}; # end namespace tclx