136 lines
5.2 KiB
Plaintext
136 lines
5.2 KiB
Plaintext
|
##@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"
|
||
|
|
}
|