diff options
| -rw-r--r-- | Makefile.am | 1 | ||||
| -rw-r--r-- | distro/packages/system.scm | 90 |
2 files changed, 91 insertions, 0 deletions
diff --git a/Makefile.am b/Makefile.am index 98f8ac9f0b..521ac87b77 100644 --- a/Makefile.am +++ b/Makefile.am @@ -67,6 +67,7 @@ MODULES = \ distro/packages/pth.scm \ distro/packages/readline.scm \ distro/packages/recutils.scm \ + distro/packages/system.scm \ distro/packages/texinfo.scm diff --git a/distro/packages/system.scm b/distro/packages/system.scm new file mode 100644 index 0000000000..bd3de558c0 --- /dev/null +++ b/distro/packages/system.scm @@ -0,0 +1,90 @@ +;;; Guix --- Nix package management from Guile. -*- coding: utf-8 -*- +;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org> +;;; +;;; This file is part of Guix. +;;; +;;; 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. +;;; +;;; 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 Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (distro packages system) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu) + #:use-module (distro) + #:use-module (distro packages ncurses)) + +(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 + "GNU Pies, a program invocation and execution supervisor") + (description + "The name Pies (pronounced \"p-yes\") stands for Program Invocation +and Execution Supervisor. This utility starts and controls execution of +external programs, called components. Each component is a stand-alone +program, which is executed in the foreground. Upon startup, pies reads +the list of components from its configuration file, starts them, and +remains in the background, controlling their execution. If any of the +components terminates, the default action of Pies is to restart it. +However, it can also be programmed to perform a variety of another +actions such as, e.g., sending mail notifications to the system +administrator, invoking another external program, etc. + +Pies can be used for a wide variety of tasks. Its most obious use is to +put in backgound a program which normally cannot detach itself from the +controlling terminal, such as, e.g., minicom. It can launch and control +components of some complex system, such as Jabberd or MeTA1 (and it +offers much more control over them than the native utilities). Finally, +it can replace the inetd utility!") + (license "GPLv3+"))) + +(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")))) + (build-system gnu-build-system) + (arguments `(#:patches (list (assoc-ref %build-inputs "patch/gets")) + + ;; FIXME: `tftp.sh' relies on `netstat' from utils-linux, + ;; which is currently missing. + #:tests? #f)) + (inputs `(("patch/gets" ,(search-patch "diffutils-gets-undeclared.patch")) + ("ncurses" ,ncurses))) + (home-page "http://www.gnu.org/software/inetutils/") + (synopsis + "GNU Inetutils, a collection of common network programs") + (description + "The GNU network utilities suite provides the following tools: +ftp(d), hostname, ifconfig, inetd, logger, ping, rcp, rexec(d), +rlogin(d), rsh(d), syslogd, talk(d), telnet(d), tftp(d), traceroute, +uucpd, and whois.") + (license "GPLv3+"))) |