nutools/lib/ulib/base.split

142 lines
5.4 KiB
Plaintext
Raw Permalink Normal View History

2014-09-19 15:22:55 +04:00
##@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}"
2015-08-20 07:58:17 +04:00
fi
2014-09-19 15:22:55 +04:00
}
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"
2015-08-20 07:58:17 +04:00
fi
2014-09-19 15:22:55 +04:00
}
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}"
2015-08-20 07:58:17 +04:00
fi
2014-09-19 15:22:55 +04:00
}
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"
2015-08-20 07:58:17 +04:00
fi
2014-09-19 15:22:55 +04:00
}
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}"
}
2014-12-22 17:24:56 +04:00
function splitpath() {
# Découper $1 de la forme [dir/]name entre le répertoire, qui est placé dans la
# variable $2(=dir), et le nom du fichier, qui est placé dans la variable
# $3(=name)
splitlsep2 "$1" / "${2:-dir}" "${3:-name}"
}
2014-09-19 15:22:55 +04:00
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"
}