build: Resolve MODULEDIR confusion. Fixes mes installation.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 5 May 2017 20:13:01 +0000 (22:13 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 5 May 2017 20:45:59 +0000 (22:45 +0200)
* make/install.make (GUILEDIR): New variable.  Was MODULEDIR.
  (MODULEDIR): Mes' module dir.
* guile/mescc.scm: Update.
* src/mes.c (load_env, bload_env): Update.

guile/mescc.scm
make/install.make
src/mes.c

index f4eae8bc23cc67aaa3e00454e4937f10eff6f40c..83afbd9e1afe70bd1a634eac5f557208f3ef1e8e 100755 (executable)
@@ -1,11 +1,11 @@
 #! /bin/sh
 # -*-scheme-*-
 GODIR=${GODIR-@GODIR@}
-MODULEDIR=${MODULEDIR-@MODULEDIR@}
+GUILEDIR=${GUILEDIR-@GUILEDIR@}
 [ "$GODIR" = @"GODIR"@ ] && GODIR=guile
-[ "$MODULEDIR" = @"MODULEDIR"@ ] && MODULEDIR=guile
+[ "$GUILEDIR" = @"GUILEDIR"@ ] && GUILEDIR=guile
 export GUILE_AUTO_COMPILE=${GUILE_AUTO_COMPILE-0}
-exec ${GUILE-guile} -L $MODULEDIR -C $GODIR -e '(mescc)' -s "$0" "$@"
+exec ${GUILE-guile} -L $GUILEDIR -C $GODIR -e '(mescc)' -s "$0" "$@"
 !#
 
 ;;; Mes --- The Maxwell Equations of Software
index 7428ee2c455c399eb1295aa8d6f171340b6fd24e..5f391a4a913b666a0fac36bf30a71a4fbe3faf0e 100644 (file)
@@ -31,8 +31,10 @@ DATADIR:=$(PREFIX)/share
 DOCDIR:=$(DATADIR)/doc
 endif
 LIBDIR:=$(PREFIX)/lib
-MODULEDIR:=$(PREFIX)/share/guile/site/$(GUILE_EFFECTIVE_VERSION)
+
 GODIR:=$(LIBDIR)/guile/$(GUILE_EFFECTIVE_VERSION)/site-ccache
+GUILEDIR:=$(PREFIX)/share/guile/site/$(GUILE_EFFECTIVE_VERSION)
+MODULEDIR:=$(DATADIR)/module
 
 .tarball-version: tree-clean-p
        echo $(COMMIT) > $@
@@ -74,6 +76,7 @@ install: $(CLEAN) ChangeLog
            -e 's,@DATADIR@,$(DATADIR)/,g' \
            -e 's,@DOCDIR@,$(DOCDIR)/,g' \
            -e 's,@GODIR@,$(GODIR)/,g' \
+           -e 's,@GUILEDIR@,$(GUILEDIR)/,g' \
            -e 's,@MODULEDIR@,$(MODULEDIR)/,g' \
            -e 's,@PREFIX@,$(PREFIX)/,g' \
            -e 's,@VERSION@,$(VERSION),g' \
@@ -90,9 +93,9 @@ install: $(CLEAN) ChangeLog
        $(GIT_ARCHIVE_HEAD) doc \
                | tar -C $(DESTDIR)$(DOCDIR) --strip=1 -xf-
        cp ChangeLog $(DESTDIR)$(DOCDIR)
-       mkdir -p $(DESTDIR)$(MODULEDIR)
+       mkdir -p $(DESTDIR)$(GUILEDIR)
        tar -cf- -C module $(INSTALL_SCM_FILES:module/%=%)\
-               | tar -C $(DESTDIR)$(MODULEDIR) -xf-
+               | tar -C $(DESTDIR)$(GUILEDIR) -xf-
        mkdir -p $(DESTDIR)$(GODIR)
        tar -cf- -C module $(INSTALL_GO_FILES:module/%=%)\
                | tar -C $(DESTDIR)$(GODIR) -xf-
index 617f0c0cfc7f5ee63a51701a7c5c7d5f86bd1fcf..266d2ff4ce62efa16c0059327f5d6e666fd66c20 100644 (file)
--- a/src/mes.c
+++ b/src/mes.c
@@ -1248,7 +1248,7 @@ load_env (SCM a) ///((internal))
 {
   r0 = a;
   g_stdin = open ("module/mes/read-0.mes", O_RDONLY);
-  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "mes/read-0.mes", O_RDONLY);
+  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "/mes/read-0.mes", O_RDONLY);
   if (!g_function) r0 = mes_builtins (r0);
   r2 = read_input_file_env (r0);
   g_stdin = STDIN;
@@ -1261,11 +1261,11 @@ bload_env (SCM a) ///((internal))
 #if __MESC__
   char *mo = "mes/read-0-32.mo";
   g_stdin = open ("module/mes/read-0-32.mo", O_RDONLY);
-  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "mes/read-0-32.mo", O_RDONLY);
+  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "/mes/read-0-32.mo", O_RDONLY);
 #else
   char *mo ="mes/read-0.mo";
   g_stdin = open ("module/mes/read-0.mo", O_RDONLY);
-  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "mes/read-0.mo", O_RDONLY);
+  g_stdin = g_stdin >= 0 ? g_stdin : open (MODULEDIR "/mes/read-0.mo", O_RDONLY);
 #endif
 
   if (g_stdin < 0) {eputs ("no such file: ");eputs (mo);eputs ("\n");return 1;}