ARM: Support comparing 32 bit values.
[mes.git] / scripts / mescc.in
1 #! @BASH@
2
3 # GNU Mes --- Maxwell Equations of Software
4 # Copyright © 2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
5 #
6 # This file is part of GNU Mes.
7 #
8 # GNU Mes is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU General Public License as published by
10 # the Free Software Foundation; either version 3 of the License, or (at
11 # your option) any later version.
12 #
13 # GNU Mes is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 # GNU General Public License for more details.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
20
21 if [ "$V" = 2 ]; then
22     set -x
23 fi
24
25 MES_ARENA=${MES_ARENA-20000000}
26 export MES_ARENA
27
28 MES_MAX_ARENA=${MES_MAX_ARENA-${MES_ARENA}}
29 export MES_MAX_ARENA
30
31 MES_STACK=${MES_STACK-5000000}
32 export MES_STACK
33
34 MES_PREFIX=${MES_PREFIX-@prefix@}
35 export MES_PREFIX
36
37 GUILE_LOAD_PATH=@guile_site_dir@${GUILE_LOAD_PATH+:}${GUILE_LOAD_PATH}
38 export GUILE_LOAD_PATH
39
40 MES=${MES-@prefix@/bin/mes}
41 bindir=${bindir-@bindir@}
42 includedir=${includedir-@includedir@}
43 export includedir
44 libdir=${libdir-@libdir@}
45 export libdir
46 numbered_arch=${numbered_arch=@numbered_arch@}
47 export numbered_arch
48
49 if [ ! -f $bindir/mescc.scm ]; then
50    bindir=$(dirname $0)
51 fi
52
53 sep=
54 if [ "$(basename ${SCHEME-$MES})" = "mes" ]; then
55     sep=--
56 fi
57
58 ${SCHEME-$MES} \
59     --no-auto-compile\
60     -e main\
61     -L @guile_site_dir@\
62     -C @guile_site_ccache_dir@\
63     $bindir/mescc.scm\
64     $sep\
65     "$@"