GNU bug report logs - #70229
[PATCH] gnu: Add tr7.

Message received at submit <at> debbugs.gnu.org:

Received: (at submit) by debbugs.gnu.org; 6 Apr 2024 06:34:03 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Sat Apr 06 02:34:03 2024
Received: from localhost ([127.0.0.1]:37999 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1rszcn-0006kd-M8
	for submit <at> debbugs.gnu.org; Sat, 06 Apr 2024 02:34:03 -0400
Received: from lists.gnu.org ([2001:470:142::17]:42588)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <poptsov.artyom@HIDDEN>) id 1rszcj-0006js-UE
 for submit <at> debbugs.gnu.org; Sat, 06 Apr 2024 02:34:00 -0400
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 <poptsov.artyom@HIDDEN>)
 id 1rszcW-0006Gt-FU
 for guix-patches@HIDDEN; Sat, 06 Apr 2024 02:33:44 -0400
Received: from mail-lf1-x12b.google.com ([2a00:1450:4864:20::12b])
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128)
 (Exim 4.90_1) (envelope-from <poptsov.artyom@HIDDEN>)
 id 1rszcT-0006yq-JX
 for guix-patches@HIDDEN; Sat, 06 Apr 2024 02:33:43 -0400
Received: by mail-lf1-x12b.google.com with SMTP id
 2adb3069b0e04-516d0162fa1so3210499e87.3
 for <guix-patches@HIDDEN>; Fri, 05 Apr 2024 23:33:40 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=gmail.com; s=20230601; t=1712385218; x=1712990018; darn=gnu.org;
 h=content-transfer-encoding:mime-version:message-id:date:subject:cc
 :to:from:from:to:cc:subject:date:message-id:reply-to;
 bh=ZevbPcDQ5gEIWwPfLcDVm2cE4SQUGEnBBxbxz4x8chw=;
 b=W1OOY18mU3g6RW9BasybRivLRUbvcgFPXWMlwgrCotkO4hlzfwdqJ4hrNk7DwMJdpw
 ro/0ni5vWrUbes16X9s/FbGP8kZAyJDUpVkDkNFJnuku8zxXDqpY3MPBlfjbM6l0O9Qr
 RDPxaEoRj6jqoMAo4mAFFwBrOhZatJAwr87dgMqMvaYY0UP84Ot6rDHL2MJEAu41f5xV
 7lc8QtSAw1sG6vfm9asyaymVYF49ZKDOCzmW3fQPkHOLPHHTh4JZjsTFKjhnN7EIJ3ZY
 /YSDLW6fVEqnZnHlUG8Q38zf0GZoBRNpa9BR3G1GnrTla0rZSb7b4AQzKWXqjDiJuyPo
 fK+w==
X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
 d=1e100.net; s=20230601; t=1712385218; x=1712990018;
 h=content-transfer-encoding:mime-version:message-id:date:subject:cc
 :to:from:x-gm-message-state:from:to:cc:subject:date:message-id
 :reply-to;
 bh=ZevbPcDQ5gEIWwPfLcDVm2cE4SQUGEnBBxbxz4x8chw=;
 b=k+kb+YBYvInwElhQmyAupKiPKQCGz9EuIKVqs9tHzoHzW8wrc95D0QEl9mn9Yqfugq
 tLvAUX/HJ1mKzasQNTeGB/6meVCHshyXhbuuS500LVL8PtwsNvqwk6v32QWl8Fip4E1d
 bdb5u6VUGd/Fx7mTtVQsH1snvY7USuAo/xIibqqUTJorhFqBbvwHlQpr1cHDRjmUcHkp
 tdex6R/PG9Wx8i2bBGWs+nhTLto+Ez3nTpI9LdFbio0Sar9EdZZwGIXBhPq4DT47022b
 7eZ9lSfl6DDQp9cyHPosR7U6p02+ZJQNOYGvvW0nfU0heWgc/QCm7q1WK/KJUwoilFp9
 XjcA==
X-Gm-Message-State: AOJu0YwpLXfHOTHXmKoZQ1BQ2YdjeyBDFg4QlbBQsF0mCbdZF4yNdFlJ
 Ppx8m9ek9w+UP3S71BrG+gJeLTe8ovq6IvxHOScjqMf9kqJqfwKXs1jN8Hd9
X-Google-Smtp-Source: AGHT+IHybamkBc5UC+TUCEx9aNufE/8NNEzRZNozQpNuaWBYaoFQEwhZh2nvIL24mP/i+wjullO/CQ==
X-Received: by 2002:a05:6512:6c9:b0:516:c8e5:db35 with SMTP id
 u9-20020a05651206c900b00516c8e5db35mr2915796lff.18.1712385217706; 
 Fri, 05 Apr 2024 23:33:37 -0700 (PDT)
Received: from elephant.. ([5.166.209.213]) by smtp.gmail.com with ESMTPSA id
 er18-20020a05651248d200b00516d003b3a4sm396814lfb.3.2024.04.05.23.33.36
 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256);
 Fri, 05 Apr 2024 23:33:36 -0700 (PDT)
From: "Artyom V. Poptsov" <poptsov.artyom@HIDDEN>
To: guix-patches@HIDDEN
Subject: [PATCH] gnu: Add tr7.
Date: Sat,  6 Apr 2024 09:32:09 +0300
Message-ID: <c69a9be1151de4eccd5095aeaf907a11d6073626.1712385129.git.poptsov.artyom@HIDDEN>
X-Mailer: git-send-email 2.41.0
MIME-Version: 1.0
X-Debbugs-Cc: glv@HIDDEN, cox.katherine.e+guix@HIDDEN,
 me@HIDDEN, sharlatanus@HIDDEN, jgart@HIDDEN
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Received-SPF: pass client-ip=2a00:1450:4864:20::12b;
 envelope-from=poptsov.artyom@HIDDEN; helo=mail-lf1-x12b.google.com
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, FREEMAIL_FROM=0.001,
 RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001,
 SPF_PASS=-0.001 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 1.0 (+)
X-Debbugs-Envelope-To: submit
Cc: "Artyom V. Poptsov" <poptsov.artyom@HIDDEN>
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -0.0 (/)

* gnu/packages/scheme.scm (tr7): New variable.

Change-Id: I60e34f0f918ea7c9b36cea02358d69ab7bfad24b
---
 gnu/packages/scheme.scm | 67 ++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 66 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index 070696d6ba..926deaeade 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -24,6 +24,7 @@
 ;;; Copyright © 2023 Juliana Sims <juli@HIDDEN>
 ;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@HIDDEN>
 ;;; Copyright © 2024 Skylar Hill <stellarskylark@HIDDEN>
+;;; Copyright © 2024 Artyom V. Poptsov <poptsov.artyom@HIDDEN>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -44,7 +45,8 @@ (define-module (gnu packages scheme)
   #:use-module (gnu packages)
   #:use-module ((guix licenses)
                 #:select (gpl2 gpl2+ lgpl2.0+ lgpl2.1 lgpl2.1+ lgpl3+ asl2.0
-                          bsd-3 cc-by-sa4.0 non-copyleft expat public-domain))
+                          bsd-0 bsd-3 cc-by-sa4.0 non-copyleft expat
+                          public-domain))
   #:use-module (guix gexp)
   #:use-module (guix packages)
   #:use-module (guix download)
@@ -855,6 +857,69 @@ (define-public tinyscheme
 small program, it is easy to comprehend, get to grips with, and use.")
     (license bsd-3)))                   ; there are no licence headers
 
+(define-public tr7
+  (package
+    (name "tr7")
+    (version "1.0.10")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://gitlab.com/jobol/tr7")
+             (commit (string-append "v" version))))
+       (sha256
+        (base32 "0n77fkm5kcv2pmwbw5fl8r00aarw8da8gkd9d1ki5fn9kbl4fyk2"))
+       (file-name (git-file-name name version))))
+    (build-system gnu-build-system)
+    (outputs '("out" "doc"))
+    (arguments
+     (list
+      #:phases #~(modify-phases %standard-phases
+                   (replace 'configure
+                     (lambda _
+                       (substitute* "Makefile"
+                         (("PREFIX = /usr/local")
+                          (string-append "PREFIX="
+                                         #$output))
+                         (("ALL = \\$\\(LIBSTA\\) \\$\\(TR7I\\) tags")
+                          "ALL = $(LIBSTA) $(TR7I)"))))
+                   (replace 'build
+                     (lambda _
+                       (setenv "CC"
+                               #$(cc-for-target))
+                       (invoke "make")))
+                   (replace 'check
+                     (lambda* (#:key tests? #:allow-other-keys)
+                       (when tests?
+                         (invoke "make" "test"))))
+                   (replace 'install
+                     (lambda _
+                       (let* ((share (string-append #$output "/share"))
+                              (doc (string-append #$output:doc "/share/doc/"))
+                              (bin (string-append #$output "/bin"))
+                              (lib (string-append #$output "/lib/"))
+                              (tr7 (string-append share "/tr7"))
+                              (libs (string-append tr7 "/libs")))
+                         (for-each mkdir-p
+                                   (list tr7 libs bin lib doc))
+                         (copy-file "tr7i"
+                                    (string-append bin "/tr7i"))
+                         (copy-file "libtr7.a"
+                                    (string-append lib "/libtr7.a"))
+                         (copy-file "r7rs.pdf"
+                                    (string-append doc "/r7rs.pdf"))
+                         (copy-recursively "tr7libs" libs)))))))
+    (home-page "https://gitlab.com/jobol/tr7")
+    (synopsis "Embedded R7RS small Scheme interpreter")
+    (description
+     "@code{TR7} is a lightweight Scheme interpreter that implements the revision
+R7RS small of scheme programming language.
+
+It is meant to be used as an embedded scripting interpreter for other programs.  A
+lot of functionality in TR7 is included conditionally, to allow developers freedom in
+balancing features and footprint.")
+    (license bsd-0)))
+
 (define-public stalin
   (let ((commit "ed1c9e339c352b7a6fee40bb2a47607c3466f0be"))
     ;; FIXME: The Stalin "source" contains C code generated by itself:

base-commit: bfc614397b5f146056bda4b5a8e3a67bd1ca7b23
-- 
2.41.0