Intégration de la branche ufile-named-rules
This commit is contained in:
commit
bc4c8cbb81
|
|
@ -3,3 +3,6 @@
|
|||
# Règles pour le classement des fichiers. Chaque règle est de la forme
|
||||
# pattern:destdir[:renamef]
|
||||
RULES=()
|
||||
|
||||
# Règles nommées. Chaque règle est de la forme name:destdir[:renamef]
|
||||
NRULES=()
|
||||
|
|
|
|||
|
|
@ -106,7 +106,7 @@ function copy_update() {
|
|||
fi
|
||||
}
|
||||
|
||||
|
||||
COPY_UPDATE_ASK_DEFAULT=
|
||||
function copy_update_ask() {
|
||||
# Copier ou mettre à jour le fichier $1 vers le fichier $2.
|
||||
# Si le fichier existe déjà, la différence est affichée, et une confirmation
|
||||
|
|
@ -128,7 +128,7 @@ function copy_update_ask() {
|
|||
[ -f "$dest" ] || copy_replace "$src" "$dest"
|
||||
if testdiff "$src" "$dest"; then
|
||||
check_interaction "$interopt" && diff -u "$dest" "$src"
|
||||
if ask_yesno "$interopt" "Voulez-vous remplacer $(ppath "$dest") par la nouvelle version?" C; then
|
||||
if ask_yesno "$interopt" "Voulez-vous remplacer $(ppath "$dest") par la nouvelle version?" "${COPY_UPDATE_ASK_DEFAULT:-C}"; then
|
||||
copy_replace "$src" "$dest" "$3"
|
||||
return $?
|
||||
elif ! check_interaction "$interopt"; then
|
||||
|
|
|
|||
|
|
@ -239,6 +239,7 @@ function conf_load_files() {
|
|||
done
|
||||
}
|
||||
|
||||
CONF_INSTALL_ASK_DEFAULT=
|
||||
function conf_install() {
|
||||
# USAGE: conf_install DEST PREFIX SRCS...
|
||||
# installer les fichiers de SRCS dans le répertoire standardisé DEST avec le
|
||||
|
|
@ -278,6 +279,7 @@ function conf_install() {
|
|||
fi
|
||||
done
|
||||
[ ${#srcs[*]} -gt 0 ] || return 0
|
||||
local COPY_UPDATE_ASK_DEFAULT="${CONF_INSTALL_ASK_DEFAULT:-$COPY_UPDATE_ASK_DEFAULT}"
|
||||
if [ -n "$prefix" ]; then
|
||||
if [ ${#srcs[*]} -eq 1 ]; then
|
||||
copy_update_ask -y "$src" "$dest/$prefix.conf"
|
||||
|
|
|
|||
101
ufile
101
ufile
|
|
@ -8,17 +8,22 @@ function display_help() {
|
|||
|
||||
Les règles sont spécifiées dans le fichier ~/etc/default/ufile
|
||||
|
||||
Dans ce fichier, le tableau RULES contient des règles qui sont chacune de la
|
||||
forme pattern:destdir[:renamef]
|
||||
Dans ce fichier, deux tableaux contiennent les règles applicables:
|
||||
* le tableau RULES contient des règles de la forme pattern:destdir[:renamef] et
|
||||
permet de classer des fichiers correspondant à des patterns
|
||||
* le tableau NRULES contient des règles de fle forme name:destdir[:renamef] et
|
||||
permet de classer des fichiers quelconques en spécifiant la règle à utiliser
|
||||
|
||||
- pattern est au format glob et identifie les fichiers auxquels s'applique la
|
||||
Les champs sont:
|
||||
* name est un nom quelconque, utilisé avec l'option --name
|
||||
* pattern est au format glob et identifie les fichiers auxquels s'applique la
|
||||
règle, sauf si la chaine commence par / auquel cas il s'agit d'une expression
|
||||
régulière reconnue par awk. Par exemple, les deux patterns suivants sont
|
||||
équivalents:
|
||||
[ab]cd*.pdf
|
||||
/[ab]cd.*\\\\.pdf\$
|
||||
- destdir est le répertoire de destination dans lequel classer le fichier
|
||||
- renamef est une fonction qui permet de supporter le renommage d'un fichier
|
||||
* destdir est le répertoire de destination dans lequel classer le fichier
|
||||
* renamef est une fonction qui permet de supporter le renommage d'un fichier
|
||||
lors de son classement. Sa signature est 'renamef filename pf destdir' où
|
||||
filename est le nom du fichier source, pf son chemin complet et destdir la
|
||||
valeur de destdir mentionnée dans la règle.
|
||||
|
|
@ -43,6 +48,14 @@ USAGE
|
|||
$scriptname [options] <files...>
|
||||
$scriptname [options] -r <files|dirs...>
|
||||
|
||||
ACTIONS
|
||||
--file
|
||||
Classer les fichiers spécifiés. C'est l'action par défaut
|
||||
-l, --list
|
||||
Lister les règles définies
|
||||
-e, --edit
|
||||
Lancer un éditeur sur le fichier de configuration
|
||||
|
||||
OPTIONS
|
||||
-c, --config CONFIG
|
||||
Utiliser le fichier de configuration spécifié au lieu de la valeur par
|
||||
|
|
@ -50,8 +63,16 @@ OPTIONS
|
|||
-C, --other-configs
|
||||
Charger les fichiers ~/etc/ufile.d/*.conf en plus du fichier spécifié
|
||||
avec --config. Cette option est ignorée si --config n'est pas utilisé.
|
||||
--file
|
||||
Classer les fichiers spécifiés. C'est l'action par défaut
|
||||
-j, --nrule NAME
|
||||
Spécifier une règle du tableau NRULES à utiliser pour classer les
|
||||
fichiers spécifiés. Cette option peut être spécifiée autant de fois que
|
||||
nécessaire.
|
||||
Par défaut, seul le tableau RULES est utilisé pour trouver la règle à
|
||||
appliquer. Avec cette option, seul le tableau NRULES est utilisé.
|
||||
-v, --var NAME=VALUE
|
||||
Définir une variable qui sera utilisée par la fonction renamef. Cette
|
||||
option peut être spécifiée autant de fois que nécessaire.
|
||||
Les noms commençant par _ sont réservés et ne peuvent pas être définis.
|
||||
--force-cp
|
||||
Spécifier le mode de classement des fichiers. Par défaut, le fichier est
|
||||
déplacé dans la destination s'il s'agit d'un classement local, ou copié
|
||||
|
|
@ -71,11 +92,7 @@ OPTIONS
|
|||
Classer récursivement tous les fichiers d'un répertoire. Sans cette
|
||||
option, il n'est pas autorisé de fournir un répertoire comme argument.
|
||||
-n, --fake
|
||||
Afficher les opérations qui seraient faites
|
||||
-l, --list
|
||||
Lister les règles définies
|
||||
-e, --edit
|
||||
Lancer un éditeur sur le fichier de configuration"
|
||||
Afficher les opérations qui seraient faites"
|
||||
}
|
||||
|
||||
function joinp() {
|
||||
|
|
@ -123,11 +140,25 @@ function __set_dest() {
|
|||
return 0
|
||||
}
|
||||
|
||||
function define_vars() {
|
||||
local _name _value
|
||||
for _name in "$@"; do
|
||||
splitvar "$_name" _name _value
|
||||
if [[ "$_name" == _* ]]; then
|
||||
ewarn "$_name: cette variable ne peut être définie"
|
||||
else
|
||||
setv "$_name" "$_value"
|
||||
fi
|
||||
done
|
||||
}
|
||||
|
||||
args=(%
|
||||
--help '$exit_with display_help'
|
||||
-c:,--config: config=
|
||||
-C,--other-configs other_configs=1
|
||||
--file action=file
|
||||
-j:,--nrule: _nrules
|
||||
-v:,--var: _vars
|
||||
--force-cp force_cp=1
|
||||
-S:,--ssh: SSH=
|
||||
--force-scp force_scp=1
|
||||
|
|
@ -143,7 +174,7 @@ parse_args "$@"; set -- "${args[@]}"
|
|||
|
||||
## charger toutes les règles
|
||||
|
||||
conf_init -a RULES
|
||||
conf_init -a RULES NRULES
|
||||
if [ -n "$config" ]; then
|
||||
if [ "$action" != edit ]; then
|
||||
# le fichier doit exister, sauf en mode édition où il sera créé s'il
|
||||
|
|
@ -162,7 +193,10 @@ fi
|
|||
## actions particulières
|
||||
|
||||
if [ "$action" == list ]; then
|
||||
echo "# RULES"
|
||||
array_to_lines RULES
|
||||
echo "# NRULES"
|
||||
array_to_lines NRULES
|
||||
exit 0
|
||||
elif [ "$action" == edit ]; then
|
||||
[ -n "$config" ] || setx config=get_user_defaults_file ufile
|
||||
|
|
@ -185,11 +219,20 @@ else
|
|||
function docmd() { "$@"; }
|
||||
fi
|
||||
|
||||
if [ ${#_nrules[*]} -gt 0 ]; then
|
||||
array_fix_paths _nrules ,
|
||||
array_copy _rules NRULES
|
||||
_nrule=1
|
||||
else
|
||||
array_copy _rules RULES
|
||||
_nrule=
|
||||
fi
|
||||
|
||||
[ $# -gt 0 ] || die "Vous devez spécifier des fichiers à classer"
|
||||
[ ${#RULES[*]} -gt 0 ] || die "Vous devez spécifier des règles pour le classement des fichiers dans ~/etc/default/ufile ou ~/etc/ufile.d/*.conf"
|
||||
[ ${#_rules[*]} -gt 0 ] || die "Il faut définir des règles ${_nrule:+N}RULES dans ~/etc/default/ufile ou ~/etc/ufile.d/*.conf"
|
||||
|
||||
# vérifier les règles
|
||||
for rule in "${RULES[@]}"; do
|
||||
for rule in "${_rules[@]}"; do
|
||||
splitpair "$rule" pattern r2
|
||||
splitpair "$r2" destdir r3
|
||||
splitpair "$r3" renamef r4
|
||||
|
|
@ -201,15 +244,15 @@ for rule in "${RULES[@]}"; do
|
|||
done
|
||||
|
||||
# faire la liste des fichiers
|
||||
files=()
|
||||
_files=()
|
||||
for file in "$@"; do
|
||||
if [ -d "$file" -a -n "$recursive" ]; then
|
||||
setx file=abspath "$file"
|
||||
array_from_lines rfiles "$(find "$file" -type f)"
|
||||
array_extendu files rfiles
|
||||
array_extendu _files rfiles
|
||||
elif [ -f "$file" ]; then
|
||||
setx file=abspath "$file"
|
||||
array_addu files "$file"
|
||||
array_addu _files "$file"
|
||||
elif [ -n "$fake" ]; then
|
||||
: # on est en mode fake, pas grave si le fichier n'est pas trouvé
|
||||
elif [ -d "$file" ]; then
|
||||
|
|
@ -221,12 +264,12 @@ done
|
|||
|
||||
# faire le classement effectif
|
||||
r=
|
||||
for file in "${files[@]}"; do
|
||||
for file in "${_files[@]}"; do
|
||||
setx pf=abspath "$file"
|
||||
setx dir=dirname -- "$pf"
|
||||
setx filename=basename -- "$pf"
|
||||
found=
|
||||
for rule in "${RULES[@]}"; do
|
||||
for rule in "${_rules[@]}"; do
|
||||
splitpair "$rule" pattern r2
|
||||
splitpair "$r2" odestdir r3
|
||||
splitpair "$r3" renamef r4
|
||||
|
|
@ -236,16 +279,26 @@ for file in "${files[@]}"; do
|
|||
odestdir="$HOME"
|
||||
fi
|
||||
|
||||
if [ "${pattern#/}" != "$pattern" ]; then
|
||||
awk -v filename="$filename" -v pattern="${pattern#/}" 'BEGIN { exit(filename ~ pattern? 0: 1) }' || continue
|
||||
if [ -n "$_nrule" ]; then
|
||||
array_contains _nrules "$pattern" || continue
|
||||
else
|
||||
eval "[[ \"\$filename\" == $(qwc "$pattern") ]]" || continue
|
||||
if [ "${pattern#/}" != "$pattern" ]; then
|
||||
awk -v filename="$filename" -v pattern="${pattern#/}" 'BEGIN { exit(filename ~ pattern? 0: 1) }' || continue
|
||||
else
|
||||
eval "[[ \"\$filename\" == $(qwc "$pattern") ]]" || continue
|
||||
fi
|
||||
fi
|
||||
|
||||
unset dest
|
||||
interaction=--DEFAULT--
|
||||
if [ -n "$renamef" ]; then
|
||||
"$renamef" "$filename" "$pf" "$odestdir" || continue
|
||||
# protéger les variables nécessaires au lancement de renamef
|
||||
_renamef="$renamef"
|
||||
_filename="$filename"
|
||||
_pf="$pf"
|
||||
_odestdir="$odestdir"
|
||||
define_vars "${_vars[@]}"
|
||||
"$_renamef" "$_filename" "$_pf" "$_odestdir" || continue
|
||||
fi
|
||||
if is_array dest; then
|
||||
array_copy tmpdests dest
|
||||
|
|
|
|||
Loading…
Reference in New Issue