From patchwork Sat Jan 5 08:32:19 2019 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Gabriel Hondet X-Patchwork-Id: 665 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id D7284169C4; Sat, 5 Jan 2019 08:33:13 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.0 (2014-02-07) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM, T_DKIM_INVALID autolearn=unavailable autolearn_force=no version=3.4.0 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTP id 58B4916986 for ; Sat, 5 Jan 2019 08:33:13 +0000 (GMT) Received: from localhost ([127.0.0.1]:33481 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gfhOK-0007y9-Uw for patchwork@mira.cbaines.net; Sat, 05 Jan 2019 03:33:12 -0500 Received: from eggsout.gnu.org ([209.51.188.92]:37807 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gfhOF-0007xt-SE for guix-patches@gnu.org; Sat, 05 Jan 2019 03:33:08 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gfhOA-0001sZ-Uo for guix-patches@gnu.org; Sat, 05 Jan 2019 03:33:07 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:47707) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gfhOA-0001sB-Mm for guix-patches@gnu.org; Sat, 05 Jan 2019 03:33:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1gfhOA-0007D9-Ef for guix-patches@gnu.org; Sat, 05 Jan 2019 03:33:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#33920] [PATCH] gnu: Add gauche. Resent-From: Gabriel Hondet Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sat, 05 Jan 2019 08:33:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 33920 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: swedebugia@riseup.net Received: via spool by 33920-submit@debbugs.gnu.org id=B33920.154667715427682 (code B ref 33920); Sat, 05 Jan 2019 08:33:02 +0000 Received: (at 33920) by debbugs.gnu.org; 5 Jan 2019 08:32:34 +0000 Received: from localhost ([127.0.0.1]:47213 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gfhNd-0007CI-9q for submit@debbugs.gnu.org; Sat, 05 Jan 2019 03:32:32 -0500 Received: from mail-ed1-f47.google.com ([209.85.208.47]:39619) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gfhNb-0007C3-B8 for 33920@debbugs.gnu.org; Sat, 05 Jan 2019 03:32:28 -0500 Received: by mail-ed1-f47.google.com with SMTP id b14so33615584edt.6 for <33920@debbugs.gnu.org>; Sat, 05 Jan 2019 00:32:27 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=references:user-agent:from:to:cc:subject:in-reply-to:date :message-id:mime-version; bh=4ReT3SOX2IVrSRoGevCABz51jZs2F+8WFSe//fqi6Jg=; b=D6e3zjyRRjzf+9e8fOuSLNezkYo9T3ZA3VCSfTOKnMcm11S4E3LE5MoSEY7UwR5t7d HVx+tQB4bVj0gwYoEM+1/Em8uUP+2zBiOIJPk9aZJLsATElVJrVbWd+tir853d9oHbu/ N4vLjkpq5dJGA3/ZuysHH5EPQbLDUG51woZ8r7SD26wiRtWC2Sbm9rtlcQIZdxKxhUdi O3Rc9lvzcorxAgGcX5mkibrguFAQmI5DRjEIHObi5ZknaQA5T2zF6VWQMKVJJ1Szqh05 iocVdkj8NY8xJQdwzNmQjirhOMJRR/DmbtoDsnpu+0O6pjGt9PLKIoR3i7+ifNzX3D4H 1xOw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:references:user-agent:from:to:cc:subject :in-reply-to:date:message-id:mime-version; bh=4ReT3SOX2IVrSRoGevCABz51jZs2F+8WFSe//fqi6Jg=; b=gQoiQ27cnO59AcJ1+R5BXYaEHC8dD9fd81tOhmMwwczq5Q1bxNF9ReMphoAMZQMmem 1+8JQl5qxHDHayUMbHi+CrDTtzRMimQRNF3TXc05qr8JuO/3Ycl83J+zJlCmTadwZmeU bECqoS6bbCFgP/Oo/Sym/8KBft/ZxbxJ4TPttZ4GDXR6iwsh9e6Ml0LB1TdwP9jw2Li3 WW9jJ4+dPtCTvFwccRKtetYZaTF3EKeHDfPgGMw1LQ8XyLAeWeZAnVp3gRXNSCsVfdnx DGwATxyaopWC+dVc/kaKhFOqlZ0ICVPqGS5vjBPY3XMEmAUYiI3qWy0/bFBIIBq8sBNE kmUA== X-Gm-Message-State: AA+aEWZFlBTXvkD0yIh3d30a3M9q47hemDU6TNAcKmjCdm2RdOJLm6xY 8iJLCxne9Cy4f72JP9guTKFa79bi X-Google-Smtp-Source: AFSGD/V3R+J40KloExveziQz5IaFjiEzRcn+z5LhVDmswqHrNUK6GVVBGcFXT1AQG9P4OpdHMGWVNA== X-Received: by 2002:a50:f415:: with SMTP id r21mr50132310edm.110.1546677141225; Sat, 05 Jan 2019 00:32:21 -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 k31sm34905721ede.5.2019.01.05.00.32.20 (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Sat, 05 Jan 2019 00:32:20 -0800 (PST) References: <875zvbjvxv.fsf@gmail.com> <8709180406da2b2eabffd1b4397a2bf3@riseup.net> User-agent: mu4e 1.0; emacs 26.1 From: Gabriel Hondet In-reply-to: <8709180406da2b2eabffd1b4397a2bf3@riseup.net> Date: Sat, 05 Jan 2019 09:32:19 +0100 Message-ID: <87muof8pyk.fsf@gmail.com> MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: 33920@debbugs.gnu.org Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches * gnu/packages/scheme.scm (gauche): New variable. --- gnu/packages/scheme.scm | 73 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 73 insertions(+) diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm index 16904dce3..09a7fbf29 100644 --- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm @@ -10,6 +10,7 @@ ;;; Copyright © 2017 Clément Lassieur ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice ;;; Copyright © 2018 Adam Massmann +;;; Copyright © 2018 Gabriel Hondet ;;; ;;; This file is part of GNU Guix. ;;; @@ -1164,3 +1165,75 @@ 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. Gauche comes with a package +manager/installer @code{gauche-package} which can download, compile, install +and list gauche extension packages. There are currently 58 packages +available.") + (license (list gpl2+ ; gc/libatomic_ops/* + bsd-3))))