From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([208.118.235.92]:37920) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gdVrH-0008Cs-2I for guix-patches@gnu.org; Sun, 30 Dec 2018 02:50:04 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gdVrG-0007MB-0G for guix-patches@gnu.org; Sun, 30 Dec 2018 02:50:03 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:47460) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gdVrF-0007Lx-Tb for guix-patches@gnu.org; Sun, 30 Dec 2018 02:50:01 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1gdVrF-00005f-OO for guix-patches@gnu.org; Sun, 30 Dec 2018 02:50:01 -0500 Subject: [bug#33920] [PATCH] gnu: Add gauche. Resent-Message-ID: Received: from eggs.gnu.org ([208.118.235.92]:37844) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gdVqr-0008AG-Jo for guix-patches@gnu.org; Sun, 30 Dec 2018 02:49:38 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gdVqq-00073o-KG for guix-patches@gnu.org; Sun, 30 Dec 2018 02:49:37 -0500 Received: from mail-ed1-x541.google.com ([2a00:1450:4864:20::541]:33706) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gdVqq-00073U-EG for guix-patches@gnu.org; Sun, 30 Dec 2018 02:49:36 -0500 Received: by mail-ed1-x541.google.com with SMTP id p6so20616571eds.0 for ; Sat, 29 Dec 2018 23:49:36 -0800 (PST) Received: from glht-x240.gmail.com (2a01cb04062c860044e3e8429e102378.ipv6.abo.wanadoo.fr. [2a01:cb04:62c:8600:44e3:e842:9e10:2378]) by smtp.gmail.com with ESMTPSA id r8-v6sm8710610ejb.52.2018.12.29.23.49.33 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Sat, 29 Dec 2018 23:49:34 -0800 (PST) From: Gabriel Hondet Date: Sun, 30 Dec 2018 08:47:11 +0100 Message-ID: <875zvbjvxv.fsf@gmail.com> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 33920@debbugs.gnu.org --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable * gnu/packages/scheme.scm (gauche): New variable. =2D-- gnu/packages/scheme.scm | 69 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 69 insertions(+) diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm index 16904dce3..c9bea183e 100644 =2D-- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm @@ -10,6 +10,7 @@ ;;; Copyright =C2=A9 2017 Cl=C3=A9ment Lassieur ;;; Copyright =C2=A9 2017, 2018 Tobias Geerinckx-Rice ;;; Copyright =C2=A9 2018 Adam Massmann +;;; Copyright =C2=A9 2018 Gabriel Hondet ;;; ;;; This file is part of GNU Guix. ;;; @@ -1164,3 +1165,71 @@ simple, elegant Scheme dialect. It is a lisp-1 with= lexical scope. The core is 12 builtin special forms and 33 builtin functions.") (home-page "https://github.com/JeffBezanson/femtolisp") (license bsd-3)))) + +(define-public gauche + (package + (name "gauche") + (version "0.9.7") + (home-page "http://practical-scheme.net/gauche/index.html") + (source + (origin + (method url-fetch) + (uri (string-append + "http://prdownloads.sourceforge.net/gauche/Gauche-" + version ".tgz")) + (sha256 + (base32 + "181nycikma0rwrb1h6mi3kys11f8628pq8g5r3fg5hiz5sabscrd")))) + (build-system gnu-build-system) + (native-inputs + `(("texinfo" ,texinfo) + ("openssl" ,openssl))) ;needed for tests + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-/bin/sh + ;; needed only for tests + (lambda _ + (begin + (setenv "CONFIG_SHELL" (which "sh")) + (substitute* '("configure" + "test/www.scm" + "config.guess" + "ltmain.sh" + "ext/tls/test.scm" + "gc/configure" + "lib/gauche/configure.scm" + "lib/gauche/package/util.scm" + "lib/gauche/process.scm") + (("/bin/sh") (which "sh"))) + #t))) + (add-after 'build 'build-doc + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out"))) + (with-directory-excursion "doc" + (for-each + (lambda (target) + (invoke "make" target)) + '("info" "html" "htmls")))))) + (add-before 'check 'patch-normalize-test + ;; neutralize sys-normalize-pathname test as it relies on + ;; the home directory; (setenv "HOME" xx) isn't enough) + (lambda _ + (substitute* "test/system.scm" + (("~/abc") "//abc")))) + (add-before 'check 'patch-network-tests + ;; remove net checks + (lambda _ + (substitute* "ext/Makefile" + (("binary net termios") "binary termios")))) + (add-after 'install 'install-docs + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out"))) + (with-directory-excursion "doc" + (invoke "make" "install")))))))) + (synopsis "Scheme scripting engine") + (description "Gauche is a R7RS Scheme scripting engine aiming at being= a +handy tool that helps programmers and system administrators to write small= to +large scripts quickly. Quick startup, built-in system interface, native +multilingual support are some of the goals.") + (license bsd-3))) =2D-=20 2.20.1 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQIzBAEBCAAdFiEE5ercJXBcjd3P1FcAMbyBBfZZ1CUFAlwoeIwACgkQMbyBBfZZ 1CV+iQ//bNg2OwTcb5UzzhzIi66Cxr1S34RwAmRa9gUIOCEEJbvtcDgKRcBvmXNI 7djyUuup9JKJ2ekIp0zdpnvr1LUjnCFv7L7YHht5/3JumLEdkWK4qqZR3FwVgxPj E48bcWFj/uDdiB7kSkFilpBUh0Ci8J/vCoI1kCxjTMvsRgQW8FFY1uYKcJm5CFML izNjVLuL2Xwgr2mbvCKmL7Zv/7rQ3uxVok+v5KBEbh+ojiGjC+Se4rwUtSTjVM7v fSjngPzDcq75xFw8/KkNbRoU0TL6UDE9Qqj5F6oW16hj8PJyDwacvbb9Ba7wrofE E+ITTsa84AAAw6HoLN9eHYBq/TyRdzDckGLDrMikHdm/i04b5RDHiAJYuYI+tN4g cpyrG7bkDcmI5balxNaQHmtcdxmm0FMKAfAHnREoF+M20LT3d3fr9ai17/KA4rM0 Rl5A/Qxfad/x2ewAjNOLoCXoI9y2+wKhsdhCQVUEpj2hTbgsrm0mwNdhpZGnD7R1 WJSYgSNTNtPNEtc6O7gXqxk7WADs/9+GOfaJknGg6CkBOIr1t6RNXEi4texgBhaD rKDH3EdZZC8uFe/+RWv2npyun9IR1AUODdyfdvUSa25twlbJxR1y+mIXiidaEfX2 atZbDvwFYEp5V7uAKqCy0Zutawbp+5DJ2hGH85drCB8rxI88edQ= =Z+3e -----END PGP SIGNATURE----- --=-=-=--