ACIL FM
Dark
Refresh
Current DIR:
/usr/share/tcl8.6
/
usr
share
tcl8.6
Upload
Zip Selected
Delete Selected
Pilih semua
Nama
Ukuran
Permission
Aksi
encoding
-
chmod
Open
Rename
Delete
http1.0
-
chmod
Open
Rename
Delete
msgs
-
chmod
Open
Rename
Delete
opt0.4
-
chmod
Open
Rename
Delete
auto.tcl
20.84 MB
chmod
View
DL
Edit
Rename
Delete
clock.tcl
125.91 MB
chmod
View
DL
Edit
Rename
Delete
history.tcl
7.71 MB
chmod
View
DL
Edit
Rename
Delete
init.tcl
23.76 MB
chmod
View
DL
Edit
Rename
Delete
package.tcl
22.42 MB
chmod
View
DL
Edit
Rename
Delete
parray.tcl
816 B
chmod
View
DL
Edit
Rename
Delete
safe.tcl
32.66 MB
chmod
View
DL
Edit
Rename
Delete
tclDTrace.d
7.1 MB
chmod
View
DL
Edit
Rename
Delete
tclIndex
5.41 MB
chmod
View
DL
Edit
Rename
Delete
tm.tcl
11.37 MB
chmod
View
DL
Edit
Rename
Delete
word.tcl
4.75 MB
chmod
View
DL
Edit
Rename
Delete
Edit file: /usr/share/tcl8.6/parray.tcl
# parray: # Print the contents of a global array on stdout. # # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994 Sun Microsystems, Inc. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # proc parray {a {pattern *}} { upvar 1 $a array if {![array exists array]} { return -code error "\"$a\" isn't an array" } set maxl 0 set names [lsort [array names array $pattern]] foreach name $names { if {[string length $name] > $maxl} { set maxl [string length $name] } } set maxl [expr {$maxl + [string length $a] + 2}] foreach name $names { set nameString [format %s(%s) $a $name] puts stdout [format "%-*s = %s" $maxl $nameString $array($name)] } }
Simpan
Batal
Isi Zip:
Unzip
Create
Buat Folder
Buat File
Terminal / Execute
Run
Chmod Bulk
All File
All Folder
All File dan Folder
Apply