From mboxrd@z Thu Jan 1 00:00:00 1970 From: John Darrington Subject: =?UTF-8?q?=5BPATCH=5D=20gnu=3A=20Add=20cook=2E?= Date: Sat, 14 Jun 2014 20:11:50 +0200 Message-ID: <1402769510-31041-1-git-send-email-jmd@gnu.org> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:36444) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WvsQw-00057E-9h for guix-devel@gnu.org; Sat, 14 Jun 2014 14:12:10 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WvsQs-0005M5-5P for guix-devel@gnu.org; Sat, 14 Jun 2014 14:12:06 -0400 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org Cc: John Darrington * gnu/packages/cook.scm: New file. * gnu-system.am: New file cook.scm. --- gnu-system.am | 1 + gnu/packages/cook.scm | 83 +++++++++++++++++++++++++++++++++++++++++++= ++++++ 2 files changed, 84 insertions(+) create mode 100644 gnu/packages/cook.scm diff --git a/gnu-system.am b/gnu-system.am index 653b99a..36ae689 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -54,6 +54,7 @@ GNU_SYSTEM_MODULES =3D \ gnu/packages/cmake.scm \ gnu/packages/compression.scm \ gnu/packages/complexity.scm \ + gnu/packages/cook.scm \ gnu/packages/cpio.scm \ gnu/packages/cppi.scm \ gnu/packages/cross-base.scm \ diff --git a/gnu/packages/cook.scm b/gnu/packages/cook.scm new file mode 100644 index 0000000..6a01e27 --- /dev/null +++ b/gnu/packages/cook.scm @@ -0,0 +1,83 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright =C2=A9 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 (a= t +;;; 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-" versio= n + ".tar.gz"))=20 + (sha256 + (base32 + "104saqnqql1l7zr2pm3f718fdky3ds8j07c6xvwrs1rfkhrw58yw")))) + (build-system gnu-build-system) + (arguments + `(#:parallel-build? #f ;; There are some nasty racy rules in the Ma= kefile + #:phases=20 + (alist-cons-before + 'configure 'pre-conf + (lambda _=20 + (substitute* (append '("common/env.c") + (find-files "test" "\\.sh")) + (("/bin/sh") (which "sh"))) + + ;; Guix's binutils is (for undeclared reasons) configured w= ith the + ;; --enable-deterministic-archives flag. This has odd effec= ts on + ;; ar. In Guix, the timestamp of files appended to an ar ar= chive + ;; are automatically and silently mutated to 00:00 1 Jan 19= 70 + ;; which plays havoc with this test, for which correct time= stamps + ;; are very important. Adding the U flag undoes the effect = of + ;; --enable-deterministic-archives and allows this test to = work + ;; again. =20 + (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 ser= ver + ;; 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 s= et of +files to create, and recipes of how to create them. In any non-trivial p= rogram +there will be prerequisites to performing the actions necessary to creat= ing +any file, such as include files. Cook provides a mechanism to define the= se.") + (license gpl3+))) --=20 1.7.10.4