From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp10.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id 6DHSNoPIL2LwjgAAgWs5BA (envelope-from ) for ; Mon, 14 Mar 2022 23:58:11 +0100 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp10.migadu.com with LMTPS id +GVoL4PIL2J1GwAAG6o9tA (envelope-from ) for ; Mon, 14 Mar 2022 23:58:11 +0100 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 1A99E3DFD3 for ; Mon, 14 Mar 2022 23:58:11 +0100 (CET) Received: from localhost ([::1]:51574 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nTtdh-0007JC-Bo for larch@yhetil.org; Mon, 14 Mar 2022 18:58:09 -0400 Received: from eggs.gnu.org ([209.51.188.92]:44912) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nTtdb-0007GZ-8f for guix-patches@gnu.org; Mon, 14 Mar 2022 18:58:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:52976) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1nTtda-0004vw-W1 for guix-patches@gnu.org; Mon, 14 Mar 2022 18:58:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1nTtda-00052o-SM for guix-patches@gnu.org; Mon, 14 Mar 2022 18:58:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#54394] [PATCH core-updates 02/12] gnu-bootstrap: Configure PACKAGE_NAME. Resent-From: Timothy Sample Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Mon, 14 Mar 2022 22:58:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 54394 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 54394@debbugs.gnu.org Cc: Timothy Sample Received: via spool by 54394-submit@debbugs.gnu.org id=B54394.164729867419352 (code B ref 54394); Mon, 14 Mar 2022 22:58:02 +0000 Received: (at 54394) by debbugs.gnu.org; 14 Mar 2022 22:57:54 +0000 Received: from localhost ([127.0.0.1]:46868 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nTtdS-000523-H5 for submit@debbugs.gnu.org; Mon, 14 Mar 2022 18:57:54 -0400 Received: from out5-smtp.messagingengine.com ([66.111.4.29]:51467) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1nTtdR-00051r-7G for 54394@debbugs.gnu.org; Mon, 14 Mar 2022 18:57:53 -0400 Received: from compute2.internal (compute2.nyi.internal [10.202.2.46]) by mailout.nyi.internal (Postfix) with ESMTP id 12AEB5C0236; Mon, 14 Mar 2022 18:57:48 -0400 (EDT) Received: from mailfrontend1 ([10.202.2.162]) by compute2.internal (MEProxy); Mon, 14 Mar 2022 18:57:48 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d= messagingengine.com; h=cc:cc:content-transfer-encoding :content-type:date:date:from:from:in-reply-to:in-reply-to :message-id:mime-version:references:reply-to:sender:subject :subject:to:to:x-me-proxy:x-me-proxy:x-me-sender:x-me-sender :x-sasl-enc; s=fm2; bh=CkKuR/Nj/cmDyIAKBUX815fdWZfYxLzYKpddjM5j0 tk=; b=drNnWPZLrchYsZXYcukdGqXK5oX1nV6lmL/7JCWwwdVruWGtgTFrU4k8e 2AidG41tEU3q9bm+g6e6gtZWR8TTyxQ1pV85hv7KKrdYUOf1zg11XKM17Iwa8v9B UdQ+sLFteGYo0bxgWH/acyW9qwize8C+q1NwhOwiETfVDqRYnPFgOp6kZeyWRgob nUd3pP4gXt1r0imfox0Y+oDNwA+IokjiGUyBHd8J4STWUSiTnAXX8oKN5edefJaO LEugmz5hrhucWdoHQp0hcArn/ePjxZ3Ocq3vZeXVcR6T3Zd/2fKlSwsxYswWPdb5 5ZAJY0SNl2tvpiG3bSbRj7Vr4oWAw== X-ME-Sender: X-ME-Received: X-ME-Proxy-Cause: gggruggvucftvghtrhhoucdtuddrgedvvddruddvledgtddvucetufdoteggodetrfdotf fvucfrrhhofhhilhgvmecuhfgrshhtofgrihhlpdfqfgfvpdfurfetoffkrfgpnffqhgen uceurghilhhouhhtmecufedttdenucenucfjughrpefhvffufffkofgjfhggtgfgsehtke ertdertdejnecuhfhrohhmpefvihhmohhthhihucfurghmphhlvgcuoehsrghmphhlvght sehnghihrhhordgtohhmqeenucggtffrrghtthgvrhhnpeffheeltedvkefhffffkeeuve fhtdevueefueelgeektdfhleegteduteegteevueenucevlhhushhtvghrufhiiigvpedt necurfgrrhgrmhepmhgrihhlfhhrohhmpehsrghmphhlvghtsehnghihrhhordgtohhm X-ME-Proxy: Received: by mail.messagingengine.com (Postfix) with ESMTPA; Mon, 14 Mar 2022 18:57:47 -0400 (EDT) From: Timothy Sample Date: Mon, 14 Mar 2022 16:57:01 -0600 Message-Id: <20220314225712.19869-2-samplet@ngyro.com> X-Mailer: git-send-email 2.34.0 In-Reply-To: <87v8wg40dl.fsf@ngyro.com> References: <87v8wg40dl.fsf@ngyro.com> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: "Guix-patches" X-Migadu-Flow: FLOW_IN X-Migadu-To: larch@yhetil.org X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1647298691; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding:resent-cc: resent-from:resent-sender:resent-message-id:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=CkKuR/Nj/cmDyIAKBUX815fdWZfYxLzYKpddjM5j0tk=; b=oMlCFozsFyF6amN4vZMdMM3TpI7G/cRe5QPj/aEBE7xdRfCpscsGeuZ/L25yYvdDSzPNBs D1LWz/KRsRAJO9WmwQboPsR5EodjQlk4gHwbM+87Y6yVyIx4oYIBDsjRTWEj7Znii5gLuM OsNmPlT2I6cwM9ubOHo5S33UfCoPfLj65osG7WS5R4wVU9r+g0fyJ4So4gElt2NHBzWppR JtjJVUN56w5/msHFj3wKKuKTK0JAiLVl516uLLHK6kDH5Zc7wnkAyglfa8SndTroGW7oaQ M1frW42rMY8jFYY0wF5gTSm0WEvVyV2rg16dgjcg7IVNWgXmjGdOv9TX9hYatA== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1647298691; a=rsa-sha256; cv=none; b=VRVn50boDyVeX2SLuFcawqvIAcw/XZaY+oiWIRAewD0G+50a27iV0lCwaQ+VFkGP6/iBX3 byUsvc0u6R55i6Qbz89cva58MJBewo1yl8KYsscJ9l8ibTQ1DoCHjCf2BnGx5mB414TlO4 iQbSSZer9g6l1k+ndR1iKSpTJl0eyrVfr8sCvDkJ1yLdWIdn5dGxwqg5HW0djUVMZT1272 Ydn7sx5e/yVJ6hFrVUWsi+BHRlNEZdpufgKqkFvA62ra79Bhad58+/jif7mwM+btAhu9eN WpcxL2ZeYh50oAW5bSYJcnoL7rgEu3QRdYG3616qEFNcEoIES91hgRWar+R/Ag== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=messagingengine.com header.s=fm2 header.b=drNnWPZL; dmarc=none; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" X-Migadu-Spam-Score: 0.42 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=messagingengine.com header.s=fm2 header.b=drNnWPZL; dmarc=none; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" X-Migadu-Queue-Id: 1A99E3DFD3 X-Spam-Score: 0.42 X-Migadu-Scanner: scn0.migadu.com X-TUID: O1VB5SmoOAUB * guix/build/gnu-bootstrap.scm (bootstrap-configure): Add a 'name' argument and use it to configure the PACKAGE_NAME variable. * gnu/packages/commencement.scm (bootar, gash-boot, gash-utils-boot): Use the new argument. --- gnu/packages/commencement.scm | 8 +++++--- guix/build/gnu-bootstrap.scm | 11 ++++++----- 2 files changed, 11 insertions(+), 8 deletions(-) diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index 9090fbd44e..644db8cc58 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -120,7 +120,8 @@ (define bootar (guile (string-append guile-dir "/bin/guile"))) (invoke guile "--no-auto-compile" source) (chdir "bootar")))) - (replace 'configure (bootstrap-configure ,version "." "scripts")) + (replace 'configure (bootstrap-configure "Bootar" ,version + "." "scripts")) (replace 'build (bootstrap-build ".")) (replace 'install (bootstrap-install "." "scripts")))))) (inputs `(("guile" ,%bootstrap-guile))) @@ -156,7 +157,8 @@ (define gash-boot (use-modules (guix build gnu-bootstrap)) (modify-phases %standard-phases (replace 'configure - (bootstrap-configure ,(package-version gash) "gash" "scripts")) + (bootstrap-configure "Gash" ,(package-version gash) + "gash" "scripts")) (replace 'build (bootstrap-build "gash")) (replace 'install (bootstrap-install "gash" "scripts")) (add-after 'install 'install-symlinks @@ -219,7 +221,7 @@ (define gash-utils-boot (("@UTILITY@") "testb")) (delete-file "scripts/template.in"))) (replace 'configure - (bootstrap-configure ,(package-version gash-utils) + (bootstrap-configure "Gash-Utils" ,(package-version gash-utils) "gash" "scripts")) (replace 'build (bootstrap-build "gash")) (replace 'install (bootstrap-install "gash" "scripts")) diff --git a/guix/build/gnu-bootstrap.scm b/guix/build/gnu-bootstrap.scm index 1cb9dc5512..7ca6ae8458 100644 --- a/guix/build/gnu-bootstrap.scm +++ b/guix/build/gnu-bootstrap.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2020 Timothy Sample +;;; Copyright © 2020, 2022 Timothy Sample ;;; ;;; This file is part of GNU Guix. ;;; @@ -30,12 +30,12 @@ (define-module (guix build gnu-bootstrap) bootstrap-build bootstrap-install)) -(define (bootstrap-configure version modules scripts) +(define (bootstrap-configure name version modules scripts) "Create a procedure that configures an early bootstrap package. The procedure will search the MODULES directory and configure all of the -'.in' files with VERSION. It will then search the SCRIPTS directory and -configure all of the '.in' files with the bootstrap Guile and its module -and object directories." +'.in' files with NAME and VERSION. It will then search the SCRIPTS +directory and configure all of the '.in' files with the bootstrap +Guile and its module and object directories." (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (guile-dir (assoc-ref inputs "guile")) @@ -50,6 +50,7 @@ (define (bootstrap-configure version modules scripts) (let ((target (string-drop-right template 3))) (copy-file template target) (substitute* target + (("@PACKAGE_NAME@") name) (("@VERSION@") version)))) (find-files modules (lambda (fn st) -- 2.34.0