From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id qG41HWOwUl9gZQAA0tVLHw (envelope-from ) for ; Fri, 04 Sep 2020 21:23:47 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id iBs5GWOwUl+0MgAAbx9fmQ (envelope-from ) for ; Fri, 04 Sep 2020 21:23:47 +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 2C02C9404E1 for ; Fri, 4 Sep 2020 21:23:46 +0000 (UTC) Received: from localhost ([::1]:33082 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kEIHq-0000kk-3G for larch@yhetil.org; Fri, 04 Sep 2020 16:26:18 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:55380) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kEIHc-0000RD-3Q for guix-patches@gnu.org; Fri, 04 Sep 2020 16:26:04 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:57415) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1kEIHb-0001lL-PQ for guix-patches@gnu.org; Fri, 04 Sep 2020 16:26:03 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1kEIHb-0006IY-ML for guix-patches@gnu.org; Fri, 04 Sep 2020 16:26:03 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#43183] [PATCH v2 3/5] gnu: Add guile-struct-pack. Resent-From: Martin Becze Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Fri, 04 Sep 2020 20:26:03 +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.159925115224159 (code B ref 43183); Fri, 04 Sep 2020 20:26:03 +0000 Received: (at 43183) by debbugs.gnu.org; 4 Sep 2020 20:25:52 +0000 Received: from localhost ([127.0.0.1]:40721 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kEIHP-0006HU-Od for submit@debbugs.gnu.org; Fri, 04 Sep 2020 16:25:52 -0400 Received: from mx1.riseup.net ([198.252.153.129]:50902) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kEIHG-0006GW-UM for 43183@debbugs.gnu.org; Fri, 04 Sep 2020 16:25:43 -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 4Bjq1f3rt9zFmPL for <43183@debbugs.gnu.org>; Fri, 4 Sep 2020 13:25:42 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=riseup.net; s=squak; t=1599251142; bh=stfBPStFt0w37bGFEis1QKmbWt4yHFi/2RfdvstEvkk=; h=From:To:Cc:Subject:Date:In-Reply-To:References:From; b=EH6Q6LJ5GK3LODn7azdbg47HCd3vhIs1yP87hNXWzVMnU+0QyFJvKe+H8yiezfbfe f3KJo+fYOQzDSgJih9RpD9fdSUBuDkpVYNgpS7RNLArK9vnoZDfglDwlOaYVNdFuCH zpixlis0z1hUAif9hKkB+YZ8eL1dgmrAoJ/kYUzY= X-Riseup-User-ID: 9083588B77505C67C190E2E71A256EDE303DB6BF5A80B15D06C908199CE7281A Received: from [127.0.0.1] (localhost [127.0.0.1]) by bell.riseup.net (Postfix) with ESMTPSA id 4Bjq1d56ZczJn6Z; Fri, 4 Sep 2020 13:25:41 -0700 (PDT) From: Martin Becze Date: Fri, 4 Sep 2020 15:25:15 -0500 Message-Id: <20200904202517.6131-4-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=EH6Q6LJ5; 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: PyYjU+oURsVe * gnu/packages/guile-xyz.scm (guile-struct-pack): New variable. --- gnu/packages/guile-xyz.scm | 43 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 308ce0ad59..a2df03760d 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3846,3 +3846,46 @@ 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) + (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 (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 "struct") + #t))))) + (native-inputs + `(("guile" ,guile-3.0))) + (home-page "https://gitlab.com/mjbecze/guile-srfi-89") + (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