Gecko [ gtgates.com ]

Name	Size	Permission	Date
arrayprocs.tcl	1.6 KB	-rw-r--r--	2002-04-02 03:00
autoload.tcl	2.22 KB	-rw-r--r--	2002-04-02 03:00
buildhelp.tcl	15.61 KB	-rw-r--r--	2005-03-25 19:32
compat.tcl	9.8 KB	-rw-r--r--	2001-10-24 23:31
convlib.tcl	3.86 KB	-rw-r--r--	2001-10-24 23:31
edprocs.tcl	1.95 KB	-rw-r--r--	2004-11-23 00:35
events.tcl	1.03 KB	-rw-r--r--	2001-10-24 23:31
fmath.tcl	2.19 KB	-rw-r--r--	2002-04-02 03:00
forfile.tcl	1.4 KB	-rw-r--r--	2001-10-24 23:31
globrecur.tcl	3.11 KB	-rw-r--r--	2001-10-24 23:31
help.tcl	10.36 KB	-rw-r--r--	2004-11-23 05:54
libtclx8.4.so	155.52 KB	-rwxr-xr-x	2014-06-10 00:30
pkgIndex.tcl	77 B	-rw-r--r--	2014-06-10 00:30
profrep.tcl	5.1 KB	-rw-r--r--	2001-10-24 23:31
pushd.tcl	1.83 KB	-rw-r--r--	2001-10-24 23:31
setfuncs.tcl	2.92 KB	-rw-r--r--	2001-10-24 23:31
showproc.tcl	1.46 KB	-rw-r--r--	2001-10-24 23:31
stringfile.tcl	1.38 KB	-rw-r--r--	2001-10-24 23:31
tcllib.tcl	4.32 KB	-rw-r--r--	2001-10-24 23:31
tclx.tcl	2.05 KB	-rw-r--r--	2005-11-21 18:37

Rename

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