writemain.SH revision 7c478bd95313f5f23a4c958a745db2134aa03244
case $PERL_CONFIG_SH in
'')
else
echo "Can't find config.sh."; exit 1
fi
;;
esac
case "$0" in
esac
echo "Extracting writemain (with variable substitutions)"
# This script takes the plain miniperlmain.c and writes out perlmain.c
# which includes all the extensions.
# The command line arguments name extensions to be used.
# E.g.: sh writemain SDBM_File POSIX > perlmain.c
#
orig="$*"
args=''
;;
esac
;;
;;
*/*)
;;
esac
done
if test X"$args" != "X" ; then
echo "EXTERN_C void boot_${cname} (pTHX_ CV* cv);"
done
fi
cat << 'EOP'
static void
{
echo " char *file = __FILE__;"
echo " dXSUB_SYS;"
ai=''
echo " newXS(\"${mname}::boot_${ext}\", boot_${cname}, file);"
else
echo " newXS(\"${mname}::bootstrap\", boot_${cname}, file);"
fi
done
fi
cat << 'EOP'
}