;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2016, 2017 Ludovic Courtès <ludo@gnu.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/>.

(define-module (build-self)
  #:use-module (gnu)
  #:use-module (guix)
  #:use-module (guix config)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-19)
  #:use-module (ice-9 match)
  #:export (build))

;;; Commentary:
;;;
;;; When loaded, this module returns a monadic </td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>refs</a><a href='/guix/log/gnu/packages/iso-codes.scm'>log</a><a href='/guix/tree/gnu/packages/iso-codes.scm?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>tree</a><a class='active' href='/guix/commit/gnu/packages/iso-codes.scm?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>commit</a><a href='/guix/diff/gnu/packages/iso-codes.scm?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/iso-codes.scm'>
<input type='hidden' name='id' value='1c088531cf0be8fe6706c4624a920fca2ab2fee0'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/commit/?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>root</a>/<a href='/guix/commit/gnu?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>gnu</a>/<a href='/guix/commit/gnu/packages?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>packages</a>/<a href='/guix/commit/gnu/packages/iso-codes.scm?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>iso-codes.scm</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='id' value='1c088531cf0be8fe6706c4624a920fca2ab2fee0'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Andreas Enge &lt;andreas@enge.fr&gt;</td><td class='right'>2024-07-02 17:06:42 +0200</td></tr>
<tr><th>committer</th><td>Andreas Enge &lt;andreas@enge.fr&gt;</td><td class='right'>2024-09-18 11:21:06 +0200</td></tr>
<tr><th>commit</th><td colspan='2' class='oid'><a href='/guix/commit/gnu/packages/iso-codes.scm?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>1c088531cf0be8fe6706c4624a920fca2ab2fee0</a> (<a href='/guix/patch/gnu/packages/iso-codes.scm?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='oid'><a href='/guix/tree/?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>83bae2daf7540dc7b1ddcb1111dda2826eab4b2a</a> /<a href='/guix/tree/gnu/packages/iso-codes.scm?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>gnu/packages/iso-codes.scm</a></td></tr>
<tr><th>parent</th><td colspan='2' class='oid'><a href='/guix/commit/gnu/packages/iso-codes.scm?id=fb8c4916be554ddf55e21508922d9b398a584f8a'>fb8c4916be554ddf55e21508922d9b398a584f8a</a> (<a href='/guix/diff/gnu/packages/iso-codes.scm?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0&amp;id2=fb8c4916be554ddf55e21508922d9b398a584f8a'>diff</a>)</td></tr><tr><th>download</th><td colspan='2' class='oid'><a href='/guix/snapshot/guix-1c088531cf0be8fe6706c4624a920fca2ab2fee0.tar.gz'>guix-1c088531cf0be8fe6706c4624a920fca2ab2fee0.tar.gz</a><br/><a href='/guix/snapshot/guix-1c088531cf0be8fe6706c4624a920fca2ab2fee0.zip'>guix-1c088531cf0be8fe6706c4624a920fca2ab2fee0.zip</a><br/></td></tr></table>
<div class='commit-subject'>services: guix-build-coordinator-agent: Add extra-options.</div><div class='commit-msg'>* gnu/services/guix.scm (&lt;guix-build-coordinator-agent-configuration&gt;):
Add field extra-options.
(guix-build-coordinator-agent-shepherd-services): Add and use EXTRA-OPTIONS
argument.
* doc/guix.texi (Guix Services): Adapt the documentation.

Change-Id: I9e7e258e03e2b6553aa1570f5fcfaf3b0ada3e15
Reviewed-by: Maxim Cournoyer &lt;maxim.cournoyer@gmail&gt;
</div><div class='diffstat-header'><a href='/guix/diff/?id=1c088531cf0be8fe6706c4624a920fca2ab2fee0'>Diffstat</a> (limited to 'gnu/packages/iso-codes.scm')</div><table summary='diffstat' class='diffstat'></table><div class='diffstat-summary'>0 files changed, 0 insertions, 0 deletions</div><table summary='diff' class='diff'><tr><td></td></tr></table></div> <!-- class=content -->
                         <div class=footer>generated by
                             <a href="https://git.zx2c4.com/cgit/about/">
                                 cgit
                             </a>
                         </div>
                        </div> <!-- id=cgit -->
</body>
</html>
                                     #$(effective-version))
                                        tail)
                                  tail)))
                           ((_)
                            '()))))
          (set! %load-path
                (append
                 (maybe-load-path #$guile-json #$guile-ssh
                                  #$guile-git #$guile-bytestructures)
                 %load-path)))

        (letrec-syntax ((maybe-load-compiled-path
                         (syntax-rules ()
                           ((_ item rest ...)
                            (let ((tail (maybe-load-compiled-path rest ...)))
                              (if (string? item)
                                  (cons (string-append item
                                                       "/lib/guile/"
                                                       #$(effective-version)
                                                       "/site-ccache")
                                        tail)
                                  tail)))
                           ((_)
                            '()))))
          (set! %load-compiled-path
                (append
                 (maybe-load-compiled-path #$guile-json #$guile-ssh
                                           #$guile-git #$guile-bytestructures)
                 %load-compiled-path)))

        ;; XXX: The 'guile-ssh' package prior to Guix commit 92b7258 was
        ;; broken: libguile-ssh could not be found.  Work around that.
        ;; FIXME: We want Guile-SSH 0.10.2 or later anyway.
        #$(if (string-prefix? "0.9." (package-version guile-ssh))
              #~(setenv "LTDL_LIBRARY_PATH" (string-append #$guile-ssh "/lib"))
              #t)

        (build-guix #$output #$source

                    #:system #$%system
                    #:storedir #$storedir
                    #:localstatedir #$localstatedir
                    #:sysconfdir #$sysconfdir
                    #:sbindir #$sbindir

                    #:package-name #$%guix-package-name
                    #:package-version #$version
                    #:bug-report-address #$%guix-bug-report-address
                    #:home-page-url #$%guix-home-page-url

                    #:libgcrypt #$libgcrypt
                    #:zlib #$zlib
                    #:gzip #$gzip
                    #:bzip2 #$bzip2
                    #:xz #$xz

                    ;; XXX: This is not perfect, enabling VERBOSE? means
                    ;; building a different derivation.
                    #:debug-port (if #$verbose?
                                     (current-error-port)
                                     (%make-void-port "w")))))

  (unless guile-git
    ;; XXX: Guix before February 2017 lacks a 'guile-git' package altogether.
    ;; If we try to upgrade anyway, the logic in (guix scripts pull) will not
    ;; build (guix git), which will leave us with an unusable 'guix pull'.  To
    ;; avoid that, fail early.
    (format (current-error-port)
            "\
Your installation is too old and lacks a '~a' package.
Please upgrade to an intermediate version first, for instance with:

  guix pull --url=https://git.savannah.gnu.org/cgit/guix.git/snapshot/v0.13.0.tar.gz
\n"
            (match (effective-version)
              ("2.0" "guile2.0-git")
              (_     "guile-git")))
    (exit 1))

  (mlet %store-monad ((guile (guile-for-build)))
    (gexp->derivation "guix-latest" builder
                      #:modules '((guix build pull)
                                  (guix build utils)
                                  (guix build compile)

                                  ;; Closure of (guix modules).
                                  (guix modules)
                                  (guix memoization)
                                  (guix profiling)
                                  (guix sets))

                      ;; Arrange so that our own (guix build …) modules are
                      ;; used.
                      #:module-path (list (top-source-directory))

                      #:guile-for-build guile)))

;; This file is loaded by 'guix pull'; return it the build procedure.
build

;; Local Variables:
;; eval: (put 'with-load-path 'scheme-indent-function 1)
;; End:

;;; build-self.scm ends here