nutools/lib/ulib/vcs

##@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é
        if [ -z "$no_annex" ]; 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")"
}