From feadf100a26acca6fa6a1db91a84d777ecbf9dae Mon Sep 17 00:00:00 2001 From: John Darrington Date: Thu, 30 Jan 2014 15:27:07 +0100 Subject: gnu: Add cook. * gnu/packages/cook.scm: New file. * gnu-system.am: New file cook.scm. --- gnu/packages/cook.scm | 83 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 83 insertions(+) create mode 100644 gnu/packages/cook.scm (limited to 'gnu/packages') diff --git a/gnu/packages/cook.scm b/gnu/packages/cook.scm new file mode 100644 index 0000000000..b82c8aae30 --- /dev/null +++ b/gnu/packages/cook.scm @@ -0,0 +1,83 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2014 John Darrington +;;; +;;; 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 cook) + #:use-module (guix packages) + #:use-module (guix licenses) + #:use-module (guix download) + #:use-module (gnu packages ed) + #:use-module (gnu packages bison) + #:use-module (gnu packages groff) + #:use-module (gnu packages compression) + #:use-module (guix build-system gnu)) + +(define-public cook + (package + (name "cook") + (version "2.34") + (source + (origin + (method url-fetch) + (uri (string-append + "http://miller.emu.id.au/pmiller/software/cook/cook-" version + ".tar.gz")) + (sha256 + (base32 + "104saqnqql1l7zr2pm3f718fdky3ds8j07c6xvwrs1rfkhrw58yw")))) + (build-system gnu-build-system) + (arguments + `(#:parallel-build? #f ; There are some nasty racy rules in the Makefile. + #:phases + (alist-cons-before + 'configure 'pre-conf + (lambda _ + (substitute* (append '("common/env.c") + (find-files "test" "\\.sh")) + (("/bin/sh") (which "sh"))) + + ;; Guix's binutils (because it wants bit-reproducable builds) is + ;; is configured with the --enable-deterministic-archives flag. + ;; This means the timestamp of files appended to an ar archive + ;; are automatically and silently mutated to 00:00 1 Jan 1970 + ;; which plays havoc with this test, for which correct timestamps + ;; are very important. Adding the U flag undoes the effect of + ;; --enable-deterministic-archives and allows this test to work + ;; again. + (substitute* "test/00/t0077a.sh" + (("ar qc") "ar qcU")) + + (setenv "SH" (which "sh"))) + %standard-phases))) + (native-inputs `(("bison" ,bison) + ;; For building the documentation: + ("groff" ,groff) + ;; For the tests: + ("sharutils" ,sharutils) + ;; One test wants rsh. However there is no rsh server + ;; running in the build environment and so far as I'm + ;; aware, it cannot be started without root. + ;; This test is therefore just skipped. + ;; ("inetutils" ,inetutils) + ("ed" ,ed))) + (home-page "http://miller.emu.id.au/pmiller/software/cook") + (synopsis "A tool for constructing files") + (description "Cook is a tool for constructing files. It is given a set of +files to create, and recipes of how to create them. In any non-trivial program +there will be prerequisites to performing the actions necessary to creating +any file, such as include files. Cook provides a mechanism to define these.") + (license gpl3+))) -- cgit v1.2.3