Updated 2018-06-12 10:14:55 by APN

Created by CecilWesterhof.

A proc to display (what I think is) the most interesting tcl system information:
proc ::dcblUtilities::displaySystemInfo {} {
    set indent "        "

    puts   "TCL Version:    ${::tcl_version}"
    puts   "Patch Level:    ${::tcl_patchLevel}"
    puts   "Startup File:   ${::tcl_rcFileName}"
    puts   "FP Precision:   ${::tcl_precision}"
    puts   "argv0:          ${::argv0}"
    puts   "argc:           ${::argc}"
    puts   "argv:           ${::argv}"
    foreach arg ${::argv} {
        puts ${indent}${arg}
    puts   "Libaries:"
    foreach lib ${::tcl_library} {
        puts ${indent}${lib}
    puts   "Package Path:"
    foreach path ${::tcl_pkgPath} {
        puts ${indent}${path}
    parray ::tcl_platform

As always: comments, tips and questions are appreciated.

APN One comment - the variable tcl_pkgPath is not guaranteed to exist on all platforms. Also, some additional system information is available as
foreach item [tcl::pkgconfig list] {
    puts "$item: [tcl::pkgconfig get $item]"

package require platform
puts "Platform: [platform::identify]"