distro/packages/tcl.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
   3 ;;;
   4 ;;; This file is part of GNU Guix.
   5 ;;;
   6 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   7 ;;; under the terms of the GNU General Public License as published by
   8 ;;; the Free Software Foundation; either version 3 of the License, or (at
   9 ;;; your option) any later version.
  10 ;;;
  11 ;;; GNU Guix is distributed in the hope that it will be useful, but
  12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 ;;; GNU General Public License for more details.
  15 ;;;
  16 ;;; You should have received a copy of the GNU General Public License
  17 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 (define-module (distro packages tcl)
  20   #:use-module (guix packages)
  21   #:use-module (guix download)
  22   #:use-module (guix build-system gnu)
  23   #:use-module (guix licenses))
  24
  25 (define-public tcl
  26   (package
  27     (name "tcl")
  28     (version "8.6.0")
  29     (source
  30      (origin
  31       (method url-fetch)
  32       (uri (string-append "mirror://sourceforge/tcl/Tcl/"
  33                           version "/tcl" version "-src.tar.gz"))
  34       (sha256
  35        (base32
  36         "1pnabp3xsja4rc8c01l9q1avb65a3zhdzci3j54qa5krqjwj4i1m"))))
  37     (build-system gnu-build-system)
  38     (arguments
  39      '(#:phases (alist-cons-before
  40                  'configure 'pre-configure
  41                  (lambda _
  42                    (chdir "unix"))
  43                  (alist-cons-after
  44                   'install 'install-private-headers
  45                   (lambda _
  46                     ;; Private headers are needed by Expect.
  47                     (zero? (system* "make" "install-private-headers")))
  48                   %standard-phases))
  49
  50        ;; XXX: There are a few test failures (related to HTTP, most
  51        ;; likely related to name resolution), but that doesn't cause
  52        ;; `make' to fail.
  53        #:test-target "test"))
  54     (home-page "http://www.tcl.tk/")
  55     (synopsis "The Tcl scripting language")
  56     (description "The Tcl (Tool Command Language) scripting language.")
  57     (license (bsd-style "http://www.tcl.tk/software/tcltk/license.html"
  58                         "Tcl/Tk license"))))
  59
  60
  61 (define-public expect
  62   (package
  63     (name "expect")
  64     (version "5.45")
  65     (source
  66      (origin
  67       (method url-fetch)
  68       (uri (string-append "mirror://sourceforge/expect/Expect/"
  69                           version "/expect" version ".tar.gz"))
  70       (sha256
  71        (base32
  72         "0h60bifxj876afz4im35rmnbnxjx4lbdqp2ja3k30fwa8a8cm3dj"))))
  73     (build-system gnu-build-system)
  74     (inputs
  75      `(;; TODO: Add these optional dependencies.
  76        ;; ("libX11" ,libX11)
  77        ;; ("xproto" ,xproto)
  78        ;; ("tk" ,tk)
  79        ("tcl" ,tcl)))
  80     (arguments
  81      '(#:configure-flags
  82        (list (string-append "--with-tcl="
  83                             (assoc-ref %build-inputs "tcl")
  84                             "/lib")
  85              (string-append "--with-tclinclude="
  86                             (assoc-ref %build-inputs "tcl")
  87                             "/include")
  88              (string-append "--exec-prefix="
  89                             (assoc-ref %outputs "out")))
  90
  91        #:phases (alist-cons-before
  92                  'configure 'set-path-to-stty
  93                  (lambda _
  94                    (substitute* "configure"
  95                      (("STTY_BIN=/bin/stty")
  96                       (string-append "STTY_BIN=" (which "stty")))))
  97                  %standard-phases)
  98
  99        #:test-target "test"))
 100     (home-page "http://expect.nist.gov/")
 101     (synopsis
 102      "A tool for automating interactive applications")
 103     (description
 104      "Expect is a tool for automating interactive applications such as
 105 telnet, ftp, passwd, fsck, rlogin, tip, etc.  Expect really makes this
 106 stuff trivial. Expect is also useful for testing these same
 107 applications. And by adding Tk, you can wrap interactive applications in
 108 X11 GUIs.")
 109     (license public-domain)))            ; as written in `license.terms'