From 16fd1db5478d9d1c2a9dcca336bbce708ddfcc12 Mon Sep 17 00:00:00 2001 From: Cyril Roelandt Date: Thu, 7 Feb 2013 01:06:37 +0100 Subject: gnu: Add tcsh. * gnu/packages/tcsh.scm: New file. * gnu/packages/patches/tcsh-fix-autotest.patch: New file * Makefile.am: Add them. --- gnu/packages/tcsh.scm | 83 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 83 insertions(+) create mode 100644 gnu/packages/tcsh.scm (limited to 'gnu/packages/tcsh.scm') diff --git a/gnu/packages/tcsh.scm b/gnu/packages/tcsh.scm new file mode 100644 index 0000000000..2e195bd489 --- /dev/null +++ b/gnu/packages/tcsh.scm @@ -0,0 +1,83 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2013 Cyril Roelandt +;;; +;;; 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 (gnu packages tcsh) + #:use-module (guix licenses) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:use-module (gnu packages) + #:use-module (gnu packages autotools) + #:use-module (gnu packages base) + #:use-module (gnu packages ncurses)) + +(define-public tcsh + (package + (name "tcsh") + (version "6.18.01") + (source (origin + (method url-fetch) + (uri (string-append "ftp://ftp.astron.com/pub/tcsh/tcsh-" + version ".tar.gz")) + (sha256 + (base32 "1a4z9kwgx1iqqzvv64si34m60gj34p7lp6rrcrb59s7ka5wa476q")))) + (build-system gnu-build-system) + (inputs + `(("autoconf" ,autoconf) + ("coreutils" ,coreutils) + ("ncurses" ,ncurses) + ("patch/skip-tests" + ,(search-patch "tcsh-fix-autotest.patch")))) + (arguments + `(#:phases + (alist-replace + 'check + (lambda* (#:key inputs #:allow-other-keys #:rest args) + (let ((check (assoc-ref %standard-phases 'check))) + ;; Take care of pwd + (substitute* '("tests/commands.at" "tests/variables.at") + (("/bin/pwd") (which "pwd"))) + ;; The .at files create shell scripts without shebangs. Erk. + (substitute* "tests/commands.at" + (("./output.sh") "/bin/sh output.sh")) + (substitute* "tests/syntax.at" + (("; other_script.csh") "; /bin/sh other_script.csh")) + ;; Now, let's generate the test suite, patch it and finally run the + ;; tests. + (system* "make" "tests/testsuite") + (substitute* "tests/testsuite" (("/bin/sh") (which "sh"))) + (apply check args))) + (alist-cons-after + 'install 'post-install + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref %outputs "out")) + (bin (string-append out "/bin"))) + (with-directory-excursion bin + (symlink "tcsh" "csh")))) + %standard-phases)) + #:patches (list (assoc-ref %build-inputs "patch/skip-tests")) + #:patch-flags '("-p0"))) + (home-page "http://www.tcsh.org/") + (synopsis "A Unix shell based on csh") + (description + "Tcsh is an enhanced, but completely compatible version of the Berkeley +UNIX C shell (csh). It is a command language interpreter usable both as an +interactive login shell and a shell script command processor. It includes a +command-line editor, programmable word completion, spelling correction, a +history mechanism, job control and a C-like syntax.") + (license bsd-4))) -- cgit v1.2.3