##@cooked comments # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
## Fonctions de base: analyse et découpage de valeurs
##@cooked nocomments
uprovide base.split
urequire base.core

function splitfsep() {
# Découper $1 de la forme "first[SEPsecond]" entre first, qui est placé dans la
# variable $3(=first) et second, qui est placée dans la variable $4(=second). $2
# est la valeur SEP. Le découpage est faite sur la *première* occurence de SEP.
    if [[ "$1" == *"$2"* ]]; then
        setv "${3:-first}" "${1%%$2*}"
        setv "${4:-second}" "${1#*$2}"
    else
        setv "${3:-first}" "$1"
        setv "${4:-second}"
    fi        
}
function splitfsep2() {
# Découper $1 de la forme "[firstSEP]second" entre first, qui est placé dans la
# variable $3(=first) et second, qui est placée dans la variable $4(=second). $2
# est la valeur SEP. Le découpage est faite sur la *première* occurence de SEP.
    if [[ "$1" == *"$2"* ]]; then
        setv "${3:-first}" "${1%%$2*}"
        setv "${4:-second}" "${1#*$2}"
    else
        setv "${3:-first}"
        setv "${4:-second}" "$1"
    fi        
}
function splitlsep() {
# Découper $1 de la forme "first[SEPsecond]" entre first, qui est placé dans la
# variable $3(=first) et second, qui est placée dans la variable $4(=second). $2
# est la valeur SEP. Le découpage est faite sur la *dernière* occurence de SEP.
    if [[ "$1" == *"$2"* ]]; then
        setv "${3:-first}" "${1%$2*}"
        setv "${4:-second}" "${1##*$2}"
    else
        setv "${3:-first}" "$1"
        setv "${4:-second}"
    fi        
}
function splitlsep2() {
# Découper $1 de la forme "[firstSEP]second" entre first, qui est placé dans la
# variable $3(=first) et second, qui est placée dans la variable $4(=second). $2
# est la valeur SEP. Le découpage est faite sur la *dernière* occurence de SEP.
    if [[ "$1" == *"$2"* ]]; then
        setv "${3:-first}" "${1%$2*}"
        setv "${4:-second}" "${1##*$2}"
    else
        setv "${3:-first}"
        setv "${4:-second}" "$1"
    fi        
}
function splitvar() {
# Découper $1 de la forme name[=value] entre le nom, qui est placé dans la
# variable $2(=name) et la valeur, qui est placée dans la variable $3(=value)
    splitfsep "$1" = "${2:-name}" "${3:-value}"
}
function splitname() {
# Découper $1 de la forme basename[.ext] entre le nom de base du fichier, qui
# est placé dans la variable $2(=basename) et l'extension, qui est placée dans
# la variable $3(=ext)
# Attention, si $1 est un chemin, le résultat risque d'être faussé. Par exemple,
# 'splitname a.b/c' ne donne pas le résultat escompté.
    splitlsep "$1" . "${2:-basename}" "${3:-ext}"
}
function splithost() {
# Découper $1 de la forme hostname[.domain] entre le nom d'hôte, qui est placé
# dans la variable $2(=hostname) et le domaine, qui est placée dans la variable
# $3(=domain)
    splitfsep "$1" . "${2:-hostname}" "${3:-domain}"
}
function splituserhost() {
# Découper $1 de la forme [user@]host entre le nom de l'utilisateur, qui est placé
# dans la variable $2(=user) et le nom d'hôte, qui est placée dans la variable
# $3(=host)
    splitfsep2 "$1" @ "${2:-user}" "${3:-host}"
}
function splitpair() {
# Découper $1 de la forme first[:second] entre la première valeur, qui est placé
# dans la variable $2(=src) et la deuxième valeur, qui est placée dans la variable
# $3(=dest)
    splitfsep "$1" : "${2:-src}" "${3:-dest}"
}
function splitproxy() {
# Découper $1 de la forme http://[user:password@]host[:port]/ entre les valeurs
# $2(=host), $3(=port), $4(=user), $5(=password)
    local __sp_tmp __sp_host __sp_port __sp_creds __sp_user __sp_password

    __sp_tmp="${1#http://}"
    if [[ "$__sp_tmp" == *@* ]]; then
        __sp_creds="${__sp_tmp%%@*}"
        __sp_tmp="${__sp_tmp#${__sp_creds}@}"
        splitpair "$__sp_creds" __sp_user __sp_password
    fi
    __sp_tmp="${__sp_tmp%%/*}"
    splitpair "$__sp_tmp" __sp_host __sp_port
    [ -n "$__sp_port" ] || __sp_port=3128

    setv "${2:-host}" "$__sp_host"
    setv "${3:-port}" "$__sp_port"
    setv "${4:-user}" "$__sp_user"
    setv "${5:-password}" "$__sp_password"
}
function spliturl() {
# Découper $1 de la forme scheme://[user:password@]host[:port]/path entre les
# valeurs $2(=scheme), $3(=user), $4(=password), $5(=host), $6(=port), $7(=path)
    local __su_tmp __su_scheme __su_creds __su_user __su_password __su_host __su_port __su_path

    __su_scheme="${1%%:*}"
    __su_tmp="${1#${__su_scheme}://}"
    if [[ "$__su_tmp" == */* ]]; then
        __su_path="${__su_tmp#*/}"
        __su_tmp="${__su_tmp%%/*}"
    fi
    if [[ "$__su_tmp" == *@* ]]; then
        __su_creds="${__su_tmp%%@*}"
        __su_tmp="${__su_tmp#${__su_creds}@}"
        splitpair "$__su_creds" __su_user __su_password
    fi
    splitpair "$__su_tmp" __su_host __su_port
    if [ -z "$__su_port" ]; then
        [ "$__su_scheme" == "http" ] && __su_port=80
        [ "$__su_scheme" == "https" ] && __su_port=443
        [ "$__su_scheme" == "ftp" ] && __su_port=21
    fi

    setv "${2:-scheme}" "$__su_scheme"
    setv "${3:-user}" "$__su_user"
    setv "${4:-password}" "$__su_password"
    setv "${5:-host}" "$__su_host"
    setv "${6:-port}" "$__su_port"
    setv "${7:-path}" "$__su_path"
}