261bea973b97f0c6346606ed452eaf1ae0e20113
[mes.git] / scripts / mescc.in
1 #! @BASH@
2
3 # GNU Mes --- Maxwell Equations of Software
4 # Copyright © 2018 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-100000000}
26 export MES_ARENA
27
28 MES_STACK=${MES_STACK-500000}
29 export MES_STACK
30
31 MES_PREFIX=${MES_PREFIX-$prefix/share/mes}
32 export MES_PREFIX
33
34 MES=${MES-src/mes}
35
36 dir=$(dirname $0)
37 ${SCHEME-$MES} \
38      --no-auto-compile\
39      -e main\
40      -L @guile_site_dir@\
41      -C @guile_site_ccache_dir@\
42      $dir/mescc.scm "$@"