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
|
#!/bin/sh
# Copyright 2006 David Hilvert <dhilvert@auricle.dyndns.org>,
# <dhilvert@ugcs.caltech.edu>
# This file is part of the Anti-Lamenessing Engine.
#
# The Anti-Lamenessing Engine is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# The Anti-Lamenessing Engine is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Anti-Lamenessing Engine; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
###
### 'repo-clean' attempts to remove files not in the
### repository.
###
#
# Use makefile clean commands.
#
echo ""
echo "Running makefile 'clean' commands."
make clean &> /dev/null
make distclean &> /dev/null
#
# List other candidates for removal.
#
echo ""
echo "Other removal candidates (run manually if OK):"
echo ""
find | xargs file | grep "symbolic link" | sed -e 's/:.*//g' | xargs -n 1 -r echo "rm"
#
# Check for the existence of repository resources.
#
if ! which darcs &> /dev/null; then
echo "*** Cannot find 'darcs'. ***"
exit
fi
if ! ls _darcs &> /dev/null; then
echo "*** Cannot find repository directory '_darcs'.***"
exit
fi
#
# List ordinary files that the repository doesn't know about.
#
darcs wha -l --boring | grep "^a.*[^/]$" | sed -e 's/a //' | xargs -n 1 -r echo "rm"
darcs wha -l --boring | grep "^a.*/$" | sed -e 's/a //' | xargs -n 1 -r echo "rmdir"
|