* [bug#30753] [PATCH] gnu: Add tinyscheme.
@ 2018-03-09 1:58 Tobias Geerinckx-Rice
2018-03-09 5:48 ` Danny Milosavljevic
2018-03-21 17:41 ` bug#30753: " Tobias Geerinckx-Rice
0 siblings, 2 replies; 3+ messages in thread
From: Tobias Geerinckx-Rice @ 2018-03-09 1:58 UTC (permalink / raw)
To: 30753
* gnu/packages/scheme.scm (tinyscheme): New public variable.
---
Guix,
Another old patch.
It's Scheme! It's Tiny! It sounded familiar on #bootstrappable!
Kind regards,
T G-R
gnu/packages/scheme.scm | 67 +++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 67 insertions(+)
diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index 8947509cb..a5ca77894 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -951,3 +951,70 @@ implementation includes Hobbit, a Scheme-to-C compiler, which can
generate C files whose binaries can be dynamically or statically
linked with a SCM executable.")
(license lgpl3+)))
+
+(define-public tinyscheme
+ (package
+ (name "tinyscheme")
+ (version "1.41")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "mirror://sourceforge/" name "/" name "/"
+ name "-" version "/" name "-" version ".zip"))
+ (sha256
+ (base32
+ "0yqma4jrjgj95f3hf30h542x97n8ah234n19yklbqq0phfsa08wf"))))
+ (build-system gnu-build-system)
+ (inputs
+ `(("unzip" ,unzip)))
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (replace 'unpack
+ (lambda* (#:key source #:allow-other-keys)
+ (invoke "unzip" source)
+ (chdir (string-append ,name "-" ,version))
+ #t))
+ (add-after 'unpack 'set-scm-directory
+ ;; Hard-code ‘our’ init.scm instead of looking in the current
+ ;; working directory, so invoking ‘scheme’ just works.
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (scm (string-append out "/share/" ,name)))
+ (substitute* "scheme.c"
+ (("init.scm" all)
+ (string-append scm "/" all)))
+ #t)))
+ (delete 'configure) ; no configure script
+ (replace 'install
+ ;; There's no ‘install’ target. Install files manually.
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (bin (string-append out "/bin"))
+ (doc (string-append out "/share/doc/"
+ ,name "-" ,version))
+ (include (string-append out "/include"))
+ (lib (string-append out "/lib"))
+ (scm (string-append out "/share/" ,name)))
+ (install-file "scheme" bin)
+ (install-file "Manual.txt" doc)
+ (install-file "scheme.h" include)
+ (install-file "libtinyscheme.so" lib)
+ (install-file "init.scm" scm)
+ #t))))
+ #:tests? #f)) ; no tests
+ (home-page "http://tinyscheme.sourceforge.net/")
+ (synopsis "Light-weight interpreter for the Scheme programming language")
+ (description
+ "TinyScheme is a light-weight Scheme interpreter that implements as large a
+subset of R5RS as was possible without getting very large and complicated.
+
+It's meant to be used as an embedded scripting interpreter for other programs.
+As such, it does not offer an Integrated Development Environment (@dfn{IDE}) or
+extensive toolkits, although it does sport a small (and optional) top-level
+loop.
+
+As an embedded interpreter, it allows multiple interpreter states to coexist in
+the same program, without any interference between them. Foreign functions in C
+can be added and values can be defined in the Scheme environment. Being quite a
+small program, it is easy to comprehend, get to grips with, and use.")
+ (license bsd-3))) ; there are no licence headers
--
2.15.1
^ permalink raw reply related [flat|nested] 3+ messages in thread
* [bug#30753] [PATCH] gnu: Add tinyscheme.
2018-03-09 1:58 [bug#30753] [PATCH] gnu: Add tinyscheme Tobias Geerinckx-Rice
@ 2018-03-09 5:48 ` Danny Milosavljevic
2018-03-21 17:41 ` bug#30753: " Tobias Geerinckx-Rice
1 sibling, 0 replies; 3+ messages in thread
From: Danny Milosavljevic @ 2018-03-09 5:48 UTC (permalink / raw)
To: Tobias Geerinckx-Rice; +Cc: 30753
[-- Attachment #1: Type: text/plain, Size: 82 bytes --]
> + (inputs
> + `(("unzip" ,unzip)))
native-inputs
Otherwise LGTM!
[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 488 bytes --]
^ permalink raw reply [flat|nested] 3+ messages in thread
* bug#30753: [PATCH] gnu: Add tinyscheme.
2018-03-09 1:58 [bug#30753] [PATCH] gnu: Add tinyscheme Tobias Geerinckx-Rice
2018-03-09 5:48 ` Danny Milosavljevic
@ 2018-03-21 17:41 ` Tobias Geerinckx-Rice
1 sibling, 0 replies; 3+ messages in thread
From: Tobias Geerinckx-Rice @ 2018-03-21 17:41 UTC (permalink / raw)
To: 30753-done
Pushed as e2f9847be0d1fcde201b3ec01f68a9cbdda230a0.
Thanks!
T G-R
Sent from a Web browser. Excuse or enjoy my brevity.
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2018-03-21 17:42 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2018-03-09 1:58 [bug#30753] [PATCH] gnu: Add tinyscheme Tobias Geerinckx-Rice
2018-03-09 5:48 ` Danny Milosavljevic
2018-03-21 17:41 ` bug#30753: " Tobias Geerinckx-Rice
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.