diff --git a/Makefile.am b/Makefile.am index 7c36eff2fb..32c648d1d1 100644 --- a/Makefile.am +++ b/Makefile.am @@ -101,6 +101,7 @@ MODULES = \ distro/packages/readline.scm \ distro/packages/recutils.scm \ distro/packages/rsync.scm \ + distro/packages/scheme.scm \ distro/packages/shishi.scm \ distro/packages/system.scm \ distro/packages/tcl.scm \ diff --git a/distro/packages/scheme.scm b/distro/packages/scheme.scm new file mode 100644 index 0000000000..b18697cb08 --- /dev/null +++ b/distro/packages/scheme.scm @@ -0,0 +1,168 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2013 Ludovic Courtès +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see . + +(define-module (distro packages scheme) + #:use-module (distro) + #:use-module (guix licenses) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:use-module (distro packages m4) + #:use-module (distro packages multiprecision) + #:use-module (distro packages emacs) + #:use-module (distro packages texinfo) + #:use-module (ice-9 match)) + +(define-public mit-scheme + (package + (name "mit-scheme") + (version "9.1.1") + (source #f) ; see below + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; no "check" target + #:phases + (alist-replace + 'unpack + (lambda* (#:key inputs #:allow-other-keys) + (and (zero? (system* "tar" "xzvf" + (assoc-ref inputs "source"))) + (chdir ,(string-append name "-" version)) + (begin + ;; Delete these dangling symlinks since they break + ;; `patch-shebangs'. + (for-each delete-file + (append (find-files "src/lib/lib" "\\.so$") + (find-files "src/lib" "^ffi-test"))) + (chdir "src") + #t))) + (alist-replace + 'build + (lambda* (#:key system outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (if (or (string-prefix? "x86_64" system) + (string-prefix? "i686" system)) + (zero? (system* "make" "compile-microcode")) + (zero? (system* "./etc/make-liarc.sh" + (string-append "--prefix=" out)))))) + %standard-phases)))) + (inputs + `(;; TODO: Build doc when TeX Live is available. + ;; ("automake" ,automake) + ;; ("texlive-core" ,texlive-core) + ("texinfo" ,texinfo) + ("m4" ,m4) + + ("source" + ,(lambda (system) + ;; MIT/GNU Scheme is not bootstrappable, so it's recommended to + ;; compile from the architecture-specific tarballs, which contain + ;; pre-built binaries. It leads to more efficient code than when + ;; building the tarball that contains generated C code instead of + ;; those binaries. + (origin + (method url-fetch) + (uri (string-append "mirror://gnu/mit-scheme/stable.pkg/" + version "/mit-scheme-" + version "-" + (match system + ("x86_64-linux" "x86-64") + ("i686-linux" "i386") + (_ "c")) + ".tar.gz")) + (sha256 + (match system + ("x86_64-linux" + (base32 + "1wcxm9hyfc53myvlcn93fyqrnnn4scwkknl9hkbp1cphc6mp291x")) + ("i686-linux" + (base32 + "0vi760fy550d9db538m0vzbq1mpdncvw9g8bk4lswk0kcdira55z")) + (_ + (base32 + "0pclakzwxbqgy6wqwvs6ml62wgby8ba8xzmwzdwhx1v8wv05yw1j"))))))))) + (home-page "http://www.gnu.org/software/mit-scheme/") + (synopsis "MIT/GNU Scheme, a native code Scheme compiler") + (description + "MIT/GNU Scheme is an implementation of the Scheme programming +language, providing an interpreter, compiler, source-code debugger, +integrated Emacs-like editor, and a large runtime library. MIT/GNU +Scheme is best suited to programming large applications with a rapid +development cycle.") + (license gpl2+))) + +(define-public bigloo + (package + (name "bigloo") + (version "3.9a") + (source (origin + (method url-fetch) + (uri (string-append "ftp://ftp-sop.inria.fr/indes/fp/Bigloo/bigloo" + version ".tar.gz")) + (sha256 + (base32 + "0v1q0gcbn38ackdzsnvpkdgaj6ydkfdya31l2hag21aig087px1y")))) + (build-system gnu-build-system) + (arguments + '(#:patches (list (assoc-ref %build-inputs "patch/shebangs")) + #:test-target "test" + #:phases (alist-replace + 'configure + (lambda* (#:key outputs #:allow-other-keys) + + (substitute* "configure" + (("^shell=.*$") + (string-append "shell=" (which "bash") "\n"))) + + ;; Those variables are used by libgc's `configure'. + (setenv "SHELL" (which "bash")) + (setenv "CONFIG_SHELL" (which "bash")) + + ;; The `configure' script doesn't understand options + ;; of those of Autoconf. + (let ((out (assoc-ref outputs "out"))) + (zero? + (system* "./configure" + (string-append "--prefix=" out) + (string-append"--mv=" (which "mv")) + (string-append "--rm=" (which "rm")))))) + (alist-cons-after + 'patch 'patch-absolute-file-names + (lambda _ + (substitute* (cons "configure" + (find-files "gc" "^install-gc")) + (("/bin/rm") (which "rm")) + (("/bin/mv") (which "mv")))) + %standard-phases)))) + (inputs + `(("gmp" ,gmp) + ("emacs" ,emacs) + ("patch/shebangs" ,(search-patch "bigloo-gc-shebangs.patch")))) + (home-page "http://www-sop.inria.fr/indes/fp/Bigloo/") + (synopsis "Bigloo, an efficient Scheme compiler") + (description + "Bigloo is a Scheme implementation devoted to one goal: enabling +Scheme based programming style where C(++) is usually +required. Bigloo attempts to make Scheme practical by offering +features usually presented by traditional programming languages +but not offered by Scheme and functional programming. Bigloo +compiles Scheme modules. It delivers small and fast stand alone +binary executables. Bigloo enables full connections between +Scheme and C programs, between Scheme and Java programs, and +between Scheme and C# programs.") + (license gpl2+)))