Dump machine/os/tcl_version state on 'config' sub-cmd

2026-06-18 00:06:53 +08:00 · 2019-01-06 09:12:34 +01:00
parent d3527425fd
commit c8aa9491f2
1 changed files with 3 additions and 0 deletions
--- a/modulecmd.tcl.in
+++ b/modulecmd.tcl.in
@@ -9097,6 +9097,8 @@ proc cmdModuleConfig {dump_state args} {
            force [getForce]\
            is_stderr_tty [isStderrTty]\
            is_win [isWin]\
+            machine [uname machine]\
+            os "[uname sysname] [uname release]"\
            pager_started $::start_pager\
            paginate $::use_pager\
            path_separator [getPathSeparator]\
@@ -9108,6 +9110,7 @@ proc cmdModuleConfig {dump_state args} {
            subcmd $::command\
            subcmd_args $::otherargv\
            tcl_ext_lib_loaded [info exists ::g_tclextlib_loaded]\
+            tcl_version [info patchlevel]\
            term_columns [getTtyColumns]]

         unset displist