mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-12 04:14:06 +00:00
f3ce426725
scripts/*.sh:
Use ${var=default} rather than ${var:-$default}, since according
to the GNU autoconf manual, the latter is not portable.
106 lines
2.4 KiB
Bash
106 lines
2.4 KiB
Bash
#!/bin/sh
|
||
#---------------------------------------------------------------------------#
|
||
# Copyright (C) 1995 University of Melbourne.
|
||
# This file may only be copied under the terms of the GNU General
|
||
# Public License - see the file COPYING in the Mercury distribution.
|
||
#---------------------------------------------------------------------------#
|
||
|
||
# MSC - Mercury SICStus Compiler.
|
||
#
|
||
# Compiles Mercury programs to SICStus Prolog object code (*.ql).
|
||
#
|
||
# Use `msc -h' for help.
|
||
|
||
sp_builtin_pl=${MERCURY_SP_BUILTIN=@LIBDIR@/sicstus/sp_builtin.pl}
|
||
sicstus_compile=\
|
||
${MERCURY_SICSTUS_COMPILER=@LIBDIR@/sicstus/@FULLARCH@/sicstus_compile}
|
||
|
||
help=false
|
||
compile_mode=fastcode
|
||
unset target
|
||
|
||
while true; do
|
||
case $1 in
|
||
-h|--help)
|
||
help=true
|
||
break
|
||
;;
|
||
-o|--output)
|
||
target=$2
|
||
shift 2
|
||
;;
|
||
-m|--mode)
|
||
compile_mode=$2
|
||
shift 2
|
||
;;
|
||
--)
|
||
shift
|
||
break
|
||
;;
|
||
-*)
|
||
echo "$0: unrecognized option \`$1'" 1>&2
|
||
exit 1
|
||
;;
|
||
*)
|
||
break
|
||
;;
|
||
esac
|
||
done
|
||
|
||
if [ $# -lt 1 ] || $help; then
|
||
cat << 'EOF'
|
||
MSC - Mercury SICStus Compiler.
|
||
Compiles Mercury programs to SICStus Prolog object code (*.ql).
|
||
Usage: msc [<options>] file(s)
|
||
Options:
|
||
-h, --help
|
||
Print this help message
|
||
-o <target>, --output <target>
|
||
Name the output file <target>.
|
||
-m <compile-mode>, --mode <compile-mode>
|
||
Use the specified mode of compilation.
|
||
<compile-mode> should be either compactcode, fastcode,
|
||
or profiledcode.
|
||
Environment variables: MERCURY_SP_BUILTIN, MERCURY_SICSTUS_COMPILER
|
||
EOF
|
||
exit 0
|
||
fi
|
||
|
||
for file in "$@"; do
|
||
echo "msc: compiling \`$file'"
|
||
dir="`dirname $file`"
|
||
case $file in
|
||
*.m) base="`basename $file .m`" ;;
|
||
*.nl) base="`basename $file .nl`" ;;
|
||
*) base="`basename $file`" ;;
|
||
esac
|
||
rootname="$dir/$base"
|
||
tmp=/tmp/msc$$
|
||
trap 'rm -f $tmp.pl $tmp.ql; exit 1' 1 2 3 13 15
|
||
|
||
# This sed script is used to convert from Mercury/NU-Prolog to Sicstus Prolog
|
||
# It does three things: delete the `:- module' line,
|
||
# expand backslash escapes, and replace the use
|
||
# of `^' for xor in calls to is/2 with `#'.
|
||
# It also removes '%' comments, to avoid problems with quotes in them.
|
||
# Obviously this is not the most robust method of translation imaginable!
|
||
|
||
sed '
|
||
/ is /s/\^/#/g
|
||
/^:- *module/d
|
||
/^[ ]*%/s/.*//
|
||
/\\\\/s//\\/g
|
||
/\\a/s///g
|
||
/\\b/s///g
|
||
/\\r/s//
|
||
/g
|
||
/\\f/s// /g
|
||
/\\t/s// /g
|
||
/\\n/s//\
|
||
/g
|
||
/\\v/s// /g
|
||
' $file > $tmp.pl
|
||
$sicstus_compile $compile_mode $tmp.pl
|
||
rm $tmp.pl
|
||
mv $tmp.ql ${target="$rootname.ql"}
|
||
done
|