From: Eric Bavier <ericbavier@gmail.com>
To: guix-devel@gnu.org
Subject: [PATCH] gnu: Add perl-tk, perl-x11-protocol, and clusterssh
Date: Fri, 04 Apr 2014 10:15:22 -0500 [thread overview]
Message-ID: <87vbup86t1.fsf@gmail.com> (raw)
[-- Attachment #1: 0001-gnu-Add-perl-tk-perl-x11-protocol-and-clusterssh.patch --]
[-- Type: text/x-diff, Size: 7854 bytes --]
From 61b06fceed500729230e87a721d37b5d3af7bc26 Mon Sep 17 00:00:00 2001
From: Eric Bavier <bavier@member.fsf.org>
Date: Fri, 4 Apr 2014 10:12:00 -0500
Subject: [PATCH] gnu: Add perl-tk, perl-x11-protocol, and clusterssh
* gnu/packages/admin.scm (clusterssh): New variable
* gnu/packages/tcl.scm (perl-tk): New variable
* gnu/packages/xorg.scm (perl-x11-protocol): New variable
---
gnu/packages/admin.scm | 51 +++++++++++++++++++++++++++++++++++++++++++++++-
gnu/packages/tcl.scm | 32 ++++++++++++++++++++++++++++++
gnu/packages/xorg.scm | 24 +++++++++++++++++++++++
3 files changed, 106 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 89df1a9..1dcb458 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -33,6 +34,7 @@
#:use-module (gnu packages guile)
#:use-module (gnu packages gettext)
#:use-module (gnu packages perl)
+ #:use-module (gnu packages tcl)
#:use-module ((gnu packages base)
#:select (tar))
#:use-module ((gnu packages compression)
@@ -40,7 +42,8 @@
#:use-module (gnu packages bison)
#:use-module (gnu packages flex)
#:use-module (gnu packages glib)
- #:use-module (gnu packages pkg-config))
+ #:use-module (gnu packages pkg-config)
+ #:use-module (gnu packages xorg))
(define-public dmd
(package
@@ -490,3 +493,49 @@ network statistics collection, security monitoring, network debugging, etc.")
through the host it is running from and displays streams sorted
by bandwidth they use.")
(license gpl2+)))
+
+(define-public clusterssh
+ (package
+ (name "clusterssh")
+ (version "3.28")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "mirror://sourceforge/clusterssh/"
+ "clusterssh-" version ".tar.gz"))
+ (sha256
+ (base32
+ "1bwggpvaj2al5blg1ynapviv2kpydffpzq2zkhi81najnvzc1rr7"))))
+ (build-system gnu-build-system)
+ (inputs `(("perl" ,perl)))
+ (propagated-inputs `(("xterm" ,xterm)
+ ("perl-tk" ,perl-tk)
+ ("perl-x11-protocol" ,perl-x11-protocol)))
+ (arguments
+ `(#:phases
+ (alist-cons-after
+ 'install 'set-load-paths
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ ;; Put the perl-tk and perl-x11-protocol modules in the perl inc
+ ;; path for PROG
+ (let* ((out (assoc-ref outputs "out"))
+ (prog (string-append out "/bin/cssh"))
+ (perl-ver ,(package-version perl))
+ (x11-inc (string-append
+ (assoc-ref inputs "perl-x11-protocol")
+ "/lib/perl5/site_perl/" perl-ver))
+ (tk-inc (string-append
+ (assoc-ref inputs "perl-tk")
+ "/lib/perl5/site_perl/" perl-ver
+ "/x86_64-linux")))
+ (wrap-program
+ prog
+ `("PERL5LIB" ":" prefix (,x11-inc ,tk-inc)))))
+ %standard-phases)))
+ ;; The clusterssh.sourceforge.net address requires login to view
+ (home-page "http://sourceforge.net/projects/clusterssh/")
+ (synopsis "Secure concurrent multi-server terminal control")
+ (description
+ "ClusterSSH controls a number of xterm windows via a single graphical
+console window to allow commands to be interactively run on multiple servers
+over an ssh connection.")
+ (license gpl2)))
diff --git a/gnu/packages/tcl.scm b/gnu/packages/tcl.scm
index 3ebdcbe..9c4ed42 100644
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -21,6 +22,11 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
+ #:use-module (guix build-system perl)
+ #:use-module (gnu packages libpng)
+ #:use-module (gnu packages libjpeg)
+ #:use-module (gnu packages perl)
+ #:use-module (gnu packages pkg-config)
#:use-module (gnu packages xorg)
#:use-module (guix licenses))
@@ -159,3 +165,29 @@ X11 GUIs.")
"Tk is a graphical toolkit for building graphical user interfaces
(GUIs) in the Tcl language.")
(license (package-license tcl))))
+
+(define-public perl-tk
+ (package
+ (name "perl-tk")
+ (version "804.032")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/S/SR/SREZIC/Tk-"
+ version ".tar.gz"))
+ (sha256
+ (base32
+ "0jarvplhfvnm0shhdm2a5zczlnk9mkf8jvfjiwyhjrr3cy1gl0w0"))))
+ (build-system perl-build-system)
+ (native-inputs `(("pkg-config" ,pkg-config)))
+ (inputs `(("libx11" ,libx11)
+ ("libpng" ,libpng)
+ ("libjpeg" ,libjpeg)))
+ (arguments
+ `(#:make-maker-flags `(,(string-append
+ "X11=" (assoc-ref %build-inputs "libx11")))))
+ (license (package-license perl))
+ (synopsis "Graphical user interface toolkit for Perl")
+ (description
+ "Tk is a Graphical User Interface ToolKit.")
+ (home-page (string-append "http://search.cpan.org/~srezic/Tk-" version))))
diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index 2e1eeda..a06f9be 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
+;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -23,6 +24,7 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
+ #:use-module (guix build-system perl)
#:use-module (gnu packages)
#:use-module (gnu packages bison)
#:use-module (gnu packages compression)
@@ -4768,3 +4770,25 @@ icccm: Both client and window-manager helpers for ICCCM.")
provides DEC VT102/VT220 (VTxxx) and Tektronix 4014 compatible terminals for
programs that cannot use the window system directly.")
(license license:x11)))
+
+(define-public perl-x11-protocol
+ (package
+ (name "perl-x11-protocol")
+ (version "0.56")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://cpan/authors/id/S/SM/SMCCAM/X11-Protocol-"
+ version ".tar.gz"))
+ (sha256
+ (base32
+ "1dq89bh6fqv7l5mbffqcismcljpq5f869bx7g8lg698zgindv5ny"))))
+ (build-system perl-build-system)
+ (arguments '(#:tests? #f)) ;tests require a running x server
+ (synopsis "Raw interface to X Window System servers")
+ (description
+ "X11::Protocol is a client-side interface to the X11 Protocol, allowing
+perl programs to display windows and graphics on X11 servers.")
+ (home-page
+ (string-append "http://search.cpan.org/~smccam/X11-Protocol-" version))
+ (license (package-license perl))))
--
1.7.9.5
[-- Attachment #2: Type: text/plain, Size: 12 bytes --]
--
`~Eric
next reply other threads:[~2014-04-04 15:14 UTC|newest]
Thread overview: 15+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-04-04 15:15 Eric Bavier [this message]
2014-04-04 15:25 ` [PATCH] gnu: Add perl-tk, perl-x11-protocol, and clusterssh Sree Harsha Totakura
2014-04-04 15:49 ` Eric Bavier
2014-04-04 19:38 ` Ludovic Courtès
2014-04-04 15:47 ` Mark H Weaver
2014-04-04 19:39 ` Ludovic Courtès
2014-04-04 19:40 ` Ludovic Courtès
2014-05-08 20:07 ` Andreas Enge
2014-05-12 16:46 ` Eric Bavier
2014-05-12 19:24 ` Ludovic Courtès
2014-05-12 19:26 ` Andreas Enge
2014-05-12 20:40 ` Eric Bavier
2014-05-12 20:53 ` Andreas Enge
2014-05-12 20:41 ` Eric Bavier
2014-05-12 21:51 ` Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87vbup86t1.fsf@gmail.com \
--to=ericbavier@gmail.com \
--cc=guix-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).