From 0e6f08bb1e53fc4d531cb4f1e0f7d1cdc0cd216e Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
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(+)
@@ -47,6 +47,7 @@
;;; Copyright © 2022 Evgeny Pisemsky <evgeny@pisemsky.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 Andrew Tropin <andrew@trop.in>
+;;; Copyright © 2023 Luis Guilherme Coelho <lgcoelho@disroot.org>
;;;
;;; 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