blob: db46589b1fd1c954bdb8709fdd20a90c536adba6 (
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
|
########################################################-*-Shell-script-*-####
# CVS-Remove-Directory Function
##############################################################################
# $Id$
source ${0%/*}/stdlib.sh;
##############################################################################
# cvs-move-directory
function cvs-remove-directory-usage() {
echo "Usage: $program <source-directory>";
}
function cvs-remove-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-remove-directory() {
local program="$FUNCNAME";
local version='$Revision$';
local -a args;
args-loop "$@";
# get source and destination directories
[ ${#args[@]} == 1 ] || { $program-usage 1>&2; exit 1; };
local src_dir="${args[0]}";
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;
local src_name=`basename "$src_dir"`;
local src_parent=`dirname "$src_dir"`;
local src_entries="$src_parent/CVS/Entries";
if [ ! -f "$src_entries" ]; then
abort "could not find source entry file '$src_entries'";
fi;
runO "$src_entries~" grep -v "D/$src_name////" "$src_entries";
run mv "$src_entries~" "$src_entries";
}
##############################################################################
|