From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp11.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 WCUVGB3ZB2MNTwEAbAwnHQ (envelope-from ) for ; Thu, 25 Aug 2022 22:18:37 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp11.migadu.com with LMTPS id QTdIGB3ZB2NlAQAA9RJhRA (envelope-from ) for ; Thu, 25 Aug 2022 22:18:37 +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 11F5A8CFD for ; Thu, 25 Aug 2022 22:18:36 +0200 (CEST) Received: from localhost ([::1]:44642 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oRJJC-0004VH-S1 for larch@yhetil.org; Thu, 25 Aug 2022 16:18:34 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:56474) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oRJIg-0004UQ-Bn for guix-patches@gnu.org; Thu, 25 Aug 2022 16:18:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:33418) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1oRJIf-00017i-W9 for guix-patches@gnu.org; Thu, 25 Aug 2022 16:18:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1oRJIf-0002k9-Jy for guix-patches@gnu.org; Thu, 25 Aug 2022 16:18:01 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#57050] [PATCH v3 12/14] gnu: chez-scheme-for-racket: Suport all systems. Resent-From: "Philip McGrath" Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Thu, 25 Aug 2022 20:18:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 57050 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: "Efraim Flashner" , "Liliana Marie Prikler" Cc: 57050@debbugs.gnu.org, Liliana Marie Prikler , "\(" , Maxime Devos , Thiago Jung Bauermann Received: via spool by 57050-submit@debbugs.gnu.org id=B57050.166145867810536 (code B ref 57050); Thu, 25 Aug 2022 20:18:01 +0000 Received: (at 57050) by debbugs.gnu.org; 25 Aug 2022 20:17:58 +0000 Received: from localhost ([127.0.0.1]:51400 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oRJIb-0002jq-Ea for submit@debbugs.gnu.org; Thu, 25 Aug 2022 16:17:57 -0400 Received: from wout2-smtp.messagingengine.com ([64.147.123.25]:36201) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oRJIW-0002jb-6o for 57050@debbugs.gnu.org; Thu, 25 Aug 2022 16:17:56 -0400 Received: from compute4.internal (compute4.nyi.internal [10.202.2.44]) by mailout.west.internal (Postfix) with ESMTP id 949563200A71; Thu, 25 Aug 2022 16:17:45 -0400 (EDT) Received: from imap52 ([10.202.2.102]) by compute4.internal (MEProxy); Thu, 25 Aug 2022 16:17:46 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d= philipmcgrath.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; s=fm1; t=1661458665; x=1661545065; bh=rV3kKk5iBR m1hRdLfu3uyfvJJIPUayV3Fs1Y0PpldDE=; b=FpXlvO0Nvmmia6uQERBPm2GKyx gVJeP+Bk/daC1N5ZlQzkQu2TSlaLXYQUK9DzJhEMkpV40b7KuCM0C5nkjdUn9DOl khRf5yPN0mdQiTObOnMXT59a0WHrXm9NeFf1DvL/KNx7FTaCfV6bPgoara/dPgeO AsR+gxpkNAQlJuexRB8zpaUqE8RjhrwEcBl8KaJcbywsoYRdWqOndxOdlyRyrYZh iidvm74sXlZDzcq3/ghTMSm6u3Yp7S2UHoPrBxAlq0o8QxkGDO20AL56XSuheWb4 dfhvnWEyTLHgg6XSeK56jPm3OvTGkpbzDXU8HDFhnS8J5mYkoo7La0q8bjdg== DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d= messagingengine.com; h=cc:cc:content-transfer-encoding :content-type:date:date:feedback-id:feedback-id: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=fm1; t=1661458665; x= 1661545065; bh=rV3kKk5iBRm1hRdLfu3uyfvJJIPUayV3Fs1Y0PpldDE=; b=0 Eg1jEpl4l6dQDP0StkKpWfmnKbXrDAPGfdxJlQM4Vq/Puk64S2ewEVkF/Rag+Owr fNU6LeqIzBCq0Tl3tQZTI8bJJ9RWFundrUp3quvcjlnM546yp79mZFFD21FPuhaD 8s5wvLbWyMAXzBS/U9q+ZuNykUTd16fsWlZkf+drtTdglKmkgpLXMhYi3A+XSI5X Qx18VxBisa1Fcbbv08tJdRhLdkJVgHUgmE+ZpGW3r9Qo2kNK8u7jx+gLDsIuxMy6 FGz5S9Jt7AeDuy/wFaUA+pRZzheEWA4j/KG8bMOTgk9ORPKjsZRRiow/u9aqPTfX kMqKa3GBlsg/clhHEUPuw== X-ME-Sender: X-ME-Proxy-Cause: gggruggvucftvghtrhhoucdtuddrgedvfedrvdejfedgudegjecutefuodetggdotefrod ftvfcurfhrohhfihhlvgemucfhrghsthforghilhdpqfgfvfdpuffrtefokffrpgfnqfgh necuuegrihhlohhuthemuceftddtnecusecvtfgvtghiphhivghnthhsucdlqddutddtmd enucfjughrpefofgggkfgjfhffhffvvefutgfgsehtqhertderreejnecuhfhrohhmpedf rfhhihhlihhpucfotgfirhgrthhhfdcuoehphhhilhhiphesphhhihhlihhpmhgtghhrrg hthhdrtghomheqnecuggftrfgrthhtvghrnhepgfejkeelgfevhfehvefhtdfhvdelveeg veehheegheetffdtudetfedvudetfeeknecuffhomhgrihhnpeguihhstghouhhrshgvrd hgrhhouhhpnecuvehluhhsthgvrhfuihiivgeptdenucfrrghrrghmpehmrghilhhfrhho mhepphhhihhlihhpsehphhhilhhiphhmtghgrhgrthhhrdgtohhm X-ME-Proxy: Feedback-ID: i2b1146f3:Fastmail Received: by mailuser.nyi.internal (Postfix, from userid 501) id AE7DAC6008B; Thu, 25 Aug 2022 16:17:44 -0400 (EDT) X-Mailer: MessagingEngine.com Webmail Interface User-Agent: Cyrus-JMAP/3.7.0-alpha0-841-g7899e99a45-fm-20220811.002-g7899e99a Mime-Version: 1.0 Message-Id: <4105f2b6-14a8-4835-b446-5682931ede50@www.fastmail.com> In-Reply-To: References: <7c5ee85372e4682282dc6a543c99a3620abf2cd5.1661416343.git.philip@philipmcgrath.com> Date: Thu, 25 Aug 2022 16:17:14 -0400 From: "Philip McGrath" Content-Type: text/plain;charset=utf-8 Content-Transfer-Encoding: quoted-printable 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=1661458716; 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=rV3kKk5iBRm1hRdLfu3uyfvJJIPUayV3Fs1Y0PpldDE=; b=bhspoKm1w1cOcVPVQqS3HsZ61uou7DBPorAe11gapukc2p29NYt3+nfZtVf/XhiGTj+S9e lfoLMYr1PF22kvKVvzMHBSYgAs8d3yLnmBZzwpzgA1xWzgI+VkaC9mb4BhlLHgQ0WhNS8h erAlqdUEekCu7q+AwrXqF4r0hbciUVRlW+R3QHeDS1RE8j7sfydc2waC6i7xkQFbuhAB9u NV94bl8hPMWbCJKXLCR2mPhVO92bMQgkXCqr24MGlC++i/Kgam7bsfgNSGuKxGNci9ruZE cH1VxPZ9g5KMQk2u78pnRQu8Yl9xG3XYPLmO1FXqdxJuGdJbx4iXS2a9gDy5MQ== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1661458716; a=rsa-sha256; cv=none; b=gyd8PZTNf1CE6bhshGDIVJwUvl6874Ow19k3k/a89618yKLOxY7V6PKCEzalIGgbPTANKg TVi+k1iLaejSJGJbgjm7UAYziSQ4zTPoK8SmokzyLHi0IYk0U02Qd8+u1zbdRc/s5uSJ2u /D2+wDqhDGGOaNKB4lglaOcFjMNoENm8d2dDBXvOWRu9woGs8h85dLWl6XdBpfRHHpYZw9 fpKoX8pi5oxHv85xbg+Z7oIvFpM8itrn5sAIazrQSDQzkl7mg5/vZb9L/X/yvmILwsUdhX +duKRky5i96MDYfopzLOQnMywIFk1flaWyP+5K2A26507NkMasltZgTu0IjqYA== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=philipmcgrath.com header.s=fm1 header.b=FpXlvO0N; dkim=fail ("headers rsa verify failed") header.d=messagingengine.com header.s=fm1 header.b="0 Eg1jEp"; 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: 3.60 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=philipmcgrath.com header.s=fm1 header.b=FpXlvO0N; dkim=fail ("headers rsa verify failed") header.d=messagingengine.com header.s=fm1 header.b="0 Eg1jEp"; 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: 11F5A8CFD X-Spam-Score: 3.60 X-Migadu-Scanner: scn1.migadu.com X-TUID: Z5Eav/MFHfbR On Thu, Aug 25, 2022, at 6:50 AM, Efraim Flashner wrote: > On Thu, Aug 25, 2022 at 11:24:31AM +0200, Liliana Marie Prikler wrote: >> Should be "Support all systems". >>=20 Thanks. >> Am Donnerstag, dem 25.08.2022 um 04:54 -0400 schrieb Philip McGrath: >> > +(define* (nix-system->pbarch-machine-type #:optional >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (system >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (or (%current-target- >> > system) >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (%cur= rent-system))) >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 #:key (threads? #t)) >> > +=C2=A0 "Return a string naming the pseudo=E2=80=93machine type use= d by Racket's >> > variant of >> > +Chez Scheme to represent the appropriate ``pbarch'' backend for >> > SYSTEM: that >> > +is, the ``portable bytecode'' backend specialized for SYSTEM's word >> > size and >> > +endianness.=C2=A0 The result will name the threaded machine type u= nless >> > THREADS? is >> > +provided and is #f." >> > +=C2=A0 (string-append (if threads? >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "t" >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "") >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "pb" >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (if (target-64bit? system) >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "64" >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "32") >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 ;; missing (guix utils) predicate target-= little- >> > endian? >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (if (target-ppc32? system) >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "b" >> > +=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 "l"))) >> > + >> Don't we already have a function that does something similar? Can't = we >> add a #:portable-bytecode? keyword to that one? > > I'm not aware of a function that checks for endianness. The only other > place I know of is (guix build-system meson), but there the logic is > hand-written. > I also don't know of any function we could readily adapt. Thanks for the= pointer to (guix build-system meson): I see 'target-ppc32?' is the only= big-endian case there as well. >> > @@ -543,10 +577,7 @@ (define-public chez-scheme-for-racket >> > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0 (add-after 'unpack 'chdir >> > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0 (lambda args >> > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 (chdir "racket/src/ChezScheme"))= )))))) >> > -=C2=A0=C2=A0=C2=A0 ;; TODO: How to build pbarch/pbchunks for other= systems? >> > -=C2=A0=C2=A0=C2=A0 ;; See https://racket.discourse.group/t/950 >> > -=C2=A0=C2=A0=C2=A0 (supported-systems (filter racket-cs-native-sup= ported-system? >> > -=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 %supported-systems)) >> > +=C2=A0=C2=A0=C2=A0 (supported-systems %supported-systems) >> I don't think this needs to be specified, does it? >>=20 >> See the definition in guix/packages.scm: >> (supported-systems package-supported-systems ; list of strings >> (default %supported-systems)) > > Unless this package inherits from somewhere else then by default > supported-systems is all systems. (Regardless if all dependencies are > supported. To see more look at the difference between > (package-supported-systems "pandoc") and > (package-transitive-supported-systems "pandoc")) > > 'chez-scheme-for-racket' and 'chez-scheme-for-racket-bootstrap-bootfiles= ' inherit from=20 'chez-scheme' and 'chez-scheme-bootstrap-bootfiles', respectively, so we= need to override the inherited value. -Philip