diff options
Diffstat (limited to 'distro/packages/scheme.scm')
| -rw-r--r-- | distro/packages/scheme.scm | 168 |
1 files changed, 0 insertions, 168 deletions
diff --git a/distro/packages/scheme.scm b/distro/packages/scheme.scm deleted file mode 100644 index b18697cb08..0000000000 --- a/distro/packages/scheme.scm +++ /dev/null @@ -1,168 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org> -;;; -;;; 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 <http://www.gnu.org/licenses/>. - -(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+))) |