BSD 4_4_Lite2 development

[unix-history] / 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