build-aux/build-guile.sh

   1 #! /bin/sh
   2
   3 # Mes --- Maxwell Equations of Software
   4 # Copyright © 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
   5 #
   6 # This file is part of Mes.
   7 #
   8 # 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 # 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 Mes.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 if [ -n "$BUILD_DEBUG" ]; then
  22     set -x
  23 fi
  24
  25 export GUILE
  26 GUILE=${GUILE-$(command -v guile)}
  27 GUILE_TOOLS=${GUILE_TOOLS-$(command -v guile-tools)}
  28
  29 set -e
  30
  31 SCM_FILES="
  32 guile/mes/guile.scm
  33 guile/mes/misc.scm
  34 guile/mes/test.scm
  35 guile/mescc/M1.scm
  36 guile/mescc/as.scm
  37 guile/mescc/bytevectors.scm
  38 guile/mescc/compile.scm
  39 guile/mescc/i386/as.scm
  40 guile/mescc/info.scm
  41 guile/mescc/mescc.scm
  42 guile/mescc/preprocess.scm
  43 "
  44
  45 export srcdir=.
  46 export host=$($GUILE -c "(display %host-type)")
  47
  48 #$GUILE --no-auto-compile -L guile -C guile -s build-aux/compile-all.scm $SCM_FILES
  49
  50 for i in $SCM_FILES; do
  51     go=${i%%.scm}.go
  52     if [ $i -nt $go ]; then
  53         echo "  GUILEC $i"
  54         $GUILE_TOOLS compile -L guile -L scripts -o $go $i
  55     fi
  56 done
  57
  58 SCRIPTS="
  59 scripts/mescc
  60 "
  61
  62 for i in $SCRIPTS; do
  63     go=${i%%.scm}.go
  64     if [ $i -nt $go ]; then
  65         echo "  GUILEC $i"
  66         $GUILE_TOOLS compile -L guile -L scripts -o $go $i
  67     fi
  68 done