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 GFkjAr2rV18gVAAA0tVLHw (envelope-from ) for ; Tue, 08 Sep 2020 16:05:17 +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 YNKiObyrV1/oQAAAB5/wlQ (envelope-from ) for ; Tue, 08 Sep 2020 16:05:16 +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 6F4979402CC for ; Tue, 8 Sep 2020 16:05:16 +0000 (UTC) Received: from localhost ([::1]:37092 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kFg7P-0002v9-9y for larch@yhetil.org; Tue, 08 Sep 2020 12:05:15 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:36796) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kFg3K-00047t-Q8 for guix-patches@gnu.org; Tue, 08 Sep 2020 12:01:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:44596) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1kFg3K-0004dT-F9 for guix-patches@gnu.org; Tue, 08 Sep 2020 12:01:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1kFg3K-0005Rd-AF for guix-patches@gnu.org; Tue, 08 Sep 2020 12:01:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#43183] [PATCH v3 1/4] gnu: Add guile-struct-pack. Resent-From: Martin Becze Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Tue, 08 Sep 2020 16:01:02 +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.159958082918802 (code B ref 43183); Tue, 08 Sep 2020 16:01:02 +0000 Received: (at 43183) by debbugs.gnu.org; 8 Sep 2020 16:00:29 +0000 Received: from localhost ([127.0.0.1]:56134 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kFg2m-0004sr-Sp for submit@debbugs.gnu.org; Tue, 08 Sep 2020 12:00:29 -0400 Received: from mx1.riseup.net ([198.252.153.129]:43396) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kFg2l-0004r3-E5 for 43183@debbugs.gnu.org; Tue, 08 Sep 2020 12:00:27 -0400 Received: from capuchin.riseup.net (capuchin-pn.riseup.net [10.0.1.176]) (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 4Bm8xK73xhzFdqm for <43183@debbugs.gnu.org>; Tue, 8 Sep 2020 09:00:05 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=riseup.net; s=squak; t=1599580826; bh=xEiqTTenAgzo7/DY0tLpdILR0TiHVx3vGpDh7vs0d30=; h=From:To:Cc:Subject:Date:In-Reply-To:References:From; b=WJZ7JvmaMv7JRP8SQ66kbm7HFWFOPPE+DvT588HEZEcD9y/HxQFC4v/8E5VW0YccU ZnDoZwg98+seTdJ3vvVqxOoeLlbn6EQ5aPkrP3I2F+F24U/5s8wwOOYa3/MZxb8d/C QYnghUw9nMu/Brtgb4flZxTJ2G/b02ev8PKB+uXY= X-Riseup-User-ID: 5D03C2AE5E3089CF6DBB21E34473CE189C0C73FA05F0046AA15AE645DB8F07BB Received: from [127.0.0.1] (localhost [127.0.0.1]) by capuchin.riseup.net (Postfix) with ESMTPSA id 4Bm8xK2RqCz8t2w; Tue, 8 Sep 2020 09:00:05 -0700 (PDT) From: Martin Becze Date: Tue, 8 Sep 2020 10:59:43 -0500 Message-Id: <20200908155946.2322-2-mjbecze@riseup.net> In-Reply-To: <20200908155946.2322-1-mjbecze@riseup.net> References: <20200903150243.27796-1-mjbecze@riseup.net> <20200908155946.2322-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=WJZ7Jvma; 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: eqC/1lF4jv7X * gnu/packages/guile-xyz.scm (guile-struct-pack): New variable. --- gnu/packages/guile-xyz.scm | 44 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 80f792672c..e1c763faef 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3867,3 +3867,47 @@ between data, in a way that is very similar to WikiData or RDF for instance. An object can have relations (in the form of an IRI) that relates it to one or more objects or strings, represented by a Json object or an IRI.") (license license:gpl3+))) + +(define-public guile-struct-pack + (package + (name "guile-struct-pack") + (version "1.1.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/weinholt/struct-pack.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0hd72m821pahjphzyjn26i55542v8makr55xzjll2cycja4wsbc1")))) + (build-system guile-build-system) + (arguments + `(#:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") + #:modules ((guix build guile-build-system) + (guix build utils) + (srfi srfi-26) + (ice-9 ftw)) + #:phases (modify-phases %standard-phases + (add-before 'build 'move-sls-files + (lambda _ + ;; Move files under a struct/ directory to reflect the + ;; module hierarchy. + (define dst-folder "struct") + (define (target file) + (string-append dst-folder "/" file)) + (define files + (scandir "." (negate (cut member <> '("." ".."))))) + (mkdir dst-folder) + (for-each (lambda (file) + (rename-file file (target file))) + files) + #t))))) + (native-inputs + `(("guile" ,guile-3.0))) + (home-page "https://github.com/weinholt/struct-pack") + (synopsis "R6RS library for working with packed byte structures") + (description + "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))) -- 2.28.0