ajout du module template
This commit is contained in:
Jephte CLAIN
parent
3169ae248a
commit
e46fac179f
|
|
@ -0,0 +1,259 @@
|
|||
##@cooked comments # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
|
||||
## Gestion de fichiers modèles
|
||||
##@cooked nocomments
|
||||
uprovide template
|
||||
urequire base
|
||||
|
||||
function __template_prel_abspath() {
|
||||
# afficher le chemin absolu du fichier $1 si on est dans le répertoire de
|
||||
# destination $2, sinon l'exprimer par rapport au répertoire de destination
|
||||
# $2 si c'est un chemin relatif.
|
||||
if withinpath "$2" "$(pwd)"; then
|
||||
abspath "$1"
|
||||
else
|
||||
abspath "$1" "$2"
|
||||
fi
|
||||
}
|
||||
function __template_check_srcdir() {
|
||||
[ -n "$1" ] || {
|
||||
eerror "Vous devez spécifier le répertoire source"
|
||||
return 1
|
||||
}
|
||||
[ -d "$1" ] || {
|
||||
eerror "$1: répertoire source introuvable"
|
||||
return 1
|
||||
}
|
||||
return 0
|
||||
}
|
||||
function __template_check_destdir() {
|
||||
[ -n "$1" ] || {
|
||||
eerror "Vous devez spécifier le répertoire de destination"
|
||||
return 1
|
||||
}
|
||||
[ -d "$1" ] || {
|
||||
eerror "$1: répertoire destination introuvable"
|
||||
return 1
|
||||
}
|
||||
return 0
|
||||
}
|
||||
function __template_plsort() {
|
||||
# Trier par taille du chemin
|
||||
awk '{print length($0) ":" $0}' |
|
||||
sort -n "$@" |
|
||||
awk '{sub(/[0-9]+:/, ""); print}'
|
||||
}
|
||||
|
||||
function template_list() {
|
||||
# Lister les fichiers du répertoire source $1 qui seraient fusionnées avec
|
||||
# template_merge() ou supprimés avec template_unmerge() du répertoire
|
||||
# destination $2. Si des chemins sont spécifiés avec les arguments $3..@, ne
|
||||
# traiter que les fichiers qui correspondent à ces spécifications
|
||||
local srcdir="$1"; shift
|
||||
__template_check_srcdir "$srcdir" || return 1
|
||||
setx srcdir=abspath "$srcdir"
|
||||
|
||||
local destdir="${1:-.}"; shift
|
||||
__template_check_destdir "$destdir" || return 1
|
||||
setx destdir=abspath "$destdir"
|
||||
|
||||
local rel2pwd
|
||||
withinpath "$destdir" "$(pwd)" && rel2pwd=1
|
||||
|
||||
if [ $# -eq 0 ]; then
|
||||
[ -n "$rel2pwd" ] && set -- . || set -- "$destdir"
|
||||
fi
|
||||
|
||||
local spec srcspec src dest list
|
||||
local -a srcfiles
|
||||
for spec in "$@"; do
|
||||
setx srcspec=__template_prel_abspath "$spec" "$destdir"
|
||||
withinpath "$destdir" "$srcspec" || continue
|
||||
srcspec="${srcspec#$destdir}"
|
||||
|
||||
[ -e "$srcdir$srcspec" ] || continue
|
||||
array_from_lines srcfiles "$(find "$srcdir$srcspec" -type f)"
|
||||
for src in "${srcfiles[@]}"; do
|
||||
dest="$destdir/${src#$srcdir/}"
|
||||
|
||||
list=
|
||||
if [ -L "$dest" ]; then
|
||||
:
|
||||
elif [ -f "$dest" ]; then
|
||||
testsame "$src" "$dest" && list=1
|
||||
else
|
||||
list=1
|
||||
fi
|
||||
[ -n "$list" ] || continue
|
||||
|
||||
if [ -n "$rel2pwd" ]; then
|
||||
relpath "$dest"
|
||||
else
|
||||
echo "${src#$srcdir/}"
|
||||
fi
|
||||
done
|
||||
done | csort -u
|
||||
}
|
||||
|
||||
function template_merge() {
|
||||
# Copier dans le répertoire destination $2 tous les fichiers provenant du
|
||||
# répertoire source $1 correspondant aux spécifications $3..@, si ces fichiers
|
||||
# n'ont pas été modifiés dans le répertoire de destination.
|
||||
local srcdir="$1"; shift
|
||||
__template_check_srcdir "$srcdir" || return 1
|
||||
setx srcdir=abspath "$srcdir"
|
||||
|
||||
local destdir="${1:-.}"; shift
|
||||
__template_check_destdir "$destdir" || return 1
|
||||
setx destdir=abspath "$destdir"
|
||||
|
||||
[ $# -gt 0 ] || set -- "$destdir"
|
||||
|
||||
local spec srcspec src dest
|
||||
local srcfiles
|
||||
for spec in "$@"; do
|
||||
setx srcspec=__template_prel_abspath "$spec"
|
||||
if ! withinpath "$destdir" "$srcspec"; then
|
||||
ewarn "$spec: fichier ignoré"
|
||||
continue
|
||||
fi
|
||||
srcspec="${srcspec#$destdir}"
|
||||
|
||||
[ -e "$srcdir$srcspec" ] || continue
|
||||
ebegin "$srcspec"
|
||||
s=0
|
||||
array_from_lines srcfiles "$(find "$srcdir$srcspec" -type f)"
|
||||
for src in "${srcfiles[@]}"; do
|
||||
dest="$destdir/${src#$srcdir/}"
|
||||
|
||||
if [ -L "$dest" ]; then
|
||||
edotw 0 "LOCALLY MODIFIED: $(ppath "$dest")"
|
||||
elif [ -f "$dest" ]; then
|
||||
if testsame "$src" "$dest"; then
|
||||
show_debug && edot 0 "ALREADY COPIED: $(ppath "$dest")"
|
||||
else
|
||||
edotw 0 "LOCALLY MODIFIED: $(ppath "$dest")"
|
||||
fi
|
||||
else
|
||||
mkdirof "$dest"
|
||||
cp "$src" "$dest"; r=$?
|
||||
edot $r "COPY: $(ppath "$dest")"
|
||||
[ $r -eq 0 ] || s=$r
|
||||
fi
|
||||
done
|
||||
eend $s
|
||||
done
|
||||
}
|
||||
|
||||
function template_unmerge() {
|
||||
# Supprimer du répertoire de destination $2 tous les fichiers provenant du
|
||||
# répertoire source $1 et qui n'ont pas été modifiés. Si des chemins sont
|
||||
# spécifiés avec les arguments $3..@, ne traiter que les fichiers qui
|
||||
# correspondent à ces spécifications.
|
||||
local srcdir="$1"; shift
|
||||
__template_check_srcdir "$srcdir" || return 1
|
||||
setx srcdir=abspath "$srcdir"
|
||||
|
||||
local destdir="${1:-.}"; shift
|
||||
__template_check_destdir "$destdir" || return 1
|
||||
setx destdir=abspath "$destdir"
|
||||
|
||||
[ $# -gt 0 ] || set -- "$destdir"
|
||||
|
||||
local spec srcspec src dest
|
||||
local srcfiles
|
||||
for spec in "$@"; do
|
||||
setx srcspec=__template_prel_abspath "$spec"
|
||||
if ! withinpath "$destdir" "$srcspec"; then
|
||||
ewarn "$spec: fichier ignoré"
|
||||
continue
|
||||
fi
|
||||
srcspec="${srcspec#$destdir}"
|
||||
|
||||
[ -e "$srcdir$srcspec" ] || continue
|
||||
s=0
|
||||
ebegin "$srcspec"
|
||||
array_from_lines files "$(find "$srcdir$srcspec" -type f)"
|
||||
for src in "${files[@]}"; do
|
||||
dest="$destdir/${src#$srcdir/}"
|
||||
|
||||
if [ -L "$dest" ]; then
|
||||
edotw 0 "LOCALLY MODIFIED: $(ppath "$dest")"
|
||||
elif [ -f "$dest" ]; then
|
||||
if testsame "$src" "$dest"; then
|
||||
rm -f "$dest"; r=$?
|
||||
edot $r "REMOVE: $(ppath "$dest")"
|
||||
[ $r -eq 0 ] || s=$r
|
||||
else
|
||||
edotw 0 "LOCALLY MODIFIED: $(ppath "$dest")"
|
||||
fi
|
||||
else
|
||||
show_debug && edot 0 "ALREADY REMOVED: $(ppath "$dest")"
|
||||
fi
|
||||
done
|
||||
eend $s
|
||||
done
|
||||
}
|
||||
|
||||
function template_cleandest() {
|
||||
# Supprimer dans le répertoire de destination $1 tous les répertoires vides.
|
||||
# Cette fonction est habituellement utilisée après template_unmerge()
|
||||
local -a dirs
|
||||
[ -d "$1" ] || return 1
|
||||
array_from_lines dirs "$(cd "$1"; find "$1" -type d | __template_plsort -r)"
|
||||
rmdir "${dirs[@]}" 2>/dev/null
|
||||
}
|
||||
|
||||
function template_diff() {
|
||||
# Afficher les différences entre les fichiers du répertoire de destination $2 et
|
||||
# les fichiers du répertoire source $1
|
||||
local srcdir="$1"; shift
|
||||
__template_check_srcdir "$srcdir" || return 1
|
||||
setx srcdir=abspath "$srcdir"
|
||||
|
||||
local destdir="${1:-.}"; shift
|
||||
__template_check_destdir "$destdir" || return 1
|
||||
setx destdir=abspath "$destdir"
|
||||
|
||||
local src dest
|
||||
local -a srcfiles
|
||||
array_from_lines srcfiles "$(find "$srcdir" -type f)"
|
||||
for src in "${srcfiles[@]}"; do
|
||||
dest="$destdir/${src#$srcdir/}"
|
||||
if [ -f "$dest" ] && testdiff "$src" "$dest"; then
|
||||
diff -uwB "$src" "$dest"
|
||||
fi
|
||||
done | page_maybe -S
|
||||
}
|
||||
|
||||
function override_display_templatectl_help() { :; }
|
||||
function templatectl() {
|
||||
# fonction de haut niveau qui facilite l'utilisation des fonctions template_*
|
||||
# définir la fonction override_display_templatectl_help() pour l'affichage de l'aide
|
||||
local -a args
|
||||
local help list merge unmerge clean diff auto=1
|
||||
local destdir
|
||||
parse_opts "${PRETTYOPTS[@]}" \
|
||||
--help help=1 \
|
||||
-s:,--srcdir: srcdir= \
|
||||
-o:,--destdir: destdir= \
|
||||
-l,--list '$list=1; auto=' \
|
||||
-m,--merge '$merge=1; auto=' \
|
||||
-z,--unmerge '$unmerge=1; auto=' \
|
||||
-C,--clean '$clean=1; auto=' \
|
||||
-d,--diff '$diff=1; auto=' \
|
||||
@ args -- "$@" && set -- "${args[@]}" || { eerror "$args"; return 1; }
|
||||
|
||||
[ -n "$help" ] && { override_display_templatectl_help; return 0; }
|
||||
|
||||
__template_check_srcdir "$srcdir" || return 1
|
||||
[ -n "$destdir" ] || destdir=.
|
||||
__template_check_destdir "$destdir" || return 1
|
||||
[ -n "$auto" ] && list=1
|
||||
|
||||
[ -n "$list" ] && template_list "$srcdir" "$destdir" "$@"
|
||||
[ -n "$merge" ] && template_merge "$srcdir" "$destdir" "$@"
|
||||
[ -n "$unmerge" ] && template_unmerge "$srcdir" "$destdir" "$@"
|
||||
[ -n "$clean" ] && template_cleandest "$destdir" "$@"
|
||||
[ -n "$diff" ] && template_diff "$srcdir" "$destdir" "$@"
|
||||
return 0
|
||||
}
|
||||
Loading…
Reference in New Issue