#!/bin/bash
#------------------------------------------------------------------------------
# =========                 |
# \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
#  \\    /   O peration     |
#   \\  /    A nd           | Copyright (C) 2011-2016 OpenFOAM Foundation
#    \\/     M anipulation  | Copyright (C) 2018 OpenCFD Ltd.
#-------------------------------------------------------------------------------
# License
#     This file is part of OpenFOAM.
#
#     OpenFOAM 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 3 of the License, or
#     (at your option) any later version.
#
#     OpenFOAM 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 OpenFOAM.  If not, see <http://www.gnu.org/licenses/>.
#
# Script
#     wmakeScheduler
#
# Usage
#     wmakeScheduler COMMAND
#         run 'COMMAND' on one of the slots listed in WM_HOSTS
#
#     wmakeScheduler -count
#         count the total number of slots available in WM_HOSTS
#         eg,  export WM_NCOMPPROCS=$(wmakeScheduler -count)
#
# Description
#     Scheduler for network distributed compilations using wmake.
#     - WM_HOSTS contains a list of hosts and number of concurrent processes
#     eg,
#         export WM_HOSTS="hostA:1 hostB:2 hostC:1"
#     - WM_COLOURS contains a list of colours to cycle through
#         export WM_COLOURS="black blue green cyan red magenta yellow"
#
#     Sources the relevant cshrc/bashrc if not set.
#
# Environment
#     - WM_PROJECT_DIR
#     - WM_PROJECT
#     - WM_PROJECT_API
#
#-------------------------------------------------------------------------------
Script=${0##*/}

# csh sets HOST, bash sets HOSTNAME
: ${HOST:=$HOSTNAME}

lockDir="$HOME/.$WM_PROJECT/.wmake"

# Fallback - 1 core on current host
: ${WM_HOSTS:=$HOST:1}

# Count the total number of slots available and exit
if [ "$1" = "-count" ]
then
    expr $(
        for slotGroup in $WM_HOSTS
        do
            n=${slotGroup##*:}
            [ "$n" = "${slotGroup%%:*}" ] && n=1  # missing ':'
            echo "+ ${n:-1}"
        done
    )
    exit 0
fi

# Where to source WM_PROJECT settings in a remote shell
# This code tries to figure out which cshrc or bashrc to execute.
# !! Assumes remote computer running same shell and startup files
# in same location

sourceFoam=false    # Fallback command
case $SHELL in
*/csh | */tcsh )    # [t]csh vs bash|ksh|sh
    shellRc=cshrc
    ;;
*)
    shellRc=bashrc
    ;;
esac

# Same as foamEtcFile -mode=uo bashrc
#
# Check ~/.$WM_PROJECT/$WM_PROJECT_API/
# Check ~/.$WM_PROJECT/
# Check projectDir/etc/
if [ -n "$WM_PROJECT" ]
then
    for i in \
        "$HOME/.$WM_PROJECT/$WM_PROJECT_API" \
        "$HOME/.$WM_PROJECT" \
        "$WM_PROJECT_DIR/etc" \
        ;
    do
        if [ -f "$i/$shellRc" ]
        then
            sourceFoam="$i/$shellRc"
            break
        fi
    done
fi

# Construct test string for remote execution.
# Source WM_PROJECT settings if WM_PROJECT environment not set.
# Use FOAM_SETTINGS to pass command-line settings
case "$sourceFoam" in
*/bashrc)
    sourceFoam='[ -n "$WM_PROJECT" ] || '". $sourceFoam $FOAM_SETTINGS"
    ;;

*/cshrc)
    sourceFoam='if ( ! $?WM_PROJECT ) source '"$sourceFoam $FOAM_SETTINGS"
    ;;
esac

# Quote double-quotes for remote command line
rcmd=$(echo $* | sed -e s/\"/\'\"\'/g)
# The same, without forking (not ksh, maybe not /bin/sh either)
# rcmd=$(while [ "$#" -gt 0 ]; do echo "${1//\"/'\"'}"; shift; done)


# Convert WM_COLOURS into an array
declare colourList
nColours=0
for col in $WM_COLOURS
do
    colourList[$nColours]=$col
    ((nColours = $nColours + 1))
done

# Bashism: make pipe fail early.
# This ensures the return value of the command is returned and not of the
# colouring pipe etc.
set -o pipefail


#------------------------------------------------------------------------------
# Colour output by argument 1
#------------------------------------------------------------------------------
colourPipe()
{
    if tty -s <&1       #    [ "$1" ]
    then
    (
        while read line
        do
            setterm -foreground $1
            echo "$line"
        done
        setterm -foreground default
    )
    else
        cat
    fi
}


colourIndex=0

# Check for existence of lockfile binary
if ! type -p lockfile >/dev/null
then
    echo "$Script: Could not find executable 'lockfile'"
    exit 1
fi

while :
do
    for slotGroup in $WM_HOSTS
    do
        # Split 'host:N', but catch 'host:' and 'host' too
        host=${slotGroup%%:*}
        n=${slotGroup##*:}
        [ "$n" = "$host" ] && n=1  # missing ':'
        : ${n:=1}

        i=0
        while [ "$i" -lt "$n" ]
        do
            lockFile="$lockDir/$host:$i"
            if lockfile -r0 "$lockFile" 2>/dev/null
            then
                if [ "$nColours" -gt 0 ]
                then
                    # Set colour
                    colour="${colourList[$colourIndex]}"

                    if [ "$host" = "$HOST" ]; then
                        eval $* 2>&1 | colourPipe "$colour"
                    else
                        ssh $host "$sourceFoam 2>/dev/null; cd $PWD && $rcmd" \
                            2>&1 | colourPipe "$colour"
                    fi
                    retval=$?
                else
                    if [ "$host" = "$HOST" ]; then
                        eval $* 2>&1
                    else
                        ssh $host "$sourceFoam 2>/dev/null; cd $PWD && $rcmd" \
                            2>&1
                    fi
                    retval=$?
                fi

                # Release lock
                rm -f "$lockFile" 2>/dev/null
                exit $retval
            fi
            i=$(expr $i + 1)

            # Cycle through colours. Note: outside lock clause!
            colourIndex=$(expr $colourIndex + 1)
            [ "$colourIndex" -lt "$nColours" ] || colourIndex=0

        done
    done
    # Did not find any free slots. Rest a bit.
    sleep 1
done

if [ "$nColours" -gt 0 ]
then
    setterm -foreground default
fi

exit 0 # clean exit

#------------------------------------------------------------------------------