- Added cvs-move-directory

2 files changed, 99 insertions, 0 deletions

diff --git a/support/scripts/cvs-move-directory b/support/scripts/cvs-move-directory
new file mode 100755
index 0000000000..44742ef9d1
--- /dev/null
+++ b/support/scripts/cvs-move-directory
@@ -0,0 +1,10 @@
+#!/bin/bash
+########################################################-*-Shell-script-*-####
+# CVS-Move-Directory Command
+##############################################################################
+# $Id$
+
+source $0.sh;
+${0##*/} "$@";
+
+##############################################################################
diff --git a/support/scripts/cvs-move-directory.sh b/support/scripts/cvs-move-directory.sh
new file mode 100644
index 0000000000..4f4b8b6be4
--- /dev/null
+++ b/support/scripts/cvs-move-directory.sh
@@ -0,0 +1,89 @@
+########################################################-*-Shell-script-*-####
+# CVS-Move-Directory Function
+##############################################################################
+# $Id$
+
+source ${0%/*}/stdlib.sh;
+
+##############################################################################
+# cvs-move-directory
+
+function cvs-move-directory-usage() {
+    echo "Usage: $program <source-directory> <destination-directory>";
+}
+
+function cvs-move-directory-args() {
+    case "$1" in
+        -? | -h | --help      ) $program-usage; exit 0;;
+        --verbose             ) verbose=true; return 1;;
+        --version             ) echo "$program (bash script) $version";exit 0;;
+        -*                    ) args-option-unknown "$@";;
+        *                     ) args-append-array args "$@";;
+    esac;
+}
+
+function cvs-move-directory-update-repository() {
+    [ $# = 2 -a -d "$1" -a -d "$1/CVS" ] || abort "internal error";
+    local directory="$1"; shift 1;
+    local repository="$1"; shift 1;
+
+    runO "$directory/CVS/Repository" echo "$repository";
+
+    local name;
+    for name in `ls -A "$directory"`; do
+        local file="$directory/$name";
+        if [ -d "$file" -a -d "$file/CVS" ]; then
+            cvs-move-directory-update-repository "$file" "$repository/$name";
+        fi;
+    done;
+}
+
+function cvs-move-directory() {
+    local program="$FUNCNAME";
+    local version='$Revision$';
+    local -a args;
+    args-loop "$@";
+
+    # get source and destination directories
+    [ ${#args[@]} == 2 ] || { $program-usage 1>&2; exit 1; };
+    local src_dir="${args[0]}";
+    local dst_dir="${args[1]}";
+
+    if [ ! -d "$src_dir" ]; then
+        abort "could not find source directory '$src_dir'";
+    fi;
+    if [ ! -d "$src_dir/CVS" ]; then
+        abort "source directory '$src_dir' is not cvs-controlled";
+    fi;
+    if [ -d "$dst_dir" ]; then
+        abort "destination directory '$dst_dir' exists already";
+    fi;
+
+    local src_name=`basename "$src_dir"`;
+    local dst_name=`basename "$dst_dir"`;
+    local src_parent=`dirname "$src_dir"`;
+    local dst_parent=`dirname "$dst_dir"`;
+    local src_entries="$src_parent/CVS/Entries";
+    local dst_entries="$dst_parent/CVS/Entries";
+    local dst_repository="$dst_parent/CVS/Repository";
+
+    if [ ! -f "$src_entries" ]; then
+        abort "could not find source entry file '$src_entries'";
+    fi;
+    if [ ! -f "$dst_entries" ]; then
+        abort "could not find destination entry file '$dst_entries'";
+    fi;
+    if [ ! -f "$dst_repository" ]; then
+        abort "could not find destination repository file '$dst_repository'";
+    fi;
+
+    run mv "$src_dir" "$dst_dir";
+    runO "$src_entries~" grep -v "D/$src_name////" "$src_entries";
+    run mv "$src_entries~" "$src_entries";
+    runOO "$dst_entries" echo "D/$dst_name////";
+
+    cvs-move-directory-update-repository "$dst_dir" \
+        `head -1 $dst_repository`/"$dst_name";
+}
+
+##############################################################################