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.