#!/bin/bash

#
# Fonctions utiles pour les scripts de Pack IPSL
#

function DEM_read_state {
# Lire l'état du pack pour une simulation
    local L_CONFIG_FILE=${1}
    local L_CONFIG_CARD=${2}

    local L_OLD_STATE=$( grep ${L_CONFIG_CARD} ${L_CONFIG_FILE} | awk '{print $2}' )
    
    if [ ${?} -eq 0 ] 
    then 
	echo ${L_OLD_STATE}
	return 0
    else
	return 1
    fi
    return 0
}

function DEM_write_state {
# Mettre à jour l'état du pack pour une simulation
    local L_CONFIG_FILE=${1}
    local L_CONFIG_CARD=${2}
    local L_NEW_STATE=${3}

    local L_MAX_TRY=10 L_TRY=0 L_CHECK L_PP

    # On essaye ${L_MAX_TRY} fois de mettre à jour le fichier
    while [ ${L_TRY} -le ${L_MAX_TRY} ]
    do
	if [[ ! -f ${L_CONFIG_FILE}.lock ]]
	then 
	    echo ${$}  >> ${L_CONFIG_FILE}.lock     ; chmod -w ${L_CONFIG_FILE}.lock
	    L_CHECK=$( wc -l ${L_CONFIG_FILE}.lock | awk '{print $1}' )
	    if [[ ${L_CHECK} -gt 1 ]]
	    then
		DEM_log -0 "Erreur. Plusieurs processus on pose un verrou sur ${L_CONFIG_FILE}"
		for L_PP in $( awk  '{print $1}' ${L_CONFIG_FILE}.lock ) 
		do
		    DEM_log -0 "Erreur. Process : ${L_PP}"
		done
		return 1
	    fi

	    local L_OLD_LINE=$( grep ${L_CONFIG_CARD} ${L_CONFIG_FILE} )
	    [[ ${?} -eq 0 ]] || ( return 1 ; )
	    if [[ ${L_OLD_LINE} = "" ]]
	    then
		DEM_log -0 "Erreur. Dans le fichier : ${L_CONFIG_FILE}, Experience ${L_CONFIG_CARD} non trouvee"
		return 1
	    fi
	    local L_OLD_STATE=$( echo ${L_OLD_LINE} | awk '{print $2}' )
	    [[ ${?} -eq 0 ]] || ( return 1 ; )
	    
	    L_NEW_LINE="${L_CONFIG_CARD} ${L_NEW_STATE}"

	    sed -i "s%${L_OLD_LINE}%${L_NEW_LINE}%" ${L_CONFIG_FILE}
	    rm -f ${L_CONFIG_FILE}.lock
	    break
	else
	    (( L_TRY = L_TRY + 1 ))
	    DEM_log -3 "Fichier ${L_CONFIG_FILE} en cours de modif par un autre processus. Essai ${L_TRY}"
	    sleep 1
	fi
	   
    done
    
    if [[ ${L_TRY} -ge ${L_MAX_TRY} ]]
    then 
	DEM_log -0 "Erreur. Verrou sur le fichier : ${L_CONFIG_FILE}"
	return 1
    fi

    return 0
}

function DEM_min {
# Calcul du minimum d'un nombre quelconque d'entiers
    local l_min=${1} l_xx
  
    for l_xx in ${*:2:${#}}
    do
	[[ ${l_xx} -lt ${l_min} ]] && l_min=${l_xx}
    done
    echo ${l_min}
}

function DEM_max {
# Calcul du maximum d'un nombre quelconque d'entiers
    local l_max=${1} l_xx
  
    for l_xx in ${*:2:${#}}
    do
	[[ ${l_xx} -gt ${l_max} ]] && l_max=${l_xx}
    done
    echo ${l_max}
}

function DEM_log {
# Affichage d'un message sur stdout et dans un fichier de log
# DEM_log [-0|-1|-2|-3] Message
#
    local MESSAGE P_LINE L_NAME
    LOG_LEV=${LOG_LEV:-3}
    local OPTARG OPTIND L_LOG=1
    local L_DEM_LOG=${DEM_LOG:-dem_log.${$}}

    while getopts 0123 L_NAME
    do
	case ${L_NAME} in
            ( 0 )  L_LOG=1 ;;
            ( 1 )  L_LOG=1 ;;
            ( 2 )  L_LOG=2 ;;
	    ( 3 )  L_LOG=3 ;;
	esac
    done
    shift $(( ${OPTIND} - 1 ))

    if [[ ${L_LOG} -le ${LOG_LEV} ]]
    then 
	MESSAGE=${*}
	P_LINE="$(date) - ${MESSAGE}"
	
	echo ${P_LINE}
	echo ${P_LINE} >> ${L_DEM_LOG}
    fi
    return
}