(check for .elc files): Avoid bash-specific syntax.

(check for overflow 14-char limit): Simplify.
This commit is contained in:
Karl Heuer
1997-11-07 21:19:19 +00:00
parent 287404f340
commit c2a3dd2e1e

View File

@@ -144,8 +144,10 @@ them, and try again." >&2
fi
### Check for .elc files with no corresponding .el file.
ls -1 {lisp,leim}/[a-z]*.el {lisp,leim}/[a-z]*/[a-z]*.el | sed 's/\.el$/.elc/' > /tmp/el
ls -1 {lisp,leim}/[a-z]*.elc {lisp,leim}/[a-z]*/[a-z]*.elc > /tmp/elc
ls -1 lisp/[a-z]*.el lisp/[a-z]*/[a-z]*.el \
leim/[a-z]*.el leim/[a-z]*/[a-z]*.el | sed 's/\.el$/.elc/' > /tmp/el
ls -1 lisp/[a-z]*.elc lisp/[a-z]*/[a-z]*.elc \
leim/[a-z]*.elc leim/[a-z]*/[a-z]*.elc > /tmp/elc
bogosities="`comm -13 /tmp/el /tmp/elc`"
if [ "${bogosities}" != "" ]; then
echo "The following .elc files have no corresponding .el files:"
@@ -181,8 +183,7 @@ fi
rm -f /tmp/el /tmp/elc
### Check for .el files that would overflow the 14-char limit if compiled.
long=`find lisp -name '[a-zA-Z0-9]??????????*.el' -print
find leim -name '[a-zA-Z0-9]??????????*.el' -print`
long=`find lisp leim -name '[a-zA-Z0-9]??????????*.el' -print`
if [ "$long" != "" ]; then
echo "The following .el file names are too long:"
echo "$long"