18 lines
383 B
Tcl
Executable File
18 lines
383 B
Tcl
Executable File
#!/bin/sh
|
|
# \
|
|
exec tclsh "$0" ${1+"$@"}
|
|
|
|
set cnt 1
|
|
foreach el [split $env(PATH) ":"] {
|
|
set el [string trimright $el /]
|
|
if { ! [array exists path] || [array names path *,$el] == "" } {
|
|
set path([format "%03d" $cnt],$el) 1
|
|
}
|
|
incr cnt
|
|
}
|
|
foreach el [lsort [array names path]] {
|
|
append res "[string range $el 4 end]:"
|
|
}
|
|
set res [string trimright $res :]
|
|
puts $res
|