Linux ams-business-8.hostwindsdns.com 4.18.0-553.80.1.lve.el8.x86_64 #1 SMP Wed Oct 22 19:29:36 UTC 2025 x86_64
LiteSpeed
Server IP : 192.236.177.161 & Your IP : 216.73.216.154
Domains :
Cant Read [ /etc/named.conf ]
User : ajzdfbpz
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
lib64 /
tcl8.5 /
tclx8.4 /
Delete
Unzip
Name
Size
Permission
Date
Action
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
Save
Rename
# # arrayprocs.tcl -- # # Extended Tcl array procedures. # #------------------------------------------------------------------------------ # Copyright 1992-1999 Karl Lehenbauer and Mark Diekhans. # # Permission to use, copy, modify, and distribute this software and its # documentation for any purpose and without fee is hereby granted, provided # that the above copyright notice appear in all copies. Karl Lehenbauer and # Mark Diekhans make no representations about the suitability of this # software for any purpose. It is provided "as is" without express or # implied warranty. #------------------------------------------------------------------------------ # $Id: arrayprocs.tcl,v 1.2 2002/04/02 03:00:14 hobbs Exp $ #------------------------------------------------------------------------------ # #@package: TclX-ArrayProcedures for_array_keys proc for_array_keys {varName arrayName codeFragment} { upvar $varName enumVar $arrayName enumArray if {![array exists enumArray]} { return -code error "\"$arrayName\" isn't an array" } set code 0 set result {} set searchId [array startsearch enumArray] while {[array anymore enumArray $searchId]} { set enumVar [array nextelement enumArray $searchId] set code [catch {uplevel 1 $codeFragment} result] if {$code != 0 && $code != 4} break } array donesearch enumArray $searchId if {$code == 0 || $code == 3 || $code == 4} { return $result } if {$code == 1} { global errorCode errorInfo return -code $code -errorcode $errorCode -errorinfo $errorInfo $result } return -code $code $result }