From mboxrd@z Thu Jan 1 00:00:00 1970 From: ng0 Subject: [PATCH] gnu: perl-net-psyc Date: Wed, 15 Jun 2016 16:39:30 +0000 Message-ID: <20160615163930.GA6612@khazad-dum> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha512; protocol="application/pgp-signature"; boundary="s/l3CgOIzMHHjg/5" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:41371) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bDDr3-0006mT-Cl for guix-devel@gnu.org; Wed, 15 Jun 2016 12:39:53 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bDDqz-0001vK-LW for guix-devel@gnu.org; Wed, 15 Jun 2016 12:39:49 -0400 Received: from 93-95-228-168.1984.is ([93.95.228.168]:45913 helo=beleriand.n0.is) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bDDqz-0001us-8H for guix-devel@gnu.org; Wed, 15 Jun 2016 12:39:45 -0400 Received: by beleriand.n0.is (OpenSMTPD) with ESMTPSA id d316a982 TLS version=TLSv1/SSLv3 cipher=ECDHE-RSA-AES256-GCM-SHA384 bits=256 verify=NO for ; Wed, 15 Jun 2016 16:39:38 +0000 (UTC) Content-Disposition: inline List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org --s/l3CgOIzMHHjg/5 Content-Type: multipart/mixed; boundary="2fHTh5uZTiUOsy+g" Content-Disposition: inline --2fHTh5uZTiUOsy+g Content-Type: text/plain; charset=utf-8 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable =46rom 10eeb85733c67c4fdd5cd4df84457a565e45971e Mon Sep 17 00:00:00 2001 =46rom: ng0 Date: Wed, 15 Jun 2016 16:30:30 +0000 Subject: [PATCH] gnu: Add perl-net-psyc. * gnu/packages/perl.scm (perl-net-psyc): New Variable. --- gnu/packages/perl.scm | 71 +++++++++++++++++++++++++++++++++++++++++++++++= ++++ 1 file changed, 71 insertions(+) diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index e7e7967..8772d0a 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -7,6 +7,7 @@ ;;; Copyright =C2=A9 2016 Mark H Weaver ;;; Copyright =C2=A9 2016 Jochem Raat ;;; Copyright =C2=A9 2016 Efraim Flashner +;;; Coypright =C2=A9 2016 ng0 ;;; ;;; This file is part of GNU Guix. ;;; @@ -28,6 +29,7 @@ #:use-module (gnu packages) #:use-module (guix packages) #:use-module (guix download) + #:use-module (guix git-download) #:use-module (guix build-system gnu) #:use-module (guix build-system perl)) @@ -3865,6 +3867,75 @@ cycle. Functions called in the package itself will = still be bound by their name, but they won't show up as methods on your class or instances.") (license (package-license perl)))) +;; highly optional dependencies: rxaudio (mp3 binary from 1996) +;; opt. perl: MP3::List (psycmp3), Curses (psycion), pwd.pl +;; (psyccmd), SGI::FAM module (psycfilemonitor); for full +;; functionality package all except MP3::List. +(define-public perl-net-psyc + (let ((commit "4176f5236e73e99391c0877152d5596ab0a9b154")) + (package + (name "perl-net-psyc") + (version (string-append "1.0" "-" + (string-take commit 8))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "git://git.psyced.org/git/perlpsyc") + (commit commit))) + (file-name (string-append name "-" version)) + (sha256 + (base32 + "19msvr1kriqa6n8cnk8z96xd5i0v5cy2y52jsj08vaj79b4m7sph"))= )) + (build-system perl-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (delete 'configure) + (delete 'build) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (doc (string-append out "/share/doc/perl-net-psyc")) + (libpsyc (string-append out "/lib/psyc/ion")) + (libperl (string-append out "/lib/perl5/site_perl/" + ,(package-version perl))) + (bin (string-append out "/bin"))) + (copy-recursively "lib/perl5" libperl) + (copy-recursively "lib/psycion" libpsyc) + (copy-recursively "bin" bin) + (install-file "cgi/psycpager" (string-append doc "/cgi")) + (copy-recursively "contrib" (string-append doc "/contrib"= )) + (copy-recursively "hooks" (string-append doc "/hooks")) + (copy-recursively "sdj" (string-append doc "/sdj")) + (install-file "README.txt" doc) + (install-file "TODO.txt" doc) + #t))) + (add-after 'install 'wrap-programs + (lambda* (#:key outputs #:allow-other-keys) + ;; Make sure all executables in "bin" find the Perl modules + ;; provided by this package at runtime. + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin/")) + (path (string-append out "/lib/perl5/site_perl"))) + (for-each (lambda (file) + (wrap-program file + `("PERL5LIB" ":" prefix (,path)))) + (find-files bin "\\.*$")) + ;; XXX: hooks/dpa2psyc,examples/{recvtest,sendtest}, + ;; cgi/psycpager,contrib/{makenoise,keefchat + ;; contrib/MovableTypeBlog/plugins/psyc.pl + #t)))))) + (description + "Net::PSYC with support for TCP, UDP, Event.pm, IO::Select and +Gtk2 event loops. This package includes 12 applications and +additional scripts: psycion, a @uref{http://about.psyc.eu, PSYC} chat clie= nt, +remotor, a control console for @uref{https://torproject.org, tor} router, = and many more. +Further information is included in the package source and on the website.") + (synopsis "Perl implementation of PSYC protocol") + (home-page "http://perlpsyc.psyc.eu/") + ;;dual licensed: gpl2+ Artistic + (license (list gpl2+ (package-license perl)))))) + (define-public perl-number-compare (package (name "perl-number-compare") -- 2.8.4 -- =E2=99=A5=E2=92=B6 ng0 For non-prism friendly talk find me on psyced.org / loupsycedyglgamf.onion --2fHTh5uZTiUOsy+g Content-Type: text/x-diff; charset=utf-8 Content-Disposition: attachment; filename="0001-gnu-Add-perl-net-psyc.patch" Content-Transfer-Encoding: quoted-printable =46rom 10eeb85733c67c4fdd5cd4df84457a565e45971e Mon Sep 17 00:00:00 2001 =46rom: ng0 Date: Wed, 15 Jun 2016 16:30:30 +0000 Subject: [PATCH] gnu: Add perl-net-psyc. * gnu/packages/perl.scm (perl-net-psyc): New Variable. --- gnu/packages/perl.scm | 71 +++++++++++++++++++++++++++++++++++++++++++++++= ++++ 1 file changed, 71 insertions(+) diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index e7e7967..8772d0a 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -7,6 +7,7 @@ ;;; Copyright =C2=A9 2016 Mark H Weaver ;;; Copyright =C2=A9 2016 Jochem Raat ;;; Copyright =C2=A9 2016 Efraim Flashner +;;; Coypright =C2=A9 2016 ng0 ;;; ;;; This file is part of GNU Guix. ;;; @@ -28,6 +29,7 @@ #:use-module (gnu packages) #:use-module (guix packages) #:use-module (guix download) + #:use-module (guix git-download) #:use-module (guix build-system gnu) #:use-module (guix build-system perl)) =20 @@ -3865,6 +3867,75 @@ cycle. Functions called in the package itself will = still be bound by their name, but they won't show up as methods on your class or instances.") (license (package-license perl)))) =20 +;; highly optional dependencies: rxaudio (mp3 binary from 1996) +;; opt. perl: MP3::List (psycmp3), Curses (psycion), pwd.pl +;; (psyccmd), SGI::FAM module (psycfilemonitor); for full +;; functionality package all except MP3::List. +(define-public perl-net-psyc + (let ((commit "4176f5236e73e99391c0877152d5596ab0a9b154")) + (package + (name "perl-net-psyc") + (version (string-append "1.0" "-" + (string-take commit 8))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "git://git.psyced.org/git/perlpsyc") + (commit commit))) + (file-name (string-append name "-" version)) + (sha256 + (base32 + "19msvr1kriqa6n8cnk8z96xd5i0v5cy2y52jsj08vaj79b4m7sph"))= )) + (build-system perl-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (delete 'configure) + (delete 'build) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (doc (string-append out "/share/doc/perl-net-psyc")) + (libpsyc (string-append out "/lib/psyc/ion")) + (libperl (string-append out "/lib/perl5/site_perl/" + ,(package-version perl))) + (bin (string-append out "/bin"))) + (copy-recursively "lib/perl5" libperl) + (copy-recursively "lib/psycion" libpsyc) + (copy-recursively "bin" bin) + (install-file "cgi/psycpager" (string-append doc "/cgi")) + (copy-recursively "contrib" (string-append doc "/contrib"= )) + (copy-recursively "hooks" (string-append doc "/hooks")) + (copy-recursively "sdj" (string-append doc "/sdj")) + (install-file "README.txt" doc) + (install-file "TODO.txt" doc) + #t))) + (add-after 'install 'wrap-programs + (lambda* (#:key outputs #:allow-other-keys) + ;; Make sure all executables in "bin" find the Perl modules + ;; provided by this package at runtime. + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin/")) + (path (string-append out "/lib/perl5/site_perl"))) + (for-each (lambda (file) + (wrap-program file + `("PERL5LIB" ":" prefix (,path)))) + (find-files bin "\\.*$")) + ;; XXX: hooks/dpa2psyc,examples/{recvtest,sendtest}, + ;; cgi/psycpager,contrib/{makenoise,keefchat + ;; contrib/MovableTypeBlog/plugins/psyc.pl + #t)))))) + (description + "Net::PSYC with support for TCP, UDP, Event.pm, IO::Select and +Gtk2 event loops. This package includes 12 applications and +additional scripts: psycion, a @uref{http://about.psyc.eu, PSYC} chat clie= nt, +remotor, a control console for @uref{https://torproject.org, tor} router, = and many more. +Further information is included in the package source and on the website.") + (synopsis "Perl implementation of PSYC protocol") + (home-page "http://perlpsyc.psyc.eu/") + ;;dual licensed: gpl2+ Artistic + (license (list gpl2+ (package-license perl)))))) + (define-public perl-number-compare (package (name "perl-number-compare") --=20 2.8.4 --2fHTh5uZTiUOsy+g-- --s/l3CgOIzMHHjg/5 Content-Type: application/pgp-signature; name="signature.asc" Content-Description: Digital signature -----BEGIN PGP SIGNATURE----- iF4EARYKAAYFAldhhMIACgkQhhoAchyzrCDfTQEAsqZWkr6dTdgQK3kAoUFJ1+Uv P4UaCA+2dUFxYWDvh20BAO06qH3j/kmI55uSshjqwA/TXExlt0jA8mh0+7pP+vAM =AeP3 -----END PGP SIGNATURE----- --s/l3CgOIzMHHjg/5--