;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 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/>.

;; Build Guix using Guix.

(use-modules (srfi srfi-26))

;; Add ~/.config/guix/latest to the search path.
(add-to-load-path
 (and=> (or (getenv "XDG_CONFIG_HOME")
            (and=> (getenv "HOME")
                   (cut string-append <> "/.config")))
        (cute string-append <> "/guix/current/share/guile/site/"
              (effective-version))))

(use-modules (guix) (guix ui)
             (guix git-download)
             (ice-9 match))

(match (command-line)
  ((program source)
   (with-error-handling
     (with-store store
       (let* ((script (string-append source "/build-aux/build-self.scm"))
              (build  (primitive-load script))
              (git?   (git-predicate source)))
         (run-with-store store
           ;; TODO: Extract #:version and #:commit using Guile-Git.
           (mlet* %store-monad ((source (interned-file source "guix-source"
                                                       #:select? git?
                                                       #:recursive? #t))
                                (drv    (build source #:pull-version 1)))
             (mbegin %store-monad
               (show-what-to-build* (list drv))
               (built-derivations (list drv))
               (with-monad %store-monad
                 (display (derivation->output-path drv))
                 (newline)
                 (return drv))))))))))
38e5e3dcfd09bc884764b28deb'>gnu</a>/<a href='/guix/log/gnu/packages?id=af943b8104357e38e5e3dcfd09bc884764b28deb'>packages</a>/<a href='/guix/log/gnu/packages/libevent.scm?id=af943b8104357e38e5e3dcfd09bc884764b28deb'>libevent.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/libevent.scm?id=af943b8104357e38e5e3dcfd09bc884764b28deb&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-03-20 18:49:06 +0100'>2023-03-20</span></td><td><a href='/guix/commit/gnu/packages/libevent.scm?id=ccb62d8feb50e2859d7c41429a9e3d9e0fe30bfe'>Merge remote-tracking branch 'origin/master' into core-updates</a></td><td>Andreas Enge</td></tr>
<tr><td><span title='2023-03-19 16:11:53 +0100'>2023-03-19</span></td><td><a href='/guix/commit/gnu/packages/libevent.scm?id=ef86b0b12e75408bd7a8e69a7a2c5ef33be4a49d'>gnu: Add libuv-for-r-httpuv.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/libevent.scm (libuv-for-r-httpuv): New variable.
</span></span></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2023-01-30 12:39:40 +0200'>2023-01-30</span></td><td><a href='/guix/commit/gnu/packages/libevent.scm?id=4cf1acc7f3033b50b0bf19e02c9f522d522d338c'>Merge remote-tracking branch 'origin/master' into core-updates</a><span class='msg-avail'>...<span class='msg-tooltip'> Conflicts:
	doc/guix.texi
	gnu/local.mk
	gnu/packages/admin.scm
	gnu/packages/base.scm
	gnu/packages/chromium.scm
	gnu/packages/compression.scm
	gnu/packages/databases.scm
	gnu/packages/diffoscope.scm
	gnu/packages/freedesktop.scm
	gnu/packages/gnome.scm
	gnu/packages/gnupg.scm
	gnu/packages/guile.scm
	gnu/packages/inkscape.scm
	gnu/packages/llvm.scm
	gnu/packages/openldap.scm
	gnu/packages/pciutils.scm
	gnu/packages/ruby.scm
	gnu/packages/samba.scm
	gnu/packages/sqlite.scm
	gnu/packages/statistics.scm
	gnu/packages/syndication.scm
	gnu/packages/tex.scm
	gnu/packages/tls.scm
	gnu/packages/version-control.scm
	gnu/packages/xml.scm
	guix/build-system/copy.scm
	guix/scripts/home.scm
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2022-12-08 19:53:16 +0200'>2022-12-08</span></td><td><a href='/guix/commit/gnu/packages/libevent.scm?id=02d591206259b30462764cb2f978ae214dea0449'>gnu: julia: Update to 1.8.3.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/julia.scm (julia): Update to 1.8.3.
[source]: Remove one patch.
[arguments]: Adjust 'prepare-deps phase to changes in inputs. Remove
custom 'use-system-libwhich, 'change-number-of-precompiled-statements,
'symlink-libraries phases. In 'fix-include-and-link-paths phase remove
substitution for utf8proc linking and adjust libuv linking. Fix
reference to shell in 'replace-default-shell phase. Adjust the
'shared-objects-path phase to changes in the source. Change the
'enable-parallel-tests phase for upstream changes. Adjust the
'adjust-test-suite phase to be more robust. Change the
'disable-broken-tests phase to help the test suite pass. Rename
'symlink-llvm-utf8proc phase to 'symlink-missing-libraries and add two
more. Adjust make-flags for changes in shared system libraries. Reorder
make-flags to changes in the source. Except for aarch64, use the
defaults for choosing to use 64-bit blas.
[inputs]: Add libblastrampoline. Replace libgit-1.1 with libgit-1.3,
utf8proc-2.7.1 with utf8proc-2.8.0.
[native-inputs]: Replace python-2 with python.
(libunwind-julia): Update to 1.5.0.
[source]: Update patches.
* gnu/packages/libevent.scm (libuv-julia): Update to 2.0.0-4.e6f0e49.
[arguments]: Also build static library, build position-independent-code.
* gnu/packages/llvm.scm (llvm-julia): Update to llvm-13, following
upstream's build instructions.
* gnu/packages/maths.scm (openlibm): Update to 0.8.1.
* gnu/packages/textutils.scm (utf8proc-2.7.1): Update and rename to
utf8proc-2.8.0.
[native-inputs]: Update unicode to 14.0.0.
* gnu/packages/tls.scm (mbedtls-apache): Update to 2.28.0.
[source]: Remove snippet.
[arguments]: Remove trailing #t from phases.
* gnu/packages/patches/julia-allow-parallel-build.patch,
(julia-patch): Update version string to 1.8.2.
gnu/packages/patches/libunwind-julia-fix-GCC10-fno-common.patch: Remove
files.
* gnu/local.mk (dist_patch_DATA): Remove them.

Co-authored-by: Akira Kyle &lt;akira@akirakyle.com&gt;
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2022-10-23 15:56:19 +0200'>2022-10-23</span></td><td><a href='/guix/commit/gnu/packages/libevent.scm?id=3734857fc55df2c599c2fe5cc4ae49f5d47879fc'>gnu: libevent: Prefix (guix licenses) bindings.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/libevent.scm: Import (guix licenses) with the 'license:'
prefix.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-10-23 15:56:19 +0200'>2022-10-23</span></td><td><a href='/guix/commit/gnu/packages/libevent.scm?id=9ed4251d70fb62e176f927129934a76a3dad2d64'>gnu: Add libevent-with-openssl.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/libevent.scm (libevent-with-openssl): New variable.

Co-authored-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Thomas Albers</td></tr>