Mini Shell

# define modules runtine quarantine configuration
set -xg MODULES_RUN_QUARANTINE 'LD_LIBRARY_PATH LD_PRELOAD'

# setup quarantine if defined
set _mlre '';
for _mlv in (string split ' ' $MODULES_RUN_QUARANTINE)
  if string match -r '^[A-Za-z_][A-Za-z0-9_]*$' $_mlv >/dev/null
     if set -q $_mlv
        set _mlre $_mlre$_mlv"_modquar='$$_mlv' "
     end
     set _mlrv "MODULES_RUNENV_$_mlv"
     set _mlre "$_mlre$_mlv='$$_mlrv' "
  end
end
if [ -n "$_mlre" ]
  set _mlre "env $_mlre"
end

# define module command and surrounding initial environment (default value
# for MODULESHOME, MODULEPATH, LOADEDMODULES and parse of init config files)
eval $_mlre /usr/bin/tclsh /usr/share/Modules/libexec/modulecmd.tcl fish autoinit | source -

# no environment alteration if the above autoinit command failed
if [ $status -eq 0 ]
   if status -i
      if [ -r /usr/share/Modules/init/fish_completion ]
         source /usr/share/Modules/init/fish_completion
      end
   end

   # no switchml definition since there is no Fish support in C version

   if not contains /usr/share/Modules/bin $PATH
      set -xg PATH /usr/share/Modules/bin $PATH
   end

   # initialize MANPATH if not set with a value that preserves manpath system
   # configuration even after addition of paths to this variable by modulefiles
   if not set -q MANPATH
      set -xg MANPATH :
   end
   if not string match -q '*:/usr/share/man:*' :(manpath ^/dev/null):
      if [ -z "$MANPATH" -o "$MANPATH" = ':' ]
         set _mlpathsep ''
      else
         set _mlpathsep :
      end
      set -xg MANPATH /usr/share/man$_mlpathsep$MANPATH
      set -e _mlpathsep
   end
end

# clean temp variables used to setup quarantine
set -e _mlre; set -e _mlv; set -e _mlrv;