distro/base.scm

   1 ;;; Guix --- Nix package management from Guile.         -*- coding: utf-8 -*-
   2 ;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org>
   3 ;;;
   4 ;;; This file is part of Guix.
   5 ;;;
   6 ;;; 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 ;;; 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 Guix.  If not, see <http://www.gnu.org/licenses/>.
  18
  19 (define-module (distro base)
  20   #:use-module (guix packages)
  21   #:use-module (guix http)
  22   #:use-module (guix build-system gnu)
  23   #:use-module (guix utils))
  24
  25 ;;; Commentary:
  26 ;;;
  27 ;;; A Guix-based distribution.
  28 ;;;
  29 ;;; Code:
  30
  31 (define-public libsigsegv
  32   (package
  33    (name "libsigsegv")
  34    (version "2.10")
  35    (source (source
  36             (method http-fetch)
  37             (uri "http://ftp.gnu.org/gnu/libsigsegv/libsigsegv-2.10.tar.gz")
  38             (sha256
  39              (nix-base32-string->bytevector  ; TODO: make conversion implicit
  40               "16hrs8k3nmc7a8jam5j1fpspd6sdpkamskvsdpcw6m29vnis8q44"))))
  41    (build-system gnu-build-system)
  42    (outputs '("out" "lib"))                   ; separate libdir from the rest
  43    (home-page "http://www.gnu.org/software/libsigsegv/")
  44    (description "GNU libsigsegv, a library to handle page faults in user mode")
  45    (long-description
  46 "GNU libsigsegv is a library for handling page faults in user mode. A page
  47 fault occurs when a program tries to access to a region of memory that is
  48 currently not available. Catching and handling a page fault is a useful
  49 technique for implementing pageable virtual memory, memory-mapped access to
  50 persistent databases, generational garbage collectors, stack overflow
  51 handlers, distributed shared memory, and more.")
  52    (license "GPLv2+")))
  53
  54 (define-public gawk
  55   (package
  56    (name "gawk")
  57    (version "4.0.0")
  58    (source (source
  59             (method http-fetch)
  60             (uri "http://ftp.gnu.org/gnu/gawk/gawk-4.0.0.tar.bz2")
  61             (sha256
  62              (nix-base32-string->bytevector
  63               "0sss7rhpvizi2a88h6giv0i7w5h07s2fxkw3s6n1hqvcnhrfgbb0"))))
  64    (build-system gnu-build-system)
  65    (arguments (case-lambda
  66                 ((system)
  67                  (if (string=? system "i686-cygwin")
  68                      '(#:tests? #f)      ; work around test failure on Cygwin
  69                      '()))
  70                 ((system cross-system)
  71                  '())))
  72    (inputs `(("libsigsegv" ,libsigsegv)             ; headers
  73              ("libsigsegv/lib" ,libsigsegv "lib"))) ; library
  74    (home-page "http://www.gnu.org/software/gawk/")
  75    (description "GNU implementation of the Awk programming language")
  76    (long-description
  77     "Many computer users need to manipulate text files: extract and then
  78 operate on data from parts of certain lines while discarding the rest, make
  79 changes in various text files wherever certain patterns appear, and so on.
  80 To write a program to do these things in a language such as C or Pascal is a
  81 time-consuming inconvenience that may take many lines of code.  The job is
  82 easy with awk, especially the GNU implementation: Gawk.
  83
  84 The awk utility interprets a special-purpose programming language that makes
  85 it possible to handle many data-reformatting jobs with just a few lines of
  86 code.")
  87    (license "GPLv3+")))
  88
  89 (define-public hello
  90   (package
  91    (name "hello")
  92    (version "2.8")
  93    (source (source
  94             (method http-fetch)
  95             (uri "http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz")
  96             (sha256
  97              (nix-base32-string->bytevector  ; TODO: make conversion implicit
  98               "0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6"))))
  99    (build-system gnu-build-system)
 100    (arguments '(#:configure-flags
 101                 `("--disable-dependency-tracking"
 102                   ,(string-append "--with-gawk="  ; for illustration purposes
 103                                  (assoc-ref %build-inputs "gawk")))))
 104    (inputs `(("gawk" ,gawk)))
 105    (description "GNU Hello")
 106    (long-description "Yeah...")
 107    (home-page "http://www.gnu.org/software/hello/")
 108    (license "GPLv3+")))