Graybyt3 Was Here

Linux host2053.hostmonster.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64
Apache
67.20.112.170

File Name : fs.tcl

# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
#
#	$Id: fs.tcl,v 1.6 2004/03/28 02:44:57 hobbs Exp $
#
# File system routines to handle some file system variations
# and how that interoperates with the Tix widgets (mainly HList).
#
# Copyright (c) 2004 ActiveState

##
## Cross-platform
##

proc tixFSSep {} { return "/" }

proc tixFSNormalize {path} {
    # possibly use tixFSTilde ?
    return [file normalize $path]
}

proc tixFSVolumes {} {
    return [file volumes]
}

proc tixFSAncestors {path} {
    return [file split [file normalize $path]]
}

# how a filename should be displayed
proc tixFSDisplayFileName {path} {
    if {$path eq [file dirname $path]} {
	return $path
    } else {
	return [file tail $path]
    }
}

# dir:		Make a listing of this directory
# showSubDir:	Want to list the subdirectories?
# showFile:	Want to list the non-directory files in this directory?
# showPrevDir:	Want to list ".." as well?
# showHidden:	Want to list the hidden files?
#
# return value:	a list of files and/or subdirectories
#
proc tixFSListDir {dir showSubDir showFile showPrevDir \
		       showHidden {pattern ""}} {

if {$pattern eq ""} { set pattern [list "*"] }
    if {$::tcl_platform(platform) eq "unix"
	&& $showHidden && $pattern eq "*"} { lappend pattern ".*" }

if {[catch {eval [list glob -nocomplain -directory $dir] \
		    $pattern} files]} {
	# The user has entered an invalid or unreadable directory
	# %% todo: prompt error, go back to last succeed directory
	return ""
    }
    set list ""
    foreach f [lsort -dictionary $files] {
	set tail [file tail $f]
	# file tail handles this automatically
	#if {[string match ~* $tail]} { set tail ./$tail }
	if {[file isdirectory $f]} {
	    if {$tail eq "."} { continue }
	    if {$showSubDir} {
		if {$tail eq ".." && !$showPrevDir} { continue }
		lappend list $tail
	    }
	} else {
	    if {$showFile} { lappend list $tail }
	}
    }
    return $list
}

# in:	internal name
# out:	native name
proc tixFSNativeNorm {path} {
    return [tixFSNative [tixFSNormalize $path]]
}

# tixFSDisplayName --
#
#	Returns the name of a normalized path which is usually displayed by
#	the OS
#
proc tixFSDisplayName {path} {
    return [tixFSNative $path]
}

proc tixFSTilde {path} {
    # verify that paths with leading ~ are files or real users
    if {[string match ~* $path]} {
	# The following will report if the user doesn't exist
	if {![file isdirectory $path]} {
	    set path ./$path
	} else {
	    set path [file normalize $path]
	}
    }
    return $path
}

proc tixFSJoin {dir sub} {
    return [tixFSNative [file join $dir [tixFSTilde $sub]]]
}

proc tixFSNative {path} {
    return $path
}

if {$::tcl_platform(platform) eq "windows"} {

##
    ## WINDOWS
    ##

# is an absoulte path only if it starts with a baclskash
    # or starts with "<drive letter>:"
    #
    # in: nativeName
    #
    proc tixFSIsAbsPath {nativeName} {
	set ptype [file pathtype $nativename]
	return [expr {$ptype eq "absolute" || $ptype eq "volumerelative"}]
    }

# tixFSIsValid --
    #
    #	Checks whether a native pathname contains invalid characters.
    #
    proc tixFSIsValid {path} {
	#if {$::tcl_platform(platform) eq "windows"} {set bad "\\/:*?\"<>|\0"}
	return 1
    }

proc tixFSExternal {path} {
	# Avoid normalization on root adding unwanted volumerelative pwd
	if {[string match -nocase {[A-Z]:} $path]} {
	    return $path/
	}
	return [file normalize $path]
    }

proc tixFSInternal {path} {
	# Only need to watch for ^[A-Z]:/$, but this does the trick
	return [string trimright [file normalize $path] /]
    }

} else {

##
    ## UNIX
    ##

proc tixFSIsAbsPath {path} {
	return [string match {[~/]*} $path]
    }

# tixFSIsValid --
    #
    #	Checks whether a native pathname contains invalid characters.
    #
    proc tixFSIsValid {path} { return 1 }

proc tixFSExternal {path} { return $path }
    proc tixFSInternal {path} { return $path }

}

System Information
*ReClick For Close
File : BlackDragon /wp-includes/Requests/src/test.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2019-10-02 04:58:49
..	dir	-	root/root	0755	2019-10-02 04:59:06
bitmaps	dir	-	root/root	0755	2019-10-02 04:58:49
html	dir	-	root/root	0755	2014-06-10 12:18:26
pref	dir	-	root/root	0755	2019-10-02 04:58:49
Balloon.tcl	text/plain	12.97 KB	root/root	0644	2014-06-10 12:18:26
BtnBox.tcl	text/plain	2.61 KB	root/root	0644	2014-06-10 12:18:26
CObjView.tcl	text/plain	7.56 KB	root/root	0644	2014-06-10 12:18:26
ChkList.tcl	text/plain	4.97 KB	root/root	0644	2014-06-10 12:18:26
ComboBox.tcl	text/plain	35.42 KB	root/root	0644	2014-06-10 12:18:26
Compat.tcl	text/plain	870 B	root/root	0644	2014-06-10 12:18:26
Console.tcl	text/plain	14.95 KB	root/root	0644	2014-06-10 12:18:26
Control.tcl	text/plain	12.11 KB	root/root	0644	2014-06-10 12:18:26
DefSchm.tcl	text/plain	2.94 KB	root/root	0644	2014-06-10 12:18:26
DialogS.tcl	text/plain	4.2 KB	root/root	0644	2014-06-10 12:18:26
DirBox.tcl	text/plain	5.3 KB	root/root	0644	2014-06-10 12:18:26
DirDlg.tcl	text/plain	2.15 KB	root/root	0644	2014-06-10 12:18:26
DirList.tcl	text/plain	6.9 KB	root/root	0644	2014-06-10 12:18:26
DirTree.tcl	text/plain	8.76 KB	root/root	0644	2014-06-10 12:18:26
DragDrop.tcl	text/plain	3.93 KB	root/root	0644	2014-06-10 12:18:26
DtlList.tcl	text/plain	1002 B	root/root	0644	2014-06-10 12:18:26
EFileBox.tcl	text/plain	11.12 KB	root/root	0644	2014-06-10 12:18:26
EFileDlg.tcl	text/plain	1.68 KB	root/root	0644	2014-06-10 12:18:26
Event.tcl	text/plain	5.11 KB	root/root	0644	2014-06-10 12:18:26
FileBox.tcl	text/plain	14 KB	root/root	0644	2014-06-10 12:18:26
FileCbx.tcl	text/plain	2.42 KB	root/root	0644	2014-06-10 12:18:26
FileDlg.tcl	text/plain	2.13 KB	root/root	0644	2014-06-10 12:18:26
FileEnt.tcl	text/plain	7.15 KB	root/root	0644	2014-06-10 12:18:26
FloatEnt.tcl	text/plain	3.1 KB	root/root	0644	2014-06-10 12:18:26
Grid.tcl	text/plain	21.16 KB	root/root	0644	2014-06-10 12:18:26
HList.tcl	text/plain	17.72 KB	root/root	0644	2014-06-10 12:18:26
HListDD.tcl	text/plain	4.39 KB	root/root	0644	2014-06-10 12:18:26
IconView.tcl	text/plain	5.97 KB	root/root	0644	2014-06-10 12:18:26
Init.tcl	text/plain	6.05 KB	root/root	0644	2014-06-10 12:18:26
LabEntry.tcl	text/plain	2.09 KB	root/root	0644	2014-06-10 12:18:26
LabFrame.tcl	text/plain	1.15 KB	root/root	0644	2014-06-10 12:18:26
LabWidg.tcl	text/plain	3.86 KB	root/root	0644	2014-06-10 12:18:26
ListNBk.tcl	text/plain	3.5 KB	root/root	0644	2014-06-10 12:18:26
Meter.tcl	text/plain	3.04 KB	root/root	0644	2014-06-10 12:18:26
MultView.tcl	text/plain	3.62 KB	root/root	0644	2014-06-10 12:18:26
NoteBook.tcl	text/plain	6.02 KB	root/root	0644	2014-06-10 12:18:26
OldUtil.tcl	text/plain	2.98 KB	root/root	0644	2014-06-10 12:18:26
OptMenu.tcl	text/plain	9.17 KB	root/root	0644	2014-06-10 12:18:26
PanedWin.tcl	text/plain	27.68 KB	root/root	0644	2014-06-10 12:18:26
PopMenu.tcl	text/plain	5.37 KB	root/root	0644	2014-06-10 12:18:26
Primitiv.tcl	text/plain	10.28 KB	root/root	0644	2014-06-10 12:18:26
README.txt	text/plain	987 B	root/root	0644	2014-06-10 12:18:26
ResizeH.tcl	text/plain	12.94 KB	root/root	0644	2014-06-10 12:18:26
SGrid.tcl	text/plain	5.8 KB	root/root	0644	2014-06-10 12:18:26
SHList.tcl	text/plain	3.7 KB	root/root	0644	2014-06-10 12:18:26
SListBox.tcl	text/plain	6.97 KB	root/root	0644	2014-06-10 12:18:26
STList.tcl	text/plain	2.37 KB	root/root	0644	2014-06-10 12:18:26
SText.tcl	text/plain	3.09 KB	root/root	0644	2014-06-10 12:18:26
SWidget.tcl	text/plain	9.52 KB	root/root	0644	2014-06-10 12:18:26
SWindow.tcl	text/plain	6.75 KB	root/root	0644	2014-06-10 12:18:26
Select.tcl	text/plain	7.04 KB	root/root	0644	2014-06-10 12:18:26
Shell.tcl	text/plain	1.06 KB	root/root	0644	2014-06-10 12:18:26
SimpDlg.tcl	text/plain	1.13 KB	root/root	0644	2014-06-10 12:18:26
StackWin.tcl	text/plain	1.95 KB	root/root	0644	2014-06-10 12:18:26
StatBar.tcl	text/plain	1.31 KB	root/root	0644	2014-06-10 12:18:26
StdBBox.tcl	text/plain	1.62 KB	root/root	0644	2014-06-10 12:18:26
StdShell.tcl	text/plain	1.15 KB	root/root	0644	2014-06-10 12:18:26
TList.tcl	text/plain	17.59 KB	root/root	0644	2014-06-10 12:18:26
Tix.tcl	text/plain	9.51 KB	root/root	0644	2014-06-10 12:18:26
Tree.tcl	text/plain	4.57 KB	root/root	0644	2014-06-10 12:18:26
Utils.tcl	text/plain	10.54 KB	root/root	0644	2014-06-10 12:18:26
VResize.tcl	text/plain	4.95 KB	root/root	0644	2014-06-10 12:18:26
VStack.tcl	text/plain	9.42 KB	root/root	0644	2014-06-10 12:18:26
VTree.tcl	text/plain	4.31 KB	root/root	0644	2014-06-10 12:18:26
Variable.tcl	text/plain	2.5 KB	root/root	0644	2014-06-10 12:18:26
WInfo.tcl	text/plain	965 B	root/root	0644	2014-06-10 12:18:26
fs.tcl	text/plain	3.9 KB	root/root	0644	2014-06-10 12:18:26
libTix.so	application/x-pie-executable	320.71 KB	root/root	0755	2014-06-10 12:18:27
license.terms	text/plain	2.76 KB	root/root	0644	2014-06-10 12:18:26
pkgIndex.tcl	text/plain	122 B	root/root	0644	2014-06-10 12:18:26