File Manager

Hackfut Security File Manager

Current Path: /usr/lib64/tcl8.5/tclx8.4

📁 ..
📄 arrayprocs.tcl(1.6 KB)
📄 autoload.tcl(2.22 KB)
📄 buildhelp.tcl(15.61 KB)
📄 compat.tcl(9.8 KB)
📄 convlib.tcl(3.86 KB)
📄 edprocs.tcl(1.95 KB)
📄 events.tcl(1.03 KB)
📄 fmath.tcl(2.19 KB)
📄 forfile.tcl(1.4 KB)
📄 globrecur.tcl(3.11 KB)
📄 help.tcl(10.36 KB)
📄 libtclx8.4.so(150.29 KB)
📄 pkgIndex.tcl(77 B)
📄 profrep.tcl(5.1 KB)
📄 pushd.tcl(1.83 KB)
📄 setfuncs.tcl(2.92 KB)
📄 showproc.tcl(1.46 KB)
📄 stringfile.tcl(1.38 KB)
📄 tcllib.tcl(4.32 KB)
📄 tclx.tcl(2.05 KB)

Editing: tclx.tcl

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

Hackfut Security File Manager

Editing: tclx.tcl

Upload File

Create Folder