[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/16: self: Build gnu/packages/*.go in 26 steps on the Hurd.
From: |
guix-commits |
Subject: |
05/16: self: Build gnu/packages/*.go in 26 steps on the Hurd. |
Date: |
Fri, 21 Jul 2023 04:40:05 -0400 (EDT) |
janneke pushed a commit to branch hurd-team
in repository guix.
commit 205eb7cfa6bcd495a8e0b5aae5550ae34e29e45a
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Thu Jun 22 08:30:25 2023 +0200
self: Build gnu/packages/*.go in 26 steps on the Hurd.
Similar to the Makefile.am change, this breaks-up packages into 26 chunks
when building for the Hurd. Also force garbage collection.
* guix/self.scm (compiled-modules)[process-directory/hurd]: New inner
define.
Use it when building on the Hurd.
---
guix/self.scm | 30 ++++++++++++++++++++++++++++--
1 file changed, 28 insertions(+), 2 deletions(-)
diff --git a/guix/self.scm b/guix/self.scm
index 81a36e007f..5f7fae6d90 100644
--- a/guix/self.scm
+++ b/guix/self.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017-2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
+;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -1210,9 +1211,12 @@ containing MODULE-FILES and possibly other files as
well."
'((guix build compile)
(guix build utils)))
#~(begin
- (use-modules (srfi srfi-26)
+ (use-modules (srfi srfi-1)
+ (srfi srfi-26)
+ (srfi srfi-71)
(ice-9 match)
(ice-9 format)
+ (ice-9 regex)
(ice-9 threads)
(guix build compile)
(guix build utils))
@@ -1251,6 +1255,26 @@ containing MODULE-FILES and possibly other files as
well."
#:report-load report-load
#:report-compilation report-compilation)))
+ (define (process-directory/hurd directory files output)
+ (let* ((chunks (map (compose
+ (cute partition <> files)
+ (lambda (regex)
+ (cute string-match regex <>))
+ (cute string-append "^gnu/packages/" <>)
+ (cute make-string 1 <>)
+ integer->char
+ (cute + (char->integer #\a) <>))
+ (iota 26)))
+ (chunks (filter pair? chunks)))
+ (for-each
+ (lambda (chunck)
+ (compile-files directory #$output chunck
+ #:workers (parallel-job-count)
+ #:report-load report-load
+ #:report-compilation report-compilation)
+ (gc))
+ chunks)))
+
(setvbuf (current-output-port) 'line)
(setvbuf (current-error-port) 'line)
@@ -1277,7 +1301,9 @@ containing MODULE-FILES and possibly other files as well."
(mkdir #$output)
(chdir #+module-tree)
- (process-directory "." '#+module-files #$output)
+ (if (string-ci= "GNU" (vector-ref (uname) 0))
+ (process-directory/hurd "." '#+module-files #$output)
+ (process-directory "." '#+module-files #$output))
(newline))))
(computed-file name build
- branch hurd-team created (now cc56dd0281), guix-commits, 2023/07/21
- 02/16: gnu: guix: Disable some test on 32bit., guix-commits, 2023/07/21
- 01/16: HACK gnu: guix: Disable failing tests., guix-commits, 2023/07/21
- 03/16: gnu: guix: Disable some tests on the Hurd., guix-commits, 2023/07/21
- 04/16: build: Build gnu/packages/*.go in five steps., guix-commits, 2023/07/21
- 08/16: hurd: Support system init in /libexec/runsystem., guix-commits, 2023/07/21
- 12/16: DRAFT hurd: Support second boot., guix-commits, 2023/07/21
- 10/16: system: hurd: Add procps to %base-packages/hurd., guix-commits, 2023/07/21
- 05/16: self: Build gnu/packages/*.go in 26 steps on the Hurd.,
guix-commits <=
- 06/16: gnu: guix: Update to 1.4.0-8.205eb7cfa6., guix-commits, 2023/07/21
- 13/16: DRAFT hurd-boot: Support second boot., guix-commits, 2023/07/21
- 11/16: system: hurd: Add swap-services to hurd-default-essential-services., guix-commits, 2023/07/21
- 07/16: gnu: guix: Update to 1.4.0-9.5ed2fd9aa2., guix-commits, 2023/07/21
- 14/16: DRAFT system: examples: Add devel-hurd.tmpl., guix-commits, 2023/07/21
- 15/16: gnu: Add libc-locales-for-target and glibc-locales/hurd., guix-commits, 2023/07/21
- 16/16: locale: Set %default-locale-definitions to glibc/hurd on the Hurd., guix-commits, 2023/07/21
- 09/16: hurd-boot: Support system init: Create essential device nodes., guix-commits, 2023/07/21