Add spack cd and spack location commands.
- Better shell support for cd'ing into directories - Fix some csh weirdness with nested aliases.
This commit is contained in:
@@ -45,9 +45,9 @@ set _sp_spec=""
|
||||
# Figure out what type of module we're running here.
|
||||
set _sp_modtype = ""
|
||||
switch ($_sp_subcommand)
|
||||
case "cd":
|
||||
case cd:
|
||||
shift _sp_args
|
||||
cd `spack stage --print-build-dir $_sp_args`
|
||||
cd `spack location $_sp_args`
|
||||
breaksw
|
||||
case use:
|
||||
case unuse:
|
||||
@@ -59,30 +59,36 @@ case unload:
|
||||
shift _sp_spec
|
||||
set _sp_spec = ($_sp_spec)
|
||||
endif
|
||||
# Translate the parameter into pieces of a command.
|
||||
# _sp_modtype is an arg to spack module find, and
|
||||
# _sp_sh_cmd is the equivalent shell command.
|
||||
switch ($_sp_subcommand)
|
||||
case use:
|
||||
case unuse:
|
||||
set _sp_modtype = dotkit
|
||||
set _sp_sh_cmd = ( "`alias $_sp_subcommand'" )
|
||||
breaksw
|
||||
case load:
|
||||
case unload:
|
||||
set _sp_modtype = tcl
|
||||
set _sp_sh_cmd = ( "`alias module`" $_sp_subcommand )
|
||||
breaksw
|
||||
endsw
|
||||
|
||||
# Here the user has run use or unuse with a spec. Find a matching
|
||||
# spec using 'spack module find', then use the appropriate module
|
||||
# tool's commands to add/remove the result from the environment.
|
||||
# If spack module command comes back with an error, do nothing.
|
||||
set _sp_full_spec = ""
|
||||
if { set _sp_full_spec = `\spack module find $_sp_modtype $_sp_spec` } then
|
||||
$_sp_sh_cmd $_sp_module_args $_sp_full_spec
|
||||
endif
|
||||
switch ($_sp_subcommand)
|
||||
case "use":
|
||||
set _sp_full_spec = ( "`\spack $_sp_flags module find dotkit $_sp_spec`" )
|
||||
if ( $? == 0 ) then
|
||||
use $_sp_module_args $_sp_full_spec
|
||||
endif
|
||||
breaksw
|
||||
case "unuse":
|
||||
set _sp_full_spec = ( "`\spack $_sp_flags module find dotkit $_sp_spec`" )
|
||||
if ( $? == 0 ) then
|
||||
unuse $_sp_module_args $_sp_full_spec
|
||||
endif
|
||||
breaksw
|
||||
case "load":
|
||||
set _sp_full_spec = ( "`\spack $_sp_flags module find tcl $_sp_spec`" )
|
||||
if ( $? == 0 ) then
|
||||
module load $_sp_module_args $_sp_full_spec
|
||||
endif
|
||||
breaksw
|
||||
case "unload":
|
||||
set _sp_full_spec = ( "`\spack $_sp_flags module find tcl $_sp_spec`" )
|
||||
if ( $? == 0 ) then
|
||||
module unload $_sp_module_args $_sp_full_spec
|
||||
endif
|
||||
breaksw
|
||||
endsw
|
||||
breaksw
|
||||
|
||||
default:
|
||||
|
@@ -37,7 +37,7 @@ if ($?SPACK_ROOT) then
|
||||
|
||||
# Command aliases point at separate source files
|
||||
alias spack 'set _sp_args = (\!*); source $_spack_share_dir/csh/spack.csh'
|
||||
alias _spack_pathadd 'set _pa_args = (\!*) && source $_spack_share_dir/csh/spack_pathadd.csh'
|
||||
alias _spack_pathadd 'set _pa_args = (\!*) && source $_spack_share_dir/csh/pathadd.csh'
|
||||
|
||||
# Set up modules and dotkit search paths in the user environment
|
||||
# TODO: fix SYS_TYPE to something non-LLNL-specific
|
||||
|
@@ -76,7 +76,7 @@ function spack {
|
||||
# command.
|
||||
case $_sp_subcommand in
|
||||
"cd")
|
||||
cd $(spack stage --print-build-dir "$@")
|
||||
cd $(spack location "$@")
|
||||
return
|
||||
;;
|
||||
"use"|"unuse"|"load"|"unload")
|
||||
@@ -87,28 +87,28 @@ function spack {
|
||||
_sp_spec="$@"
|
||||
fi
|
||||
|
||||
# Translate the parameter into pieces of a command.
|
||||
# _sp_modtype is an arg to spack module find, and
|
||||
# _sp_sh_cmd is the equivalent shell command.
|
||||
case $_sp_subcommand in
|
||||
"use"|"unuse")
|
||||
_sp_modtype=dotkit
|
||||
_sp_sh_cmd=$_sp_subcommand
|
||||
;;
|
||||
"load"|"unload")
|
||||
_sp_modtype=tcl
|
||||
_sp_sh_cmd="module $_sp_subcommand"
|
||||
;;
|
||||
esac
|
||||
|
||||
# Here the user has run use or unuse with a spec. Find a matching
|
||||
# spec using 'spack module find', then use the appropriate module
|
||||
# tool's commands to add/remove the result from the environment.
|
||||
# If spack module command comes back with an error, do nothing.
|
||||
if _sp_full_spec=$(command spack $_sp_flags module find $_sp_modtype $_sp_spec); then
|
||||
$_sp_sh_cmd $_sp_module_args $_sp_full_spec
|
||||
fi
|
||||
return
|
||||
case $_sp_subcommand in
|
||||
"use")
|
||||
if _sp_full_spec=$(command spack $_sp_flags module find dotkit $_sp_spec); then
|
||||
use $_sp_module_args $_sp_full_spec
|
||||
fi ;;
|
||||
"unuse")
|
||||
if _sp_full_spec=$(command spack $_sp_flags module find dotkit $_sp_spec); then
|
||||
unuse $_sp_module_args $_sp_full_spec
|
||||
fi ;;
|
||||
"load")
|
||||
if _sp_full_spec=$(command spack $_sp_flags module find dotkit $_sp_spec); then
|
||||
module load $_sp_module_args $_sp_full_spec
|
||||
fi ;;
|
||||
"unload")
|
||||
if _sp_full_spec=$(command spack $_sp_flags module find dotkit $_sp_spec); then
|
||||
module unload $_sp_module_args $_sp_full_spec
|
||||
fi ;;
|
||||
esac
|
||||
;;
|
||||
*)
|
||||
command spack $_sp_flags $_sp_subcommand $_sp_spec
|
||||
|
Reference in New Issue
Block a user