2006-11-05 20:26:21 +01:00
|
|
|
#!/bin/sh
|
|
|
|
|
|
|
|
{
|
|
|
|
cat <<\EOF
|
|
|
|
sayIt:
|
2015-02-05 14:28:04 +01:00
|
|
|
$(foreach b,$(BUILT_INS),echo XXX $(b:$X=) YYY;)
|
2006-11-05 20:26:21 +01:00
|
|
|
EOF
|
|
|
|
cat Makefile
|
|
|
|
} |
|
|
|
|
make -f - sayIt 2>/dev/null |
|
|
|
|
sed -n -e 's/.*XXX \(.*\) YYY.*/\1/p' |
|
|
|
|
sort |
|
|
|
|
{
|
|
|
|
bad=0
|
|
|
|
while read builtin
|
|
|
|
do
|
2014-03-25 18:22:22 +01:00
|
|
|
base=$(expr "$builtin" : 'git-\(.*\)')
|
|
|
|
x=$(sed -ne 's/.*{ "'$base'", \(cmd_[^, ]*\).*/'$base' \1/p' git.c)
|
2006-11-05 20:26:21 +01:00
|
|
|
if test -z "$x"
|
|
|
|
then
|
|
|
|
echo "$base is builtin but not listed in git.c command list"
|
|
|
|
bad=1
|
|
|
|
fi
|
|
|
|
for sfx in sh perl py
|
|
|
|
do
|
|
|
|
if test -f "$builtin.$sfx"
|
|
|
|
then
|
|
|
|
echo "$base is builtin but $builtin.$sfx still exists"
|
|
|
|
bad=1
|
|
|
|
fi
|
|
|
|
done
|
|
|
|
done
|
|
|
|
exit $bad
|
|
|
|
}
|