blob: 4f4b8b6be4d712689ab2771081a98b0172ae8d63 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
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";
}
##############################################################################
|
