mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
build: Expand ‘scripts/guix’ at Make time.
This moves the complexity of Autotools variable expansion outside of the application code. * scripts/guix.in (config-lookup): Delete. (maybe-augment-load-paths!, run-guix-main): Use fully expanded variables instead of calling ‘config-lookup’. * configure.ac: Don't use AC_CONFIG_FILES for ‘scripts/guix’. Use AC_PROG_SED. * Makefile.am (scripts/guix): New rule. (do_subst): New variable. (CLEANFILES, EXTRA_DIST): Adapt. Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
341afe2a36
commit
cba386c129
3 changed files with 25 additions and 29 deletions
20
Makefile.am
20
Makefile.am
|
@ -2,7 +2,7 @@
|
||||||
# Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
|
# Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
|
||||||
# Copyright © 2013 Andreas Enge <andreas@enge.fr>
|
# Copyright © 2013 Andreas Enge <andreas@enge.fr>
|
||||||
# Copyright © 2015, 2017 Alex Kost <alezost@gmail.com>
|
# Copyright © 2015, 2017 Alex Kost <alezost@gmail.com>
|
||||||
# Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
|
# Copyright © 2016, 2018 Mathieu Lirzin <mthl@gnu.org>
|
||||||
# Copyright © 2016, 2017 Mark H Weaver <mhw@netris.org>
|
# Copyright © 2016, 2017 Mark H Weaver <mhw@netris.org>
|
||||||
# Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
# Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
||||||
# Copyright © 2017 Leo Famulari <leo@famulari.name>
|
# Copyright © 2017 Leo Famulari <leo@famulari.name>
|
||||||
|
@ -26,8 +26,20 @@
|
||||||
# You should have received a copy of the GNU General Public License
|
# You should have received a copy of the GNU General Public License
|
||||||
# along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
# along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
bin_SCRIPTS = \
|
bin_SCRIPTS = scripts/guix
|
||||||
scripts/guix
|
|
||||||
|
# Handle substitution of fully-expanded Autoconf variables.
|
||||||
|
do_subst = $(SED) \
|
||||||
|
-e 's,[@]GUILE[@],$(GUILE),g' \
|
||||||
|
-e 's,[@]guilemoduledir[@],$(guilemoduledir),g' \
|
||||||
|
-e 's,[@]guileobjectdir[@],$(guileobjectdir),g' \
|
||||||
|
-e 's,[@]localedir[@],$(localedir),g'
|
||||||
|
|
||||||
|
scripts/guix: scripts/guix.in Makefile
|
||||||
|
$(AM_V_at)rm -f $@ $@-t
|
||||||
|
$(AM_V_at)$(MKDIR_P) "$(@D)"
|
||||||
|
$(AM_V_GEN)$(do_subst) < "$(srcdir)/$@.in" > "$@-t"
|
||||||
|
$(AM_V_at)chmod a+x,a-w "$@-t" && mv -f "$@-t" "$@"
|
||||||
|
|
||||||
nodist_noinst_SCRIPTS = \
|
nodist_noinst_SCRIPTS = \
|
||||||
pre-inst-env \
|
pre-inst-env \
|
||||||
|
@ -437,6 +449,7 @@ EXTRA_DIST = \
|
||||||
TODO \
|
TODO \
|
||||||
CODE-OF-CONDUCT \
|
CODE-OF-CONDUCT \
|
||||||
.dir-locals.el \
|
.dir-locals.el \
|
||||||
|
bin/guix.in \
|
||||||
build-aux/build-self.scm \
|
build-aux/build-self.scm \
|
||||||
build-aux/compile-all.scm \
|
build-aux/compile-all.scm \
|
||||||
build-aux/hydra/evaluate.scm \
|
build-aux/hydra/evaluate.scm \
|
||||||
|
@ -473,6 +486,7 @@ endif !BUILD_DAEMON_OFFLOAD
|
||||||
|
|
||||||
|
|
||||||
CLEANFILES = \
|
CLEANFILES = \
|
||||||
|
$(bin_SCRIPTS) \
|
||||||
$(GOBJECTS) \
|
$(GOBJECTS) \
|
||||||
$(SCM_TESTS:tests/%.scm=%.log)
|
$(SCM_TESTS:tests/%.scm=%.log)
|
||||||
|
|
||||||
|
|
|
@ -124,6 +124,8 @@ dnl Make sure we don't suffer from the bug in 'equal?' wrt. syntax objects
|
||||||
dnl found in 2.2.1. See <https://bugs.gnu.org/29903>.
|
dnl found in 2.2.1. See <https://bugs.gnu.org/29903>.
|
||||||
GUIX_ASSERT_SYNTAX_OBJECT_EQUAL
|
GUIX_ASSERT_SYNTAX_OBJECT_EQUAL
|
||||||
|
|
||||||
|
AC_PROG_SED
|
||||||
|
|
||||||
dnl Decompressors, for use by the substituter and other modules.
|
dnl Decompressors, for use by the substituter and other modules.
|
||||||
AC_PATH_PROG([GZIP], [gzip])
|
AC_PATH_PROG([GZIP], [gzip])
|
||||||
AC_PATH_PROG([BZIP2], [bzip2])
|
AC_PATH_PROG([BZIP2], [bzip2])
|
||||||
|
@ -272,7 +274,6 @@ AC_CONFIG_FILES([Makefile
|
||||||
po/packages/Makefile.in
|
po/packages/Makefile.in
|
||||||
guix/config.scm])
|
guix/config.scm])
|
||||||
|
|
||||||
AC_CONFIG_FILES([scripts/guix], [chmod +x scripts/guix])
|
|
||||||
AC_CONFIG_FILES([test-env:build-aux/test-env.in], [chmod +x test-env])
|
AC_CONFIG_FILES([test-env:build-aux/test-env.in], [chmod +x test-env])
|
||||||
AC_CONFIG_FILES([pre-inst-env:build-aux/pre-inst-env.in],
|
AC_CONFIG_FILES([pre-inst-env:build-aux/pre-inst-env.in],
|
||||||
[chmod +x pre-inst-env])
|
[chmod +x pre-inst-env])
|
||||||
|
|
|
@ -3,6 +3,7 @@
|
||||||
!#
|
!#
|
||||||
;;; GNU Guix --- Functional package management for GNU
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
;;; Copyright © 2013 Mark H Weaver <mhw@netris.org>
|
;;; Copyright © 2013 Mark H Weaver <mhw@netris.org>
|
||||||
|
;;; Copyright © 2018 Mathieu Lirzin <mthl@gnu.org>
|
||||||
;;;
|
;;;
|
||||||
;;; This file is part of GNU Guix.
|
;;; This file is part of GNU Guix.
|
||||||
;;;
|
;;;
|
||||||
|
@ -22,35 +23,15 @@
|
||||||
;; IMPORTANT: We must avoid loading any modules from Guix here,
|
;; IMPORTANT: We must avoid loading any modules from Guix here,
|
||||||
;; because we need to adjust the guile load paths first.
|
;; because we need to adjust the guile load paths first.
|
||||||
;; It's okay to import modules from core Guile though.
|
;; It's okay to import modules from core Guile though.
|
||||||
(use-modules (ice-9 regex)
|
(use-modules (srfi srfi-26))
|
||||||
(srfi srfi-26))
|
|
||||||
|
|
||||||
(let ()
|
(let ()
|
||||||
(define-syntax-rule (push! elt v) (set! v (cons elt v)))
|
(define-syntax-rule (push! elt v) (set! v (cons elt v)))
|
||||||
|
|
||||||
(define config-lookup
|
|
||||||
(let ((config '(("prefix" . "@prefix@")
|
|
||||||
("exec_prefix" . "@exec_prefix@")
|
|
||||||
("datarootdir" . "@datarootdir@")
|
|
||||||
("guilemoduledir" . "@guilemoduledir@")
|
|
||||||
("guileobjectdir" . "@guileobjectdir@")
|
|
||||||
("localedir" . "@localedir@")))
|
|
||||||
(var-ref-regexp (make-regexp "\\$\\{([a-z_]+)\\}")))
|
|
||||||
(define (expand-var-ref match)
|
|
||||||
(lookup (match:substring match 1)))
|
|
||||||
(define (expand str)
|
|
||||||
(regexp-substitute/global #f var-ref-regexp str
|
|
||||||
'pre expand-var-ref 'post))
|
|
||||||
(define (lookup name)
|
|
||||||
(expand (assoc-ref config name)))
|
|
||||||
lookup))
|
|
||||||
|
|
||||||
(define (maybe-augment-load-paths!)
|
(define (maybe-augment-load-paths!)
|
||||||
(unless (getenv "GUIX_UNINSTALLED")
|
(unless (getenv "GUIX_UNINSTALLED")
|
||||||
(let ((module-dir (config-lookup "guilemoduledir"))
|
(push! "@guilemoduledir@" %load-path)
|
||||||
(object-dir (config-lookup "guileobjectdir")))
|
(push! "@guileobjectdir@" %load-compiled-path)
|
||||||
(push! module-dir %load-path)
|
|
||||||
(push! object-dir %load-compiled-path))
|
|
||||||
(let ((updates-dir (and=> (or (getenv "XDG_CONFIG_HOME")
|
(let ((updates-dir (and=> (or (getenv "XDG_CONFIG_HOME")
|
||||||
(and=> (getenv "HOME")
|
(and=> (getenv "HOME")
|
||||||
(cut string-append <> "/.config")))
|
(cut string-append <> "/.config")))
|
||||||
|
@ -64,8 +45,8 @@
|
||||||
(define (run-guix-main)
|
(define (run-guix-main)
|
||||||
(let ((guix-main (module-ref (resolve-interface '(guix ui))
|
(let ((guix-main (module-ref (resolve-interface '(guix ui))
|
||||||
'guix-main)))
|
'guix-main)))
|
||||||
(bindtextdomain "guix" (config-lookup "localedir"))
|
(bindtextdomain "guix" "@localedir@")
|
||||||
(bindtextdomain "guix-packages" (config-lookup "localedir"))
|
(bindtextdomain "guix-packages" "@localedir@")
|
||||||
(apply guix-main (command-line))))
|
(apply guix-main (command-line))))
|
||||||
|
|
||||||
(maybe-augment-load-paths!)
|
(maybe-augment-load-paths!)
|
||||||
|
|
Loading…
Reference in a new issue