envmodules/modules
1
0
Fork 0
mirror of https://github.com/envmodules/modules.git synced 2026-06-10 00:56:30 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

This is a patch by John Tseng,

Browse Source 
It adds the ability to support Dynamic columns using stty
you just setenv DYNAMIC_COLUMNS 1
and it will start using them.

Kent
This commit is contained in:
sirdude
2009-04-09 19:53:14 +00:00
parent ba5d9d0c72
commit a3a5564d7d
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tcl/modulecmd.tcl
View File

@@ -18,6 +18,16 @@ set flag_default_dir 1 ;# Report default directories
set flag_default_mf 1 ;# Report default modulefiles and version alias
set g_def_seperator ":" ;# Default path seperator
# Dynamic column
if {[info exists env(DYNAMIC_COLUMNS)]} { # do dynamic columns?
# yes, read the stty size size information and reset DEF_COLUMNS
set stty_output [exec stty size]
if {$stty_output != ""} {
set dynamic_column [lindex $stty_output 1]
set DEF_COLUMNS $dynamic_column
}
}
# Change this to your support email address...
set contact "root@localhost"
@@ -2846,7 +2856,7 @@ proc cmdModuleHelp {args} {
}
if {$done == 0} {
report "Modules Release Tcl $MODULES_CURRENT_VERSION " 1
report {($RCSfile: modulecmd.tcl,v $ $Revision: 1.120 $)}
report {($RCSfile: modulecmd.tcl,v $ $Revision: 1.121 $)}
report { Copyright GNU GPL v2 1991}
report {Usage: module [ command ]}