Merge branch 'master' of vcs.univ.run:modules/nutools
This commit is contained in:
Jephte CLAIN
commit
fd98fe817e
|
|
@ -1 +1 @@
|
||||||
002001000
|
002004000
|
||||||
|
|
|
||||||
|
|
@ -22,7 +22,8 @@ else
|
||||||
fi
|
fi
|
||||||
ULIBDIR="$(cd "$ULIBDIR" 2>/dev/null; pwd)"
|
ULIBDIR="$(cd "$ULIBDIR" 2>/dev/null; pwd)"
|
||||||
|
|
||||||
function __ulibver_parse() { # copie verbatim de la fonction parseversion() dans ulib
|
function __ulibver_parse() {
|
||||||
|
# copie verbatim de la fonction parseversion() du script ulib dans nutools
|
||||||
if [ -n "$2" ]; then
|
if [ -n "$2" ]; then
|
||||||
local version="${1:-${version:-000000000}}"
|
local version="${1:-${version:-000000000}}"
|
||||||
local major minor patch pversion
|
local major minor patch pversion
|
||||||
|
|
@ -49,7 +50,7 @@ function __ulibver_check() {
|
||||||
[ "$sminor" -gt "$minor" ] && return 0
|
[ "$sminor" -gt "$minor" ] && return 0
|
||||||
[ "$sminor" -lt "$minor" ] && return 1
|
[ "$sminor" -lt "$minor" ] && return 1
|
||||||
# puis tester patchlevel
|
# puis tester patchlevel
|
||||||
[ "$spatch" -ge "$patch" ]
|
[ "$spatch" -gt "$patch" ]
|
||||||
}
|
}
|
||||||
|
|
||||||
if [ -f /etc/ulib ] && __ulibver_check; then
|
if [ -f /etc/ulib ] && __ulibver_check; then
|
||||||
|
|
|
||||||
|
|
@ -139,37 +139,43 @@ function _setv() {
|
||||||
eval "$__s_var=\"$(_qval "$*")\""
|
eval "$__s_var=\"$(_qval "$*")\""
|
||||||
}
|
}
|
||||||
function setx() {
|
function setx() {
|
||||||
# initialiser la variable $1 avec le résultat de la commande "$2..@"
|
# syntaxe 1: setx var cmd
|
||||||
# note: en principe, la syntaxe est 'setx var cmd args...'. cependant, la
|
# initialiser la variable $1 avec le résultat de la commande "$2..@"
|
||||||
# syntaxe 'setx var=cmd args...' est supportée aussi
|
# note: en principe, la syntaxe est 'setx var cmd args...'. cependant, la
|
||||||
local __s_var="$1"; shift
|
# syntaxe 'setx var=cmd args...' est supportée aussi
|
||||||
if [[ "$__s_var" == *=* ]]; then
|
# syntaxe 2: setx -a array cmd
|
||||||
set -- "${__s_var#*=}" "$@"
|
# initialiser le tableau $1 avec le résultat de la commande "$2..@", chaque
|
||||||
__s_var="${__s_var%%=*}"
|
# ligne du résultat étant un élément du tableau
|
||||||
|
# note: en principe, la syntaxe est 'setx -a array cmd args...'. cependant, la
|
||||||
|
# syntaxe 'setx -a array=cmd args...' est supportée aussi
|
||||||
|
if [ "$1" == -a ]; then
|
||||||
|
shift
|
||||||
|
local __s_array="$1"; shift
|
||||||
|
if [[ "$__s_array" == *=* ]]; then
|
||||||
|
set -- "${__s_array#*=}" "$@"
|
||||||
|
__s_array="${__s_array%%=*}"
|
||||||
|
fi
|
||||||
|
eval "$__s_array=($("$@" | qlines))"
|
||||||
|
else
|
||||||
|
local __s_var="$1"; shift
|
||||||
|
if [[ "$__s_var" == *=* ]]; then
|
||||||
|
set -- "${__s_var#*=}" "$@"
|
||||||
|
__s_var="${__s_var%%=*}"
|
||||||
|
fi
|
||||||
|
eval "$__s_var="'"$("$@")"'
|
||||||
fi
|
fi
|
||||||
eval "$__s_var="'"$("$@")"'
|
|
||||||
}
|
}
|
||||||
function _setx() {
|
function _setvx() {
|
||||||
# Comme la fonction setx() mais ne supporte que la syntaxe '_setx var cmd args...'
|
# Comme la fonction setx() mais ne supporte que l'initialisation d'une variable
|
||||||
# Cette fonction est légèrement plus rapide que setx()
|
# scalaire avec la syntaxe '_setvx var cmd args...' pour gagner (un peu) en
|
||||||
|
# rapidité d'exécution.
|
||||||
local __s_var="$1"; shift
|
local __s_var="$1"; shift
|
||||||
eval "$__s_var="'"$("$@")"'
|
eval "$__s_var="'"$("$@")"'
|
||||||
}
|
}
|
||||||
function seta() {
|
function _setax() {
|
||||||
# initialiser le tableau $1 avec le résultat de la commande "$2..@", chaque
|
# Comme la fonction setx() mais ne supporte que l'initialisation d'un tableau
|
||||||
# ligne du résultat étant un élément du tableau
|
# avec la syntaxe '_setax array cmd args...' pour gagner (un peu) en rapidité
|
||||||
# note: en principe, la syntaxe est 'seta var cmd args...'. cependant, la
|
# d'exécution.
|
||||||
# syntaxe 'seta var=cmd args...' est supportée aussi
|
|
||||||
local __s_array="$1"; shift
|
|
||||||
if [[ "$__s_array" == *=* ]]; then
|
|
||||||
set -- "${__s_array#*=}" "$@"
|
|
||||||
__s_array="${__s_array%%=*}"
|
|
||||||
fi
|
|
||||||
eval "$__s_array=($("$@" | qlines))"
|
|
||||||
}
|
|
||||||
function _seta() {
|
|
||||||
# Comme la fonction seta() mais ne supporte que la syntaxe '_seta var cmd args...'
|
|
||||||
# Cette fonction est légèrement plus rapide que seta()
|
|
||||||
local __s_array="$1"; shift
|
local __s_array="$1"; shift
|
||||||
eval "$__s_array=($("$@" | qlines))"
|
eval "$__s_array=($("$@" | qlines))"
|
||||||
}
|
}
|
||||||
|
|
@ -200,7 +206,7 @@ function evalx() {
|
||||||
__e_cmd=("${__e_cmd[@]}" "$__e_arg")
|
__e_cmd=("${__e_cmd[@]}" "$__e_arg")
|
||||||
done
|
done
|
||||||
|
|
||||||
if [ -n "$first" ]; then
|
if [ -n "$__e_first" ]; then
|
||||||
__e_val="$("${__e_cmd[@]}")" || __e_r=$?
|
__e_val="$("${__e_cmd[@]}")" || __e_r=$?
|
||||||
else
|
else
|
||||||
__e_val="$("${__e_cmd[@]}" "$__e_val")" || __e_r=$?
|
__e_val="$("${__e_cmd[@]}" "$__e_val")" || __e_r=$?
|
||||||
|
|
@ -212,12 +218,15 @@ function evalx() {
|
||||||
}
|
}
|
||||||
function setx2() {
|
function setx2() {
|
||||||
# équivalent à setx $1 evalx $2..@
|
# équivalent à setx $1 evalx $2..@
|
||||||
|
local -a __s_args
|
||||||
|
if [ "$1" == -a ]; then __s_args=(-a); shift; fi
|
||||||
local __s_var="$1"; shift
|
local __s_var="$1"; shift
|
||||||
if [[ "$__s_var" == *=* ]]; then
|
if [[ "$__s_var" == *=* ]]; then
|
||||||
set -- "${__s_var#*=}" "$@"
|
set -- "${__s_var#*=}" "$@"
|
||||||
__s_var="${__s_var%%=*}"
|
__s_var="${__s_var%%=*}"
|
||||||
fi
|
fi
|
||||||
setx "$__s_var" evalx "$@"
|
__s_args=("${__s_args[@]}" "$__s_var")
|
||||||
|
setx "${__s_args[@]}" evalx "$@"
|
||||||
}
|
}
|
||||||
function evalp() {
|
function evalp() {
|
||||||
# Implémenter une syntaxe alternative permettant d'enchainer des traitements sur
|
# Implémenter une syntaxe alternative permettant d'enchainer des traitements sur
|
||||||
|
|
@ -1230,6 +1239,18 @@ function relpath() {
|
||||||
echo "${rp%//}"
|
echo "${rp%//}"
|
||||||
fi
|
fi
|
||||||
}
|
}
|
||||||
|
function relpathx() {
|
||||||
|
# Comme relpath, mais pour un chemin vers un exécutable qu'il faut lancer:
|
||||||
|
# s'assurer qu'il y a une spécification de chemin, e.g. ./script
|
||||||
|
local p="$(relpath "$@")"
|
||||||
|
if [ -z "$p" ]; then
|
||||||
|
echo .
|
||||||
|
elif [ "${p#../}" != "$p" -o "${p#./}" != "$p" ]; then
|
||||||
|
echo "$p"
|
||||||
|
else
|
||||||
|
echo "./$p"
|
||||||
|
fi
|
||||||
|
}
|
||||||
function withinpath() {
|
function withinpath() {
|
||||||
# Tester si le chemin absolu $2 se trouve dans le chemin absolu "$1" (appelée
|
# Tester si le chemin absolu $2 se trouve dans le chemin absolu "$1" (appelée
|
||||||
# barrière). Soit un chemin P, on considère que P est dans P. Si ce comportement
|
# barrière). Soit un chemin P, on considère que P est dans P. Si ce comportement
|
||||||
|
|
|
||||||
|
|
@ -272,6 +272,18 @@ function tl_deleteentry() {
|
||||||
'
|
'
|
||||||
}
|
}
|
||||||
|
|
||||||
|
function tl_touchentry() {
|
||||||
|
awk '
|
||||||
|
/^dn:/ {
|
||||||
|
dn = $0
|
||||||
|
print dn
|
||||||
|
print "changetype: modify"
|
||||||
|
print ""
|
||||||
|
next
|
||||||
|
}
|
||||||
|
'
|
||||||
|
}
|
||||||
|
|
||||||
function tl_keepattr() {
|
function tl_keepattr() {
|
||||||
local match_attr="$1"
|
local match_attr="$1"
|
||||||
awk "$match_attr"'
|
awk "$match_attr"'
|
||||||
|
|
@ -1036,7 +1048,9 @@ d, moddelval
|
||||||
D, moddelattr
|
D, moddelattr
|
||||||
Supprimer l'attribut
|
Supprimer l'attribut
|
||||||
delentry
|
delentry
|
||||||
Supprimer l'objet"
|
Supprimer l'objet
|
||||||
|
touchentry
|
||||||
|
Forcer la réplication de l'objet en simulant une modification"
|
||||||
|
|
||||||
function get_transform_cmd() {
|
function get_transform_cmd() {
|
||||||
# Créer une liste de commandes bash à évaluer en fonction des arguments: une
|
# Créer une liste de commandes bash à évaluer en fonction des arguments: une
|
||||||
|
|
@ -1151,6 +1165,7 @@ function get_transform_cmd() {
|
||||||
d|md|moddel|moddelval) cmdparts=(tl_modifyattr delete);;
|
d|md|moddel|moddelval) cmdparts=(tl_modifyattr delete);;
|
||||||
D|moddelattr) cmdparts=(tl_deleteattr);;
|
D|moddelattr) cmdparts=(tl_deleteattr);;
|
||||||
delentry|moddelentry) cmdparts=(tl_deleteentry);;
|
delentry|moddelentry) cmdparts=(tl_deleteentry);;
|
||||||
|
touch|touchentry|modtouchentry) cmdparts=(tl_touchentry);;
|
||||||
litteral) cmdpars=("$@");;
|
litteral) cmdpars=("$@");;
|
||||||
*)
|
*)
|
||||||
eerror "$cmd: commande inconnue. elle sera ignorée"
|
eerror "$cmd: commande inconnue. elle sera ignorée"
|
||||||
|
|
|
||||||
|
|
@ -52,7 +52,7 @@ function recho_() {
|
||||||
echo -n "$@"
|
echo -n "$@"
|
||||||
fi
|
fi
|
||||||
}
|
}
|
||||||
function qval() {
|
function _qval() {
|
||||||
local s="$*"
|
local s="$*"
|
||||||
s="${s//\\/\\\\}"
|
s="${s//\\/\\\\}"
|
||||||
s="${s//\"/\\\"}"
|
s="${s//\"/\\\"}"
|
||||||
|
|
@ -60,6 +60,18 @@ function qval() {
|
||||||
s="${s//\`/\\\`}"
|
s="${s//\`/\\\`}"
|
||||||
recho_ "$s"
|
recho_ "$s"
|
||||||
}
|
}
|
||||||
|
function qval() {
|
||||||
|
echo -n \"
|
||||||
|
_qval "$@"
|
||||||
|
echo \"
|
||||||
|
}
|
||||||
|
function qvalr() {
|
||||||
|
if [ -n "$*" ]; then
|
||||||
|
echo -n \"
|
||||||
|
_qval "$@"
|
||||||
|
echo n \"
|
||||||
|
fi
|
||||||
|
}
|
||||||
function should_quote() {
|
function should_quote() {
|
||||||
[ -z "$1" ] && return 0
|
[ -z "$1" ] && return 0
|
||||||
local s="${*//[a-zA-Z0-9]/}"
|
local s="${*//[a-zA-Z0-9]/}"
|
||||||
|
|
@ -78,7 +90,7 @@ function qvals() {
|
||||||
[ -z "$first" ] && echo -n " "
|
[ -z "$first" ] && echo -n " "
|
||||||
if should_quote "$arg"; then
|
if should_quote "$arg"; then
|
||||||
echo -n \"
|
echo -n \"
|
||||||
qval "$arg"
|
_qval "$arg"
|
||||||
echo -n \"
|
echo -n \"
|
||||||
else
|
else
|
||||||
recho_ "$arg"
|
recho_ "$arg"
|
||||||
|
|
@ -91,21 +103,134 @@ function qlines() {
|
||||||
}
|
}
|
||||||
function setv() {
|
function setv() {
|
||||||
local __s_var="$1"; shift
|
local __s_var="$1"; shift
|
||||||
eval "$__s_var=\"$(qval "$*")\""
|
if [[ "$__s_var" == *=* ]]; then
|
||||||
|
set -- "${__s_var#*=}" "$@"
|
||||||
|
__s_var="${__s_var%%=*}"
|
||||||
|
fi
|
||||||
|
eval "$__s_var=\"$(_qval "$*")\""
|
||||||
|
}
|
||||||
|
function _setv() {
|
||||||
|
local __s_var="$1"; shift
|
||||||
|
eval "$__s_var=\"$(_qval "$*")\""
|
||||||
}
|
}
|
||||||
function setx() {
|
function setx() {
|
||||||
local __s_var="$1"; shift
|
local __s_var="$1"; shift
|
||||||
eval "$__s_var=\"\$(\"\$@\")\""
|
if [[ "$__s_var" == *=* ]]; then
|
||||||
|
set -- "${__s_var#*=}" "$@"
|
||||||
|
__s_var="${__s_var%%=*}"
|
||||||
|
fi
|
||||||
|
eval "$__s_var="'"$("$@")"'
|
||||||
|
}
|
||||||
|
function _setx() {
|
||||||
|
local __s_var="$1"; shift
|
||||||
|
eval "$__s_var="'"$("$@")"'
|
||||||
}
|
}
|
||||||
function seta() {
|
function seta() {
|
||||||
local __s_array="$1"; shift
|
local __s_array="$1"; shift
|
||||||
|
if [[ "$__s_array" == *=* ]]; then
|
||||||
|
set -- "${__s_array#*=}" "$@"
|
||||||
|
__s_array="${__s_array%%=*}"
|
||||||
|
fi
|
||||||
eval "$__s_array=($("$@" | qlines))"
|
eval "$__s_array=($("$@" | qlines))"
|
||||||
}
|
}
|
||||||
function e2of() {
|
function _seta() {
|
||||||
"$@" 2>&1
|
local __s_array="$1"; shift
|
||||||
|
eval "$__s_array=($("$@" | qlines))"
|
||||||
}
|
}
|
||||||
function nef() {
|
function evalx() {
|
||||||
"$@" | sed '/^$/d'
|
local __e_val __e_arg __e_r=0
|
||||||
|
local -a __e_cmd
|
||||||
|
|
||||||
|
local __e_first=1
|
||||||
|
while [ $# -gt 0 ]; do
|
||||||
|
__e_cmd=()
|
||||||
|
while [ $# -gt 0 ]; do
|
||||||
|
__e_arg="$1"; shift
|
||||||
|
[ "$__e_arg" == // ] && break
|
||||||
|
if [ "${__e_arg%//}" != "$__e_arg" ]; then
|
||||||
|
local __e_tmp="${__e_arg%//}"
|
||||||
|
if [ -z "${__e_tmp//\\/}" ]; then
|
||||||
|
__e_arg="${__e_arg#\\}"
|
||||||
|
__e_cmd=("${__e_cmd[@]}" "$__e_arg")
|
||||||
|
continue
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
__e_cmd=("${__e_cmd[@]}" "$__e_arg")
|
||||||
|
done
|
||||||
|
|
||||||
|
if [ -n "$first" ]; then
|
||||||
|
__e_val="$("${__e_cmd[@]}")" || __e_r=$?
|
||||||
|
else
|
||||||
|
__e_val="$("${__e_cmd[@]}" "$__e_val")" || __e_r=$?
|
||||||
|
fi
|
||||||
|
__e_first=
|
||||||
|
done
|
||||||
|
[ -n "$__e_val" ] && echo "$__e_val"
|
||||||
|
return $__e_r
|
||||||
|
}
|
||||||
|
function setx2() {
|
||||||
|
local __s_var="$1"; shift
|
||||||
|
if [[ "$__s_var" == *=* ]]; then
|
||||||
|
set -- "${__s_var#*=}" "$@"
|
||||||
|
__s_var="${__s_var%%=*}"
|
||||||
|
fi
|
||||||
|
setx "$__s_var" evalx "$@"
|
||||||
|
}
|
||||||
|
function evalp() {
|
||||||
|
local __e_arg __e_cmd
|
||||||
|
|
||||||
|
while [ $# -gt 0 ]; do
|
||||||
|
__e_arg="$1"; shift
|
||||||
|
if [ "$__e_arg" == // ]; then
|
||||||
|
__e_cmd="$__e_cmd |"
|
||||||
|
continue
|
||||||
|
elif [ "${__e_arg%//}" != "$__e_arg" ]; then
|
||||||
|
local __e_tmp="${__e_arg%//}"
|
||||||
|
if [ -z "${__e_tmp//\\/}" ]; then
|
||||||
|
__e_arg="${__e_arg#\\}"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
__e_cmd="${__e_cmd:+$__e_cmd }\"$(_qval "$__e_arg")\""
|
||||||
|
done
|
||||||
|
eval "$__e_cmd"
|
||||||
|
}
|
||||||
|
function testx() {
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val="$(evalx "$@")"
|
||||||
|
[ $__t_op "$__t_val" ]
|
||||||
|
}
|
||||||
|
function test2x() {
|
||||||
|
local __t_val1="$1"; shift
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val2="$(evalx "$@")"
|
||||||
|
[ "$__t_val1" $__t_op "$__t_val2" ]
|
||||||
|
}
|
||||||
|
function testrx() {
|
||||||
|
local __t_val1="$1"; shift
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val2="$(evalx "$@")"
|
||||||
|
eval '[[ "$__t_val1" '"$__t_op"' "$__t_val2" ]]'
|
||||||
|
}
|
||||||
|
function testp() {
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val="$(evalp "$@")"
|
||||||
|
[ $__t_op "$__t_val" ]
|
||||||
|
}
|
||||||
|
function test2p() {
|
||||||
|
local __t_val1="$1"; shift
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val2="$(evalp "$@")"
|
||||||
|
[ "$__t_val1" $__t_op "$__t_val2" ]
|
||||||
|
}
|
||||||
|
function testrp() {
|
||||||
|
local __t_val1="$1"; shift
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val2="$(evalp "$@")"
|
||||||
|
eval '[[ "$__t_val1" '"$__t_op"' "$__t_val2" ]]'
|
||||||
|
}
|
||||||
|
|
||||||
|
function err2out() {
|
||||||
|
"$@" 2>&1
|
||||||
}
|
}
|
||||||
|
|
||||||
function tolower() {
|
function tolower() {
|
||||||
|
|
@ -420,10 +545,12 @@ function array_new() {
|
||||||
eval "$1=()"
|
eval "$1=()"
|
||||||
}
|
}
|
||||||
function array_add() {
|
function array_add() {
|
||||||
eval "$1=(\"\${$1[@]}\" \"$(quote_arg "$2")\")"
|
local __aa_a="$1"; shift
|
||||||
|
eval "$__aa_a=(\"\${$__aa_a[@]}\" \"\$@\")"
|
||||||
}
|
}
|
||||||
function array_ins() {
|
function array_ins() {
|
||||||
eval "$1=(\"$(quote_arg "$2")\" \"\${$1[@]}\")"
|
local __aa_a="$1"; shift
|
||||||
|
eval "$__aa_a=(\"\$@\" \"\${$__aa_a[@]}\")"
|
||||||
}
|
}
|
||||||
function array_del() {
|
function array_del() {
|
||||||
local __ad_v
|
local __ad_v
|
||||||
|
|
@ -1254,6 +1381,9 @@ function array_lsdirs() {
|
||||||
function array_lsfiles() {
|
function array_lsfiles() {
|
||||||
__array_ls files "$@"
|
__array_ls files "$@"
|
||||||
}
|
}
|
||||||
|
function filter_empty() {
|
||||||
|
sed '/^$/d'
|
||||||
|
}
|
||||||
function filter_vcspath() {
|
function filter_vcspath() {
|
||||||
sed '
|
sed '
|
||||||
/^.git$/d
|
/^.git$/d
|
||||||
|
|
@ -2444,7 +2574,7 @@ function pidfile_check() {
|
||||||
}
|
}
|
||||||
function page_maybe() {
|
function page_maybe() {
|
||||||
if isatty; then
|
if isatty; then
|
||||||
less -XF
|
less -XF "$@"
|
||||||
else
|
else
|
||||||
cat
|
cat
|
||||||
fi
|
fi
|
||||||
|
|
@ -3602,17 +3732,25 @@ if check_sysinfos -s macosx; then
|
||||||
function tolower() { tr A-Z a-z <<<"$*"; }
|
function tolower() { tr A-Z a-z <<<"$*"; }
|
||||||
function toupper() { tr a-z A-Z <<<"$*"; }
|
function toupper() { tr a-z A-Z <<<"$*"; }
|
||||||
function is_yes() {
|
function is_yes() {
|
||||||
|
case "$1" in
|
||||||
|
o|oui|y|yes|v|vrai|t|true|on) return 0;;
|
||||||
|
O|OUI|Y|YES|V|VRAI|T|TRUE|ON) return 0;;
|
||||||
|
esac
|
||||||
|
isnum "$1" && [ "$1" -ne 0 ] && return 0
|
||||||
case "$(tolower "$1")" in
|
case "$(tolower "$1")" in
|
||||||
o|oui|y|yes|v|vrai|t|true|on) return 0;;
|
o|oui|y|yes|v|vrai|t|true|on) return 0;;
|
||||||
esac
|
esac
|
||||||
isnum "$1" && [ "$1" -ne 0 ] && return 0
|
|
||||||
return 1
|
return 1
|
||||||
}
|
}
|
||||||
function is_no() {
|
function is_no() {
|
||||||
|
case "$1" in
|
||||||
|
n|non|no|f|faux|false|off) return 0;;
|
||||||
|
N|NON|NO|F|FAUX|FALSE|OFF) return 0;;
|
||||||
|
esac
|
||||||
|
isnum "$1" && [ "$1" -eq 0 ] && return 0
|
||||||
case "$(tolower "$1")" in
|
case "$(tolower "$1")" in
|
||||||
n|non|no|f|faux|false|off) return 0;;
|
n|non|no|f|faux|false|off) return 0;;
|
||||||
esac
|
esac
|
||||||
isnum "$1" && [ "$1" -eq 0 ] && return 0
|
|
||||||
return 1
|
return 1
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -106,3 +106,89 @@ function ulibsync() {
|
||||||
local __CPNOVCS_RSYNC_ARGS=(-q --delete)
|
local __CPNOVCS_RSYNC_ARGS=(-q --delete)
|
||||||
[ "$destdir/ulib" != "$ULIBDIR" ] && cpdirnovcs "$ULIBDIR" "$destdir/ulib"
|
[ "$destdir/ulib" != "$ULIBDIR" ] && cpdirnovcs "$ULIBDIR" "$destdir/ulib"
|
||||||
}
|
}
|
||||||
|
|
||||||
|
function __ulibver_parse_version() {
|
||||||
|
# copie verbatim de la fonction parseversion() du script ulib dans nutools
|
||||||
|
if [ -n "$2" ]; then
|
||||||
|
local version="${1:-${version:-000000000}}"
|
||||||
|
local major minor patch pversion
|
||||||
|
else
|
||||||
|
version="${1:-${version:-000000000}}"
|
||||||
|
fi
|
||||||
|
while [ ${#version} -lt 9 ]; do version="0$version"; done
|
||||||
|
major="${version:0:3}"; while [ ${#major} -gt 1 -a "${major#0}" != "$major" ]; do major="${major#0}"; done
|
||||||
|
minor="${version:3:3}"; while [ ${#minor} -gt 1 -a "${minor#0}" != "$minor" ]; do minor="${minor#0}"; done
|
||||||
|
patch="${version:6:3}"; while [ ${#patch} -gt 1 -a "${patch#0}" != "$patch" ]; do patch="${patch#0}"; done
|
||||||
|
pversion="$major.$minor.$patch"
|
||||||
|
[ -n "$2" ] && eval "${2}version=\$version; ${2}major=\$major; ${2}minor=\$minor; ${2}patch=\$patch; ${2}pversion=\$pversion"
|
||||||
|
}
|
||||||
|
function __ulibver_format_version() {
|
||||||
|
# copie verbatim de la fonction formatversion() du script ulib dans nutools
|
||||||
|
local major="${1:-${major:-0}}" minor="${2:-${minor:-0}}" patch="${3:-${patch:-0}}"
|
||||||
|
while [ ${#major} -lt 3 ]; do major="0$major"; done
|
||||||
|
while [ ${#minor} -lt 3 ]; do minor="0$minor"; done
|
||||||
|
while [ ${#patch} -lt 3 ]; do patch="0$patch"; done
|
||||||
|
echo "$major$minor$patch"
|
||||||
|
}
|
||||||
|
function __ulibver_parse_pversion() {
|
||||||
|
# copie verbatim de la fonction parsepversion() du script ulib dans nutools
|
||||||
|
local v M m p
|
||||||
|
if [[ "$1" == *.* ]]; then
|
||||||
|
local v="$1"; shift
|
||||||
|
local M=0 m=0 p=0
|
||||||
|
if [[ "$v" == *.* ]]; then
|
||||||
|
p="${v##*.}"; v="${v%.*}"
|
||||||
|
if [[ "$v" == *.* ]]; then
|
||||||
|
m="${v##*.}"; v="${v%.*}"
|
||||||
|
if [[ "$v" == *.* ]]; then M="${v##*.}"; v="${v%.*}"
|
||||||
|
else M="$v"
|
||||||
|
fi
|
||||||
|
else m="$v"
|
||||||
|
fi
|
||||||
|
else p="$v"
|
||||||
|
fi
|
||||||
|
__ulibver_parse_version "$(__ulibver_format_version "$M" "$m" "$p")" "$@"
|
||||||
|
else
|
||||||
|
__ulibver_parse_version "$@"
|
||||||
|
fi
|
||||||
|
}
|
||||||
|
function ulibver() {
|
||||||
|
# Vérifier que la version actuelle de ulib est au moins à la version $1
|
||||||
|
# (inclue) et éventuellement au plus à la version $2 (exclue)
|
||||||
|
[ -f "$ULIBDIR/.ulibver" ] || return 1
|
||||||
|
local version=000000000 major minor patch pversion
|
||||||
|
__ulibver_parse_version "$(<"$ULIBDIR/.ulibver")"
|
||||||
|
if [ -n "$1" ]; then
|
||||||
|
local minversion=000000000 minmajor minminor minpatch minpversion
|
||||||
|
__ulibver_parse_pversion "$1" min
|
||||||
|
if [ "$major" -lt "$minmajor" ]; then
|
||||||
|
return 1
|
||||||
|
elif [ "$major" -eq "$minmajor" ]; then
|
||||||
|
if [ "$minor" -lt "$minminor" ]; then
|
||||||
|
return 1
|
||||||
|
elif [ "$minor" -eq "$minminor" ]; then
|
||||||
|
[ "$patch" -lt "$minpatch" ] && return 1
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
if [ -n "$2" ]; then
|
||||||
|
local maxversion=000000000 maxmajor maxmaxor maxpatch maxpversion
|
||||||
|
__ulibver_parse_pversion "$2" max
|
||||||
|
if [ "$major" -gt "$maxmajor" ]; then
|
||||||
|
return 1
|
||||||
|
elif [ "$major" -eq "$maxmajor" ]; then
|
||||||
|
if [ "$minor" -gt "$maxminor" ]; then
|
||||||
|
return 1
|
||||||
|
elif [ "$minor" -eq "$maxminor" ]; then
|
||||||
|
[ "$patch" -ge "$maxpatch" ] && return 1
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
function ulibver_require() {
|
||||||
|
ulibver "$@" && return 0
|
||||||
|
eerror "Ce script nécessite ulib version${1:+" >= $1"}${2:+" < $2"}"
|
||||||
|
return 1
|
||||||
|
}
|
||||||
|
|
|
||||||
|
|
@ -96,5 +96,86 @@ function ulibsync() {
|
||||||
local __CPNOVCS_RSYNC_ARGS=(-q --delete)
|
local __CPNOVCS_RSYNC_ARGS=(-q --delete)
|
||||||
[ "$destdir/ulib" != "$ULIBDIR" ] && cpdirnovcs "$ULIBDIR" "$destdir/ulib"
|
[ "$destdir/ulib" != "$ULIBDIR" ] && cpdirnovcs "$ULIBDIR" "$destdir/ulib"
|
||||||
}
|
}
|
||||||
|
|
||||||
|
function __ulibver_parse_version() {
|
||||||
|
if [ -n "$2" ]; then
|
||||||
|
local version="${1:-${version:-000000000}}"
|
||||||
|
local major minor patch pversion
|
||||||
|
else
|
||||||
|
version="${1:-${version:-000000000}}"
|
||||||
|
fi
|
||||||
|
while [ ${#version} -lt 9 ]; do version="0$version"; done
|
||||||
|
major="${version:0:3}"; while [ ${#major} -gt 1 -a "${major#0}" != "$major" ]; do major="${major#0}"; done
|
||||||
|
minor="${version:3:3}"; while [ ${#minor} -gt 1 -a "${minor#0}" != "$minor" ]; do minor="${minor#0}"; done
|
||||||
|
patch="${version:6:3}"; while [ ${#patch} -gt 1 -a "${patch#0}" != "$patch" ]; do patch="${patch#0}"; done
|
||||||
|
pversion="$major.$minor.$patch"
|
||||||
|
[ -n "$2" ] && eval "${2}version=\$version; ${2}major=\$major; ${2}minor=\$minor; ${2}patch=\$patch; ${2}pversion=\$pversion"
|
||||||
|
}
|
||||||
|
function __ulibver_format_version() {
|
||||||
|
local major="${1:-${major:-0}}" minor="${2:-${minor:-0}}" patch="${3:-${patch:-0}}"
|
||||||
|
while [ ${#major} -lt 3 ]; do major="0$major"; done
|
||||||
|
while [ ${#minor} -lt 3 ]; do minor="0$minor"; done
|
||||||
|
while [ ${#patch} -lt 3 ]; do patch="0$patch"; done
|
||||||
|
echo "$major$minor$patch"
|
||||||
|
}
|
||||||
|
function __ulibver_parse_pversion() {
|
||||||
|
local v M m p
|
||||||
|
if [[ "$1" == *.* ]]; then
|
||||||
|
local v="$1"; shift
|
||||||
|
local M=0 m=0 p=0
|
||||||
|
if [[ "$v" == *.* ]]; then
|
||||||
|
p="${v##*.}"; v="${v%.*}"
|
||||||
|
if [[ "$v" == *.* ]]; then
|
||||||
|
m="${v##*.}"; v="${v%.*}"
|
||||||
|
if [[ "$v" == *.* ]]; then M="${v##*.}"; v="${v%.*}"
|
||||||
|
else M="$v"
|
||||||
|
fi
|
||||||
|
else m="$v"
|
||||||
|
fi
|
||||||
|
else p="$v"
|
||||||
|
fi
|
||||||
|
__ulibver_parse_version "$(__ulibver_format_version "$M" "$m" "$p")" "$@"
|
||||||
|
else
|
||||||
|
__ulibver_parse_version "$@"
|
||||||
|
fi
|
||||||
|
}
|
||||||
|
function ulibver() {
|
||||||
|
[ -f "$ULIBDIR/.ulibver" ] || return 1
|
||||||
|
local version=000000000 major minor patch pversion
|
||||||
|
__ulibver_parse_version "$(<"$ULIBDIR/.ulibver")"
|
||||||
|
if [ -n "$1" ]; then
|
||||||
|
local minversion=000000000 minmajor minminor minpatch minpversion
|
||||||
|
__ulibver_parse_pversion "$1" min
|
||||||
|
if [ "$major" -lt "$minmajor" ]; then
|
||||||
|
return 1
|
||||||
|
elif [ "$major" -eq "$minmajor" ]; then
|
||||||
|
if [ "$minor" -lt "$minminor" ]; then
|
||||||
|
return 1
|
||||||
|
elif [ "$minor" -eq "$minminor" ]; then
|
||||||
|
[ "$patch" -lt "$minpatch" ] && return 1
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
if [ -n "$2" ]; then
|
||||||
|
local maxversion=000000000 maxmajor maxmaxor maxpatch maxpversion
|
||||||
|
__ulibver_parse_pversion "$2" max
|
||||||
|
if [ "$major" -gt "$maxmajor" ]; then
|
||||||
|
return 1
|
||||||
|
elif [ "$major" -eq "$maxmajor" ]; then
|
||||||
|
if [ "$minor" -gt "$maxminor" ]; then
|
||||||
|
return 1
|
||||||
|
elif [ "$minor" -eq "$maxminor" ]; then
|
||||||
|
[ "$patch" -ge "$maxpatch" ] && return 1
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
function ulibver_require() {
|
||||||
|
ulibver "$@" && return 0
|
||||||
|
eerror "Ce script nécessite ulib version${1:+" >= $1"}${2:+" < $2"}"
|
||||||
|
return 1
|
||||||
|
}
|
||||||
##@inc]ulib
|
##@inc]ulib
|
||||||
uprovide ulibsh
|
uprovide ulibsh
|
||||||
|
|
|
||||||
32
lib/ulib/vcs
32
lib/ulib/vcs
|
|
@ -487,6 +487,38 @@ function git_tag() {
|
||||||
_vcs_unsupported tag #XXX
|
_vcs_unsupported tag #XXX
|
||||||
}
|
}
|
||||||
|
|
||||||
|
# Fonctions avancées de git
|
||||||
|
function git_list_branches() {
|
||||||
|
git for-each-ref refs/heads/ --format='%(refname:short)' | csort
|
||||||
|
}
|
||||||
|
function git_list_rbranches() {
|
||||||
|
git for-each-ref "refs/remotes/${1:-origin}/" --format='%(refname:short)' | csort
|
||||||
|
}
|
||||||
|
function git_get_branch() {
|
||||||
|
git rev-parse --abbrev-ref HEAD 2>/dev/null
|
||||||
|
}
|
||||||
|
function git_is_branch() {
|
||||||
|
[ "$(get_branch)" == "${1:-master}" ]
|
||||||
|
}
|
||||||
|
function git_has_remote() {
|
||||||
|
[ -n "$(git config --get remote.${1:-origin}.url)" ]
|
||||||
|
}
|
||||||
|
function git_track_branch() {
|
||||||
|
local branch="$1" origin="${2:-origin}"
|
||||||
|
[ -n "$branch" ] || return
|
||||||
|
git_has_remote "$origin" || return
|
||||||
|
[ "$(git config --get branch.$branch.remote)" == "$origin" ] && return
|
||||||
|
git branch -t --set-upstream "$branch" "$origin/$branch"
|
||||||
|
}
|
||||||
|
function git_check_cleancheckout() {
|
||||||
|
# vérifier qu'il n'y a pas de modification locales dans le dépôt
|
||||||
|
# correspondant au répertoire courant.
|
||||||
|
[ -z "$(git status --porcelain 2>/dev/null)" ]
|
||||||
|
}
|
||||||
|
function git_ensure_cleancheckout() {
|
||||||
|
check_cleancheckout || die "Vous avez des modifications locales. Enregistrez ces modifications avant de continuer"
|
||||||
|
}
|
||||||
|
|
||||||
################################################################################
|
################################################################################
|
||||||
# Subversion
|
# Subversion
|
||||||
|
|
||||||
|
|
|
||||||
164
ucrontab
164
ucrontab
|
|
@ -140,7 +140,7 @@ function recho_() {
|
||||||
echo -n "$@"
|
echo -n "$@"
|
||||||
fi
|
fi
|
||||||
}
|
}
|
||||||
function qval() {
|
function _qval() {
|
||||||
local s="$*"
|
local s="$*"
|
||||||
s="${s//\\/\\\\}"
|
s="${s//\\/\\\\}"
|
||||||
s="${s//\"/\\\"}"
|
s="${s//\"/\\\"}"
|
||||||
|
|
@ -148,6 +148,18 @@ function qval() {
|
||||||
s="${s//\`/\\\`}"
|
s="${s//\`/\\\`}"
|
||||||
recho_ "$s"
|
recho_ "$s"
|
||||||
}
|
}
|
||||||
|
function qval() {
|
||||||
|
echo -n \"
|
||||||
|
_qval "$@"
|
||||||
|
echo \"
|
||||||
|
}
|
||||||
|
function qvalr() {
|
||||||
|
if [ -n "$*" ]; then
|
||||||
|
echo -n \"
|
||||||
|
_qval "$@"
|
||||||
|
echo n \"
|
||||||
|
fi
|
||||||
|
}
|
||||||
function should_quote() {
|
function should_quote() {
|
||||||
[ -z "$1" ] && return 0
|
[ -z "$1" ] && return 0
|
||||||
local s="${*//[a-zA-Z0-9]/}"
|
local s="${*//[a-zA-Z0-9]/}"
|
||||||
|
|
@ -166,7 +178,7 @@ function qvals() {
|
||||||
[ -z "$first" ] && echo -n " "
|
[ -z "$first" ] && echo -n " "
|
||||||
if should_quote "$arg"; then
|
if should_quote "$arg"; then
|
||||||
echo -n \"
|
echo -n \"
|
||||||
qval "$arg"
|
_qval "$arg"
|
||||||
echo -n \"
|
echo -n \"
|
||||||
else
|
else
|
||||||
recho_ "$arg"
|
recho_ "$arg"
|
||||||
|
|
@ -179,21 +191,134 @@ function qlines() {
|
||||||
}
|
}
|
||||||
function setv() {
|
function setv() {
|
||||||
local __s_var="$1"; shift
|
local __s_var="$1"; shift
|
||||||
eval "$__s_var=\"$(qval "$*")\""
|
if [[ "$__s_var" == *=* ]]; then
|
||||||
|
set -- "${__s_var#*=}" "$@"
|
||||||
|
__s_var="${__s_var%%=*}"
|
||||||
|
fi
|
||||||
|
eval "$__s_var=\"$(_qval "$*")\""
|
||||||
|
}
|
||||||
|
function _setv() {
|
||||||
|
local __s_var="$1"; shift
|
||||||
|
eval "$__s_var=\"$(_qval "$*")\""
|
||||||
}
|
}
|
||||||
function setx() {
|
function setx() {
|
||||||
local __s_var="$1"; shift
|
local __s_var="$1"; shift
|
||||||
eval "$__s_var=\"\$(\"\$@\")\""
|
if [[ "$__s_var" == *=* ]]; then
|
||||||
|
set -- "${__s_var#*=}" "$@"
|
||||||
|
__s_var="${__s_var%%=*}"
|
||||||
|
fi
|
||||||
|
eval "$__s_var="'"$("$@")"'
|
||||||
|
}
|
||||||
|
function _setx() {
|
||||||
|
local __s_var="$1"; shift
|
||||||
|
eval "$__s_var="'"$("$@")"'
|
||||||
}
|
}
|
||||||
function seta() {
|
function seta() {
|
||||||
local __s_array="$1"; shift
|
local __s_array="$1"; shift
|
||||||
|
if [[ "$__s_array" == *=* ]]; then
|
||||||
|
set -- "${__s_array#*=}" "$@"
|
||||||
|
__s_array="${__s_array%%=*}"
|
||||||
|
fi
|
||||||
eval "$__s_array=($("$@" | qlines))"
|
eval "$__s_array=($("$@" | qlines))"
|
||||||
}
|
}
|
||||||
function e2of() {
|
function _seta() {
|
||||||
"$@" 2>&1
|
local __s_array="$1"; shift
|
||||||
|
eval "$__s_array=($("$@" | qlines))"
|
||||||
}
|
}
|
||||||
function nef() {
|
function evalx() {
|
||||||
"$@" | sed '/^$/d'
|
local __e_val __e_arg __e_r=0
|
||||||
|
local -a __e_cmd
|
||||||
|
|
||||||
|
local __e_first=1
|
||||||
|
while [ $# -gt 0 ]; do
|
||||||
|
__e_cmd=()
|
||||||
|
while [ $# -gt 0 ]; do
|
||||||
|
__e_arg="$1"; shift
|
||||||
|
[ "$__e_arg" == // ] && break
|
||||||
|
if [ "${__e_arg%//}" != "$__e_arg" ]; then
|
||||||
|
local __e_tmp="${__e_arg%//}"
|
||||||
|
if [ -z "${__e_tmp//\\/}" ]; then
|
||||||
|
__e_arg="${__e_arg#\\}"
|
||||||
|
__e_cmd=("${__e_cmd[@]}" "$__e_arg")
|
||||||
|
continue
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
__e_cmd=("${__e_cmd[@]}" "$__e_arg")
|
||||||
|
done
|
||||||
|
|
||||||
|
if [ -n "$first" ]; then
|
||||||
|
__e_val="$("${__e_cmd[@]}")" || __e_r=$?
|
||||||
|
else
|
||||||
|
__e_val="$("${__e_cmd[@]}" "$__e_val")" || __e_r=$?
|
||||||
|
fi
|
||||||
|
__e_first=
|
||||||
|
done
|
||||||
|
[ -n "$__e_val" ] && echo "$__e_val"
|
||||||
|
return $__e_r
|
||||||
|
}
|
||||||
|
function setx2() {
|
||||||
|
local __s_var="$1"; shift
|
||||||
|
if [[ "$__s_var" == *=* ]]; then
|
||||||
|
set -- "${__s_var#*=}" "$@"
|
||||||
|
__s_var="${__s_var%%=*}"
|
||||||
|
fi
|
||||||
|
setx "$__s_var" evalx "$@"
|
||||||
|
}
|
||||||
|
function evalp() {
|
||||||
|
local __e_arg __e_cmd
|
||||||
|
|
||||||
|
while [ $# -gt 0 ]; do
|
||||||
|
__e_arg="$1"; shift
|
||||||
|
if [ "$__e_arg" == // ]; then
|
||||||
|
__e_cmd="$__e_cmd |"
|
||||||
|
continue
|
||||||
|
elif [ "${__e_arg%//}" != "$__e_arg" ]; then
|
||||||
|
local __e_tmp="${__e_arg%//}"
|
||||||
|
if [ -z "${__e_tmp//\\/}" ]; then
|
||||||
|
__e_arg="${__e_arg#\\}"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
__e_cmd="${__e_cmd:+$__e_cmd }\"$(_qval "$__e_arg")\""
|
||||||
|
done
|
||||||
|
eval "$__e_cmd"
|
||||||
|
}
|
||||||
|
function testx() {
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val="$(evalx "$@")"
|
||||||
|
[ $__t_op "$__t_val" ]
|
||||||
|
}
|
||||||
|
function test2x() {
|
||||||
|
local __t_val1="$1"; shift
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val2="$(evalx "$@")"
|
||||||
|
[ "$__t_val1" $__t_op "$__t_val2" ]
|
||||||
|
}
|
||||||
|
function testrx() {
|
||||||
|
local __t_val1="$1"; shift
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val2="$(evalx "$@")"
|
||||||
|
eval '[[ "$__t_val1" '"$__t_op"' "$__t_val2" ]]'
|
||||||
|
}
|
||||||
|
function testp() {
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val="$(evalp "$@")"
|
||||||
|
[ $__t_op "$__t_val" ]
|
||||||
|
}
|
||||||
|
function test2p() {
|
||||||
|
local __t_val1="$1"; shift
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val2="$(evalp "$@")"
|
||||||
|
[ "$__t_val1" $__t_op "$__t_val2" ]
|
||||||
|
}
|
||||||
|
function testrp() {
|
||||||
|
local __t_val1="$1"; shift
|
||||||
|
local __t_op="$1"; shift
|
||||||
|
local __t_val2="$(evalp "$@")"
|
||||||
|
eval '[[ "$__t_val1" '"$__t_op"' "$__t_val2" ]]'
|
||||||
|
}
|
||||||
|
|
||||||
|
function err2out() {
|
||||||
|
"$@" 2>&1
|
||||||
}
|
}
|
||||||
|
|
||||||
function tolower() {
|
function tolower() {
|
||||||
|
|
@ -508,10 +633,12 @@ function array_new() {
|
||||||
eval "$1=()"
|
eval "$1=()"
|
||||||
}
|
}
|
||||||
function array_add() {
|
function array_add() {
|
||||||
eval "$1=(\"\${$1[@]}\" \"$(quote_arg "$2")\")"
|
local __aa_a="$1"; shift
|
||||||
|
eval "$__aa_a=(\"\${$__aa_a[@]}\" \"\$@\")"
|
||||||
}
|
}
|
||||||
function array_ins() {
|
function array_ins() {
|
||||||
eval "$1=(\"$(quote_arg "$2")\" \"\${$1[@]}\")"
|
local __aa_a="$1"; shift
|
||||||
|
eval "$__aa_a=(\"\$@\" \"\${$__aa_a[@]}\")"
|
||||||
}
|
}
|
||||||
function array_del() {
|
function array_del() {
|
||||||
local __ad_v
|
local __ad_v
|
||||||
|
|
@ -1342,6 +1469,9 @@ function array_lsdirs() {
|
||||||
function array_lsfiles() {
|
function array_lsfiles() {
|
||||||
__array_ls files "$@"
|
__array_ls files "$@"
|
||||||
}
|
}
|
||||||
|
function filter_empty() {
|
||||||
|
sed '/^$/d'
|
||||||
|
}
|
||||||
function filter_vcspath() {
|
function filter_vcspath() {
|
||||||
sed '
|
sed '
|
||||||
/^.git$/d
|
/^.git$/d
|
||||||
|
|
@ -2532,7 +2662,7 @@ function pidfile_check() {
|
||||||
}
|
}
|
||||||
function page_maybe() {
|
function page_maybe() {
|
||||||
if isatty; then
|
if isatty; then
|
||||||
less -XF
|
less -XF "$@"
|
||||||
else
|
else
|
||||||
cat
|
cat
|
||||||
fi
|
fi
|
||||||
|
|
@ -3890,17 +4020,25 @@ if check_sysinfos -s macosx; then
|
||||||
function tolower() { tr A-Z a-z <<<"$*"; }
|
function tolower() { tr A-Z a-z <<<"$*"; }
|
||||||
function toupper() { tr a-z A-Z <<<"$*"; }
|
function toupper() { tr a-z A-Z <<<"$*"; }
|
||||||
function is_yes() {
|
function is_yes() {
|
||||||
|
case "$1" in
|
||||||
|
o|oui|y|yes|v|vrai|t|true|on) return 0;;
|
||||||
|
O|OUI|Y|YES|V|VRAI|T|TRUE|ON) return 0;;
|
||||||
|
esac
|
||||||
|
isnum "$1" && [ "$1" -ne 0 ] && return 0
|
||||||
case "$(tolower "$1")" in
|
case "$(tolower "$1")" in
|
||||||
o|oui|y|yes|v|vrai|t|true|on) return 0;;
|
o|oui|y|yes|v|vrai|t|true|on) return 0;;
|
||||||
esac
|
esac
|
||||||
isnum "$1" && [ "$1" -ne 0 ] && return 0
|
|
||||||
return 1
|
return 1
|
||||||
}
|
}
|
||||||
function is_no() {
|
function is_no() {
|
||||||
|
case "$1" in
|
||||||
|
n|non|no|f|faux|false|off) return 0;;
|
||||||
|
N|NON|NO|F|FAUX|FALSE|OFF) return 0;;
|
||||||
|
esac
|
||||||
|
isnum "$1" && [ "$1" -eq 0 ] && return 0
|
||||||
case "$(tolower "$1")" in
|
case "$(tolower "$1")" in
|
||||||
n|non|no|f|faux|false|off) return 0;;
|
n|non|no|f|faux|false|off) return 0;;
|
||||||
esac
|
esac
|
||||||
isnum "$1" && [ "$1" -eq 0 ] && return 0
|
|
||||||
return 1
|
return 1
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue