mirror of
https://github.com/envmodules/modules.git
synced 2026-06-03 00:33:18 +08:00
61 lines
1.3 KiB
Plaintext
61 lines
1.3 KiB
Plaintext
#%Module######################################################################
|
|
##
|
|
## User's home directory paths Module
|
|
##
|
|
proc ModulesHelp { } {
|
|
puts stderr "\tThis module adds paths that are off the users home directory."
|
|
puts stderr "If subdirectories are in place based upon the current operating"
|
|
puts stderr "system, those subdirectories will be included in the paths.\n"
|
|
puts stderr "Supported OS types:\tsunos5\tiris4d\tlinux"
|
|
puts stderr "It also adds ~/.modules to your modules paths if you have it"
|
|
}
|
|
|
|
set home $env(HOME)
|
|
set sys [uname sysname]
|
|
set os [uname release]
|
|
|
|
if { [file isdirectory $home/.modules] } {
|
|
module use $home/.modules
|
|
}
|
|
|
|
# Binaries
|
|
if { [file isdirectory $home/bin] } {
|
|
append-path PATH $home/bin
|
|
}
|
|
|
|
if { [file isdirectory $home/bin.${sys}_${os}] } {
|
|
append-path PATH $home/bin.${sys}_${os}
|
|
}
|
|
|
|
switch -glob $sys {
|
|
SunOS {
|
|
set b_os sunos5
|
|
}
|
|
|
|
IRIX* {
|
|
set b_os iris4d
|
|
}
|
|
|
|
Linux {
|
|
set b_os linux
|
|
}
|
|
Darwin {
|
|
set b_os darwin
|
|
}
|
|
default {
|
|
set b_os unknown
|
|
}
|
|
|
|
}
|
|
|
|
if { [file isdirectory $home/bin/$b_os] } {
|
|
append-path PATH $home/bin/$b_os
|
|
}
|
|
|
|
|
|
# puts stderr "MANPATH: $env(MANPATH)\n"
|
|
# Manuals
|
|
if { [file isdirectory $home/man] } {
|
|
append-path MANPATH $home/man
|
|
}
|