From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp12.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id SB6wIEwW02JcPwAAbAwnHQ (envelope-from ) for ; Sat, 16 Jul 2022 21:49:32 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp12.migadu.com with LMTPS id AMq/IEwW02JNxwAAauVa8A (envelope-from ) for ; Sat, 16 Jul 2022 21:49:32 +0200 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 4897829951 for ; Sat, 16 Jul 2022 21:49:32 +0200 (CEST) Received: from localhost ([::1]:46460 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oCnn9-0004S1-Cw for larch@yhetil.org; Sat, 16 Jul 2022 15:49:31 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:59884) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oCnmg-0004RF-AT for guix-patches@gnu.org; Sat, 16 Jul 2022 15:49:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:48407) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1oCnmg-0004gj-1H for guix-patches@gnu.org; Sat, 16 Jul 2022 15:49:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1oCnmf-0005I6-RH for guix-patches@gnu.org; Sat, 16 Jul 2022 15:49:01 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#54239] [PATCH v3 01/10] guix: Add build-system transformation for target. Resent-From: Julien Lepiller Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sat, 16 Jul 2022 19:49:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 54239 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 54239@debbugs.gnu.org Received: via spool by 54239-submit@debbugs.gnu.org id=B54239.165800089720174 (code B ref 54239); Sat, 16 Jul 2022 19:49:01 +0000 Received: (at 54239) by debbugs.gnu.org; 16 Jul 2022 19:48:17 +0000 Received: from localhost ([127.0.0.1]:46140 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oCnlx-0005FJ-7h for submit@debbugs.gnu.org; Sat, 16 Jul 2022 15:48:17 -0400 Received: from lepiller.eu ([89.234.186.109]:44374) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oCnlw-0005FA-68 for 54239@debbugs.gnu.org; Sat, 16 Jul 2022 15:48:16 -0400 Received: from lepiller.eu (localhost [127.0.0.1]) by lepiller.eu (OpenSMTPD) with ESMTP id 0e21e7aa for <54239@debbugs.gnu.org>; Sat, 16 Jul 2022 19:48:14 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed; d=lepiller.eu; h=from:to :subject:date:message-id:in-reply-to:references:mime-version :content-transfer-encoding; s=dkim; bh=UllCppNbs+GWds9THD4bwnyEh v/3C3ryE7IIEaPFbzQ=; b=JfBPOexddLCP1ckt9ER2ARXmxxeFy86yJ1nDIrP5R q3auVITJolokijV0g/0mEVHi5w+YEp7uNNWW/3vleBCiq4bnZitz0voVIP8+ZwUR ahBcM8E+ipYbaWe+FWeJH3YlX0iW2SKP0nN4LHKnXlbdwByg0UNQzSm8qJZuKDzf celo5oOGbNocS6qlm5fgUGoOT1TWKq9DZhaYPByNwsCghpN42A0nb0Ang4YuzkXN WdncSMYOmlAlL6mSvr/qV5OWBmbc8j55p8whmlEzaS3JeOWxHNZQspGOpX6gvmEK m3KckqjLQUmvPja+JnmhqbnaptYguRMFrW0l/6pdl5nWw== Received: by lepiller.eu (OpenSMTPD) with ESMTPSA id 4b881f23 (TLSv1.3:AEAD-AES256-GCM-SHA384:256:NO) for <54239@debbugs.gnu.org>; Sat, 16 Jul 2022 19:48:14 +0000 (UTC) From: Julien Lepiller Date: Sat, 16 Jul 2022 21:47:58 +0200 Message-Id: <20220716194807.20378-1-julien@lepiller.eu> X-Mailer: git-send-email 2.37.0 In-Reply-To: <20220716214424.1d521d65@sybil.lepiller.eu> References: <20220716214424.1d521d65@sybil.lepiller.eu> MIME-Version: 1.0 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=1658000972; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: 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=OrBbNcNv8PRRp+/OspCRWXh8CO0ADxEfuZpoiy1uORA=; b=S2UiTr5vw8c+oEs3rT7tQbNplKUFU4CTe8KF4fplCMPT1prn/Lt8a9Ntl7sK5PoD20hnbQ VwXNhzsKKGoLwE3t6WsOoKtlkkcyvXHxt6v3jwb3MOdOsJYeyvsr1iLEDefNp1T0smdAjP 9Kfvx6weS8jkuD4cFRcVQNFVpOFlI2wOjVlb3XWa7bR7Xjjf1Ek5ofParCPmGAcGw8VThp QMVyroYkUf5pUBV3wfFkavRUw/obmoy1BzNreIbb1c6c4IRRU77gnCLCmw61TZYqHyC/Ab /AjZ1O+q8oSn5v9rS7MwD8JFHAJoYvhX55El9Iu+lJQPKnEbbvrZb9ZRlIdXow== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1658000972; a=rsa-sha256; cv=none; b=oBMaNAyplMZBKjDKHXCEhSuYQbK3qzeEuzIARvFjrxfNfxrfXWpcVvjt+7ci2V0qM3Skty 0oSc1I5WOgXuKheGOimqsjLNkE94ufrbe50F8mIXr/uF2UQ+ryOUbLdfuNFcy21UXYg4SG H2KKjgmBiiK0KNq68OPb5i5Bg1MKHJPf5M6y+2YOWodQjjf4ezDDQRiKWyDkfzEifAz8oi 3E5P5g7Q6hcbitM2aSuQN4OnfE1l1xmd+TBd0UySaiWageKyc9UdXc2X7WJadmG0IrgsP+ 8xca2u4YQYokQfNY77RmurmMec5aOOXzf9ff+VFqKkMYf4UDy64LKAqIuCuDYA== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=lepiller.eu header.s=dkim header.b=JfBPOexd; dmarc=fail reason="SPF not aligned (relaxed)" header.from=lepiller.eu (policy=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: 7.56 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=lepiller.eu header.s=dkim header.b=JfBPOexd; dmarc=fail reason="SPF not aligned (relaxed)" header.from=lepiller.eu (policy=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: 4897829951 X-Spam-Score: 7.56 X-Migadu-Scanner: scn1.migadu.com X-TUID: uwt59lGFcmN4 * guix/build-system.scm (build-system-with-target): New procedure. --- guix/build-system.scm | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/guix/build-system.scm b/guix/build-system.scm index 76d670995c..7d864423e3 100644 --- a/guix/build-system.scm +++ b/guix/build-system.scm @@ -18,6 +18,7 @@ (define-module (guix build-system) #:use-module (guix records) + #:use-module (guix utils) #:use-module (srfi srfi-1) #:use-module (ice-9 match) #:export (build-system @@ -40,7 +41,8 @@ (define-module (guix build-system) make-bag - build-system-with-c-toolchain)) + build-system-with-c-toolchain + build-system-with-target)) (define-record-type* build-system make-build-system build-system? @@ -129,3 +131,20 @@ (define (lower* . args) (build-system (inherit bs) (lower lower*))) + +(define (build-system-with-target bs target) + "Return a variant of @var{bs}, a build system, that user @var{target} instead +of the default target." + (define lower + (build-system-lower bs)) + + (define (lower* . args) + (parameterize ((%current-target-system target)) + (apply lower + (append + (strip-keyword-arguments (list #:target) args) + (list #:target target))))) + + (build-system + (inherit bs) + (lower lower*))) -- 2.37.0