tools-for-build/whitespacely-canonical-filenames

   1 #!/bin/sh
   2
   3 # (a script to be run in the root directory of the distribution,
   4 # probably as part of an enclosing do-something-with-whitespace script)
   5 #
   6 # Print to stdout the names of files whose whitespace we (SBCLers)
   7 # try to keep canonical.
   8
   9 # glob patterns for source files in languages for which the
  10 # canonicalization is safe (not affecting meaning, at least given the
  11 # conservative syntax used in SBCL sources)
  12 source_extensions='.lisp .lisp-expr .c .h .asd'
  13 # other candidates:
  14 #   .sh: if ./make.sh is altered, Bad Things happen
  15 #   ?
  16
  17 stamp_file=whitespace-stamp
  18
  19 if [ -e $stamp_file ]; then
  20     find_opt="-newer $stamp_file"
  21 else
  22     find_opt=""
  23 fi
  24
  25 for source_extension in $source_extensions; do
  26     find . \( \
  27             -path contrib/asdf -o \
  28             -name _darcs -o \
  29             -name '{arch}' -o \
  30             -name CVS -o \
  31             -name .hg -o \
  32             -name .svn \) -type d -prune -o \
  33            $find_opt -name '*'$source_extension -print
  34 done
  35
  36 touch $stamp_file