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
|
#!/bin/sh
# Copyright 2007 Max Bowsher
# Licensed under the terms Subversion ships under
# Runs the 'find' program, with arguments munged such that '.svn' or 'CVS'
# working copy administrative directories and their contents are ignored.
optspaths=
expropts=
exproptarg=
exprmain=
depth=
somethingseen=
phase=optspaths
print=-print
for option in "$@"; do
if [ "$phase" = "optspaths" ]; then
case $option in
-H|-L|-P) ;;
-*|"("*|")"*|,*|!*) phase=exprmain ;;
*) ;;
esac
fi
if [ "$exproptarg" = "yes" ]; then
exproptarg=
phase=expropts
fi
if [ "$phase" = "exprmain" ]; then
case $option in
-depth|-d) depth=yes ;;
-delete|-exec|-exec|-execdir|-execdir|-fls|-fprint|-fprint0 \
|-fprintf|-ok|-print|-okdir|-print0|-printf|-quit|-ls) print= ;;
esac
case $option in
-depth|-d|-noleaf|-mount|-xdev|-warn|-nowarn \
|-ignore_readdir_race|-noignore_readdir_race) phase=expropts ;;
-maxdepth|-mindepth|-regextype) phase=expropts; exproptarg=yes ;;
-follow|-daystart) ;;
*) somethingseen=yes
esac
fi
eval "$phase=\"\$$phase \\\"$option\\\"\""
if [ "$phase" = "expropts" ]; then
phase=exprmain
fi
done
if [ -z "$somethingseen" ]; then
exprmain="$exprmain -print"
print=
fi
if [ "$depth" = "yes" ]; then
eval find $optspaths $expropts \
-regex \''.*/\.svn'\' -or -regex \''.*/\.svn/.*'\' \
-or -regex \''.*/CVS'\' -or -regex \''.*/CVS/.*'\' \
-or '\(' $exprmain '\)' $print
else
eval find $optspaths $expropts '\(' -name .svn -or -name CVS '\)' -prune \
-or '\(' $exprmain '\)' $print
fi
|
