unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
* [bug#70467] Add the Texinfo adaptation of the R7RS-small standard.
@ 2024-04-19  2:32 Yuval Langer
  2024-05-12  0:16 ` Yuval Langer
  0 siblings, 1 reply; 4+ messages in thread
From: Yuval Langer @ 2024-04-19  2:32 UTC (permalink / raw)
  To: 70467

[-- Attachment #1: Type: text/plain, Size: 228 bytes --]

Hi,

provided is a package definition for the Wolfgang Corcoran-Mathe
Texinfo adaptation[1] of the R7RS-small standard.

Hope it would come in handy,
Yuval (Yulav) Langer.

[1]: <https://codeberg.org/Zipheir/r7rs-small-texinfo>

[-- Attachment #2: 0001-Add-the-Texinfo-adaptation-of-the-R7RS-small-Scheme-.patch --]
[-- Type: text/x-patch, Size: 2957 bytes --]

From 6304e1faabe79eb601ff09ed5d95c8db11780576 Mon Sep 17 00:00:00 2001
Message-Id: <6304e1faabe79eb601ff09ed5d95c8db11780576.1713493331.git.yuval.langer@gmail.com>
From: Yuval Langer <yuval.langer@gmail.com>
Date: Fri, 19 Apr 2024 05:22:08 +0300
Subject: [PATCH] Add the Texinfo adaptation of the R7RS-small Scheme standard.

---
 gnu/packages/scheme.scm | 44 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index a91a2d693d..9177801800 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -1314,3 +1314,47 @@ as well as light.  The implementation is based on an ad-hoc Virtual
 Machine.  STklos can also be compiled as a library and embedded in an
 application.")
     (license gpl2+)))
+
+(define-public r7rs-small-texinfo
+  (let ((commit "38a703976ea6353e32b52a5187dbdaf77fb2f050")
+        (revision "2"))
+    (package
+      (name "r7rs-small-texinfo")
+      (version (git-version "0.1.0" revision commit))
+      (home-page "https://codeberg.org/Zipheir/r7rs-small-texinfo/")
+      (source
+       (origin
+         (uri (git-reference
+               (url home-page)
+               (commit commit)))
+         (method git-fetch)
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1fr02fyhiwd364jkfy1n5w31pq3kx1rl5w634421g05702yb47x3"))))
+      (native-inputs (list bash texinfo))
+      (inputs '())
+      (build-system copy-build-system)
+      (arguments
+       (list
+        #:phases #~(modify-phases %standard-phases
+                     (add-after 'unpack 'compile-the-files
+                       (lambda _
+                         (let* ((source-directory-path (string-append (getcwd)
+                                                        "/doc/r7rs-small"))
+                                (build-script-path (string-append
+                                                    source-directory-path
+                                                    "/build.sh"))
+                                (info-directory-path (string-append #$output
+                                                      "/share/info")))
+                           (chdir source-directory-path)
+                           (system* "bash" build-script-path "info")
+                           (mkdir-p info-directory-path)
+                           (copy-file (string-append source-directory-path
+                                                     "/r7rs-small.info")
+                                      (string-append info-directory-path
+                                                     "/r7rs-small.info"))))))))
+      (synopsis
+       "R7RS Small standard of the Scheme programming language in Info format")
+      (description
+       "Revised^7 Report of the Algorithmic Language Scheme adapted to Texinfo format.")
+      (license (non-copyleft "file://COPYING")))))
-- 
2.30.2


^ permalink raw reply related	[flat|nested] 4+ messages in thread

* [bug#70467] Add the Texinfo adaptation of the R7RS-small standard.
  2024-04-19  2:32 [bug#70467] Add the Texinfo adaptation of the R7RS-small standard Yuval Langer
@ 2024-05-12  0:16 ` Yuval Langer
  2024-05-12  0:21   ` Yuval Langer
  0 siblings, 1 reply; 4+ messages in thread
From: Yuval Langer @ 2024-05-12  0:16 UTC (permalink / raw)
  To: 70467

[-- Attachment #1: Type: text/plain, Size: 719 bytes --]

On Fri, Apr 19, 2024 at 5:32 AM Yuval Langer <yuval.langer@gmail.com> wrote:
>
> Hi,
>
> provided is a package definition for the Wolfgang Corcoran-Mathe
> Texinfo adaptation[1] of the R7RS-small standard.
> […]
> [1]: <https://codeberg.org/Zipheir/r7rs-small-texinfo>

I fixed a problem in this patch.  It didn't have an `#:install-plan`,
resulting with all source files and installation products installed to
the root directory of the Guix profile.

Credit goes to ramin_hal9001 (https://tilde.town/~ramin_hal9001) for
giving me the answer to the problem when I asked on the Systemcrafters
forum (https://forum.systemcrafters.net/t/problem-guix-package-definition-also-installs-source-files/661).

[-- Attachment #2: 0001-Add-the-Texinfo-adaptation-of-the-R7RS-small-Scheme-.patch --]
[-- Type: text/x-patch, Size: 2957 bytes --]

From e06a4061374fc878500ff638822b7397eb63d14b Mon Sep 17 00:00:00 2001
Message-Id: <e06a4061374fc878500ff638822b7397eb63d14b.1715472569.git.yuval.langer@gmail.com>
From: Yuval Langer <yuval.langer@gmail.com>
Date: Fri, 19 Apr 2024 05:22:08 +0300
Subject: [PATCH] Add the Texinfo adaptation of the R7RS-small Scheme standard.

---
 gnu/packages/scheme.scm | 44 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index a91a2d693d..9177801800 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -1314,3 +1314,47 @@ as well as light.  The implementation is based on an ad-hoc Virtual
 Machine.  STklos can also be compiled as a library and embedded in an
 application.")
     (license gpl2+)))
+
+(define-public r7rs-small-texinfo
+  (let ((commit "38a703976ea6353e32b52a5187dbdaf77fb2f050")
+        (revision "2"))
+    (package
+      (name "r7rs-small-texinfo")
+      (version (git-version "0.1.0" revision commit))
+      (home-page "https://codeberg.org/Zipheir/r7rs-small-texinfo/")
+      (source
+       (origin
+         (uri (git-reference
+               (url home-page)
+               (commit commit)))
+         (method git-fetch)
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1fr02fyhiwd364jkfy1n5w31pq3kx1rl5w634421g05702yb47x3"))))
+      (native-inputs (list bash texinfo))
+      (inputs '())
+      (build-system copy-build-system)
+      (arguments
+       (list
+        #:phases #~(modify-phases %standard-phases
+                     (add-after 'unpack 'compile-the-files
+                       (lambda _
+                         (let* ((source-directory-path (string-append (getcwd)
+                                                        "/doc/r7rs-small"))
+                                (build-script-path (string-append
+                                                    source-directory-path
+                                                    "/build.sh"))
+                                (info-directory-path (string-append #$output
+                                                      "/share/info")))
+                           (chdir source-directory-path)
+                           (system* "bash" build-script-path "info")
+                           (mkdir-p info-directory-path)
+                           (copy-file (string-append source-directory-path
+                                                     "/r7rs-small.info")
+                                      (string-append info-directory-path
+                                                     "/r7rs-small.info"))))))))
+      (synopsis
+       "R7RS Small standard of the Scheme programming language in Info format")
+      (description
+       "Revised^7 Report of the Algorithmic Language Scheme adapted to Texinfo format.")
+      (license (non-copyleft "file://COPYING")))))
-- 
2.30.2


^ permalink raw reply related	[flat|nested] 4+ messages in thread

* [bug#70467] Add the Texinfo adaptation of the R7RS-small standard.
  2024-05-12  0:16 ` Yuval Langer
@ 2024-05-12  0:21   ` Yuval Langer
  2024-05-31 11:37     ` bug#70467: " Ludovic Courtès
  0 siblings, 1 reply; 4+ messages in thread
From: Yuval Langer @ 2024-05-12  0:21 UTC (permalink / raw)
  To: 70467

[-- Attachment #1: Type: text/plain, Size: 194 bytes --]

On Sun, May 12, 2024 at 3:16 AM Yuval Langer <yuval.langer@gmail.com> wrote:
>
> […] I fixed a problem in this patch. […]

Oops, sent the old one.  Now it's definitely the fixed one.

[-- Attachment #2: 0001-Add-the-Texinfo-adaptation-of-the-R7RS-small-Scheme-.patch --]
[-- Type: text/x-patch, Size: 3020 bytes --]

From 030218776a77edf8d5c1c68ca715f5e5d276d901 Mon Sep 17 00:00:00 2001
Message-Id: <030218776a77edf8d5c1c68ca715f5e5d276d901.1715473093.git.yuval.langer@gmail.com>
From: Yuval Langer <yuval.langer@gmail.com>
Date: Fri, 19 Apr 2024 05:22:08 +0300
Subject: [PATCH] Add the Texinfo adaptation of the R7RS-small Scheme standard.

---
 gnu/packages/scheme.scm | 45 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index a91a2d693d..47754800f9 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -1314,3 +1314,48 @@ as well as light.  The implementation is based on an ad-hoc Virtual
 Machine.  STklos can also be compiled as a library and embedded in an
 application.")
     (license gpl2+)))
+
+(define-public r7rs-small-texinfo
+  (let ((commit "38a703976ea6353e32b52a5187dbdaf77fb2f050")
+        (revision "3"))
+    (package
+      (name "r7rs-small-texinfo")
+      (version (git-version "0.1.0" revision commit))
+      (home-page "https://codeberg.org/Zipheir/r7rs-small-texinfo/")
+      (source
+       (origin
+         (uri (git-reference
+               (url home-page)
+               (commit commit)))
+         (method git-fetch)
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1fr02fyhiwd364jkfy1n5w31pq3kx1rl5w634421g05702yb47x3"))))
+      (native-inputs (list bash texinfo))
+      (inputs '())
+      (build-system copy-build-system)
+      (arguments
+       (list
+        #:install-plan #~'(("r7rs-small.info" "share/info/"))
+        #:phases #~(modify-phases %standard-phases
+                     (add-after 'unpack 'compile-the-files
+                       (lambda _
+                         (let* ((source-directory-path (string-append (getcwd)
+                                                        "/doc/r7rs-small"))
+                                (build-script-path (string-append
+                                                    source-directory-path
+                                                    "/build.sh"))
+                                (info-directory-path (string-append #$output
+                                                      "/share/info")))
+                           (chdir source-directory-path)
+                           (system* "bash" build-script-path "info")
+                           (mkdir-p info-directory-path)
+                           (copy-file (string-append source-directory-path
+                                                     "/r7rs-small.info")
+                                      (string-append info-directory-path
+                                                     "/r7rs-small.info"))))))))
+      (synopsis
+       "R7RS Small standard of the Scheme programming language in Info format")
+      (description
+       "Revised^7 Report of the Algorithmic Language Scheme adapted to Texinfo format.")
+      (license (non-copyleft "file://COPYING")))))
-- 
2.30.2


^ permalink raw reply related	[flat|nested] 4+ messages in thread

* bug#70467: Add the Texinfo adaptation of the R7RS-small standard.
  2024-05-12  0:21   ` Yuval Langer
@ 2024-05-31 11:37     ` Ludovic Courtès
  0 siblings, 0 replies; 4+ messages in thread
From: Ludovic Courtès @ 2024-05-31 11:37 UTC (permalink / raw)
  To: Yuval Langer; +Cc: 70467-done

Hi,

Yuval Langer <yuval.langer@gmail.com> skribis:

> From 030218776a77edf8d5c1c68ca715f5e5d276d901 Mon Sep 17 00:00:00 2001
> Message-Id: <030218776a77edf8d5c1c68ca715f5e5d276d901.1715473093.git.yuval.langer@gmail.com>
> From: Yuval Langer <yuval.langer@gmail.com>
> Date: Fri, 19 Apr 2024 05:22:08 +0300
> Subject: [PATCH] Add the Texinfo adaptation of the R7RS-small Scheme standard.

I tweaked the commit log to follow our conventions and applied it.
Thanks!

Ludo’.




^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2024-05-31 11:41 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2024-04-19  2:32 [bug#70467] Add the Texinfo adaptation of the R7RS-small standard Yuval Langer
2024-05-12  0:16 ` Yuval Langer
2024-05-12  0:21   ` Yuval Langer
2024-05-31 11:37     ` bug#70467: " Ludovic Courtès

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).