mescc: Support single-dash options on Mes too.
* scripts/mescc.in[MES]: Add -- as separator, fixes using single-dash options on Mes too.
This commit is contained in:
parent
115feda4fc
commit
8abc68bb43
|
@ -41,9 +41,33 @@ if [ ! -f $bindir/mescc.scm ]; then
|
||||||
bindir=$(dirname $0)
|
bindir=$(dirname $0)
|
||||||
fi
|
fi
|
||||||
|
|
||||||
|
# Workaround for second getopt-long parsing by Mes' boot-0.scm.
|
||||||
|
args=""
|
||||||
|
for i in "$@"; do
|
||||||
|
case "$i" in
|
||||||
|
-[a-zA-Z]) args="$args $i";;
|
||||||
|
-D[a-zA-Z]*) args="$args -D ${i:2}";;
|
||||||
|
-I[a-zA-Z]*) args="$args -I ${i:2}";;
|
||||||
|
-L[a-zA-Z]*) args="$args -L ${i:2}";;
|
||||||
|
-l[a-zA-Z]*) args="$args -l ${i:2}";;
|
||||||
|
-dumpmachine|-fno-builtin|-nodefaultlibs|-nostartfiles|-nostdinc|-nostdlib|-std=*) args="$args -$i";;
|
||||||
|
*) args="$args $i";;
|
||||||
|
esac
|
||||||
|
done
|
||||||
|
|
||||||
|
sep=
|
||||||
|
if [ "$(basename ${SCHEME-$MES})" = "mes" ]; then
|
||||||
|
sep=--
|
||||||
|
fi
|
||||||
|
|
||||||
${SCHEME-$MES} \
|
${SCHEME-$MES} \
|
||||||
--no-auto-compile\
|
--no-auto-compile\
|
||||||
-e main\
|
-e main\
|
||||||
-L @guile_site_dir@\
|
-L @guile_site_dir@\
|
||||||
-C @guile_site_ccache_dir@\
|
-C @guile_site_ccache_dir@\
|
||||||
$bindir/mescc.scm "$@"
|
$bindir/mescc.scm\
|
||||||
|
$sep\
|
||||||
|
"$@"
|
||||||
|
|
||||||
|
# ..but using -- "$@" that seems no longer necessary!
|
||||||
|
# $args
|
||||||
|
|
Loading…
Reference in a new issue