/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
|