gnu/packages/guile.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org>
   3 ;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
   4 ;;;
   5 ;;; This file is part of GNU Guix.
   6 ;;;
   7 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   8 ;;; under the terms of the GNU General Public License as published by
   9 ;;; the Free Software Foundation; either version 3 of the License, or (at
  10 ;;; your option) any later version.
  11 ;;;
  12 ;;; GNU Guix is distributed in the hope that it will be useful, but
  13 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  14 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 ;;; GNU General Public License for more details.
  16 ;;;
  17 ;;; You should have received a copy of the GNU General Public License
  18 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 (define-module (gnu packages guile)
  21   #:use-module (guix licenses)
  22   #:use-module (gnu packages)
  23   #:use-module (gnu packages bash)
  24   #:use-module (gnu packages bdw-gc)
  25   #:use-module (gnu packages gawk)
  26   #:use-module (gnu packages gperf)
  27   #:use-module (gnu packages libffi)
  28   #:use-module (gnu packages autotools)
  29   #:use-module (gnu packages libunistring)
  30   #:use-module (gnu packages m4)
  31   #:use-module (gnu packages multiprecision)
  32   #:use-module (gnu packages pkg-config)
  33   #:use-module (gnu packages readline)
  34   #:use-module (gnu packages ncurses)
  35   #:use-module (gnu packages ed)
  36   #:use-module (gnu packages which)
  37   #:use-module (guix packages)
  38   #:use-module (guix download)
  39   #:use-module (guix build-system gnu)
  40   #:use-module (guix utils)
  41   #:use-module (ice-9 match))
  42
  43 ;;; Commentary:
  44 ;;;
  45 ;;; GNU Guile, and modules and extensions.
  46 ;;;
  47 ;;; Code:
  48
  49 (define-public guile-1.8
  50   (package
  51    (name "guile")
  52    (version "1.8.8")
  53    (source (origin
  54             (method url-fetch)
  55             (uri (string-append "mirror://gnu/guile/guile-" version
  56                                 ".tar.gz"))
  57             (sha256
  58              (base32
  59               "0l200a0v7h8bh0cwz6v7hc13ds39cgqsmfrks55b1rbj5vniyiy3"))
  60             (patches (list (search-patch "guile-1.8-cpp-4.5.patch")))))
  61    (build-system gnu-build-system)
  62    (arguments '(#:configure-flags '("--disable-error-on-warning")
  63
  64                 ;; Insert a phase before `configure' to patch things up.
  65                 #:phases (alist-cons-before
  66                            'configure
  67                            'patch-stuff
  68                            (lambda* (#:key outputs #:allow-other-keys)
  69                              ;; Add a call to `lt_dladdsearchdir' so that
  70                              ;; `libguile-readline.so' & co. are in the
  71                              ;; loader's search path.
  72                              (substitute* "libguile/dynl.c"
  73                                (("lt_dlinit.*$" match)
  74                                 (format #f
  75                                         "  ~a~%  lt_dladdsearchdir(\"~a/lib\");~%"
  76                                         match
  77                                         (assoc-ref outputs "out"))))
  78
  79                              ;; The usual /bin/sh...
  80                              (substitute* "ice-9/popen.scm"
  81                                (("/bin/sh") (which "sh"))))
  82                            %standard-phases)))
  83    (inputs `(("gawk" ,gawk)
  84              ("readline" ,readline)))
  85
  86    ;; Since `guile-1.8.pc' has "Libs: ... -lgmp -lltdl", these must be
  87    ;; propagated.
  88    (propagated-inputs `(("gmp" ,gmp)
  89                         ("libtool" ,libtool)))
  90
  91    ;; When cross-compiling, a native version of Guile itself is needed.
  92    (self-native-input? #t)
  93
  94    (native-search-paths
  95     (list (search-path-specification
  96            (variable "GUILE_LOAD_PATH")
  97            (directories '("share/guile/site")))))
  98
  99    (synopsis "Scheme implementation intended especially for extensions")
 100    (description
 101     "Guile is the GNU Ubiquitous Intelligent Language for Extensions, the
 102 official extension language of the GNU system.  It is an implementation of
 103 the Scheme language which can be easily embedded in other applications to
 104 provide a convenient means of extending the functionality of the application
 105 without requiring the source code to be rewritten.")
 106    (home-page "http://www.gnu.org/software/guile/")
 107    (license lgpl2.0+)))
 108
 109 (define-public guile-2.0
 110   (package
 111    (name "guile")
 112    (version "2.0.11")
 113    (source (origin
 114             (method url-fetch)
 115             (uri (string-append "mirror://gnu/guile/guile-" version
 116                                 ".tar.xz"))
 117             (sha256
 118              (base32
 119               "1qh3j7308qvsjgwf7h94yqgckpbgz2k3yqdkzsyhqcafvfka9l5f"))))
 120    (build-system gnu-build-system)
 121    (native-inputs `(("pkgconfig" ,pkg-config)))
 122    (inputs `(("libffi" ,libffi)
 123              ("readline" ,readline)
 124
 125              ;; TODO: On next core-updates, make Bash input unconditional.
 126              ,@(if (%current-target-system)
 127                    `(("bash" ,bash))
 128                    '())))
 129
 130    (propagated-inputs
 131     `( ;; These ones aren't normally needed here, but since `libguile-2.0.la'
 132        ;; reads `-lltdl -lunistring', adding them here will add the needed
 133        ;; `-L' flags.  As for why the `.la' file lacks the `-L' flags, see
 134        ;; <http://thread.gmane.org/gmane.comp.lib.gnulib.bugs/18903>.
 135       ("libunistring" ,libunistring)
 136       ("libtool" ,libtool)
 137
 138       ;; The headers and/or `guile-2.0.pc' refer to these packages, so they
 139       ;; must be propagated.
 140       ("bdw-gc" ,libgc)
 141       ("gmp" ,gmp)))
 142
 143    (self-native-input? #t)
 144
 145    (outputs '("out" "debug"))
 146
 147    (arguments
 148     `(#:phases (alist-cons-before
 149                 'configure 'pre-configure
 150                 (lambda* (#:key inputs #:allow-other-keys)
 151                   ;; Tell (ice-9 popen) the file name of Bash.
 152                   (let ((bash (assoc-ref inputs "bash")))
 153                     (substitute* "module/ice-9/popen.scm"
 154                       (("/bin/sh")
 155                        (string-append bash "/bin/bash")))))
 156                 %standard-phases)))
 157
 158    (native-search-paths
 159     (list (search-path-specification
 160            (variable "GUILE_LOAD_PATH")
 161            (directories '("share/guile/site/2.0")))
 162           (search-path-specification
 163            (variable "GUILE_LOAD_COMPILED_PATH")
 164            (directories '("share/guile/site/2.0")))))
 165
 166    (synopsis "Scheme implementation intended especially for extensions")
 167    (description
 168     "Guile is the GNU Ubiquitous Intelligent Language for Extensions, the
 169 official extension language of the GNU system.  It is an implementation of
 170 the Scheme language which can be easily embedded in other applications to
 171 provide a convenient means of extending the functionality of the application
 172 without requiring the source code to be rewritten.")
 173    (home-page "http://www.gnu.org/software/guile/")
 174    (license lgpl3+)))
 175
 176 (define-public guile-2.0/fixed
 177   ;; A package of Guile 2.0 that's rarely changed.  It is the one used
 178   ;; in the `base' module, and thus changing it entails a full rebuild.
 179   guile-2.0)
 180
 181 \f
 182 ;;;
 183 ;;; Extensions.
 184 ;;;
 185
 186 (define (guile-reader guile)
 187   "Build Guile-Reader against GUILE, a package of some version of Guile 1.8
 188 or 2.0."
 189   (package
 190    (name (string-append "guile-reader-for-guile_" (package-version guile)))
 191    (version "0.6")
 192    (source  (origin
 193              (method url-fetch)
 194              (uri (string-append
 195                    "http://download-mirror.savannah.gnu.org/releases/guile-reader/guile-reader-"
 196                    version ".tar.gz"))
 197              (sha256
 198               (base32
 199                "1svlyk5pm4fsdp2g7n6qffdl6fdggxnlicj0jn9s4lxd63gzxy1n"))))
 200    (build-system gnu-build-system)
 201    (native-inputs `(("pkgconfig" ,pkg-config)
 202                     ("gperf" ,gperf)))
 203    (inputs `(("guile" ,guile)))
 204    (arguments `(#:configure-flags
 205                 (let ((out (assoc-ref %outputs "out")))
 206                   ,(if (string-prefix? "2." (package-version guile))
 207                        '(list (string-append "--with-guilemoduledir="
 208                                              out "/share/guile/site/2.0"))
 209                        '(list (string-append "--with-guilemoduledir="
 210                                              out "/share/guile/site"))))))
 211    (synopsis "Framework for building readers for GNU Guile")
 212    (description
 213 "Guile-Reader is a simple framework for building readers for GNU Guile.
 214
 215 The idea is to make it easy to build procedures that extend Guile’s read
 216 procedure. Readers supporting various syntax variants can easily be written,
 217 possibly by re-using existing “token readers” of a standard Scheme
 218 readers. For example, it is used to implement Skribilo’s R5RS-derived
 219 document syntax.
 220
 221 Guile-Reader’s approach is similar to Common Lisp’s “read table”, but
 222 hopefully more powerful and flexible (for instance, one may instantiate as
 223 many readers as needed).")
 224    (home-page "http://www.nongnu.org/guile-reader/")
 225    (license gpl3+)))
 226
 227 (define-public guile-reader/guile-1.8
 228   ;; Guile-Reader built against Guile 1.8.
 229   (guile-reader guile-1.8))
 230
 231 (define-public guile-reader/guile-2.0
 232   ;; Guile-Reader built against Guile 2.0.
 233   (guile-reader guile-2.0))
 234
 235 (define-public guile-ncurses
 236   (package
 237     (name "guile-ncurses")
 238     (version "1.4")
 239     (source (origin
 240              (method url-fetch)
 241              (uri (string-append "mirror://gnu/guile-ncurses/guile-ncurses-"
 242                                  version ".tar.gz"))
 243              (sha256
 244               (base32
 245                "070wl664lsm14hb6y9ch97x9q6cns4k6nxgdzbdzi5byixn74899"))))
 246     (build-system gnu-build-system)
 247     (inputs `(("ncurses" ,ncurses)
 248               ("guile" ,guile-2.0)))
 249     (arguments
 250      '(#:configure-flags (list (string-append "--with-guilesitedir="
 251                                               (assoc-ref %outputs "out")
 252                                               "/share/guile/site/2.0"))
 253        #:phases (alist-cons-after
 254                  'install 'post-install
 255                  (lambda* (#:key outputs #:allow-other-keys)
 256                    (let* ((out   (assoc-ref outputs "out"))
 257                           (dir   (string-append out "/share/guile/site/"))
 258                           (files (find-files dir ".scm")))
 259                     (substitute* files
 260                       (("\"libguile-ncurses\"")
 261                        (format #f "\"~a/lib/libguile-ncurses\""
 262                                out)))))
 263                  %standard-phases)))
 264     (home-page "http://www.gnu.org/software/guile-ncurses/")
 265     (synopsis "Guile bindings to ncurses")
 266     (description
 267      "guile-ncurses provides Guile language bindings for the ncurses
 268 library.")
 269     (license lgpl3+)))
 270
 271 (define-public mcron
 272   (package
 273     (name "mcron")
 274     (version "1.0.6")
 275     (source (origin
 276              (method url-fetch)
 277              (uri (string-append "mirror://gnu/mcron/mcron-"
 278                                  version ".tar.gz"))
 279              (sha256
 280               (base32
 281                "0yvrfzzdy2m7fbqkr61fw01wd9r2jpnbyabxhcsfivgxywknl0fy"))
 282              (patches (list (search-patch "mcron-install.patch")))))
 283     (build-system gnu-build-system)
 284     (inputs
 285      `(("ed" ,ed) ("which" ,which) ("guile" ,guile-1.8)))
 286     (home-page "http://www.gnu.org/software/mcron/")
 287     (synopsis "Run jobs at scheduled times")
 288     (description
 289      "GNU Mcron is a complete replacement for Vixie cron.  It is used to run
 290 tasks on a schedule, such as every hour or every Monday.  Mcron is written in
 291 Guile, so its configuration can be written in Scheme; the original cron
 292 format is also supported.")
 293     (license gpl3+)))
 294
 295 (define-public guile-lib
 296   (package
 297     (name "guile-lib")
 298     (version "0.2.2")
 299     (source (origin
 300              (method url-fetch)
 301              (uri (string-append "mirror://savannah/guile-lib/guile-lib-"
 302                                  version ".tar.gz"))
 303              (sha256
 304               (base32
 305                "1f9n2b5b5r75lzjinyk6zp6g20g60msa0jpfrk5hhg4j8cy0ih4b"))))
 306     (build-system gnu-build-system)
 307     (arguments
 308      '(#:phases (alist-cons-before
 309                  'configure 'patch-module-dir
 310                  (lambda _
 311                    (substitute* "src/Makefile.in"
 312                      (("^moddir[[:blank:]]*=[[:blank:]]*([[:graph:]]+)" _ rhs)
 313                       (string-append "moddir = " rhs "/2.0\n"))))
 314                  %standard-phases)))
 315     (inputs `(("guile" ,guile-2.0)))
 316     (home-page "http://www.nongnu.org/guile-lib/")
 317     (synopsis "Collection of useful Guile Scheme modules")
 318     (description
 319      "guile-lib is intended as an accumulation place for pure-scheme Guile
 320 modules, allowing for people to cooperate integrating their generic Guile
 321 modules into a coherent library.  Think \"a down-scaled, limited-scope CPAN
 322 for Guile\".")
 323
 324     ;; The whole is under GPLv3+, but some modules are under laxer
 325     ;; distribution terms such as LGPL and public domain.  See `COPYING' for
 326     ;; details.
 327     (license gpl3+)))
 328
 329 ;;; guile.scm ends here