<h2>Edit File: envml</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/bin/bash
#
# ENVML, setup environment with module then run specified command
# Copyright (C) 2015-2022 CEA/DAM
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.

##########################################################################


typeset progpath=$0
typeset prog=${progpath##*/}
typeset arg
typeset subarg
typeset kind_of_arg='mod'
typeset -a modarglist=()
typeset -a maymodarglist=()
typeset -a maycmdarglist=()
typeset -a cmdarglist=()


# print message on stderr then exit
echo_error() {
    echo &quot;$prog: $1&quot; &gt;&amp;2
    exit 1
}

arg_into_modaction() {
    # split module action from its argument
    local action=&quot;${1/=/ }&quot;
    # split multiple arguments
    if [ &quot;${action//;/ }&quot; == &quot;${action}&quot; ]; then
        action=&quot;${action//&amp;/ }&quot;
    else
        # enable arg split over ';' to enable same behavior than envml.cmd
        action=&quot;${action//;/ }&quot;
    fi

    case &quot;$action&quot; in
        purge*|restore*|unload*|switch*|load*) echo &quot;$action&quot;  ;;
        *) echo &quot;load $action&quot; ;;
    esac
}

# print usage message
echo_usage() {
    echo &quot;Usage: $progpath [MODULE_ACTION]... [--] COMMAND [ARG]...
Run MODULE_ACTION(s) to setup environment then run COMMAND.

Syntax of supported MODULE_ACTIONs:
  purge                  unload all loaded modulefiles
  restore[=coll]         restore module list from collection named coll or
                         default collection if no collection name provided
  unload=mod1[&amp;mod2...]  remove modulefile(s) mod1, (mod2...)
  switch=mod1&amp;mod2       unload modulefile mod1 and load mod2
  [load=]mod1[&amp;mod2...]  load modulefile(s) mod1, (mod2...)

Multiple MODULE_ACTION arguments can be specified as one argument by
separating them with a colon character (:).

To clearly separate command-line arguments from the module action arguments
a '--' argument can be used. Without this '--' separator, first argument is
considered module action and following arguments are part of command-line.

Examples:
  $progpath restore command arg1 arg2
  $progpath purge:mod1:mod2 command arg1 arg2
  $progpath restore load=mod1&amp;mod2 -- command arg1 arg2&quot;
}

# command help is asked
if [ $# -eq 0 ] || [ &quot;$1&quot; == '-h' ] || [ &quot;$1&quot; == '--help' ]; then
    echo_usage
    exit 0
fi

# parse arguments
for arg in &quot;${@}&quot;; do
    # reach separator, everything after is part of cmd
    if [ &quot;$arg&quot; == '--' ]; then
        kind_of_arg='cmd'
    else
        if [ &quot;$kind_of_arg&quot; == 'cmd' ]; then
            cmdarglist+=(&quot;$arg&quot;)
        else
            for subarg in ${arg//:/ }; do
                if [ &quot;$kind_of_arg&quot; == 'mod' ]; then
                    modarglist+=(&quot;$(arg_into_modaction &quot;$subarg&quot;)&quot;)
                else
                    maymodarglist+=(&quot;$(arg_into_modaction &quot;$subarg&quot;)&quot;)
                    maycmdarglist+=(&quot;$subarg&quot;)
                fi
            done

            # after first arg, we are not sure
            # following args are about module env
            if [ &quot;$kind_of_arg&quot; == 'mod' ]; then
                kind_of_arg='maymod'
            fi
        fi
    fi
done

# if a cmd separator has been found what we thought
# to be module-related is really module-related
if [ &quot;$kind_of_arg&quot; == 'cmd' ]; then
    modarglist+=(&quot;${maymodarglist[@]}&quot;)
# elsewhere what we thought to be module-related
# is in fact command-line related
else
    cmdarglist=(&quot;${maycmdarglist[@]}&quot; &quot;${cmdarglist[@]}&quot;)
fi


# check module function is defined
if ! typeset -F module &gt;/dev/null; then
    echo_error &quot;module command not found...&quot;
fi

for arg in &quot;${modarglist[@]}&quot;; do
    module &quot;$arg&quot;
done

# now execute the real command with its interpreter
exec &quot;${cmdarglist[@]}&quot;
</textarea><br><input type="hidden" name="edit_file" value="envml"><input type="submit" value="Save"></form>