From 3e424f2541fc4c9ff972f3d0009266280dd6b5de Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 13 Jan 2014 18:53:26 +0100 Subject: gnu: Add libtirpc. * gnu/packages/onc-rpc.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. --- gnu-system.am | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gnu-system.am') diff --git a/gnu-system.am b/gnu-system.am index fbf61d6ec1..52d1ff8044 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -1,5 +1,5 @@ # GNU Guix --- Functional package management for GNU -# Copyright © 2012, 2013 Ludovic Courtès +# Copyright © 2012, 2013, 2014 Ludovic Courtès # Copyright © 2013 Andreas Enge # Copyright © 2013 Mark H Weaver # @@ -145,6 +145,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/ocaml.scm \ gnu/packages/ocrad.scm \ gnu/packages/oggvorbis.scm \ + gnu/packages/onc-rpc.scm \ gnu/packages/openldap.scm \ gnu/packages/openssl.scm \ gnu/packages/package-management.scm \ -- cgit v1.2.3 From 4aeea896f8de7c1643c9462b2080ff84314afc79 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 13 Jan 2014 21:32:39 +0100 Subject: gnu: Rename (gnu packages system) to (gnu packages admin). * gnu/packages/system.scm: Rename to... * gnu/packages/admin.scm: ... this. Adjust module name accordingly. * gnu-system.am (GNU_SYSTEM_MODULES): Update. --- gnu-system.am | 2 +- gnu/packages/admin.scm | 430 ++++++++++++++++++++++++++++++++++++++++++++++++ gnu/packages/system.scm | 430 ------------------------------------------------ 3 files changed, 431 insertions(+), 431 deletions(-) create mode 100644 gnu/packages/admin.scm delete mode 100644 gnu/packages/system.scm (limited to 'gnu-system.am') diff --git a/gnu-system.am b/gnu-system.am index 52d1ff8044..0ac867fc42 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -25,6 +25,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages.scm \ gnu/packages/acct.scm \ gnu/packages/acl.scm \ + gnu/packages/admin.scm \ gnu/packages/algebra.scm \ gnu/packages/apl.scm \ gnu/packages/apr.scm \ @@ -181,7 +182,6 @@ GNU_SYSTEM_MODULES = \ gnu/packages/sqlite.scm \ gnu/packages/ssh.scm \ gnu/packages/swig.scm \ - gnu/packages/system.scm \ gnu/packages/tcl.scm \ gnu/packages/tcsh.scm \ gnu/packages/texinfo.scm \ diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm new file mode 100644 index 0000000000..59516c7101 --- /dev/null +++ b/gnu/packages/admin.scm @@ -0,0 +1,430 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2012, 2013, 2014 Ludovic Courtès +;;; 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 admin) + #:use-module (guix licenses) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system cmake) + #:use-module (guix build-system gnu) + #:use-module (guix build-system trivial) + #:use-module (gnu packages) + #:use-module (gnu packages base) + #:use-module (gnu packages ncurses) + #:use-module (gnu packages linux) + #:use-module (gnu packages guile) + #:use-module (gnu packages gettext) + #:use-module (gnu packages perl) + #:use-module ((gnu packages base) + #:select (tar)) + #:use-module ((gnu packages compression) + #:select (gzip)) + #:use-module (gnu packages pkg-config)) + +(define-public dmd + (package + (name "dmd") + (version "0.1") + (source (origin + (method url-fetch) + (uri (string-append "ftp://alpha.gnu.org/gnu/dmd/dmd-" + version ".tar.gz")) + (sha256 + (base32 + "07mddw0p62fcphwjzgb6rfa0pjz5sy6jzbha0sm2vc3rqf459jxg")) + (patches (list (search-patch "dmd-getpw.patch"))))) + (build-system gnu-build-system) + (arguments + '(#:configure-flags '("--localstatedir=/var"))) + (native-inputs `(("pkg-config" ,pkg-config))) + (inputs `(("guile" ,guile-2.0))) + (synopsis "Daemon managing daemons") + (description + "GNU DMD is a daemon-managing daemon, meaning that it manages the +execution of system services, replacing similar functionality found in +typical init systems. It provides dependency-handling through a convenient +interface and is based on GNU Guile.") + (license gpl3+) + (home-page "http://www.gnu.org/software/dmd/"))) + +(define-public dfc + (package + (name "dfc") + (version "3.0.3") + (source + (origin + (method url-fetch) + (uri (string-append + "http://projects.gw-computing.net/attachments/download/78/dfc-" + version ".tar.gz")) + (sha256 + (base32 + "1b4hfqv23l87cb37fxwzfk2sgspkyxpr3ig2hsd23hr6mm982j7z")))) + (build-system cmake-build-system) + (arguments '(#:tests? #f)) ; There are no tests. + (native-inputs `(("gettext" ,gnu-gettext))) + (home-page "http://projects.gw-computing.net/projects/dfc") + (synopsis "Display file system space usage using graphs and colors") + (description + "dfc (df color) is a modern version of df. It uses colors, draws pretty +graphs and can export its output to different formats.") + (license bsd-3))) + +(define-public htop + (package + (name "htop") + (version "1.0.2") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/htop/" + version "/htop-" version ".tar.gz")) + (sha256 + (base32 + "18fqrhvnm7h4c3939av8lpiwrwxbyw6hcly0jvq0vkjf0ixnaq7f")))) + (build-system gnu-build-system) + (inputs + `(("ncurses" ,ncurses))) + (home-page "http://htop.sourceforge.net/") + (synopsis "Interactive process viewer") + (description + "This is htop, an interactive process viewer. It is a text-mode +application (for console or X terminals) and requires ncurses.") + (license gpl2))) + +(define-public pies + (package + (name "pies") + (version "1.2") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://gnu/pies/pies-" + version ".tar.bz2")) + (sha256 + (base32 + "18w0dbg77i56cx1bwa789w0qi3l4xkkbascxcv2b6gbm0zmjg1g6")))) + (build-system gnu-build-system) + (home-page "http://www.gnu.org/software/pies/") + (synopsis "Program invocation and execution supervisor") + (description + "GNU pies is a program that supervises the invocation and execution of +other programs. It reads the list of programs to be started from its +configuration file, executes them, and then monitors their status, +re-executing them as necessary.") + (license gpl3+))) + +(define-public inetutils + (package + (name "inetutils") + (version "1.9.1") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnu/inetutils/inetutils-" + version ".tar.gz")) + (sha256 + (base32 + "0azzg6njgq79byl6960kb0wihfhhzf49snslhxgvi30ribgfpa82")) + (patches + (list (search-patch "diffutils-gets-undeclared.patch"))))) + (build-system gnu-build-system) + (arguments `(;; FIXME: `tftp.sh' relies on `netstat' from utils-linux, + ;; which is currently missing. + #:tests? #f)) + (inputs `(("ncurses" ,ncurses))) + (home-page "http://www.gnu.org/software/inetutils/") + (synopsis "Basic networking utilities") + (description + "Inetutils is a collection of common network programs, such as an ftp +client and server, a telnet client and server, and an rsh client and server.") + (license gpl3+))) + +(define-public shadow + (package + (name "shadow") + (version "4.1.5.1") + (source (origin + (method url-fetch) + (uri (string-append + "http://pkg-shadow.alioth.debian.org/releases/shadow-" + version ".tar.bz2")) + (sha256 + (base32 + "1yvqx57vzih0jdy3grir8vfbkxp0cl0myql37bnmi2yn90vk6cma")))) + (build-system gnu-build-system) + (arguments + '(;; Assume System V `setpgrp (void)', which is the default on GNU + ;; variants (`AC_FUNC_SETPGRP' is not cross-compilation capable.) + #:configure-flags '("--with-libpam" "ac_cv_func_setpgrp_void=yes") + + #:phases (alist-cons-before + 'build 'set-nscd-file-name + (lambda* (#:key inputs #:allow-other-keys) + ;; Use the right file name for nscd. + (let ((libc (assoc-ref inputs "libc"))) + (substitute* "lib/nscd.c" + (("/usr/sbin/nscd") + (string-append libc "/sbin/nscd"))))) + (alist-cons-after + 'install 'remove-groups + (lambda* (#:key outputs #:allow-other-keys) + ;; Remove `groups', which is already provided by Coreutils. + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (man (string-append out "/share/man/man1"))) + (delete-file (string-append bin "/groups")) + (for-each delete-file (find-files man "^groups\\.")) + #t)) + %standard-phases)))) + + (inputs (if (string-suffix? "-linux" + (or (%current-target-system) + (%current-system))) + `(("linux-pam" ,linux-pam)) + '())) + (home-page "http://pkg-shadow.alioth.debian.org/") + (synopsis "Authentication-related tools such as passwd, su, and login") + (description + "Shadow provides a number of authentication-related tools, including: +login, passwd, su, groupadd, and useradd.") + + ;; The `vipw' program is GPLv2+. + ;; libmisc/salt.c is public domain. + (license bsd-3))) + +(define-public mingetty + (package + (name "mingetty") + (version "1.08") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/mingetty/mingetty-" + version ".tar.gz")) + (sha256 + (base32 + "05yxrp44ky2kg6qknk1ih0kvwkgbn9fbz77r3vci7agslh5wjm8g")))) + (build-system gnu-build-system) + (arguments + `(#:phases (alist-replace 'configure + (lambda* (#:key inputs outputs + #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (man8 (string-append + out "/share/man/man8")) + (sbin (string-append out "/sbin")) + (shadow (assoc-ref inputs "shadow")) + (login (string-append shadow + "/bin/login"))) + (substitute* "Makefile" + (("^SBINDIR.*") + (string-append "SBINDIR = " out + "/sbin\n")) + (("^MANDIR.*") + (string-append "MANDIR = " out + "/share/man/man8\n"))) + + ;; Pick the right 'login' by default. + (substitute* "mingetty.c" + (("\"/bin/login\"") + (string-append "\"" login "\""))) + + (mkdir-p sbin) + (mkdir-p man8))) + %standard-phases) + #:tests? #f)) ; no tests + (inputs `(("shadow" ,shadow))) + + (home-page "http://sourceforge.net/projects/mingetty") + (synopsis "Getty for the text console") + (description + "Small console getty that is started on the Linux text console, +asks for a login name and then transfers over to 'login'. It is extended to +allow automatic login and starting any app.") + (license gpl2+))) + +(define-public net-base + (package + (name "net-base") + (version "5.1") + (source (origin + (method url-fetch) + (uri (string-append + "http://ftp.de.debian.org/debian/pool/main/n/netbase/netbase_" + version ".tar.gz")) + (sha256 + (base32 + "17l8xk2x632id5f9x9v5fs9wqc650hldd2lf3dh90r1zisj1ya8d")))) + (build-system trivial-build-system) + (arguments + `(#:modules ((guix build utils)) + #:builder (begin + (use-modules (guix build utils) + (srfi srfi-26)) + + (let* ((source (assoc-ref %build-inputs "source")) + (tar (assoc-ref %build-inputs "tar")) + (gzip (assoc-ref %build-inputs "gzip")) + (output (assoc-ref %outputs "out")) + (etc (string-append output "/etc"))) + (setenv "PATH" (string-append gzip "/bin")) + (system* (string-append tar "/bin/tar") "xvf" + source) + (chdir ,(string-append "netbase-" version)) + (mkdir-p etc) + (for-each copy-file + '("etc-services" "etc-protocols" "etc-rpc") + (map (cut string-append etc "/" <>) + '("services" "protocols" "rpc"))) + #t)))) + (native-inputs `(("tar" ,tar) + ("gzip" ,gzip))) + (synopsis "IANA protocol, port, and RPC number assignments") + (description + "This package provides the /etc/services, /etc/protocols, and /etc/rpc +files, which contain information about the IANA-assigned port, protocol, and +ONC RPC numbers") + (home-page "http://packages.debian.org/sid/netbase") + (license gpl2))) + +(define-public netcat + (package + (name "netcat") + (version "0.7.1") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/netcat/netcat-" + version ".tar.bz2")) + (sha256 + (base32 + "1frjcdkhkpzk0f84hx6hmw5l0ynpmji8vcbaxg8h5k2svyxz0nmm")))) + (build-system gnu-build-system) + (home-page "http://netcat.sourceforge.net") + (synopsis "Read and write data over TCP/IP") + (description + "Netcat is a featured networking utility which reads and writes data +across network connections, using the TCP/IP protocol. It is designed to be a +reliable \"back-end\" tool that can be used directly or easily driven by other +programs and scripts. At the same time, it is a feature-rich network debugging +and exploration tool, since it can create almost any kind of connection you +would need and has several interesting built-in capabilities.") + (license gpl2+))) + +(define-public alive + (package + (name "alive") + (version "2.0.2") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnu/alive/alive-" + version ".tar.xz")) + (sha256 + (base32 + "1vrzg51ai68x9yld7vbgl58sxaw5qpx8rbakwcxn4cqq6vpxj38j")))) + (build-system gnu-build-system) + (arguments '(#:configure-flags '("alive_cv_nice_ping=yes"))) + (inputs `(("guile" ,guile-2.0) + ("inetutils" ,inetutils))) + (home-page "http://www.gnu.org/software/alive/") + (synopsis "Autologin and keep-alive daemon") + (description + "GNU Alive sends periodic pings to a server, generally to keep a +connection alive.") + (license gpl3+))) + +(define-public isc-dhcp + (package + (name "isc-dhcp") + (version "4.3.0a1") + (source (origin + (method url-fetch) + (uri (string-append "http://ftp.isc.org/isc/dhcp/" + version "/dhcp-" version ".tar.gz")) + (sha256 + (base32 + "0001n26m4488nl95h53wg60sywbli4d246vz2h8lpv70jlrq9q1p")))) + (build-system gnu-build-system) + (arguments + '(#:phases (alist-cons-after + 'configure 'post-configure + (lambda* (#:key outputs #:allow-other-keys) + ;; Point to the right client script, which will be + ;; installed in a later phase. + (substitute* "includes/dhcpd.h" + (("#define[[:blank:]]+_PATH_DHCLIENT_SCRIPT.*") + (let ((out (assoc-ref outputs "out"))) + (string-append "#define _PATH_DHCLIENT_SCRIPT \"" + out "/libexec/dhclient-script" + "\"\n")))) + + ;; During the 'build' phase, 'bind.tar.gz' is extracted, so + ;; we must patch shebangs in there and make sure the right + ;; shell is used. + (with-directory-excursion "bind" + (substitute* "Makefile" + (("\\./configure") + (let ((sh (which "sh"))) + (string-append "./configure CONFIG_SHELL=" + sh " SHELL=" sh)))) + + (system* "tar" "xf" "bind.tar.gz") + (for-each patch-shebang + (find-files "bind-9.9.5b1" ".*")) + (zero? (system* "tar" "cf" "bind.tar.gz" + "bind-9.9.5b1")))) + (alist-cons-after + 'install 'post-install + (lambda* (#:key inputs outputs #:allow-other-keys) + ;; Install the dhclient script for GNU/Linux and make sure + ;; if finds all the programs it needs. + (let* ((out (assoc-ref outputs "out")) + (libexec (string-append out "/libexec")) + (coreutils (assoc-ref inputs "coreutils")) + (net-tools (assoc-ref inputs "net-tools")) + (sed (assoc-ref inputs "sed"))) + (substitute* "client/scripts/linux" + (("/sbin/ip") + (string-append (assoc-ref inputs "iproute") + "/sbin/ip"))) + + (mkdir-p libexec) + (copy-file "client/scripts/linux" + (string-append libexec "/dhclient-script")) + + (wrap-program (string-append libexec "/dhclient-script") + `("PATH" ":" prefix + ,(map (lambda (dir) + (string-append dir "/bin:" + dir "/sbin")) + (list net-tools coreutils sed)))))) + %standard-phases)))) + + (native-inputs `(("perl" ,perl))) + + ;; Even Coreutils and sed are needed here in case we're cross-compiling. + (inputs `(("coreutils" ,coreutils) + ("sed" ,sed) + ("net-tools" ,net-tools) + ("iproute" ,iproute))) + + (home-page "http://www.isc.org/products/DHCP/") + (synopsis "Dynamic Host Configuration Protocol (DHCP) tools") + (description + "ISC's Dynamic Host Configuration Protocol (DHCP) distribution provides a +reference implementation of all aspects of DHCP, through a suite of DHCP +tools: server, client, and relay agent.") + (license (bsd-style "http://www.isc.org/sw/dhcp/dhcp-copyright.php")))) diff --git a/gnu/packages/system.scm b/gnu/packages/system.scm deleted file mode 100644 index 9b263a0b1b..0000000000 --- a/gnu/packages/system.scm +++ /dev/null @@ -1,430 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014 Ludovic Courtès -;;; 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 system) - #:use-module (guix licenses) - #:use-module (guix packages) - #:use-module (guix download) - #:use-module (guix build-system cmake) - #:use-module (guix build-system gnu) - #:use-module (guix build-system trivial) - #:use-module (gnu packages) - #:use-module (gnu packages base) - #:use-module (gnu packages ncurses) - #:use-module (gnu packages linux) - #:use-module (gnu packages guile) - #:use-module (gnu packages gettext) - #:use-module (gnu packages perl) - #:use-module ((gnu packages base) - #:select (tar)) - #:use-module ((gnu packages compression) - #:select (gzip)) - #:use-module (gnu packages pkg-config)) - -(define-public dmd - (package - (name "dmd") - (version "0.1") - (source (origin - (method url-fetch) - (uri (string-append "ftp://alpha.gnu.org/gnu/dmd/dmd-" - version ".tar.gz")) - (sha256 - (base32 - "07mddw0p62fcphwjzgb6rfa0pjz5sy6jzbha0sm2vc3rqf459jxg")) - (patches (list (search-patch "dmd-getpw.patch"))))) - (build-system gnu-build-system) - (arguments - '(#:configure-flags '("--localstatedir=/var"))) - (native-inputs `(("pkg-config" ,pkg-config))) - (inputs `(("guile" ,guile-2.0))) - (synopsis "Daemon managing daemons") - (description - "GNU DMD is a daemon-managing daemon, meaning that it manages the -execution of system services, replacing similar functionality found in -typical init systems. It provides dependency-handling through a convenient -interface and is based on GNU Guile.") - (license gpl3+) - (home-page "http://www.gnu.org/software/dmd/"))) - -(define-public dfc - (package - (name "dfc") - (version "3.0.3") - (source - (origin - (method url-fetch) - (uri (string-append - "http://projects.gw-computing.net/attachments/download/78/dfc-" - version ".tar.gz")) - (sha256 - (base32 - "1b4hfqv23l87cb37fxwzfk2sgspkyxpr3ig2hsd23hr6mm982j7z")))) - (build-system cmake-build-system) - (arguments '(#:tests? #f)) ; There are no tests. - (native-inputs `(("gettext" ,gnu-gettext))) - (home-page "http://projects.gw-computing.net/projects/dfc") - (synopsis "Display file system space usage using graphs and colors") - (description - "dfc (df color) is a modern version of df. It uses colors, draws pretty -graphs and can export its output to different formats.") - (license bsd-3))) - -(define-public htop - (package - (name "htop") - (version "1.0.2") - (source (origin - (method url-fetch) - (uri (string-append "mirror://sourceforge/htop/" - version "/htop-" version ".tar.gz")) - (sha256 - (base32 - "18fqrhvnm7h4c3939av8lpiwrwxbyw6hcly0jvq0vkjf0ixnaq7f")))) - (build-system gnu-build-system) - (inputs - `(("ncurses" ,ncurses))) - (home-page "http://htop.sourceforge.net/") - (synopsis "Interactive process viewer") - (description - "This is htop, an interactive process viewer. It is a text-mode -application (for console or X terminals) and requires ncurses.") - (license gpl2))) - -(define-public pies - (package - (name "pies") - (version "1.2") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://gnu/pies/pies-" - version ".tar.bz2")) - (sha256 - (base32 - "18w0dbg77i56cx1bwa789w0qi3l4xkkbascxcv2b6gbm0zmjg1g6")))) - (build-system gnu-build-system) - (home-page "http://www.gnu.org/software/pies/") - (synopsis "Program invocation and execution supervisor") - (description - "GNU pies is a program that supervises the invocation and execution of -other programs. It reads the list of programs to be started from its -configuration file, executes them, and then monitors their status, -re-executing them as necessary.") - (license gpl3+))) - -(define-public inetutils - (package - (name "inetutils") - (version "1.9.1") - (source (origin - (method url-fetch) - (uri (string-append "mirror://gnu/inetutils/inetutils-" - version ".tar.gz")) - (sha256 - (base32 - "0azzg6njgq79byl6960kb0wihfhhzf49snslhxgvi30ribgfpa82")) - (patches - (list (search-patch "diffutils-gets-undeclared.patch"))))) - (build-system gnu-build-system) - (arguments `(;; FIXME: `tftp.sh' relies on `netstat' from utils-linux, - ;; which is currently missing. - #:tests? #f)) - (inputs `(("ncurses" ,ncurses))) - (home-page "http://www.gnu.org/software/inetutils/") - (synopsis "Basic networking utilities") - (description - "Inetutils is a collection of common network programs, such as an ftp -client and server, a telnet client and server, and an rsh client and server.") - (license gpl3+))) - -(define-public shadow - (package - (name "shadow") - (version "4.1.5.1") - (source (origin - (method url-fetch) - (uri (string-append - "http://pkg-shadow.alioth.debian.org/releases/shadow-" - version ".tar.bz2")) - (sha256 - (base32 - "1yvqx57vzih0jdy3grir8vfbkxp0cl0myql37bnmi2yn90vk6cma")))) - (build-system gnu-build-system) - (arguments - '(;; Assume System V `setpgrp (void)', which is the default on GNU - ;; variants (`AC_FUNC_SETPGRP' is not cross-compilation capable.) - #:configure-flags '("--with-libpam" "ac_cv_func_setpgrp_void=yes") - - #:phases (alist-cons-before - 'build 'set-nscd-file-name - (lambda* (#:key inputs #:allow-other-keys) - ;; Use the right file name for nscd. - (let ((libc (assoc-ref inputs "libc"))) - (substitute* "lib/nscd.c" - (("/usr/sbin/nscd") - (string-append libc "/sbin/nscd"))))) - (alist-cons-after - 'install 'remove-groups - (lambda* (#:key outputs #:allow-other-keys) - ;; Remove `groups', which is already provided by Coreutils. - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (man (string-append out "/share/man/man1"))) - (delete-file (string-append bin "/groups")) - (for-each delete-file (find-files man "^groups\\.")) - #t)) - %standard-phases)))) - - (inputs (if (string-suffix? "-linux" - (or (%current-target-system) - (%current-system))) - `(("linux-pam" ,linux-pam)) - '())) - (home-page "http://pkg-shadow.alioth.debian.org/") - (synopsis "Authentication-related tools such as passwd, su, and login") - (description - "Shadow provides a number of authentication-related tools, including: -login, passwd, su, groupadd, and useradd.") - - ;; The `vipw' program is GPLv2+. - ;; libmisc/salt.c is public domain. - (license bsd-3))) - -(define-public mingetty - (package - (name "mingetty") - (version "1.08") - (source (origin - (method url-fetch) - (uri (string-append "mirror://sourceforge/mingetty/mingetty-" - version ".tar.gz")) - (sha256 - (base32 - "05yxrp44ky2kg6qknk1ih0kvwkgbn9fbz77r3vci7agslh5wjm8g")))) - (build-system gnu-build-system) - (arguments - `(#:phases (alist-replace 'configure - (lambda* (#:key inputs outputs - #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (man8 (string-append - out "/share/man/man8")) - (sbin (string-append out "/sbin")) - (shadow (assoc-ref inputs "shadow")) - (login (string-append shadow - "/bin/login"))) - (substitute* "Makefile" - (("^SBINDIR.*") - (string-append "SBINDIR = " out - "/sbin\n")) - (("^MANDIR.*") - (string-append "MANDIR = " out - "/share/man/man8\n"))) - - ;; Pick the right 'login' by default. - (substitute* "mingetty.c" - (("\"/bin/login\"") - (string-append "\"" login "\""))) - - (mkdir-p sbin) - (mkdir-p man8))) - %standard-phases) - #:tests? #f)) ; no tests - (inputs `(("shadow" ,shadow))) - - (home-page "http://sourceforge.net/projects/mingetty") - (synopsis "Getty for the text console") - (description - "Small console getty that is started on the Linux text console, -asks for a login name and then transfers over to 'login'. It is extended to -allow automatic login and starting any app.") - (license gpl2+))) - -(define-public net-base - (package - (name "net-base") - (version "5.1") - (source (origin - (method url-fetch) - (uri (string-append - "http://ftp.de.debian.org/debian/pool/main/n/netbase/netbase_" - version ".tar.gz")) - (sha256 - (base32 - "17l8xk2x632id5f9x9v5fs9wqc650hldd2lf3dh90r1zisj1ya8d")))) - (build-system trivial-build-system) - (arguments - `(#:modules ((guix build utils)) - #:builder (begin - (use-modules (guix build utils) - (srfi srfi-26)) - - (let* ((source (assoc-ref %build-inputs "source")) - (tar (assoc-ref %build-inputs "tar")) - (gzip (assoc-ref %build-inputs "gzip")) - (output (assoc-ref %outputs "out")) - (etc (string-append output "/etc"))) - (setenv "PATH" (string-append gzip "/bin")) - (system* (string-append tar "/bin/tar") "xvf" - source) - (chdir ,(string-append "netbase-" version)) - (mkdir-p etc) - (for-each copy-file - '("etc-services" "etc-protocols" "etc-rpc") - (map (cut string-append etc "/" <>) - '("services" "protocols" "rpc"))) - #t)))) - (native-inputs `(("tar" ,tar) - ("gzip" ,gzip))) - (synopsis "IANA protocol, port, and RPC number assignments") - (description - "This package provides the /etc/services, /etc/protocols, and /etc/rpc -files, which contain information about the IANA-assigned port, protocol, and -ONC RPC numbers") - (home-page "http://packages.debian.org/sid/netbase") - (license gpl2))) - -(define-public netcat - (package - (name "netcat") - (version "0.7.1") - (source (origin - (method url-fetch) - (uri (string-append "mirror://sourceforge/netcat/netcat-" - version ".tar.bz2")) - (sha256 - (base32 - "1frjcdkhkpzk0f84hx6hmw5l0ynpmji8vcbaxg8h5k2svyxz0nmm")))) - (build-system gnu-build-system) - (home-page "http://netcat.sourceforge.net") - (synopsis "Read and write data over TCP/IP") - (description - "Netcat is a featured networking utility which reads and writes data -across network connections, using the TCP/IP protocol. It is designed to be a -reliable \"back-end\" tool that can be used directly or easily driven by other -programs and scripts. At the same time, it is a feature-rich network debugging -and exploration tool, since it can create almost any kind of connection you -would need and has several interesting built-in capabilities.") - (license gpl2+))) - -(define-public alive - (package - (name "alive") - (version "2.0.2") - (source (origin - (method url-fetch) - (uri (string-append "mirror://gnu/alive/alive-" - version ".tar.xz")) - (sha256 - (base32 - "1vrzg51ai68x9yld7vbgl58sxaw5qpx8rbakwcxn4cqq6vpxj38j")))) - (build-system gnu-build-system) - (arguments '(#:configure-flags '("alive_cv_nice_ping=yes"))) - (inputs `(("guile" ,guile-2.0) - ("inetutils" ,inetutils))) - (home-page "http://www.gnu.org/software/alive/") - (synopsis "Autologin and keep-alive daemon") - (description - "GNU Alive sends periodic pings to a server, generally to keep a -connection alive.") - (license gpl3+))) - -(define-public isc-dhcp - (package - (name "isc-dhcp") - (version "4.3.0a1") - (source (origin - (method url-fetch) - (uri (string-append "http://ftp.isc.org/isc/dhcp/" - version "/dhcp-" version ".tar.gz")) - (sha256 - (base32 - "0001n26m4488nl95h53wg60sywbli4d246vz2h8lpv70jlrq9q1p")))) - (build-system gnu-build-system) - (arguments - '(#:phases (alist-cons-after - 'configure 'post-configure - (lambda* (#:key outputs #:allow-other-keys) - ;; Point to the right client script, which will be - ;; installed in a later phase. - (substitute* "includes/dhcpd.h" - (("#define[[:blank:]]+_PATH_DHCLIENT_SCRIPT.*") - (let ((out (assoc-ref outputs "out"))) - (string-append "#define _PATH_DHCLIENT_SCRIPT \"" - out "/libexec/dhclient-script" - "\"\n")))) - - ;; During the 'build' phase, 'bind.tar.gz' is extracted, so - ;; we must patch shebangs in there and make sure the right - ;; shell is used. - (with-directory-excursion "bind" - (substitute* "Makefile" - (("\\./configure") - (let ((sh (which "sh"))) - (string-append "./configure CONFIG_SHELL=" - sh " SHELL=" sh)))) - - (system* "tar" "xf" "bind.tar.gz") - (for-each patch-shebang - (find-files "bind-9.9.5b1" ".*")) - (zero? (system* "tar" "cf" "bind.tar.gz" - "bind-9.9.5b1")))) - (alist-cons-after - 'install 'post-install - (lambda* (#:key inputs outputs #:allow-other-keys) - ;; Install the dhclient script for GNU/Linux and make sure - ;; if finds all the programs it needs. - (let* ((out (assoc-ref outputs "out")) - (libexec (string-append out "/libexec")) - (coreutils (assoc-ref inputs "coreutils")) - (net-tools (assoc-ref inputs "net-tools")) - (sed (assoc-ref inputs "sed"))) - (substitute* "client/scripts/linux" - (("/sbin/ip") - (string-append (assoc-ref inputs "iproute") - "/sbin/ip"))) - - (mkdir-p libexec) - (copy-file "client/scripts/linux" - (string-append libexec "/dhclient-script")) - - (wrap-program (string-append libexec "/dhclient-script") - `("PATH" ":" prefix - ,(map (lambda (dir) - (string-append dir "/bin:" - dir "/sbin")) - (list net-tools coreutils sed)))))) - %standard-phases)))) - - (native-inputs `(("perl" ,perl))) - - ;; Even Coreutils and sed are needed here in case we're cross-compiling. - (inputs `(("coreutils" ,coreutils) - ("sed" ,sed) - ("net-tools" ,net-tools) - ("iproute" ,iproute))) - - (home-page "http://www.isc.org/products/DHCP/") - (synopsis "Dynamic Host Configuration Protocol (DHCP) tools") - (description - "ISC's Dynamic Host Configuration Protocol (DHCP) distribution provides a -reference implementation of all aspects of DHCP, through a suite of DHCP -tools: server, client, and relay agent.") - (license (bsd-style "http://www.isc.org/sw/dhcp/dhcp-copyright.php")))) -- cgit v1.2.3 From 16f68e48402e35acc840777b439dc46bfab28658 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 15 Jan 2014 00:15:55 +0100 Subject: gnu: Add Taylor UUCP. * gnu/packages/uucp.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. --- gnu-system.am | 1 + gnu/packages/uucp.scm | 56 +++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 57 insertions(+) create mode 100644 gnu/packages/uucp.scm (limited to 'gnu-system.am') diff --git a/gnu-system.am b/gnu-system.am index 0ac867fc42..360630823e 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -189,6 +189,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/time.scm \ gnu/packages/tmux.scm \ gnu/packages/tor.scm \ + gnu/packages/uucp.scm \ gnu/packages/unrtf.scm \ gnu/packages/valgrind.scm \ gnu/packages/version-control.scm \ diff --git a/gnu/packages/uucp.scm b/gnu/packages/uucp.scm new file mode 100644 index 0000000000..b412bed9d9 --- /dev/null +++ b/gnu/packages/uucp.scm @@ -0,0 +1,56 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2014 Ludovic Courtès +;;; +;;; 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 uucp) + #:use-module (guix licenses) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu)) + +(define-public uucp + (package + (name "uucp") + (version "1.07") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnu/uucp/uucp-" + version ".tar.gz")) + (sha256 + (base32 + "0b5nhl9vvif1w3wdipjsk8ckw49jj1w85xw1mmqi3zbcpazia306")))) + (build-system gnu-build-system) + (arguments + '(#:phases (alist-replace + 'configure + (lambda* (#:key outputs #:allow-other-keys) + ;; The old 'configure' script doesn't support the arguments + ;; that we pass by default. + (setenv "CONFIG_SHELL" (which "sh")) + (let ((out (assoc-ref outputs "out"))) + (zero? (system* "./configure" + (string-append "--prefix=" out) + (string-append "--infodir=" out + "/share/info"))))) + %standard-phases))) + (home-page "http://www.gnu.org/software/uucp/uucp.html") + (synopsis "UUCP protocol implementation") + (description + "Taylor UUCP is the GNU implementation of UUCP (Unix-to-Unix Copy), a +set of utilities for remotely transferring files, email and net news +between computers.") + (license gpl2+))) -- cgit v1.2.3 From e7d6f7bfa05a56f2dd1473715f9fea1b5030d529 Mon Sep 17 00:00:00 2001 From: John Darrington Date: Wed, 15 Jan 2014 18:50:10 +0100 Subject: gnu: pspp: Upgrade to 0.8.2 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/maths.scm (pspp): Update to 0.8.2. * gnu/packages/patches/pspp-tests.patch: Deleted. * gnu-system.am: Removed pspp-tests.patch from the manifest. Signed-off-by: Ludovic Courtès --- gnu-system.am | 1 - gnu/packages/maths.scm | 5 ++--- gnu/packages/patches/pspp-tests.patch | 13 ------------- 3 files changed, 2 insertions(+), 17 deletions(-) delete mode 100644 gnu/packages/patches/pspp-tests.patch (limited to 'gnu-system.am') diff --git a/gnu-system.am b/gnu-system.am index 360630823e..6ed6371d8b 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -276,7 +276,6 @@ dist_patch_DATA = \ gnu/packages/patches/perl-no-sys-dirs.patch \ gnu/packages/patches/plotutils-libpng-jmpbuf.patch \ gnu/packages/patches/procps-make-3.82.patch \ - gnu/packages/patches/pspp-tests.patch \ gnu/packages/patches/pulseaudio-test-timeouts.patch \ gnu/packages/patches/pulseaudio-volume-test.patch \ gnu/packages/patches/python-fix-dbm.patch \ diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index d46fd160ad..640d502783 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -125,7 +125,7 @@ LP/MIP solver is included in the package.") (define-public pspp (package (name "pspp") - (version "0.8.1") + (version "0.8.2") (source (origin (method url-fetch) @@ -133,8 +133,7 @@ LP/MIP solver is included in the package.") version ".tar.gz")) (sha256 (base32 - "0qhxsdbwxd3cn1shc13wxvx2lg32lp4z6sz24kv3jz7p5xfi8j7x")) - (patches (list (search-patch "pspp-tests.patch"))))) + "1w7h3dglgx0jlq1wb605b8pgfsk2vr1q2q2rj7bsajh9ihbcsixr")))) (build-system gnu-build-system) (inputs `(("cairo" ,cairo) diff --git a/gnu/packages/patches/pspp-tests.patch b/gnu/packages/patches/pspp-tests.patch deleted file mode 100644 index 3e61b68804..0000000000 --- a/gnu/packages/patches/pspp-tests.patch +++ /dev/null @@ -1,13 +0,0 @@ -diff --git a/tests/output/render-test.c b/tests/output/render-test.c -index 5f4c1da..e9df96c 100644 ---- a/tests/output/render-test.c -+++ b/tests/output/render-test.c -@@ -142,7 +142,7 @@ configure_drivers (int width, int length) - string_map_insert (&options, "left-margin", "0"); - string_map_insert (&options, "right-margin", "0"); - string_map_insert_nocopy (&options, xstrdup ("paper-size"), -- xasprintf ("%dx%dpt", width * 5, length * 8)); -+ xasprintf ("%dx%dpt", width * 5, length * 16)); - driver = output_driver_create (&options); - if (driver == NULL) - exit (EXIT_FAILURE); -- cgit v1.2.3 From 9208d0c1a0ac673b383565f7bfb9040161f28b10 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 15 Jan 2014 22:47:55 +0100 Subject: gnu: Add libexif, libgphoto2, and gphoto2. * gnu/packages/photo.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. --- gnu-system.am | 1 + gnu/packages/photo.scm | 121 +++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 122 insertions(+) create mode 100644 gnu/packages/photo.scm (limited to 'gnu-system.am') diff --git a/gnu-system.am b/gnu-system.am index 6ed6371d8b..43f95b3d23 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -156,6 +156,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/pdf.scm \ gnu/packages/pem.scm \ gnu/packages/perl.scm \ + gnu/packages/photo.scm \ gnu/packages/pkg-config.scm \ gnu/packages/plotutils.scm \ gnu/packages/popt.scm \ diff --git a/gnu/packages/photo.scm b/gnu/packages/photo.scm new file mode 100644 index 0000000000..8bc2079f4c --- /dev/null +++ b/gnu/packages/photo.scm @@ -0,0 +1,121 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2014 Ludovic Courtès +;;; +;;; 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 photo) + #:use-module (guix licenses) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages libusb) + #:use-module (gnu packages autotools) + #:use-module (gnu packages readline) + #:use-module (gnu packages popt) + #:use-module ((gnu packages base) #:select (tzdata))) + +(define-public libexif + (package + (name "libexif") + (version "0.6.21") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/libexif/libexif-" + version ".tar.bz2")) + (sha256 + (base32 + "06nlsibr3ylfwp28w8f5466l6drgrnydgxrm4jmxzrmk5svaxk8n")))) + (build-system gnu-build-system) + (home-page "http://libexif.sourceforge.net/") + (synopsis "Read and manipulate EXIF data in digital photographs") + (description + "The libexif C library allows applications to read, edit, and save EXIF +data as produced by digital cameras.") + (license lgpl2.1+))) + +(define-public libgphoto2 + (package + (name "libgphoto2") + (version "2.5.2") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/gphoto/libgphoto2-" + version ".tar.bz2")) + (sha256 + (base32 + "0f1818l1vs5fbmrihzyv3qasddbqi3r01jik5crrxddwalsi2bd3")))) + (build-system gnu-build-system) + (native-inputs `(("pkg-config" ,pkg-config))) + (inputs + `(;; ("libjpeg-turbo" ,libjpeg-turbo) + ("libtool" ,libtool) + ("libusb" ,libusb))) + (propagated-inputs + `(;; The .pc refers to libexif. + ("libexif" ,libexif))) + (home-page "http://www.gphoto.org/proj/libgphoto2/") + (synopsis "Accessing digital cameras") + (description + "This is the library backend for gphoto2. It contains the code for PTP, +MTP, and other vendor specific protocols for controlling and transferring data +from digital cameras.") + + ;; 'COPYING' says LGPLv2.1+, but in practices files are under LGPLv2+. + (license lgpl2.1+))) + +(define-public gphoto2 + (package + (name "gphoto2") + (version "2.5.2") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/gphoto/gphoto2-" + version ".tar.bz2")) + (sha256 + (base32 + "16c8k1cxfypg7v5h8xi87grclw7a5ayaamn548ys3zkj727r5fcf")))) + (build-system gnu-build-system) + (native-inputs + `(("pkg-config" ,pkg-config))) + (inputs + `(("readline" ,readline) + ;; ("libjpeg-turbo" ,libjpeg-turbo) + ("popt" ,popt) + ("libexif" ,libexif) + ("libgphoto2" ,libgphoto2))) + (arguments + '(#:phases (alist-cons-before + 'check 'pre-check + (lambda* (#:key inputs #:allow-other-keys) + (substitute* (find-files "tests/data" "\\.param$") + (("/usr/bin/env") + (which "env")))) + %standard-phases) + + ;; FIXME: There are 2 test failures, most likely related to the build + ;; environment. + #:tests? #f)) + + (home-page "http://www.gphoto.org/") + (synopsis "Command-line tools to access digital cameras") + (description + "Gphoto2 is a set of command line utilities for manipulating a large +number of different digital cameras. Through libgphoto2, it supports PTP, +MTP, and much more.") + + ;; Files are typically under LGPLv2+, but 'COPYING' says GPLv2+. + (license gpl2+))) -- cgit v1.2.3 From c915b404b2550418af197504622480dee79812f4 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 17 Jan 2014 23:47:31 +0100 Subject: gnu: Add DocBook DTD and XSL style sheets. * gnu/packages/docbook.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. --- gnu-system.am | 1 + gnu/packages/docbook.scm | 100 +++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 101 insertions(+) create mode 100644 gnu/packages/docbook.scm (limited to 'gnu-system.am') diff --git a/gnu-system.am b/gnu-system.am index 43f95b3d23..47995b5cbe 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -54,6 +54,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/cyrus-sasl.scm \ gnu/packages/dejagnu.scm \ gnu/packages/ddrescue.scm \ + gnu/packages/docbook.scm \ gnu/packages/dwm.scm \ gnu/packages/ed.scm \ gnu/packages/elf.scm \ diff --git a/gnu/packages/docbook.scm b/gnu/packages/docbook.scm new file mode 100644 index 0000000000..f6d20097e4 --- /dev/null +++ b/gnu/packages/docbook.scm @@ -0,0 +1,100 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2014 Ludovic Courtès +;;; +;;; 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 docbook) + #:use-module (gnu packages) + #:use-module (gnu packages compression) + #:use-module ((gnu packages base) + #:select (tar)) + #:use-module (guix licenses) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system trivial) + #:autoload (gnu packages zip) (unzip)) + +(define-public docbook-xml + (package + (name "docbook-xml") + (version "4.5") + (source (origin + (method url-fetch) + (uri (string-append "http://www.docbook.org/xml/" version + "/docbook-xml-" version ".zip")) + (sha256 + (base32 + "1d671lcjckjri28xfbf6dq7y3xnkppa910w1jin8rjc35dx06kjf")))) + (build-system trivial-build-system) + (arguments + '(#:builder (begin + (use-modules (guix build utils)) + + (let* ((unzip + (string-append (assoc-ref %build-inputs "unzip") + "/bin/unzip")) + (source (assoc-ref %build-inputs "source")) + (out (assoc-ref %outputs "out")) + (dtd (string-append out "/xml/dtd/docbook"))) + (mkdir-p dtd) + (with-directory-excursion dtd + (system* unzip source)))) + #:modules ((guix build utils)))) + (native-inputs `(("unzip" ,unzip))) + (home-page "http://docbook.org") + (synopsis "DocBook XML DTDs for document authoring") + (description + "DocBook is general purpose XML and SGML document type particularly well +suited to books and papers about computer hardware and software (though it is +by no means limited to these applications.) This package provides XML DTDs.") + (license (x11-style "" "See file headers.")))) + +(define-public docbook-xsl + (package + (name "docbook-xsl") + (version "1.72.0") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/docbook/docbook-xsl-" + version ".tar.bz2")) + (sha256 + (base32 + "1cnrfgqz8pc9wnlgqjch2338ad7jki6d4h6b2fhaxn1a2201df5k")))) + (build-system trivial-build-system) + (arguments + `(#:builder (begin + (use-modules (guix build utils)) + + (let* ((bzip2 (assoc-ref %build-inputs "bzip2")) + (tar (assoc-ref %build-inputs "tar")) + (source (assoc-ref %build-inputs "source")) + (out (assoc-ref %outputs "out")) + (xsl (string-append out "/xml/xsl"))) + (setenv "PATH" (string-append bzip2 "/bin")) + (system* (string-append tar "/bin/tar") "xvf" source) + + (mkdir-p xsl) + (copy-recursively (string-append ,name "-" ,version) + (string-append xsl "/" ,name + "-" ,version)))) + #:modules ((guix build utils)))) + (native-inputs `(("bzip2" ,bzip2) + ("tar" ,tar))) + (home-page "http://docbook.org") + (synopsis "DocBook XSL style sheets for document authoring") + (description + "This package provides XSL style sheets for DocBook.") + (license (x11-style "" "See 'COPYING' file.")))) -- cgit v1.2.3 From a869565b983a76796cb45209f508901048a0fef3 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 22 Jan 2014 00:21:19 +0100 Subject: gnu: Add GNU V.E.R.A. * gnu/packages/dictionaries.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. --- gnu-system.am | 1 + gnu/packages/dictionaries.scm | 78 +++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 79 insertions(+) create mode 100644 gnu/packages/dictionaries.scm (limited to 'gnu-system.am') diff --git a/gnu-system.am b/gnu-system.am index 47995b5cbe..d60371bcbf 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -54,6 +54,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/cyrus-sasl.scm \ gnu/packages/dejagnu.scm \ gnu/packages/ddrescue.scm \ + gnu/packages/dictionaries.scm \ gnu/packages/docbook.scm \ gnu/packages/dwm.scm \ gnu/packages/ed.scm \ diff --git a/gnu/packages/dictionaries.scm b/gnu/packages/dictionaries.scm new file mode 100644 index 0000000000..4520c2149f --- /dev/null +++ b/gnu/packages/dictionaries.scm @@ -0,0 +1,78 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2014 Ludovic Courtès +;;; +;;; 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 dictionaries) + #:use-module (guix licenses) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system trivial) + #:use-module (gnu packages base) + #:use-module (gnu packages texinfo) + #:use-module ((gnu packages compression) + #:select (gzip))) + +(define-public vera + (package + (name "vera") + (version "1.21a") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnu/vera/vera-" version + ".tar.gz")) + (sha256 + (base32 + "09qz1g8js8qw735wmd8kraqbk1d1997v3px2lcc58frf1r66bp8f")))) + (build-system trivial-build-system) + (arguments + `(#:builder (begin + (use-modules (guix build utils)) + + (let* ((out (assoc-ref %outputs "out")) + (info (string-append out "/share/info")) + (html (string-append out "/share/html")) + (source (assoc-ref %build-inputs "source")) + (tar (assoc-ref %build-inputs "tar")) + (gz (assoc-ref %build-inputs "gzip")) + (texi (assoc-ref %build-inputs "texinfo"))) + (setenv "PATH" (string-append gz "/bin")) + (system* (string-append tar "/bin/tar") "xvf" source) + + (chdir (string-append "vera-" ,version)) + (mkdir-p info) + (mkdir-p html) + + ;; XXX: Use '--force' because the document is unhappy + ;; with Texinfo 5 (yes, documents can be unhappy.) + (and (zero? + (system* (string-append texi "/bin/makeinfo") + "vera.texi" "--force" "-o" + (string-append info "/vera.info"))) + (zero? + (system* (string-append texi "/bin/makeinfo") + "vera.texi" "--force" "--html" "-o" + (string-append html "/vera.html")))))) + #:modules ((guix build utils)))) + (native-inputs `(("texinfo" ,texinfo) + ("tar" ,tar) + ("gzip" ,gzip))) + (home-page "http://savannah.gnu.org/projects/vera/") + (synopsis "List of acronyms") + (description + "V.E.R.A. (Virtual Entity of Relevant Acronyms) is a list of computing +acronyms distributed as an info document.") + (license fdl1.3+))) -- cgit v1.2.3 From 54ff0b7dd7e68fa50dbea7a2d335c98fc60057d4 Mon Sep 17 00:00:00 2001 From: Andreas Enge Date: Thu, 23 Jan 2014 19:05:09 +0100 Subject: gnu: Rename (gnu packages oggvorbis) to (gnu packages xiph). * gnu/packages/oggvorbis.scm: Rename this ... * gnu/packages/xiph.scm: ... to this. Adjust module name accordingly. * gnu-system.am (GNU_SYSTEM_MODULES): Update. * gnu/packages/{gnunet.scm, libcanberra.scm, mp3.scm, pulseaudio.scm, sdl.scm, video.scm}: Use new module name. --- gnu-system.am | 2 +- gnu/packages/gnunet.scm | 2 +- gnu/packages/libcanberra.scm | 4 +- gnu/packages/mp3.scm | 4 +- gnu/packages/oggvorbis.scm | 280 ------------------------------------------- gnu/packages/pulseaudio.scm | 14 +-- gnu/packages/sdl.scm | 2 +- gnu/packages/video.scm | 2 +- gnu/packages/xiph.scm | 280 +++++++++++++++++++++++++++++++++++++++++++ 9 files changed, 295 insertions(+), 295 deletions(-) delete mode 100644 gnu/packages/oggvorbis.scm create mode 100644 gnu/packages/xiph.scm (limited to 'gnu-system.am') diff --git a/gnu-system.am b/gnu-system.am index d60371bcbf..31d664e116 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -147,7 +147,6 @@ GNU_SYSTEM_MODULES = \ gnu/packages/noweb.scm \ gnu/packages/ocaml.scm \ gnu/packages/ocrad.scm \ - gnu/packages/oggvorbis.scm \ gnu/packages/onc-rpc.scm \ gnu/packages/openldap.scm \ gnu/packages/openssl.scm \ @@ -205,6 +204,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/wget.scm \ gnu/packages/which.scm \ gnu/packages/wordnet.scm \ + gnu/packages/xiph.scm \ gnu/packages/xlockmore.scm \ gnu/packages/xml.scm \ gnu/packages/xnee.scm \ diff --git a/gnu/packages/gnunet.scm b/gnu/packages/gnunet.scm index df5b1e337c..52a434a61c 100644 --- a/gnu/packages/gnunet.scm +++ b/gnu/packages/gnunet.scm @@ -28,10 +28,10 @@ #:use-module (gnu packages gstreamer) #:use-module (gnu packages libjpeg) #:use-module (gnu packages libtiff) - #:use-module (gnu packages oggvorbis) #:use-module (gnu packages openssl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages video) + #:use-module (gnu packages xiph) #:use-module ((guix licenses) #:renamer (symbol-prefix-proc 'license:)) #:use-module (guix packages) diff --git a/gnu/packages/libcanberra.scm b/gnu/packages/libcanberra.scm index dacbe31a31..1106a8aa83 100644 --- a/gnu/packages/libcanberra.scm +++ b/gnu/packages/libcanberra.scm @@ -25,8 +25,8 @@ #:use-module (gnu packages gstreamer) #:use-module (gnu packages gtk) #:use-module (gnu packages linux) - #:use-module (gnu packages oggvorbis) - #:use-module (gnu packages pkg-config)) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages xiph)) (define-public libcanberra (package diff --git a/gnu/packages/mp3.scm b/gnu/packages/mp3.scm index 73cbf40fac..7e324703a6 100644 --- a/gnu/packages/mp3.scm +++ b/gnu/packages/mp3.scm @@ -23,13 +23,13 @@ #:use-module (gnu packages autotools) #:use-module (gnu packages cdrom) #:use-module (gnu packages compression) + #:use-module (gnu packages gettext) #:use-module (gnu packages ghostscript) #:use-module (gnu packages glib) #:use-module (gnu packages gtk) - #:use-module (gnu packages oggvorbis) #:use-module (gnu packages pcre) #:use-module (gnu packages pkg-config) - #:use-module (gnu packages gettext) + #:use-module (gnu packages xiph) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix build-system gnu)) diff --git a/gnu/packages/oggvorbis.scm b/gnu/packages/oggvorbis.scm deleted file mode 100644 index 0bce731f45..0000000000 --- a/gnu/packages/oggvorbis.scm +++ /dev/null @@ -1,280 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Andreas Enge -;;; Copyright © 2013 Nikita Karetnikov -;;; Copyright © 2013 David Thompson -;;; -;;; 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 oggvorbis) - #:use-module (gnu packages) - #:use-module (gnu packages bison) - #:use-module (gnu packages compression) - #:use-module (gnu packages curl) - #:use-module (gnu packages libpng) - #:use-module (gnu packages pkg-config) - #:use-module (gnu packages python) - #:use-module (gnu packages linux) - #:use-module (gnu packages pulseaudio) - #:use-module ((guix licenses) - #:renamer (symbol-prefix-proc 'license:)) - #:use-module (guix packages) - #:use-module (guix download) - #:use-module (guix build-system gnu) - #:export (libogg - libvorbis - libtheora - speex - ao - flac - libkate - vorbis-tools)) - -(define libogg - (package - (name "libogg") - (version "1.3.0") - (source (origin - (method url-fetch) - (uri (string-append "http://downloads.xiph.org/releases/ogg/libogg-" - version ".tar.xz")) - (sha256 - (base32 - "0jy79ffkl34vycnwfsj4svqsdg1lwy2l1rr49y8r4d44kh12a5r3")))) - (build-system gnu-build-system) - (synopsis "libogg, a library for manipulating the ogg multimedia format") - (description - "The libogg library allows to manipulate the ogg multimedia container -format, which encapsulates raw compressed data and allows the interleaving of -audio and video data. In addition to encapsulation and interleaving of -multiple data streams, ogg provides packet framing, error detection, and -periodic timestamps for seeking.") - (license (license:bsd-style "file://COPYING" - "See COPYING in the distribution.")) - (home-page "http://xiph.org/ogg/"))) - -(define libvorbis - (package - (name "libvorbis") - (version "1.3.3") - (source (origin - (method url-fetch) - (uri (string-append "http://downloads.xiph.org/releases/vorbis/libvorbis-" - version ".tar.xz")) - (sha256 - (base32 - "1gby6hapz9njx4l9g0pndyk4q83z5fgrgc30mfwfgx7bllspsk43")))) - (build-system gnu-build-system) - (propagated-inputs `(("libogg" ,libogg))) - (arguments `(#:configure-flags '("LDFLAGS=-lm"))) - (synopsis "libvorbis, a library implementing the vorbis audio format") - (description - "The libvorbis library implements the ogg vorbis audio format, -a fully open, non-proprietary, patent-and-royalty-free, general-purpose -compressed audio format for mid to high quality (8kHz-48.0kHz, 16+ bit, -polyphonic) audio and music at fixed and variable bitrates from 16 to -128 kbps/channel.") - (license (license:bsd-style "file://COPYING" - "See COPYING in the distribution.")) - (home-page "http://xiph.org/vorbis/"))) - -(define libtheora - (package - (name "libtheora") - (version "1.1.1") - (source (origin - (method url-fetch) - (uri (string-append "http://downloads.xiph.org/releases/theora/libtheora-" - version ".tar.xz")) - (sha256 - (base32 - "0q8wark9ribij57dciym5vdikg2464p8q2mgqvfb78ksjh4s8vgk")) - (patches (list (search-patch "libtheora-config-guess.patch"))))) - (build-system gnu-build-system) - (inputs `(("libvorbis" ,libvorbis))) - ;; The .pc files refer to libogg. - (propagated-inputs `(("libogg" ,libogg))) - (synopsis "Library implementing the Theora video format") - (description - "The libtheora library implements the ogg theora video format, -a fully open, non-proprietary, patent-and-royalty-free, general-purpose -compressed video format.") - (license license:bsd-3) - (home-page "http://xiph.org/theora/"))) - -(define speex - (package - (name "speex") - (version "1.2rc1") - (source - (origin - (method url-fetch) - (uri (string-append "http://downloads.xiph.org/releases/speex/speex-" - version ".tar.gz")) - (sha256 - (base32 - "19mpkhbz3s08snvndn0h1dk2j139max6b0rr86nnsjmxazf30brl")))) - (build-system gnu-build-system) - (inputs `(("libogg" ,libogg))) - (home-page "https://gnu.org/software/speex") - (synopsis "Library for patent-free audio compression format") - (description - "GNU Speex is a patent-free audio compression codec specially designed -for speech. It is well-adapted to internet applications, such as VoIP. It -features compression of different bands in the same bitstream, intensity -stereo encoding, and voice activity detection.") - ;; 'src/getopt.c' is under LGPLv2+ - (license (license:bsd-style "file://COPYING" - "See COPYING in the distribution.")))) - -(define ao - (package - (name "ao") - (version "1.1.0") - (source - (origin - (method url-fetch) - (uri (string-append "http://downloads.xiph.org/releases/ao/libao-" - version ".tar.gz")) - (sha256 - (base32 - "1m0v2y6bhr4iwsgdkc7b3y0qgpvpv1ifbxsy8n8ahsvjn6wmppi9")))) - (build-system gnu-build-system) - ;; FIXME: Add further backends, see the summary printed after configure. - ;; XXX: Should back-ends be pushed to different outputs? For instance, - ;; "out" would include only the ALSA back-end, while "pulse" would - ;; contains 'lib/ao/plugins-4/libpulse.*'. - (inputs `(("pkg-config" ,pkg-config) - ("alsa-lib" ,alsa-lib) - ("pulseaudio" ,pulseaudio))) - (synopsis "Cross platform audio library") - (description - "Libao is a cross-platform audio library that allows programs to -output audio using a simple API on a wide variety of platforms. -It currently supports: -Null output (handy for testing without a sound device), -WAV files, -AU files, -RAW files, -OSS (Open Sound System, used on Linux and FreeBSD), -ALSA (Advanced Linux Sound Architecture), -aRts (Analog RealTime Synth, used by KDE), -PulseAudio (next generation GNOME sound server), -esd (EsounD or Enlightened Sound Daemon), -Mac OS X, -Windows (98 and later), -AIX, -Sun/NetBSD/OpenBSD, -IRIX, -NAS (Network Audio Server), -RoarAudio (Modern, multi-OS, networked Sound System), -OpenBSD's sndio.") - (license license:gpl2+) - (home-page "http://www.xiph.org/ao/"))) - -(define flac - (package - (name "flac") - (version "1.2.1") - (source (origin - (method url-fetch) - (uri (string-append "http://downloads.xiph.org/releases/flac/flac-" - version ".tar.gz")) - (sha256 - (base32 - "1pry5lgzfg57pga1zbazzdd55fkgk3v5qy4axvrbny5lrr5s8dcn")) - (patches - (list (search-patch "flac-fix-memcmp-not-declared.patch"))))) - (build-system gnu-build-system) - (arguments - `(#:parallel-tests? #f)) - ;; FIXME: configure also looks for xmms, input could be added once it exists - (inputs `(("libogg" ,libogg))) - (synopsis "flac free lossless audio codec") - (description -"FLAC stands for Free Lossless Audio Codec, an audio format that is lossless, -meaning that audio is compressed in FLAC without any loss in quality.") - (license (license:bsd-style "file://COPYING" - "See COPYING in the distribution.")) ; and LGPL and GPL - (home-page "http://xiph.org/flac/"))) - -(define libkate - (package - (name "libkate") - (version "0.4.1") - (source (origin - (method url-fetch) - (uri (string-append "http://libkate.googlecode.com/files/libkate-" - version ".tar.gz")) - (sha256 - (base32 - "0s3vr2nxfxlf1k75iqpp4l78yf4gil3f0v778kvlngbchvaq23n4")))) - (build-system gnu-build-system) - ;; FIXME: Add optional inputs doxygen (for documentation) and liboggz - (inputs `(("bison" ,bison) - ("libogg" ,libogg) - ("libpng" ,libpng) - ("pkg-config" ,pkg-config) - ("python" ,python-wrapper) - ("zlib" ,zlib))) - (synopsis "kate, a karaoke and text codec for embedding in ogg") - (description - "Kate is an overlay codec, originally designed for karaoke and text, -that can be multiplixed in Ogg. Text and images can be carried by a Kate -stream, and animated. Most of the time, this would be multiplexed with -audio/video to carry subtitles, song lyrics (with or without karaoke data), -etc., but doesn't have to be. - -Series of curves (splines, segments, etc.) may be attached to various -properties (text position, font size, etc.) to create animated overlays. -This allows scrolling or fading text to be defined. This can even be used -to draw arbitrary shapes, so hand drawing can also be represented by a -Kate stream.") - (license license:bsd-3) - (home-page "http://code.google.com/p/libkate/"))) - -(define vorbis-tools - (package - (name "vorbis-tools") - (version "1.4.0") - (source (origin - (method url-fetch) - (uri (string-append "http://downloads.xiph.org/releases/vorbis/vorbis-tools-" - version ".tar.gz")) - (sha256 - (base32 - "1g12bnh5ah08v529y72kfdz5lhvy75iaz7f9jskyby23m9dkk2d3")))) - (build-system gnu-build-system) - (inputs `(("ao" ,ao) - ("curl" ,curl) - ("flac" ,flac) - ("libkate" ,libkate) - ("libogg" ,libogg) - ("libvorbis" ,libvorbis) - ("pkg-config" ,pkg-config) - ("speex" ,speex))) - (synopsis "ogg vorbis tools") - (description - "Ogg vorbis is a non-proprietary, patent-and-royalty-free, -general-purpose compressed audio format. - -The package vorbis-tools contains -ogg123, an ogg vorbis command line audio player; -oggenc, the ogg vorbis encoder; -oggdec, a simple, portable command line decoder (to wav and raw); -ogginfo, to obtain information (tags, bitrate, length, etc.) about - an ogg vorbis file.") - (license license:gpl2) - (home-page "http://xiph.org/vorbis/"))) diff --git a/gnu/packages/pulseaudio.scm b/gnu/packages/pulseaudio.scm index 91bbe2d77a..8bf48c2a89 100644 --- a/gnu/packages/pulseaudio.scm +++ b/gnu/packages/pulseaudio.scm @@ -23,18 +23,18 @@ #:renamer (symbol-prefix-proc 'l:)) #:use-module (guix build-system gnu) #:use-module (gnu packages) - #:use-module (gnu packages linux) - #:use-module (gnu packages oggvorbis) - #:use-module (gnu packages pkg-config) + #:use-module (gnu packages algebra) + #:use-module ((gnu packages autotools) #:select (libtool)) #:use-module (gnu packages avahi) + #:use-module (gnu packages check) + #:use-module (gnu packages gdbm) #:use-module (gnu packages glib) #:use-module (gnu packages gtk) #:use-module (gnu packages libcanberra) - #:use-module (gnu packages algebra) - #:use-module ((gnu packages autotools) #:select (libtool)) - #:use-module (gnu packages gdbm) + #:use-module (gnu packages linux) #:use-module (gnu packages m4) - #:use-module (gnu packages check) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages xiph) #:export (libsndfile libsamplerate json-c diff --git a/gnu/packages/sdl.scm b/gnu/packages/sdl.scm index 86b403503b..25ae1b0721 100644 --- a/gnu/packages/sdl.scm +++ b/gnu/packages/sdl.scm @@ -28,10 +28,10 @@ #:use-module (gnu packages libtiff) #:use-module (gnu packages linux) #:use-module (gnu packages mp3) - #:use-module (gnu packages oggvorbis) #:use-module (gnu packages pkg-config) #:use-module (gnu packages pulseaudio) #:use-module (gnu packages gl) + #:use-module (gnu packages xiph) #:use-module (gnu packages xorg) #:export (sdl sdl2 diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index b1d1270c05..8e4315a880 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -25,11 +25,11 @@ #:use-module (gnu packages compression) #:use-module (gnu packages elf) #:use-module (gnu packages fontutils) - #:use-module (gnu packages oggvorbis) #:use-module (gnu packages openssl) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) + #:use-module (gnu packages xiph) #:use-module (gnu packages yasm)) (define-public ffmpeg diff --git a/gnu/packages/xiph.scm b/gnu/packages/xiph.scm new file mode 100644 index 0000000000..6bd6658035 --- /dev/null +++ b/gnu/packages/xiph.scm @@ -0,0 +1,280 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2013 Andreas Enge +;;; Copyright © 2013 Nikita Karetnikov +;;; Copyright © 2013 David Thompson +;;; +;;; 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 xiph) + #:use-module (gnu packages) + #:use-module (gnu packages bison) + #:use-module (gnu packages compression) + #:use-module (gnu packages curl) + #:use-module (gnu packages libpng) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages python) + #:use-module (gnu packages linux) + #:use-module (gnu packages pulseaudio) + #:use-module ((guix licenses) + #:renamer (symbol-prefix-proc 'license:)) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:export (libogg + libvorbis + libtheora + speex + ao + flac + libkate + vorbis-tools)) + +(define libogg + (package + (name "libogg") + (version "1.3.0") + (source (origin + (method url-fetch) + (uri (string-append "http://downloads.xiph.org/releases/ogg/libogg-" + version ".tar.xz")) + (sha256 + (base32 + "0jy79ffkl34vycnwfsj4svqsdg1lwy2l1rr49y8r4d44kh12a5r3")))) + (build-system gnu-build-system) + (synopsis "libogg, a library for manipulating the ogg multimedia format") + (description + "The libogg library allows to manipulate the ogg multimedia container +format, which encapsulates raw compressed data and allows the interleaving of +audio and video data. In addition to encapsulation and interleaving of +multiple data streams, ogg provides packet framing, error detection, and +periodic timestamps for seeking.") + (license (license:bsd-style "file://COPYING" + "See COPYING in the distribution.")) + (home-page "http://xiph.org/ogg/"))) + +(define libvorbis + (package + (name "libvorbis") + (version "1.3.3") + (source (origin + (method url-fetch) + (uri (string-append "http://downloads.xiph.org/releases/vorbis/libvorbis-" + version ".tar.xz")) + (sha256 + (base32 + "1gby6hapz9njx4l9g0pndyk4q83z5fgrgc30mfwfgx7bllspsk43")))) + (build-system gnu-build-system) + (propagated-inputs `(("libogg" ,libogg))) + (arguments `(#:configure-flags '("LDFLAGS=-lm"))) + (synopsis "libvorbis, a library implementing the vorbis audio format") + (description + "The libvorbis library implements the ogg vorbis audio format, +a fully open, non-proprietary, patent-and-royalty-free, general-purpose +compressed audio format for mid to high quality (8kHz-48.0kHz, 16+ bit, +polyphonic) audio and music at fixed and variable bitrates from 16 to +128 kbps/channel.") + (license (license:bsd-style "file://COPYING" + "See COPYING in the distribution.")) + (home-page "http://xiph.org/vorbis/"))) + +(define libtheora + (package + (name "libtheora") + (version "1.1.1") + (source (origin + (method url-fetch) + (uri (string-append "http://downloads.xiph.org/releases/theora/libtheora-" + version ".tar.xz")) + (sha256 + (base32 + "0q8wark9ribij57dciym5vdikg2464p8q2mgqvfb78ksjh4s8vgk")) + (patches (list (search-patch "libtheora-config-guess.patch"))))) + (build-system gnu-build-system) + (inputs `(("libvorbis" ,libvorbis))) + ;; The .pc files refer to libogg. + (propagated-inputs `(("libogg" ,libogg))) + (synopsis "Library implementing the Theora video format") + (description + "The libtheora library implements the ogg theora video format, +a fully open, non-proprietary, patent-and-royalty-free, general-purpose +compressed video format.") + (license license:bsd-3) + (home-page "http://xiph.org/theora/"))) + +(define speex + (package + (name "speex") + (version "1.2rc1") + (source + (origin + (method url-fetch) + (uri (string-append "http://downloads.xiph.org/releases/speex/speex-" + version ".tar.gz")) + (sha256 + (base32 + "19mpkhbz3s08snvndn0h1dk2j139max6b0rr86nnsjmxazf30brl")))) + (build-system gnu-build-system) + (inputs `(("libogg" ,libogg))) + (home-page "https://gnu.org/software/speex") + (synopsis "Library for patent-free audio compression format") + (description + "GNU Speex is a patent-free audio compression codec specially designed +for speech. It is well-adapted to internet applications, such as VoIP. It +features compression of different bands in the same bitstream, intensity +stereo encoding, and voice activity detection.") + ;; 'src/getopt.c' is under LGPLv2+ + (license (license:bsd-style "file://COPYING" + "See COPYING in the distribution.")))) + +(define ao + (package + (name "ao") + (version "1.1.0") + (source + (origin + (method url-fetch) + (uri (string-append "http://downloads.xiph.org/releases/ao/libao-" + version ".tar.gz")) + (sha256 + (base32 + "1m0v2y6bhr4iwsgdkc7b3y0qgpvpv1ifbxsy8n8ahsvjn6wmppi9")))) + (build-system gnu-build-system) + ;; FIXME: Add further backends, see the summary printed after configure. + ;; XXX: Should back-ends be pushed to different outputs? For instance, + ;; "out" would include only the ALSA back-end, while "pulse" would + ;; contain 'lib/ao/plugins-4/libpulse.*'. + (inputs `(("pkg-config" ,pkg-config) + ("alsa-lib" ,alsa-lib) + ("pulseaudio" ,pulseaudio))) + (synopsis "Cross platform audio library") + (description + "Libao is a cross-platform audio library that allows programs to +output audio using a simple API on a wide variety of platforms. +It currently supports: +Null output (handy for testing without a sound device), +WAV files, +AU files, +RAW files, +OSS (Open Sound System, used on Linux and FreeBSD), +ALSA (Advanced Linux Sound Architecture), +aRts (Analog RealTime Synth, used by KDE), +PulseAudio (next generation GNOME sound server), +esd (EsounD or Enlightened Sound Daemon), +Mac OS X, +Windows (98 and later), +AIX, +Sun/NetBSD/OpenBSD, +IRIX, +NAS (Network Audio Server), +RoarAudio (Modern, multi-OS, networked Sound System), +OpenBSD's sndio.") + (license license:gpl2+) + (home-page "http://www.xiph.org/ao/"))) + +(define flac + (package + (name "flac") + (version "1.2.1") + (source (origin + (method url-fetch) + (uri (string-append "http://downloads.xiph.org/releases/flac/flac-" + version ".tar.gz")) + (sha256 + (base32 + "1pry5lgzfg57pga1zbazzdd55fkgk3v5qy4axvrbny5lrr5s8dcn")) + (patches + (list (search-patch "flac-fix-memcmp-not-declared.patch"))))) + (build-system gnu-build-system) + (arguments + `(#:parallel-tests? #f)) + ;; FIXME: configure also looks for xmms, input could be added once it exists + (inputs `(("libogg" ,libogg))) + (synopsis "flac free lossless audio codec") + (description +"FLAC stands for Free Lossless Audio Codec, an audio format that is lossless, +meaning that audio is compressed in FLAC without any loss in quality.") + (license (license:bsd-style "file://COPYING" + "See COPYING in the distribution.")) ; and LGPL and GPL + (home-page "http://xiph.org/flac/"))) + +(define libkate + (package + (name "libkate") + (version "0.4.1") + (source (origin + (method url-fetch) + (uri (string-append "http://libkate.googlecode.com/files/libkate-" + version ".tar.gz")) + (sha256 + (base32 + "0s3vr2nxfxlf1k75iqpp4l78yf4gil3f0v778kvlngbchvaq23n4")))) + (build-system gnu-build-system) + ;; FIXME: Add optional inputs doxygen (for documentation) and liboggz + (inputs `(("bison" ,bison) + ("libogg" ,libogg) + ("libpng" ,libpng) + ("pkg-config" ,pkg-config) + ("python" ,python-wrapper) + ("zlib" ,zlib))) + (synopsis "kate, a karaoke and text codec for embedding in ogg") + (description + "Kate is an overlay codec, originally designed for karaoke and text, +that can be multiplixed in Ogg. Text and images can be carried by a Kate +stream, and animated. Most of the time, this would be multiplexed with +audio/video to carry subtitles, song lyrics (with or without karaoke data), +etc., but doesn't have to be. + +Series of curves (splines, segments, etc.) may be attached to various +properties (text position, font size, etc.) to create animated overlays. +This allows scrolling or fading text to be defined. This can even be used +to draw arbitrary shapes, so hand drawing can also be represented by a +Kate stream.") + (license license:bsd-3) + (home-page "http://code.google.com/p/libkate/"))) + +(define vorbis-tools + (package + (name "vorbis-tools") + (version "1.4.0") + (source (origin + (method url-fetch) + (uri (string-append "http://downloads.xiph.org/releases/vorbis/vorbis-tools-" + version ".tar.gz")) + (sha256 + (base32 + "1g12bnh5ah08v529y72kfdz5lhvy75iaz7f9jskyby23m9dkk2d3")))) + (build-system gnu-build-system) + (inputs `(("ao" ,ao) + ("curl" ,curl) + ("flac" ,flac) + ("libkate" ,libkate) + ("libogg" ,libogg) + ("libvorbis" ,libvorbis) + ("pkg-config" ,pkg-config) + ("speex" ,speex))) + (synopsis "ogg vorbis tools") + (description + "Ogg vorbis is a non-proprietary, patent-and-royalty-free, +general-purpose compressed audio format. + +The package vorbis-tools contains +ogg123, an ogg vorbis command line audio player; +oggenc, the ogg vorbis encoder; +oggdec, a simple, portable command line decoder (to wav and raw); +ogginfo, to obtain information (tags, bitrate, length, etc.) about + an ogg vorbis file.") + (license license:gpl2) + (home-page "http://xiph.org/vorbis/"))) -- cgit v1.2.3 From 28fb9101d940fee615f46fbf6c61299a64ae28c6 Mon Sep 17 00:00:00 2001 From: Sree Harsha Totakura Date: Fri, 24 Jan 2014 18:36:34 +0100 Subject: gnu: Add ncdc-1.18.1. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/dc.scm : New module. * gnu-system.am (GNU_SYSTEM_MODULES): Add module. Signed-off-by: Ludovic Courtès --- gnu-system.am | 1 + gnu/packages/dc.scm | 60 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 61 insertions(+) create mode 100644 gnu/packages/dc.scm (limited to 'gnu-system.am') diff --git a/gnu-system.am b/gnu-system.am index 31d664e116..3112dc48aa 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -52,6 +52,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/cryptsetup.scm \ gnu/packages/curl.scm \ gnu/packages/cyrus-sasl.scm \ + gnu/packages/dc.scm \ gnu/packages/dejagnu.scm \ gnu/packages/ddrescue.scm \ gnu/packages/dictionaries.scm \ diff --git a/gnu/packages/dc.scm b/gnu/packages/dc.scm new file mode 100644 index 0000000000..75ed5f4af7 --- /dev/null +++ b/gnu/packages/dc.scm @@ -0,0 +1,60 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2014 Sree Harsha Totakura +;;; +;;; 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 dc) + #:use-module (gnu packages) + #:use-module (gnu packages compression) + #:use-module (gnu packages glib) + #:use-module (gnu packages gnutls) + #:use-module (gnu packages ncurses) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages sqlite) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:use-module ((guix licenses) + #:renamer (symbol-prefix-proc 'license:))) + +(define-public ncdc + (package + (name "ncdc") + (version "1.18.1") + (source + (origin + (method url-fetch) + (uri (string-append "http://dev.yorhel.nl/download/ncdc-" version + ".tar.gz")) + (sha256 (base32 + "11c6z9c3vv2vg01q02r53m28q3cx6x66j1l63f1mbk1crlqpf9fc")))) + (build-system gnu-build-system) + (inputs + `(("bzip2" ,bzip2) + ("glib" ,glib) + ("gnutls" ,gnutls) + ("ncurses" ,ncurses) + ("sqlite" ,sqlite) + ("zlib" ,zlib))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (home-page "http://dev.yorhel.nl/ncdc") + (synopsis + "Lightweight direct connect client with a friendly ncurses interface") + (description + "Ncdc is a client for the Direct Connect peer-to-peer protocol implemented +using ncurses. It is known for its smaller footprint and ease of use.") + (license license:x11))) -- cgit v1.2.3 From 4f3a10d59d9dcf14881d9ea1f25c5d94e3d381b1 Mon Sep 17 00:00:00 2001 From: John Darrington Date: Sat, 25 Jan 2014 09:17:39 +0100 Subject: gnu: ncdu: New module MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/ncdu.scm: New file * gnu-system.am: New file ncdu.scm Signed-off-by: Ludovic Courtès --- gnu-system.am | 1 + gnu/packages/ncdu.scm | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 49 insertions(+) create mode 100644 gnu/packages/ncdu.scm (limited to 'gnu-system.am') diff --git a/gnu-system.am b/gnu-system.am index 3112dc48aa..ea537f04fa 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -142,6 +142,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/mtools.scm \ gnu/packages/mysql.scm \ gnu/packages/nano.scm \ + gnu/packages/ncdu.scm \ gnu/packages/ncurses.scm \ gnu/packages/netpbm.scm \ gnu/packages/nettle.scm \ diff --git a/gnu/packages/ncdu.scm b/gnu/packages/ncdu.scm new file mode 100644 index 0000000000..7052567530 --- /dev/null +++ b/gnu/packages/ncdu.scm @@ -0,0 +1,48 @@ +;;; 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 ncdu) + #:use-module (gnu packages) + #:use-module (gnu packages ncurses) + #:use-module (guix licenses) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu)) + +(define-public ncdu + (package + (name "ncdu") + (version "1.10") + (source (origin + (method url-fetch) + (uri (string-append "http://dev.yorhel.nl/download/ncdu-" + version ".tar.gz")) + (sha256 + (base32 + "0rqc5wpqcbfqpcwxgh3jxwa0yw2py0hv0acpsf0a9g6v9144m6gm")))) + (inputs + `(("ncurses" ,ncurses))) + (build-system gnu-build-system) + (synopsis "Ncurses based disk usage analyzer") + (description "A disk usage analyzer with an ncurses interface, aimed to be +run on a remote server where you don't have an entire gaphical setup, but have +to do with a simple SSH connection. ncdu aims to be fast, simple and easy to +use, and should be able to run in any minimal POSIX-like environment with +ncurses installed.") + (license (x11-style "http://g.blicky.net/ncdu.git/plain/COPYING?id=v1.10")) + (home-page "http://dev.yorhel.nl/ncdu"))) -- cgit v1.2.3 From b6cbb314d9fb31b60a73644c260091c27ac52563 Mon Sep 17 00:00:00 2001 From: John Darrington Date: Sat, 25 Jan 2014 09:27:14 +0100 Subject: gnu: fltk: New module MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/fltk.scm: New file * gnu-system.am: New file fltk.scm Signed-off-by: Ludovic Courtès --- gnu-system.am | 1 + gnu/packages/fltk.scm | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 64 insertions(+) create mode 100644 gnu/packages/fltk.scm (limited to 'gnu-system.am') diff --git a/gnu-system.am b/gnu-system.am index ea537f04fa..a49b482549 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -64,6 +64,7 @@ GNU_SYSTEM_MODULES = \ gnu/packages/fdisk.scm \ gnu/packages/file.scm \ gnu/packages/flex.scm \ + gnu/packages/fltk.scm \ gnu/packages/fonts.scm \ gnu/packages/fontutils.scm \ gnu/packages/freeipmi.scm \ diff --git a/gnu/packages/fltk.scm b/gnu/packages/fltk.scm new file mode 100644 index 0000000000..4c8fc3f2c7 --- /dev/null +++ b/gnu/packages/fltk.scm @@ -0,0 +1,63 @@ +;;; 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 fltk) + #:use-module (guix licenses) + #:use-module (gnu packages xorg) + #:use-module (gnu packages gl) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu)) + +(define-public fltk + (package + (name "fltk") + (version "1.3.2") + (source + (origin + (method url-fetch) + (uri (string-append "http://fltk.org/pub/fltk/" version "/fltk-" version "-source.tar.gz")) + (sha256 + (base32 + "1974brlk723095vf8z72kazq1cbqr9a51kq6b0xda6zkjkgl8q0p")))) + (build-system gnu-build-system) + (inputs + `(("libx11" ,libx11) + ("mesa" ,mesa))) + (arguments + `(#:phases + (alist-replace + 'check + (lambda* (#:key inputs #:allow-other-keys) #t) ;; fltk does not have a + ;; check target + (alist-replace + 'configure + (lambda* (#:key outputs #:allow-other-keys #:rest args) + (let ((configure (assoc-ref %standard-phases 'configure))) + (substitute* "makeinclude.in" + (("/bin/sh") (which "sh"))) + (apply configure args))) + %standard-phases)))) + (home-page "https://www.fltk.org") + (synopsis "3D C++ GUI library") + (description "FLTK is a C++ GUI toolkit providing modern GUI functionality without the +bloat. It supports 3D graphics via OpenGL and its built-in GLUT emulation. +FLTK is designed to be small and modular enough to be statically linked, but +works fine as a shared library. FLTK also includes an excellent UI builder +called FLUID that can be used to create applications in minutes.") + (license lgpl2.0))) ; plus certain additional permissions -- cgit v1.2.3