X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tools-for-build%2Fwhitespacely-canonical-filenames;h=42935fe6b53416b7a81dc4ae27d594267339f45a;hb=8f79e6459a0e8fdd33c81a66f7e4adfa13f25005;hp=e0443753b776228652ccc7b2a03c12d218ad8696;hpb=03b0b915788f986144fe6c415d9dbf9d42901092;p=sbcl.git

diff --git a/tools-for-build/whitespacely-canonical-filenames b/tools-for-build/whitespacely-canonical-filenames
index e044375..42935fe 100755
--- a/tools-for-build/whitespacely-canonical-filenames
+++ b/tools-for-build/whitespacely-canonical-filenames
@@ -22,8 +22,17 @@ else
     find_opt=""
 fi
 
-for source_extension in $source_extensions; do 
-    find . \( \
+# SunOS find does not support -path.  Try to find a binary which does.
+if   [ -n "$GNUFIND" ];        then :
+elif which gfind >/dev/null;   then GNUFIND=gfind
+elif which gnufind >/dev/null; then GNUFIND=gnufind
+else                                GNUFIND=find; fi
+if ! "$GNUFIND" /dev/null -path dummy 2>/dev/null; then
+    echo "Warning: $GNUFIND might not be GNU: use of -path fails." 1>&2
+fi
+
+for source_extension in $source_extensions; do
+    "$GNUFIND" . \( \
             -path contrib/asdf -o \
             -name _darcs -o \
             -name '{arch}' -o \