aboutsummaryrefslogtreecommitdiff
path: root/scripts/guix.in
blob: 5d6921dd09de42a111be0a6c4a4e85fdd592a51a (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
#!@GUILE@ --no-auto-compile
-*- scheme -*-
!#
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Mark H Weaver <mhw@netris.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

;; IMPORTANT: We must avoid loading any modules from Guix here,
;; because we need to adjust the guile load paths first.
;; It's okay to import modules from core Guile though.
(use-modules (ice-9 regex)
             (srfi srfi-26))

(let ()
  (define-syntax-rule (push! elt v) (set! v (cons elt v)))

  (define config-lookup
    (let ((config '(("prefix"         . "@prefix@")
                    ("datarootdir"    . "@datarootdir@")
                    ("guilemoduledir" . "@guilemoduledir@")
                    ("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!)
    (unless (getenv "GUIX_UNINSTALLED")
      (let ((module-dir (config-lookup "guilemoduledir")))
        (push! module-dir %load-path)
        (push! module-dir %load-compiled-path))
      (let ((updates-dir (and=> (or (getenv "XDG_CONFIG_HOME")
                                    (and=> (getenv "HOME")
                                           (cut string-append <> "/.config")))
                                (cut string-append <> "/guix/latest"))))
        (when (and updates-dir (file-exists? updates-dir))
          (push! updates-dir %load-path)
          (push! updates-dir %load-compiled-path)))))

  (define (run-guix-main)
    (let ((guix-main (module-ref (resolve-interface '(guix ui))
                                 'guix-main)))
      (bindtextdomain "guix" (config-lookup "localedir"))
      (bindtextdomain "guix-packages" (config-lookup "localedir"))
      (apply guix-main (command-line))))

  (maybe-augment-load-paths!)

  ;; XXX: It would be more convenient to change it to:
  ;;   (exit (run-guix-main))
  ;; but since the 'guix' command is not updated by 'guix pull', we cannot
  ;; really do it now.
  (run-guix-main))
tloader) import....Danny Milosavljevic 2018-01-29hydra: Add arm image builder....Danny Milosavljevic 2018-01-21hydra: Make the list of target systems a parameter....Ludovic Courtès 2017-12-29hydra: Do not cross-build from non-Intel platforms....Ludovic Courtès 2017-12-13hydra: Pre-load the compiler....Ludovic Courtès 2017-12-13hydra: Invalidate derivation caches after each architecture evaluation....Ludovic Courtès 2017-11-21hydra: Add jobs for the modular Guix....Ludovic Courtès 2017-11-21hydra: 'evaluate' passes an alist to the entry point....Ludovic Courtès 2017-11-07hydra: Add jobs for all of '%final-inputs'....Ludovic Courtès 2017-11-07hydra: Build hidden packages....Ludovic Courtès 2017-11-07hydra: Factorize package list creation....Ludovic Courtès 2017-09-28cuirass: Add 'cuirass-jobs.scm' target to compute the Cuirass jobs....Jan Nieuwenhuizen 2017-09-27cuirass: Support subset with list of package[@version]....Jan Nieuwenhuizen 2017-09-27cuirass: Add gnu-system build spec....Jan Nieuwenhuizen 2017-07-25hydra: Add 'guix.SYSTEM' jobs....Ludovic Courtès 2017-07-25hydra: Simplify 'tarball' job....Ludovic Courtès 2017-07-03build: Add iso9660 system image generator....Danny Milosavljevic 2017-06-15hydra: Don't build non-substitutable packages....Ludovic Courtès 2017-05-16hydra: Cross-build Guile 2.2....Ludovic Courtès 2017-05-07maint: Add 'time-monotonic' bug workaround in build-aux/hydra/evaluate.scm....Ludovic Courtès 2017-03-30hydra: Don't build deprecated packages....Ludovic Courtès 2017-03-30Merge branch 'master' into core-updates...Marius Bakke 2017-03-30hydra: Include the localstatedir in the binary tarball....Ludovic Courtès 2017-03-13Merge remote-tracking branch 'origin/master' into core-updatesEfraim Flashner 2017-03-12Add 'guix pack'....Ludovic Courtès 2017-03-09Merge branch 'master' into core-updatesLudovic Courtès 2017-03-09hydra: Really disable 32-to-64-bit cross-builds....Ludovic Courtès 2017-02-17hydra: Add "aarch64-linux-gnu" as a cross-compilation target....Efraim Flashner 2017-02-14hydra: Add "aarch64-linux-gnu" as a cross-compilation target....Efraim Flashner