From patchwork Sun Dec 24 19:15:38 2023 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: "vasilii.smirnov--- via Guix-patches\" via" X-Patchwork-Id: 58039 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 BC9C827BBEC; Sun, 24 Dec 2023 19:25:21 +0000 (GMT) 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,HTML_MESSAGE,MAILING_LIST_MULTI,SPF_HELO_PASS, URIBL_BLOCKED autolearn=ham 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 8985627BBE2 for ; Sun, 24 Dec 2023 19:25:20 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1rHU5T-0003Pq-Jw; Sun, 24 Dec 2023 14:24:35 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rHTy4-0006N1-N6 for guix-patches@gnu.org; Sun, 24 Dec 2023 14:16:56 -0500 Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1rHTy4-0003Yl-FF for guix-patches@gnu.org; Sun, 24 Dec 2023 14:16:56 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1rHTyA-0006Bb-0Z for guix-patches@gnu.org; Sun, 24 Dec 2023 14:17:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#68015] [PATCH] gnu: guile-xyz: Add guile-srfi-171. Resent-From: lgcoelho@disroot.org Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sun, 24 Dec 2023 19:17:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 68015 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 68015@debbugs.gnu.org X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.170344536622630 (code B ref -1); Sun, 24 Dec 2023 19:17:01 +0000 Received: (at submit) by debbugs.gnu.org; 24 Dec 2023 19:16:06 +0000 Received: from localhost ([127.0.0.1]:53537 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rHTxF-0005sB-8l for submit@debbugs.gnu.org; Sun, 24 Dec 2023 14:16:05 -0500 Received: from lists.gnu.org ([2001:470:142::17]:38918) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rHTx9-0005ao-J8 for submit@debbugs.gnu.org; Sun, 24 Dec 2023 14:16:03 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1rHTwv-0005yq-2d for guix-patches@gnu.org; Sun, 24 Dec 2023 14:15:47 -0500 Received: from layka.disroot.org ([178.21.23.139]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1rHTws-00039Z-9Y for guix-patches@gnu.org; Sun, 24 Dec 2023 14:15:44 -0500 Received: from localhost (localhost [127.0.0.1]) by disroot.org (Postfix) with ESMTP id 01CED41AF2 for ; Sun, 24 Dec 2023 20:15:40 +0100 (CET) X-Virus-Scanned: SPAM Filter at disroot.org Received: from layka.disroot.org ([127.0.0.1]) by localhost (disroot.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 2YmWtOPnAae5 for ; Sun, 24 Dec 2023 20:15:38 +0100 (CET) MIME-Version: 1.0 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=disroot.org; s=mail; t=1703445338; bh=8k+QcWMkIQREZCa0g7AAXxiSzdBboJddI6XkgFtBgp0=; h=Date:From:To:Subject; b=YGiv1z/9fdBwx4tkY1LwvH5YNt3fsUWAxhccT1RVeG2IbiB1k8QXHlG8PILZc0yip 6d9YSzyw0MbJkzZuqylTjzh0kqMFBOyofqNyesRSsxk9BK2dJGB7rePUgprf/qOVVs M31/oxaCHSqFyJ3I92vFsou0Cyri1lbkWdbRmXSy2t7bOeh2A0MrbgF3CfrDaQbvCh OHrwKACEN54SlwQHz4FjHgGIVmEaWZJF+dLUMHDEdfcwHn4gjpYf4B48o+hHb1Osn6 SYYLM1Ncjpc/XHVvAY44DoUUPn+JFt9wRQgGpw2Aw/ZKAm2zZFSjRmKAuoiEE5pfFR KvrNzugMiWGww== Date: Sun, 24 Dec 2023 19:15:38 +0000 Message-ID: X-Sender: lgcoelho@disroot.org Received-SPF: pass client-ip=178.21.23.139; envelope-from=lgcoelho@disroot.org; helo=layka.disroot.org X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, HTML_MESSAGE=0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-Mailman-Approved-At: Sun, 24 Dec 2023 14:24:33 -0500 X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-to: lgcoelho@disroot.org X-ACL-Warn: , lgcoelho--- via Guix-patches X-Patchwork-Original-From: lgcoelho--- via Guix-patches via From: "vasilii.smirnov--- via Guix-patches\" via" Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org X-getmail-retrieved-from-mailbox: Patches This patch adds the SRFI-171, which supplies transducer functionality, in (gnu packages guile-xyz). From 0e6f08bb1e53fc4d531cb4f1e0f7d1cdc0cd216e Mon Sep 17 00:00:00 2001 From: Luis Guilherme Coelho Date: Sun, 24 Dec 2023 16:13:35 -0300 Subject: [PATCH] gnu: guile-xyz: Add guile-srfi-171. --- gnu/packages/guile-xyz.scm | 66 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 66 insertions(+) diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 7b44dc3167..f22a9d995e 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -47,6 +47,7 @@ ;;; Copyright © 2022 Evgeny Pisemsky ;;; Copyright © 2022 jgart ;;; Copyright © 2023 Andrew Tropin +;;; Copyright © 2023 Luis Guilherme Coelho ;;; ;;; This file is part of GNU Guix. ;;; @@ -3683,6 +3684,71 @@ (define-public guile-srfi-159 more expressive and flexible than the traditional @code{format} procedure.") (license license:bsd-3)))) +(define-public guile-srfi-171 + (let ((commit "40eb284ae54e510013054453890052df603a3a7f") + (revision "0")) + (package + (name "guile-srfi-171") + (version (git-version "0.0.0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url (string-append + "https://github.com" + "/scheme-requests-for-implementation/srfi-171")) + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1w2x5mwvzb2xrp6j2drigay885ni5dag8y2iiak4s96v863wyh5l")) + (snippet #~(begin + (use-modules (ice-9 rdelim) + (ice-9 pretty-print) + (guix build utils)) + (with-output-to-file "tmp.scm" + (lambda () + (call-with-input-file "srfi/srfi-171.scm" + (lambda (input-port) + (let loop + ((i 0)) + (let ((line (read-line input-port))) + (unless (equal? line + "(include \"171-impl.scm\")") + (unless (< i 13) + (write-line line)) + (loop (1+ i))))))) + (call-with-input-file "srfi/171-impl.scm" + (lambda (input-port) + (let loop + ((i 0)) + (let ((line (read-line input-port))) + (unless (eof-object? line) + (unless (< i 13) + (write-line line)) + (loop (1+ i))))))))) + (delete-file-recursively "srfi") + (mkdir "srfi") + (rename-file "tmp.scm" "srfi/srfi-171.scm") + (for-each delete-file + '("compose.scm" "srfi-171.html" + "transducers.md" + "README.org" + "index.html" + "tests-guile.scm" + "tests-r7rs.scm" + "tests.scm")))))) + (build-system guile-build-system) + (inputs (list guile-3.0)) + (home-page + "https://github.com/scheme-requests-for-implementation/srfi-171") + (synopsis "SRFI 171 transducers implementation for Guile") + (description + "This package provides an implementation of SRFI 171 for Guile. +SRFI 171 defines transducers that generalize common list operations like +map, filter, take and so on for other types. The traditional Scheme +approach of having collection-specific procedures is not changed.") + (license license:expat)))) + (define-public guile-srfi-180 (let ((commit "9188bf9724c6d320ef804579d222e855b007b193") (revision "0")) -- 2.41.0