4.4BSD/usr/src/contrib/perl-4.036/doSH

#!/bin/sh

: if this fails, just run all the .SH files by hand
. ./config.sh

rm -f x2p/config.sh
cp cppstdin x2p

echo " "
echo "Doing variable substitutions on .SH files..."
set x `awk '{print $1}' <MANIFEST | grep '\.SH'`
shift
case $# in
0) set x *.SH; shift;;
esac
if test ! -f $1; then
    shift
fi
for file in $*; do
    set X
    shift
    chmod +x $file
    case "$file" in
    */*)
	dir=`expr X$file : 'X\(.*\)/'`
	file=`expr X$file : 'X.*/\(.*\)'`
	(cd $dir && . ./$file)
	;;
    *)
	. ./$file
	;;
    esac
done
if test -f config.h.SH; then
    if test ! -f config.h; then
	: oops, they left it out of MANIFEST, probably, so do it anyway.
	. ./config.h.SH
    fi
fi
exit 0