From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id 2ISmM8muUl/uVQAA0tVLHw (envelope-from ) for ; Fri, 04 Sep 2020 21:16:57 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2 with LMTPS id 8HJtL8muUl+OWgAAB5/wlQ (envelope-from ) for ; Fri, 04 Sep 2020 21:16:57 +0000 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 867759404C7 for ; Fri, 4 Sep 2020 21:16:57 +0000 (UTC) Received: from localhost ([::1]:60692 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kEIHj-0000Su-IW for larch@yhetil.org; Fri, 04 Sep 2020 16:26:11 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:55382) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kEIHc-0000RN-FK for guix-patches@gnu.org; Fri, 04 Sep 2020 16:26:04 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:57416) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1kEIHc-0001lR-5V for guix-patches@gnu.org; Fri, 04 Sep 2020 16:26:04 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1kEIHc-0006If-2P for guix-patches@gnu.org; Fri, 04 Sep 2020 16:26:04 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#43183] [PATCH v2 4/5] gnu: Add guile-machine-code. Resent-From: Martin Becze Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Fri, 04 Sep 2020 20:26:04 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 43183 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 43183@debbugs.gnu.org Cc: Martin Becze Received: via spool by 43183-submit@debbugs.gnu.org id=B43183.159925115224166 (code B ref 43183); Fri, 04 Sep 2020 20:26:04 +0000 Received: (at 43183) by debbugs.gnu.org; 4 Sep 2020 20:25:52 +0000 Received: from localhost ([127.0.0.1]:40723 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kEIHQ-0006Hc-5h for submit@debbugs.gnu.org; Fri, 04 Sep 2020 16:25:52 -0400 Received: from mx1.riseup.net ([198.252.153.129]:50908) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kEIHH-0006Gu-Vq for 43183@debbugs.gnu.org; Fri, 04 Sep 2020 16:25:44 -0400 Received: from bell.riseup.net (bell-pn.riseup.net [10.0.1.178]) (using TLSv1 with cipher ECDHE-RSA-AES256-SHA (256/256 bits)) (Client CN "*.riseup.net", Issuer "Sectigo RSA Domain Validation Secure Server CA" (not verified)) by mx1.riseup.net (Postfix) with ESMTPS id 4Bjq1g46x0zFgYs for <43183@debbugs.gnu.org>; Fri, 4 Sep 2020 13:25:43 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=riseup.net; s=squak; t=1599251143; bh=7vKM4+b7HdwJpwzhLQzDBHf/TGJZ5LfMWn2QH/MUuLo=; h=From:To:Cc:Subject:Date:In-Reply-To:References:From; b=iHYuAyQiMcasC8vYkMhdIQX1hVnM49Ay9tOlEB13+pKFudApwIEdP/aP1EhzsSCjR Qnp1lpBTPw6rGoJktnbiFyxF9ShTGqlYB+2wqtRBM2YYUR3sUZrQgga9UNLoBnRGM8 qCNtAGuvqSsdKXrzTkA9XNF31iUO48fJ82V9v4Kg= X-Riseup-User-ID: DFF43BDC9F0A6DFC603E7E32F6C3C2C76AE54FEC1C92E3651EF5668503C96FA0 Received: from [127.0.0.1] (localhost [127.0.0.1]) by bell.riseup.net (Postfix) with ESMTPSA id 4Bjq1f5gTZzJn6Z; Fri, 4 Sep 2020 13:25:42 -0700 (PDT) From: Martin Becze Date: Fri, 4 Sep 2020 15:25:16 -0500 Message-Id: <20200904202517.6131-5-mjbecze@riseup.net> In-Reply-To: <20200904202517.6131-1-mjbecze@riseup.net> References: <20200903150243.27796-1-mjbecze@riseup.net> <20200904202517.6131-1-mjbecze@riseup.net> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Score: -0.7 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-Spam-Score: -1.7 (-) 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-Scanner: scn0 Authentication-Results: aspmx1.migadu.com; dkim=fail (rsa verify failed) header.d=riseup.net header.s=squak header.b=iHYuAyQi; dmarc=fail reason="SPF not aligned (relaxed)" header.from=riseup.net (policy=none); spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Spam-Score: 5.09 X-TUID: Vg+F9vO0ZnW4 * gnu/packages/guile-xyz.scm (guile-machine-code): New variable. --- gnu/packages/guile-xyz.scm | 49 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index a2df03760d..a699377ff8 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3889,3 +3889,52 @@ more objects or strings, represented by a Json object or an IRI.") "This is an R6RS library for working with packed byte structures. It is similar to struct in Python or pack and unpack in Perl.") (license license:expat))) + +(define-public guile-machine-code + (package + (name "guile-machine-code") + (version "2.1.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/weinholt/machine-code.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0wzj3caj2jypzyjqfkfqkvr3kkbjabsnhldv9kvnx9w9qnria5yd")))) + (build-system guile-build-system) + (arguments + `(#:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") + #:modules ((guix build guile-build-system) + (guix build utils) + (ice-9 ftw)) + #:phases (modify-phases %standard-phases + (add-before 'build 'move-sls-files + (lambda _ + ;; Move files under a machine-code directory to reflect + ;; the module hierarchy. + (define (mv dst) + (define (target file) + (string-append dst "/" file)) + (define files (cddr (scandir "."))) + (mkdir dst) + (for-each (lambda (file) + (rename-file file (target file))) + files)) + (mv "machine-code") + #t))))) + (native-inputs + `(("guile" ,guile-3.0))) + (propagated-inputs + `(("guile-struct-pack" ,guile-struct-pack))) + (home-page "https://github.com/weinholt/machine-code") + (synopsis "Tools that relate to machine code and object formats") + (description + "This project is about the development of tools that relate to machine +code and object formats; for all architectures. Here you'll find libraries for +working with binary code: assembly, disassembly, instruction tables, object +formats and related areas.") + (license license:expat))) + + -- 2.28.0