From patchwork Sat Jul 16 19:47:58 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Julien Lepiller X-Patchwork-Id: 40698 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id A498B27BBEA; Sat, 16 Jul 2022 20:49:31 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,SPF_HELO_PASS,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 5C35327BBE9 for ; Sat, 16 Jul 2022 20:49:31 +0100 (BST) Received: from localhost ([::1]:46460 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oCnn8-0004S1-Gr for patchwork@mira.cbaines.net; Sat, 16 Jul 2022 15:49:30 -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 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+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches * 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*)))