[jackhill/guix/guix.git] / gnu / packages / tcl.scm

;;; 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 (gnu packages tcl)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses))

(define-public tcl
  (package
    (name "tcl")
    (version "8.6.0")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://sourceforge/tcl/Tcl/"
                          version "/tcl" version "-src.tar.gz"))
      (sha256
       (base32
        "1pnabp3xsja4rc8c01l9q1avb65a3zhdzci3j54qa5krqjwj4i1m"))))
    (build-system gnu-build-system)
    (arguments
     '(#:phases (alist-cons-before
                 'configure 'pre-configure
                 (lambda _
                   (chdir "unix"))
                 (alist-cons-after
                  'install 'install-private-headers
                  (lambda _
                    ;; Private headers are needed by Expect.
                    (zero? (system* "make" "install-private-headers")))
                  %standard-phases))

       ;; XXX: There are a few test failures (related to HTTP, most
       ;; likely related to name resolution), but that doesn't cause
       ;; `make' to fail.
       #:test-target "test"))
    (home-page "http://www.tcl.tk/")
    (synopsis "The Tcl scripting language")
    (description "The Tcl (Tool Command Language) scripting language.")
    (license (bsd-style "http://www.tcl.tk/software/tcltk/license.html"
                        "Tcl/Tk license"))))


(define-public expect
  (package
    (name "expect")
    (version "5.45")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://sourceforge/expect/Expect/"
                          version "/expect" version ".tar.gz"))
      (sha256
       (base32
        "0h60bifxj876afz4im35rmnbnxjx4lbdqp2ja3k30fwa8a8cm3dj"))))
    (build-system gnu-build-system)
    (inputs
     `(;; TODO: Add these optional dependencies.
       ;; ("libX11" ,libX11)
       ;; ("xproto" ,xproto)
       ;; ("tk" ,tk)
       ("tcl" ,tcl)))
    (arguments
     '(#:configure-flags
       (list (string-append "--with-tcl="
                            (assoc-ref %build-inputs "tcl")
                            "/lib")
             (string-append "--with-tclinclude="
                            (assoc-ref %build-inputs "tcl")
                            "/include")
             (string-append "--exec-prefix="
                            (assoc-ref %outputs "out")))

       #:phases (alist-cons-before
                 'configure 'set-path-to-stty
                 (lambda _
                   (substitute* "configure"
                     (("STTY_BIN=/bin/stty")
                      (string-append "STTY_BIN=" (which "stty")))))
                 %standard-phases)

       #:test-target "test"))
    (home-page "http://expect.nist.gov/")
    (synopsis
     "A tool for automating interactive applications")
    (description
     "Expect is a tool for automating interactive applications such as
telnet, ftp, passwd, fsck, rlogin, tip, etc.  Expect really makes this
stuff trivial. Expect is also useful for testing these same
applications. And by adding Tk, you can wrap interactive applications in
X11 GUIs.")
    (license public-domain)))            ; as written in `license.terms'
Commit	Line	Data
4a219a1a LC	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
1ffa7090	19	(define-module (gnu packages tcl)
4a219a1a LC	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))
eb6d676e LC	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"))
4a219a1a LC	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")))
eb6d676e	90
d5529a91 LC	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
eb6d676e	99	#:test-target "test"))
4a219a1a LC	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'