You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
461 B
20 lines
461 B
set ::tclsh(evalinput) 1 |
|
set sep [string repeat - 30] |
|
puts stdout $sep |
|
puts stdout "tcl::tm::list" |
|
puts stdout $sep |
|
puts stdout [join [tcl::tm::list] \n] |
|
|
|
puts stdout $sep |
|
puts stdout "auto_path" |
|
puts stdout $sep |
|
puts stdout [join $::auto_path \n] |
|
puts stdout $sep |
|
|
|
puts stdout "package names" |
|
set packages [lsort [package names]] |
|
puts stdout $sep |
|
puts stdout [join $packages \n] |
|
puts stdout $sep |
|
puts stdout "[llength $packages] packages" |
|
|
|
|