##@cooked comments # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
## Gestion des informations sur l'hôte local
##@cooked nocomments
##@require base
uprovide sysinfos
urequire base

################################################################################
## Informations sur le système local

## type de système
# attention: dans SYSNAMES et *_SYSDISTS, les noms doivent être ordonnés du
# moins spécifique au plus spécifique
SYSNAMES=(linux linux64 linux32 linuxppc64 linuxppc32 linuxarm macosx)
linux_SYSDISTS=(debianlike debian ubuntu redhatlike rhel fedora centos suse gentoo)
linux32_SYSDISTS=(debianlike debian ubuntu redhatlike rhel fedora centos suse gentoo)
linux64_SYSDISTS=(debianlike debian ubuntu redhatlike rhel fedora centos suse gentoo)
linuxppc32_SYSDISTS=(debianlike debian ubuntu redhatlike fedora)
linuxppc64_SYSDISTS=(debianlike debian ubuntu redhatlike fedora)
linuxarm_SYSDISTS=(debianlike debian ubuntu)
macosx_SYSDISTS=(lion snowleopard leopard tiger panther)
SYSDIST_ALIASES=(
    10.7=lion 10.6=snowleopard 10.5=leopard 10.4=tiger 10.3=panther
)
# attention: dans *_SYSVERS, les noms doivent être ordonnés du plus récent au
# moins récent
debianlike_SYSVERS=()
debian_SYSVERS=(wheezy squeeze lenny etch)
ubuntu_SYSVERS=(oneiric natty maverick lucid karmic jaunty intrepid hardy)
redhatlike_SYSVERS=()
rhel_SYSVERS=(rhel6 rhel5 rhel4 redhat6 redhat5 redhat4)
fedora_SYSVERS=(fedora14 fedora13 fedora12 fedora11)
centos_SYSVERS=(centos6 centos5 centos4 redhat6 redhat5 redhat4)
suse_SYSVERS=()
gentoo_SYSVERS=()
SYSVER_ALIASES=(
    7=wheezy 6=squeeze 5=lenny 4=etch
    11.10=oneiric 11.04=natty 10.10=maverick 10.04=lucid 9.10=karmic 9.04=jaunty 8.10=intrepid 8.04=hardy
)

function __setup_ALL_SYSvars() {
    local s ds d fs f
    ALL_SYSDISTS=()
    for s in "${SYSNAMES[@]}"; do
        array_copy ds "${s}_SYSDISTS"
        for d in "${ds[@]}"; do
            array_set ALL_SYSDISTS "$d"
        done
    done
    ALL_SYSVERS=()
    for d in "${ALL_SYSDISTS[@]}"; do
        array_copy fs "${d}_SYSVERS"
        for f in "${fs[@]}"; do
            # les valeurs sont poussés vers la fin si elles existent déjà
            array_contains ALL_SYSVERS "$f" && array_del ALL_SYSVERS "$f"
            array_add ALL_SYSVERS "$f"
        done
    done
}
__setup_ALL_SYSvars
unset -f __setup_ALL_SYSvars

MYSYSNAME=()
MYBITS=
MYSYSDIST=()
MYSYSVER=()
if [ "$UNAME_SYSTEM" == "Linux" ]; then
    case "$UNAME_MACHINE" in
    x86_64)
        MYSYSNAME=(linux64 linux)
        MYBITS=64
        ;;
    i386|i586|i686)
        MYSYSNAME=(linux32 linux)
        MYBITS=32
        ;;
    ppc)
        MYSYSNAME=(linuxppc32 linuxppc linux)
        MYBITS=32
        ;;
    ppc64)
        MYSYSNAME=(linuxppc64 linuxppc linux)
        MYBITS=64
        ;;
    arm*)
        MYSYSNAME=(linuxarm linux)
        ;;
    *)
        MYSYSNAME=(linux)
        ;;
    esac

    if [ -f /etc/debian_version ]; then
        case "$(</etc/debian_version)" in
        7*|wheezy*) MYSYSDIST=(debian debianlike); MYSYSVER=(wheezy);;
        6*|squeeze*) MYSYSDIST=(debian debianlike); MYSYSVER=(squeeze);;
        5*) MYSYSDIST=(debian debianlike); MYSYSVER=(lenny);;
        4*) MYSYSDIST=(debian debianlike); MYSYSVER=(etch);;
        *) MYSYSDIST=(debianlike);;
        esac
    elif [ -f /etc/gentoo-release ]; then
        MYSYSDIST=(gentoo)
    elif [ -f /etc/redhat-release ]; then
        case "$(</etc/redhat-release)" in
        Fedora*) MYSYSDIST=(fedora redhatlike);;
        Red*Hat*Enterprise*Linux*) MYSYSDIST=(rhel redhatlike);;
        CentOS*) MYSYSDIST=(centos redhatlike);;
        *) MYSYSDIST=(redhatlike);;
        esac
        case "$(</etc/redhat-release)" in
        Fedora*14*) MYSYSVER=(fedora14);;
        Fedora*13*) MYSYSVER=(fedora13);;
        Fedora*12*) MYSYSVER=(fedora12);;
        Fedora*11*) MYSYSVER=(fedora11);;
        Red*Hat*Enterprise*Linux*release\ 6*) MYSYSVER=(rhel6 redhat6);;
        Red*Hat*Enterprise*Linux*release\ 5*) MYSYSVER=(rhel5 redhat5);;
        Red*Hat*Enterprise*Linux*release\ 4*) MYSYSVER=(rhel4 redhat4);;
        CentOS*release\ 6*) MYSYSVER=(centos6 redhat6);;
        CentOS*release\ 5*) MYSYSVER=(centos5 redhat5);;
        CentOS*release\ 4*) MYSYSVER=(centos4 redhat4);;
        esac
    fi
elif [ "$UNAME_SYSTEM" == "Darwin" ]; then
    function get_macosx_version() {
        local i
        for i in /System/Library/Frameworks/CoreServices.framework/Frameworks/Metadata.framework/Resources/version.plist /System/Library/Frameworks/CoreServices.framework/Resources/version.plist; do
            if [ -f "$i" ]; then
                grep -A 1 CFBundleShortVersionString "$i" | grep string | sed 's/.*<string>//g
s/<\/string>.*$//g'
                break
            fi
        done
    }
    MYSYSNAME=(macosx darwin)
    case "$(get_macosx_version)" in
    10.7*) MYSYSDIST=(lion);;
    10.6*) MYSYSDIST=(snowleopard);;
    10.5*) MYSYSDIST=(leopard);;
    10.4*) MYSYSDIST=(tiger);;
    10.3*) MYSYSDIST=(panther);;
    esac
fi
if [ -n "$UTOOLS_CHROOT" ]; then
    # Dans un chroot, il est possible de forcer les valeurs
    [ -n "$UTOOLS_SYSNAME" ] && eval "MYSYSNAME=($UTOOLS_SYSNAME)"
    [ -n "$UTOOLS_BITS" ] && eval "MYBITS=$UTOOLS_BITS"
    [ -n "$UTOOLS_SYSDIST" ] && eval "MYSYSDIST=($UTOOLS_SYSDIST)"
    [ -n "$UTOOLS_SYSVER" ] && eval "MYSYSVER=($UTOOLS_SYSVER)"
fi

function __get_sysdist_alias() {
    if ! array_contains ALL_SYSDISTS "$1"; then
        local nd n d
        for nd in "${SYSDIST_ALIASES[@]}"; do
            splitvar "$nd" n d
            if [ "$n" == "$1" ]; then
                echo "$d"
                return
            fi
        done
    fi
    echo "$1"
}

function __get_sysver_alias() {
    if ! array_contains ALL_SYSVERS "$1"; then
        local nv n v
        for nv in "${SYSVER_ALIASES[@]}"; do
            splitvar "$nv" n v
            if [ "$n" == "$1" ]; then
                echo "$v"
                return
            fi
        done
    fi
    echo "$1"
}

function __fix_sysinfos_upward() {
    local sysname_ sysdists_ sysdist_ sysvers_ sysver_
    if [ -z "${!sysnamevar_}" ]; then
        if [ -z "${!sysdistvar_}" ]; then
            [ -z "${!sysvervar_}" ] && return
            # essayer de déterminer !sysdistvar_ à partir de !sysvervar_
            for sysname_ in "${SYSNAMES[@]}"; do
                array_copy sysdists_ "${sysname_}_SYSDISTS"
                for sysdist_ in "${sysdists_[@]}"; do
                    array_copy sysvers_ "${sysdist_}_SYSVERS"
                    for sysver_ in "${sysvers_[@]}"; do
                        if [ "$sysver_" == "${!sysvervar_}" ]; then
                            set_var "$sysdistvar_" "$sysdist_"
                            set_var "$sysnamevar_" "$sysname_"
                            return
                        fi
                    done
                done
            done
        fi
        [ -z "${!sysdistvar_}" ] && return 0
        # essayer de déterminer !sysnamevar_ à partir de !sysdistvar_
        for sysname_ in "${SYSNAMES[@]}"; do
            array_copy sysdists_ "${sysname_}_SYSDISTS"
            for sysdist_ in "${sysdists_[@]}"; do
                if [ "$sysdist_" == "${!sysdistvar_}" ]; then
                    set_var "$sysnamevar_" "$sysname_"
                    return
                fi
            done
        done
    fi
}
function __fix_sysinfos_downward() {
    local sysname_ sysdist_ sysver_

    # si !sysnamevar_ n'est pas défini, on ne peut rien faire
    [ -z "${!sysnamevar_}" ] && return

    if [ -z "${!sysdistvar_}" ]; then
        # essayer de déterminer !sysdistvar_ à partir de !sysnamevar_
        array_copy sysdists_ "${!sysnamevar_}_SYSDISTS"
        for sysdist_ in "${sysdists_[@]}"; do
            set_var "$sysdistvar_" "$sysdist_"
            break
        done
    fi
    [ -z "${!sysdistvar_}" ] && return

    if [ -z "${!sysvervar_}" ]; then
        # essayer de déterminer !sysvervar_ à partir de !sysdistvar_
        array_copy sysvers_ "${sysdistvar_}_SYSVERS"
        for sysver_ in "${sysvers_[@]}"; do
            set_var "$sysvervar_" "$sysver_"
            break
        done
    fi
    #[ -z "${!sysvervar_}" ] && return
}
function ensure_sysinfos() {
    # Essayer de déterminer les valeurs des variables $1(=SYSNAME), $2(=SYSDIST)
    # et $3(=SYSVER) en fonction des valeurs des autres. Cette fonction est à
    # utiliser quand on récupère cette information de la part de l'utilisateur,
    # et qu'il faut compléter
    local sysnamevar_="${1:-SYSNAME}"
    local sysdistvar_="${2:-SYSDIST}"
    local sysvervar_="${3:-SYSVER}"
    [ -n "${!sysdistvar_}" ] && set_var "$sysdistvar_" "$(__get_sysdist_alias "${!sysdistvar_}")"
    [ -n "${!sysvervar_}" ] && set_var "$sysvervar_" "$(__get_sysver_alias "${!sysvervar_}")"
    __fix_sysinfos_upward
    __fix_sysinfos_downward
}

function check_sysinfos() {
    # Tester si le système courant ($MYSYSNAME, $MYSYSDIST, $MYSYSVER, $MYBITS)
    # correspond à au moins un des arguments.
    # Les options -s, -d, -v, -b permettent respectivement de vérifier le
    # système, la distribution, la version et le nombre de bits. Il est possible
    # de spécifier plusieurs tests à effectuer, e.g.:
    #     check_sysinfos -d debian ubuntu -b 64
    # pour tester si l'on est sur une distribution debian ou ubuntu *et* sur un
    # système 64 bits
    # Avec l'option -v, il est possible de suffixer la valeur avec + ou - selon
    # que l'on veut toutes les versions situées après ou avant la version
    # spécifiée. Attention, à cause d'une limitation de l'implémentation, il
    # faut alors impérativement filtrer aussi sur la distribution, e.g:
    #     check_sysinfo -d debian -v lenny+
    # pour tester si on est en lenny ou en squeeze.
    # De même, l'option -d accepte aussi de suffixer la valeur avec + ou -, mais
    # cela n'a actuellement de sens qu'avec les version de MacOS X. Il faut
    # aussi impérativement filtrer sur le système, e.g:
    #     check_sysinfos -s macosx -d 10.5+
    local sysnamevar_="MYSYSNAME"
    local sysdistvar_="MYSYSDIST"
    local sysvervar_="MYSYSVER"
    local bitsvar_="MYBITS"
    local check_=sysname r_=0
    while [ -n "$1" ]; do
        if [[ "$1" == -* ]]; then
            [ "$1" == "-S" ] && { sysnamevar_="$2"; shift 2; continue; }
            [ "$1" == "-D" ] && { sysdistvar_="$2"; shift 2; continue; }
            [ "$1" == "-V" ] && { sysvervar_="$2"; shift 2; continue; }
            [ "$1" == "-B" ] && { bitsvar_="$2"; shift 2; continue; }
            [ "$r_" == "1" ] && break
            [ "$1" == "-s" ] && check_=sysname
            [ "$1" == "-d" ] && check_=sysdist
            [ "$1" == "-v" ] && check_=sysver
            [ "$1" == "-b" ] && check_=bits
            r_=1
            shift
            continue
        fi
        if [ "$check_" == "sysname" ]; then
            if array_contains "$sysnamevar_" "$1"; then
                r_=0
                check_=skip
            fi

        elif [ "$check_" == "sysdist" ]; then
            local mode_=exact value_="$1"
            if [ "${value_%+}" != "$value_" ]; then
                mode_=after
                value_="${value_%+}"
            elif [ "${value_%-}" != "$value_" ]; then
                mode_=before
                value_="${value_%-}"
            fi
            value_="$(__get_sysdist_alias "$value_")"
            if [ "$mode_" == "exact" ]; then
                if array_contains "$sysdistvar_" "$value_"; then
                    r_=0
                    check_=skip
                fi
            elif [ "$mode_" == "after" ]; then
                local sysdist_
                for sysdist_ in "${ALL_SYSDISTS[@]}"; do
                    if array_contains "$sysdistvar_" "$sysdist_"; then
                        r_=0
                        check_=skip
                    elif [ "$sysdist_" == "$value_" ]; then
                        break
                    fi
                done
            elif [ "$mode_" == "before" ]; then
                local sysdist_ found_
                for sysdist_ in "${ALL_SYSDISTS[@]}"; do
                    [ "$sysdist_" == "$value_" ] && found_=1
                    if [ -n "$found_" ]; then
                        if array_contains "$sysdistvar_" "$sysdist_"; then
                            r_=0
                            check_=skip
                            break
                        fi
                    fi
                done
            fi

        elif [ "$check_" == "sysver" ]; then
            local mode_=exact value_="$1"
            if [ "${value_%+}" != "$value_" ]; then
                mode_=after
                value_="${value_%+}"
            elif [ "${value_%-}" != "$value_" ]; then
                mode_=before
                value_="${value_%-}"
            fi
            value_="$(__get_sysver_alias "$value_")"
            if [ "$mode_" == "exact" ]; then
                if array_contains "$sysvervar_" "$value_"; then
                    r_=0
                    check_=skip
                fi
            elif [ "$mode_" == "after" ]; then
                local sysver_
                for sysver_ in "${ALL_SYSVERS[@]}"; do
                    if array_contains "$sysvervar_" "$sysver_"; then
                        r_=0
                        check_=skip
                    elif [ "$sysver_" == "$value_" ]; then
                        break
                    fi
                done
            elif [ "$mode_" == "before" ]; then
                local sysver_ found_
                for sysver_ in "${ALL_SYSVERS[@]}"; do
                    [ "$sysver_" == "$value_" ] && found_=1
                    if [ -n "$found_" ]; then
                        if array_contains "$sysvervar_" "$sysver_"; then
                            r_=0
                            check_=skip
                            break
                        fi
                    fi
                done
            fi

        elif [ "$check_" == "bits" ]; then
            if [ "$1" == "${!bitsvar_}" ]; then
                r_=0
                check_=skip
            fi
        fi
        shift
    done
    return $r_
}