patch sagittarius to use R7RS_LIBRARY_PATH, add copyright notice

1 files changed, 53 insertions, 0 deletions

diff --git a/mcgoron/guix/scheme-packages.scm b/mcgoron/guix/scheme-packages.scm
index 648f654..16ed092 100644
--- a/mcgoron/guix/scheme-packages.scm
+++ b/mcgoron/guix/scheme-packages.scm
@@ -26,8 +26,18 @@
   #:use-module (guix build-system)
   #:use-module (guix build-system copy)
   #:use-module (gnu packages scheme)
+  #:use-module (gnu packages cmake)
+  #:use-module (guix build-system cmake)
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages bdw-gc)
+  #:use-module (gnu packages libffi)
+  #:use-module (gnu packages tls)
   #:use-module (guix gexp))
 
+;;;;;;;;;;;;;
+;;;; Portable
+;;;;;;;;;;;;;
+
 (define-public r7rs-lib-dir "share/scheme/r7rs")
 (define-public r6rs-lib-dir "share/scheme/r6rs")
 
@@ -71,6 +81,10 @@
     (variable "R7RS_LIBRARY_PATH")
     (files (list r7rs-lib-dir))))
 
+;;;;;;;;;;;;;;
+;;;; Foment
+;;;;;;;;;;;;;;
+
 (define-public foment-lib-dir "share/foment")
 (define-public foment-build-system
   (default-copying-build-system 'foment-scheme
@@ -139,6 +153,10 @@
     (native-inputs (list bash))
     (description "Foment is an implementation of Scheme.")))
 
+;;;;;;;;;;;;;;;;;;;
+;;;; Chibi
+;;;;;;;;;;;;;;;;;;;
+
 (define-public chibi-lib-dir "share/guix-chibi")
 (define-public chibi-binlib-dir "lib/guix-chibi")
 
@@ -167,4 +185,39 @@
            (files (list chibi-lib-dir chibi-binlib-dir)))
           r7rs-search-path-specification))))
 
+;;;;;;;;;;;;;;;;
+;;;; Sagittarius
+;;;;;;;;;;;;;;;;
+
+(define-public sagittarius-lib-dir "share/guix-sagittarius")
+
+(define-public sagittarius-scheme-build-system
+  (default-copying-build-system 'sagittarius
+                                "Copy Scheme libraries into Sagittarius directory"
+                                foment-lib-dir))
+
+(define-public sagittarius-scheme
+  (package
+    (name "sagittarius-scheme")
+    (version "0.9.13")
+    (source
+      (origin
+         (method url-fetch)
+         (uri "https://github.com/ktakashi/sagittarius-scheme/releases/download/v0.9.13/sagittarius-0.9.13.tar.gz")
+         (patches (search-patches "mcgoron/guix/patches/sagittarius-scheme-0.9.13-library-path.patch"))
+         (sha256 (base32 "0wspsv7mr1lchv0lfc50s750a358534pgri1c2fqlws31hci5y4c"))))
+    (build-system cmake-build-system)
+    (arguments '(#:phases (modify-phases %standard-phases
+                            ;; Tests don't work yet. Issues with network.
+                            (delete 'check))))
+    (inputs (list libgc zlib libffi openssl))
+    (home-page "https://ktakashi.github.io/")
+    (synopsis "Script interpreter with many built-in libraries")
+    (native-search-paths (list
+                          (search-path-specification
+                            (variable "SAGITTARIUS_LOADPATH")
+                            (files (list sagittarius-lib-dir)))
+                          r7rs-search-path-specification))
+    (license bsd-2)
+    (description "Sagittarius Scheme is a R6RS/R7RS Scheme implementation with a lot of practical libraries, especially cryptographic libraries.")))