nutools/lib/ulib/vcs

967 lines
28 KiB
Bash

##@cooked comments # -*- coding: utf-8 mode: sh -*- vim:sw=4:sts=4:et:ai:si:sta:fenc=utf-8
## Fonctions pour gérer les outils de vcs (subversion, git)
##@cooked nocomments
##@require base
uprovide vcs
urequire base
################################################################################
# Général
function __vcs_get_type() {
# Afficher le type de vcs du répertoire $1. L'arborescence n'est pas
# parcourue. Si l'information n'est pas immédiatement disponible, cette
# fonction échoue.
# retourner 1 si le type n'a pas été trouvé
[ -d "$1/.git" ] && { echo "git"; return; }
[ -d "$1/.svn" ] && { echo "svn"; return; }
[ -d "$1/CVS" ] && { echo "cvs"; return; }
return 1
}
function __vcs_find_type() {
# Chercher le type de vcs du répertoire $1. L'arborescence jusqu'au
# répertoire $HOME est parcourue si nécessaire. $1 doit être un répertoire
# absolu.
# Retourner 1 si le type n'a pas été trouvé
local root="$1"
# soit on a l'information immédiatement...
__vcs_get_type "$root" && return
# soit il faut la chercher en parcourant l'arborescence...
while [ -n "$root" -a "$root" != "/" -a "$root" != "." -a "$root" != "$HOME" ]; do
__vcs_get_type "$root" && return
root="$(dirname "$root")"
done
return 1
}
function __vcs_upward_until() {
local root="$1"
local type="$2"
while [ -n "$root" -a "$root" != "/" -a "$root" != "." -a "$(__vcs_get_type "$root/..")" == "$type" ]; do
root="$(dirname "$root")"
done
echo "$root"
}
function __vcs_find_root() {
# A partir du répertoire $1, chercher le répertoire de base du checkout
# local. $1 doit être un répertoire absolu.
# retourner 1 si le type n'a pas été trouvé
local root="$1"
local type="$(__vcs_get_type "$root")"
if [ "$type" == "git" ]; then
# si le type est git, nous sommes forcément déjà à la racine
echo "$root"
return
elif [ "$type" == "svn" -o "$type" == "cvs" ]; then
# trouver le répertoire le plus haut
__vcs_upward_until "$root" "$type"
return
else
# sinon, il faut chercher dans les répertoire au dessus jusqu'à trouver
# un repository. On arrête la recherche à $HOME
local found
while [ -n "$root" -a "$root" != "/" -a "$root" != "." -a "$root" != "$HOME" ]; do
type="$(__vcs_get_type "$root")" && { found=1; break; }
root="$(dirname "$root")"
done
if [ -n "$found" ]; then
if [ "$type" == "git" ]; then
echo "$root"
return
elif [ "$type" == "svn" -o "$type" == "cvs" ]; then
__vcs_upward_until "$root" "$type"
return
fi
fi
fi
return 1
}
function _vcs_get_dir() {
abspath "${1:-.}"
}
function _vcs_get_type() {
__vcs_find_type "$1" || {
eerror "$(ppath "$1"): Ce répertoire n'est pas versionné"
return 1
}
}
function _vcs_unsupported() {
eerror "${1:+$1: }Opération ou option non supportée"
return 1
}
function _vcs_invalid_copy() {
eerror "Vous ne pouvez copier/déplacer qu'un fichier sur un fichier"
return 1
}
function _vcs_check_nbargs() {
[ "$1" -ge "$2" ] || {
eerror "Cette commande nécessite au moins $2 argument(s)"
return 1
}
if [ -n "$3" ]; then
[ "$1" -le "$3" ] || {
eerror "Cette commande supporte au plus $3 argument(s)"
return 1
}
fi
return 0
}
function _vcs_showhelp() {
local action func
action="$1"; shift
func="vcs_${action}_help"
[ $# == 1 -a "$1" == "--help" ] && { "$func" "$action"; return; }
return 1
}
function _vcs_dispatch() {
local dir action type func
dir="$(_vcs_get_dir "$1")"; shift
action="$1"; shift
_vcs_showhelp "$action" "$@" && return
type="$(_vcs_get_type "$dir")" || return
func="${type}_${action}"
"$func" "$@"
}
########################################
function vcs_getvcs_help() {
local OENC="$UTF8"
uecho "uproject $1: Afficher le type de vcs pour le répertoire spécifié
USAGE
uproject $1 [dir]"
}
function vcs_getvcs() {
_vcs_showhelp getvcs "$@" && return
__vcs_find_type "$(_vcs_get_dir "$1")"
}
########################################
function vcs_getroot_help() {
local OENC="$UTF8"
uecho "uproject $1: Afficher le répertoire racine du projet versionné correspondant au répertoire spécifié
USAGE
uproject $1 [dir]"
}
function vcs_getroot() {
_vcs_showhelp getvcs "$@" && return
__vcs_find_root "$(_vcs_get_dir "$1")"
}
########################################
function vcs_getrepos_help() {
local OENC="$UTF8"
uecho "uproject $1: Afficher l'url du repository du projet versionné correspondant au répertoire spécifié
USAGE
uproject $1 [dir]"
}
function vcs_getrepos() {
_vcs_dispatch "$1" getrepos "$@"
}
########################################
function vcs_geturl_help() {
local OENC="$UTF8"
uecho "uproject $1: Afficher l'url dans le repository du répertoire versionné spécifié
USAGE
uproject $1 [dir]"
}
function vcs_geturl() {
_vcs_dispatch "$1" geturl "$@"
}
########################################
function vcs_vcs_help() {
local OENC="$UTF8"
uecho "uproject $1: Appeler le gestionnaire de version approprié avec les arguments donnés
USAGE
uproject $1 [args]
note: les commandes suivantes permettent de lancer des opérations avancées:
$(array_to_lines __VCS_GIT_ADVANCED "" " ")"
}
function vcs_vcs() {
_vcs_showhelp vcs "$@" && return
local i f t
for i in "${__VCS_GIT_ADVANCED_MAP[@]}"; do
splitpair "$i" f t
if [ "$1" == "$f" ]; then
shift
set -- "$t" "$@"
break
fi
done
if array_contains __VCS_GIT_ADVANCED "$1"; then
"$@"
return $?
fi
local type
type="$(_vcs_get_type "$(_vcs_get_dir)")" || return
"$type" "$@"
}
########################################
function vcs_add_help() {
local OENC="$UTF8"
uecho "uproject $1: Ajouter les fichiers spécifiés dans le gestionnaire de version
USAGE
uproject $1 <files...>"
}
function vcs_add() {
# le répertoire de référence est le répertoire du premier fichier ajouté
_vcs_dispatch "$(dirname "$1")" add "$@"
}
########################################
function vcs_remove_help() {
local OENC="$UTF8"
uecho "uproject $1: Suppprimer les fichiers versionnés spécifiés du gestionaire de version
USAGE
uproject $1 <files...>"
}
function vcs_remove() {
# le répertoire de référence est le répertoire du premier fichier supprimé
_vcs_dispatch "$(dirname "$1")" remove "$@"
}
########################################
function vcs_copy_help() {
local OENC="$UTF8"
uecho "uproject $1: Copier les fichiers versionnés spécifiés
USAGE
uproject $1 <sources...> <dest>"
}
function vcs_copy() {
# le répertoire de référence est le répertoire de destination
local last=$#
_vcs_dispatch "$(dirname "${!last}")" copy "$@"
}
########################################
function vcs_move_help() {
local OENC="$UTF8"
uecho "uproject $1: Déplacer les fichiers versionnés spécifiés
USAGE
uproject $1 <sources...> <dest>"
}
function vcs_move() {
# le répertoire de référence est le répertoire de destination
local last=$#
_vcs_dispatch "$(dirname "${!last}")" move "$@"
}
########################################
function vcs_mkdir_help() {
local OENC="$UTF8"
uecho "uproject $1: Créer un nouveau répertoire versionné
USAGE
uproject $1"
}
function vcs_mkdir() {
# le répertoire de référence est le répertoire du premier répertoire créé
_vcs_dispatch "$(dirname "$1")" mkdir "$@"
}
########################################
function vcs_commit_help() {
local OENC="$UTF8"
uecho "uproject $1: Enregistrer les modifications sur les fichiers modifiés avec le message spécifiés
USAGE
uproject $1 <message> [files...]
Si files n'est pas spécifié, prendre tous les fichiers modifiés actuellement
OPTIONS
-a Enregistrer les modifications sur les fichiers modifiés uniquement.
-A Enregistrer les modifictions sur les nouveaux fichiers et les fichiers
modifiés.
-c Enregistrer uniquement les modifications de l'index. (si applicable)
-p Pousser les modifications sur le serveur après le commit (par défaut)
-l Garder le commit local, i.e. les modifications ne sont pas poussées sur
le serveur. (si applicable)"
}
function vcs_commit() {
_vcs_dispatch "" commit "$@"
}
########################################
function vcs_status_help() {
local OENC="$UTF8"
uecho "uproject $1: Afficher l'état des fichiers versionnés et non versionnés
USAGE
uproject $1"
}
function vcs_status() {
_vcs_dispatch "" status "$@"
}
########################################
function vcs_update_help() {
local OENC="$UTF8"
uecho "uproject $1: Mettre à jour le checkout local avec les modifications présentes sur le serveur
USAGE
uproject $1
OPTIONS
-x Ne pas mettre à jour les références externes"
}
function vcs_update() {
_vcs_dispatch "" update "$@"
}
########################################
function vcs_push_help() {
local OENC="$UTF8"
uecho "uproject $1: Pousser les modifications locales sur le serveur
USAGE
uproject $1"
}
function vcs_push() {
_vcs_dispatch "" push "$@"
}
########################################
function vcs_diff_help() {
local OENC="$UTF8"
uecho "uproject $1: Afficher les différences
USAGE
uproject $1
OPTIONS
-l (par défaut) Afficher les différences non commitées
-c Si cela a du sens, afficher les différences en passe d'être commitées
-r REVISION
Afficher les différences depuis la révision spécifiée
-R Afficher les modifications effectuées depuis la dernière release
Pour le moment, l'option -R n'est pas implémentée"
}
function vcs_diff() {
_vcs_dispatch "" diff "$@"
}
########################################
function vcs_tag_help() {
local OENC="$UTF8"
uecho "uproject $1: donner un nom symbolique à la révision courante
USAGE
uproject $1 <name>"
}
function vcs_tag() {
_vcs_dispatch "" tag "$@"
}
########################################
# XXX Ajouter vcs_revert, vcs_resolve, uproject_grep
################################################################################
# Git
function git_getrepos() {
git config --get remote.origin.url
}
function git_geturl() {
git config --get remote.origin.url
}
function git_have_annex() {
[ -n "$(git config --get annex.uuid)" ]
}
function git_add() {
git add "$@"
}
function git_remove() {
git rm "$@"
}
function git_copy() {
git cp "$@"
}
function git_move() {
git mv "$@"
}
function git_mkdir() {
git mkdir "$@"
}
function git_commit() {
local all=auto allnew push=auto nopush args
setyesval nopush "$UTOOLS_VCS_OFFLINE"
[ -n "$nopush" ] && push=
parse_opts + "${PRETTYOPTS[@]}" \
-a,--all all=1 \
-A,--all-new allnew=1 \
-c,--cached all= \
-p,--push push=1 \
-l,--local push= \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
if [ -n "$allnew" ]; then
git add -A
all=
fi
local message="$1"; shift
local -a cmd
cmd=(git commit)
[ -n "$message" ] && cmd=("${cmd[@]}" -m "$message")
if [ "$all" == "auto" ]; then
# Si des fichiers sont spécifiés, prendre ceux-là.
if [ -z "$*" ]; then
# Sinon, s'il y a des fichiers dans l'index, commiter uniquement ces
# fichiers
# Sinon, committer tous les fichiers modifiés
# le code suivant retourne vrai si l'index contient au moins fichier
git status --porcelain 2>/dev/null | awk '
BEGIN { ec = 1 }
substr($0, 1, 1) ~ /[^ ?]/ { ec = 0; exit }
END { exit ec }' ||
cmd=("${cmd[@]}" -a)
fi
else
[ -n "$all" ] && cmd=("${cmd[@]}" -a)
fi
if ! "${cmd[@]}" "$@"; then
[ "$push" == auto ] && return 1
fi
if [ "$push" == auto ]; then
git_push --auto || return
elif [ -n "$push" ]; then
git_push --force || return
fi
return 0
}
function git_status() {
git status "$@"
}
function git_update() {
local args
parse_opts + "${PRETTYOPTS[@]}" \
-x '$_vcs_unsupported -x' \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
git pull "$@"
}
function git_push() {
local all all_branches all_tags auto force args no_annex
parse_opts + "${PRETTYOPTS[@]}" \
-a,--all all=1 \
-b,--branches,--all-branches all_branches=1 \
-t,--tags,--all-tags all_tags=1 \
--auto auto=1 \
-f,--force force=1 \
-n,--no-annex no_annex=1 \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
if [ $# -gt 0 ]; then
# si des arguments sont spécifiés, les passer à git sans modification
git push "$@"
return $?
elif [ -n "$all" ]; then
# On a demandé à pusher toutes les branches et tous les tags
git push --all
git push --tags
return $?
elif [ -n "$all_branches" ]; then
# On a demandé à pusher toutes les branches
git push --all
return $?
elif [ -n "$all_tags" ]; then
# On a demandé à pusher tous les tags
git push --tags
return $?
elif git_have_annex; then
# Si une annexe existe dans le dépôt, demander à git-annex de faire la
# synchronisation, sauf si --no-annex est spécifié ou si on est en mode
# automatique
if [ -z "$no_annex" -a -z "$auto" ]; then
git annex sync
return $?
fi
fi
# sinon on push vers origin. vérifier la présence du remote
[ -n "$(git config --get remote.origin.url)" ] || {
if [ -n "$auto" ]; then
# en mode automatique, ignorer l'absence de remote
return 0
else
eerror "Aucun remote origin n'est défini"
return 1
fi
}
# puis calculer la branche à pusher
local branch="$(git rev-parse --abbrev-ref HEAD 2>/dev/null)"
local origin="$(git config --get "branch.$branch.remote")"
if [ -n "$branch" -a "$origin" == origin ]; then
if [ -n "$auto" ]; then
# en mode automatique, ne pousser que la branche courante
git push "$origin" "$branch" || return
else
# utiliser la configuration par défaut, qui est sous debian squeeze
# de pousser toutes les branches
git push || return
fi
elif [ -n "$force" ]; then
# utiliser la configuration par défaut, qui est sous debian squeeze de
# pousser toutes les branches
git push || return
fi
return 0
}
function git_diff() {
local dummy cached args
parse_opts + "${PRETTYOPTS[@]}" \
-l dummy \
-c cached \
-r: '$_vcs_unsupported -r' \
-R '$_vcs_unsupported -R' \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
git diff ${cached:+--cached} "$@"
}
function git_tag() {
_vcs_unsupported tag #XXX
}
# Fonctions avancées de git
__VCS_GIT_ADVANCED_MAP=(
cg:git_check_gitvcs eg:git_ensure_gitvcs
lbs:git_list_branches rbs:git_list_rbranches
hlb:git_have_branch hrb:git_have_rbranch
gb:git_get_branch ib:git_is_branch
hr:git_have_remote tb:git_track_branch
cc:git_check_cleancheckout ec:git_ensure_cleancheckout
ia:git_is_ancestor sff:git_should_ff spu:git_should_push
im:git_is_merged
)
__VCS_GIT_ADVANCED=(
git_check_gitvcs git_ensure_gitvcs
git_list_branches git_list_rbranches
git_have_branch git_have_rbranch
git_get_branch git_is_branch
git_have_remote git_track_branch
git_check_cleancheckout git_ensure_cleancheckout
git_is_ancestor git_should_ff git_should_push
git_is_merged
)
function git_check_gitvcs() {
[ "$(_vcs_get_type "$(_vcs_get_dir)")" == git ]
}
function git_ensure_gitvcs() {
git_check_gitvcs || die "Ce n'est pas un dépôt 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_list_pbranches() {
# lister les branches locales et celles qui existent dans l'origine
# $1(=origin) et qui pourraient devenir une branche locale avec la commande
# git checkout
local prefix="${1:-origin}/"
{
git for-each-ref refs/heads/ --format='%(refname:short)'
git for-each-ref "refs/remotes/$prefix" --format='%(refname:short)' | grep -F "$prefix" | cut -c $((${#prefix} + 1))-
} | grep -vF HEAD | csort -u
}
function git_have_branch() {
git_list_branches | grep -qF "$1"
}
function git_have_rbranch() {
git_list_rbranches "${2:-origin}" | grep -qF "$1"
}
function git_get_branch() {
git rev-parse --abbrev-ref HEAD 2>/dev/null
}
function git_is_branch() {
[ "$(git_get_branch)" == "${1:-master}" ]
}
function git_have_remote() {
[ -n "$(git config --get remote.${1:-origin}.url)" ]
}
function git_track_branch() {
local branch="$1" origin="${2:-origin}"
[ -n "$branch" ] || return
git_have_remote "$origin" || return
[ "$(git config --get branch.$branch.remote)" == "$origin" ] && return
if ! git_have_rbranch "$branch" "$origin"; then
git push "$origin" "$branch" || return
fi
git branch -t --set-upstream "$branch" "$origin/$branch"
}
function git_ensure_branch() {
# retourner 0 si la branche a été créée, 1 si elle existait déjà, 2 en cas d'erreur
local branch="$1" source="${2:-master}" origin="${3:-origin}"
[ -n "$branch" ] || return 2
git_have_branch "$branch" && return 1
if git_have_rbranch "$branch" "$origin"; then
# une branche du même nom existe dans l'origine. faire une copie de cette branche
git branch -t "$branch" "$origin/$branch" || return 2
else
# créer une nouvelle branche du nom spécifié
git_have_branch "$source" || return 2
git branch "$branch" "$source" || return 2
if [ -z "$UTOOLS_VCS_OFFLINE" ]; then
git_have_remote "$origin" && git_track_branch "$branch" "$origin"
fi
fi
return 0
}
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() {
git_check_cleancheckout || die "Vous avez des modifications locales. Enregistrez ces modifications avant de continuer"
}
function __git_init_ff() {
o="${3:-origin}"
b="$1" s="${2:-remotes/$o/$1}"
b="$(git rev-parse --verify --quiet "$b")" || return 1
s="$(git rev-parse --verify --quiet "$s")" || return 1
return 0
}
function __git_can_ff() {
[ "$1" == "$(git merge-base "$1" "$2")" ]
}
function git_is_ancestor() {
# vérifier que la branche $1 est un ancêtre direct de la branche $2, qui
# vaut par défaut remotes/${3:-origin}/$1
# note: cette fonction retourne vrai si $1 et $2 identifient le même commit
local o b s; __git_init_ff "$@" || return
__git_can_ff "$b" "$s"
}
function git_should_ff() {
# vérifier si la branche $1 devrait être fast-forwardée à partir de la
# branche d'origine $2, qui vaut par défaut remotes/${3:-origin}/$1
# note: cette fonction est similaire à git_is_ancestor(), mais retourne
# false si $1 et $2 identifient le même commit
local o b s; __git_init_ff "$@" || return
[ "$b" != "$s" ] || return 1
__git_can_ff "$b" "$o"
}
function git_should_push() {
# vérifier si la branche $1 devrait être poussée vers la branche de même nom
# dans l'origine $2(=origin), parce que l'origin peut-être fast-forwardée à
# partir de cette branche.
git_should_ff "remotes/${2:-origin}/$1" "$1"
}
function git_fast_forward() {
# vérifier que la branche courante est bien $1, puis tester s'il faut la
# fast-forwarder à partir de la branche d'origine $2, puis le faire si c'est
# nécessaire. la branche d'origine $2 vaut par défaut remotes/origin/$1
local o b s; __git_init_ff "$@" || return
[ "$b" != "$s" ] || return 1
local head="$(git rev-parse HEAD)"
[ "$head" == "$b" ] || return 1
__git_can_ff "$b" "$s" || return 1
git merge --ff-only "$s"
}
function git_is_merged() {
# vérifier que les branches $1 et $2 ont un ancêtre commun, et que la
# branche $1 a été complètement fusionnée dans la branche destination $2
local b="$1" d="$2"
b="$(git rev-parse --verify --quiet "$b")" || return 1
d="$(git rev-parse --verify --quiet "$d")" || return 1
[ -n "$(git merge-base "$b" "$d")" ] || return 1
[ -z "$(git rev-list "$d..$b")" ]
}
# fonctions pour git annex
function git_annex_initial() {
# sur le dépôt $1 fraichement cloné, vérifier s'il faut faire git annex
# init. Si oui, l'initialiser avec le nom d'hôte, et récupérer tous les
# fichiers annexés
# retourner 1 si une erreur s'est produite
local repodir="${1:-.}"
[ -d "$repodir" ] || return 1
repodir="$(abspath "$repodir")"
local GIT_DIR GIT_WORK_TREE
[ "$(cd "$repodir"; git rev-parse --is-bare-repository)" == false ] || return 0
[ -n "$(GIT_DIR="$repodir/.git" git config --get annex.uuid)" ] && return 0
# ici, on sait que git annex n'a pas encore été configuré
# vérifier s'il existe des fichiers annexés
local -a links
array_from_lines links "$(find "$repodir" -type l)"
local link hasannex=
for link in "${links[@]}"; do
link="$(readlink "$link")"
if [ "${link#.git/annex/}" != "$link" ]; then
hasannex=1
break
elif [[ "$link" == */.git/annex/* ]]; then
hasannex=1
break
fi
done
if [ -n "$hasannex" ]; then
progexists git-annex || {
eerror "Vous devez installer git-annex"
return 1
}
(cd "$repodir"
git annex init "$MYHOSTNAME" &&
git annex get &&
git annex sync
) || return 1
fi
}
################################################################################
# Subversion
function svn_getrepos() {
LANG=C svn info "${@:-.}" | awk '/^Repository Root: / { print substr($0, 18) }'
}
function svn_geturl() {
LANG=C svn info "${@:-.}" | awk '/^URL: / { print substr($0, 6) }'
}
function svn_add() {
svn add "$@"
}
function svn_remove() {
svn delete "$@"
}
function svn_copy() {
svn copy --parents "$@"
}
function svn_move() {
svn move --parents "$@"
}
function svn_mkdir() {
svn mkdir --parents "$@"
}
function svn_commit() {
local dummy args
parse_opts + "${PRETTYOPTS[@]}" \
-a,--all dummy \
-A,--all-new '$_vcs_unsupported -A' \
-c,--cached '$_vcs_unsupported -c' \
-p,--push dummy \
-l,--local '$_vcs_unsupported -l' \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
local message="$1"; shift
local -a cmd
cmd=(svn commit)
[ -n "$message" ] && cmd=("${cmd[@]}" -m "$message")
cmd=("${cmd[@]}" "${@:-.}")
"${cmd[@]}"
}
function svn_status() {
svn status "$@"
}
function svn_update() {
local ignore_externals args
parse_opts + "${PRETTYOPTS[@]}" \
-x ignore_externals \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
svn update ${ignore_externals:+--ignore-externals} "$@"
}
function svn_push() {
local args
parse_opts + "${PRETTYOPTS[@]}" \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
}
function svn_diff() {
local dummy revision args tmpfile0 tmpfile
parse_opts + "${PRETTYOPTS[@]}" \
-l dummy \
-r: revision \
-c '$_vcs_unsupported -c' \
-R '$_vcs_unsupported -R' \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
ac_set_tmpfile tmpfile0
ac_set_tmpfile tmpfile
LANG=C svn status 2>/dev/null | awk '/^$/ { next } /^(M|X|Performing status on external item at)/ { next } { print }' >"$tmpfile0"
if [ -s "$tmpfile0" ]; then
echo "Fichiers non modifiés dans un état spécial:" >>"$tmpfile"
cat "$tmpfile0" >>"$tmpfile"
echo "===================================================================" >>"$tmpfile"
fi
ac_clean "$tmpfile0"
svn diff -x -u ${revision:+-r "$revision"} "$@" >>"$tmpfile"
if [ -s "$tmpfile" ]; then
"${PAGER:-less}" "$tmpfile"
ac_clean "$tmpfile"
return 0
else
einfo "Aucune différence détectée"
ac_clean "$tmpfile"
return 1
fi
}
function svn_tag() {
_vcs_unsupported tag #XXX
}
################################################################################
# CVS
function cvs_getrepos() {
_vcs_unsupported getrepos
}
function cvs_geturl() {
_vcs_unsupported geturl
}
function cvs_add() {
cvs add "$@"
}
function cvs_remove() {
rm "$@"
cvs remove "$@"
}
function cvs_copy() {
_vcs_check_nbargs $# 2 2 || return
local src="$1" dest="$2"
if [ -d "$dest" ]; then
# copie d'un fichier vers un répertoire
cp "$src" "$dest" || return
cvs add "$dest/$(basename "$src")"
elif [ -f "$src" ]; then
# copie d'un fichier vers un fichier
cp "$src" "$dest" || return
cvs add "$dest"
else
_vcs_invalid_copy
return 1
fi
}
function cvs_move() {
_vcs_check_nbargs $# 2 2 || return
local src="$1" dest="$2"
if [ -d "$dest" ]; then
# copie d'un fichier vers un répertoire
mv "$src" "$dest" || return
cvs remove "$src"
cvs add "$dest/$(basename "$src")"
elif [ -f "$src" ]; then
# copie d'un fichier vers un fichier
mv "$src" "$dest" || return
cvs remove "$src"
cvs add "$dest"
else
_vcs_invalid_copy
return 1
fi
}
function cvs_mkdir() {
mkdir -p "$@"
cvs add "$@"
}
function cvs_commit() {
local dummy args
parse_opts + "${PRETTYOPTS[@]}" \
-a,--all dummy \
-A,--all-new '$_vcs_unsupported -A' \
-c,--cached '$_vcs_unsupported -c' \
-p,--push dummy \
-l,--local '$_vcs_unsupported -l' \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
local message="$1"; shift
local -a cmd
cmd=(cvs commit)
[ -n "$message" ] && cmd=("${cmd[@]}" -m "$message")
cmd=("${cmd[@]}" "${@:-.}")
"${cmd[@]}"
}
function cvs_status() {
cvs update "$@"
}
function cvs_update() {
local dummy args
parse_opts + "${PRETTYOPTS[@]}" \
-x dummy \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
cvs update "$@"
}
function cvs_push() {
local args
parse_opts + "${PRETTYOPTS[@]}" \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
}
function cvs_diff() {
local dummy revision args tmpfile
parse_opts + "${PRETTYOPTS[@]}" \
-l dummy \
-r: revision \
-c '$_vcs_unsupported -c' \
-R '$_vcs_unsupported -R' \
@ args -- "$@" && set -- "${args[@]}" || {
eerror "$args"
return 1
}
ac_set_tmpfile tmpfile
cvs diff -u ${revision:+-r "$revision"} "$@" >"$tmpfile"
if [ -s "$tmpfile" ]; then
"${PAGER:-less}" "$tmpfile"
ac_clean "$tmpfile"
return 0
else
ac_clean "$tmpfile"
einfo "Aucune différence détectée"
return 1
fi
}
function cvs_tag() {
local cwd rootdir
cwd="$(pwd)"
rootdir="$(__vcs_find_root "$cwd")"
cvs tag "$1" "$(relpath "$rootdir" "$cwd")"
}