wcfind   [plain text]

#!/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