[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] gnu: Add perl-curses (need help).
From: |
ng0 |
Subject: |
[PATCH] gnu: Add perl-curses (need help). |
Date: |
Fri, 19 Aug 2016 13:23:48 +0000 |
Hi,
I don't understand why the attached patch fails with the following
output, the only explanation I have is that gcc or ncurses lacks
something the test which then runs gcc expects.
gcc -c
-I/gnu/store/xl19qrfzga52vrvp4ncccwjlnrjqwj95-ncurses-6.0/include
-I/gnu/store/xl19qrfzga52vrvp4ncccwjlnrjqwj95-ncurses-6.0/include
-I/gnu/store/xl19qrfzga52vrvp4ncccwjlnrjqwj95-ncurses-6.0/include
-I/gnu/store/xl19qrfzga52vrvp4ncccwjlnrjqwj95-ncurses-6.0/include
-fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong
-I/gnu/store/m9vxvhdj691bq1f85lpflvnhcvrdilih-glibc-2.23/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2 -O2
-DVERSION=\"1.36\" -DXS_VERSION=\"1.36\" -fPIC
"-I/gnu/store/7nfjg3f2c4s0jpz3vqh3iqdn9j1c3prq-perl-5.22.1/lib/perl5/5.22.1/x86_64-linux/CORE"
Curses.c
Curses.c:199:8: error: unknown type name ‘FIELD’
static FIELD *
^
Curses.c: In function ‘c_sv2field’:
Curses.c:205:13: error: ‘FIELD’ undeclared (first use in this
function)
return (FIELD *)SvIV((SV*)SvRV(sv));
^
Curses.c:205:13: note: each undeclared
identifier is reported only once for each
function it appears in
Curses.c:205:20: error: expected expression
before ‘)’ token
return (FIELD *)SvIV((SV*)SvRV(sv));
^
etc... run the build yourself to see the full output.
>From 4c2f0cd473f0c5031ed2e7f0ddb26e546d554734 Mon Sep 17 00:00:00 2001
From: ng0 <address@hidden>
Date: Fri, 19 Aug 2016 13:15:01 +0000
Subject: [PATCH] gnu: Add perl-net-psyc.
* gnu/packages/psyc.scm (perl-net-psyc): New variable.
---
gnu/local.mk | 1 +
gnu/packages/psyc.scm | 90 +++++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 91 insertions(+)
create mode 100644 gnu/packages/psyc.scm
diff --git a/gnu/local.mk b/gnu/local.mk
index 15538df..8ad9106 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -287,6 +287,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/pumpio.scm \
%D%/packages/pretty-print.scm \
%D%/packages/protobuf.scm \
+ %D%/packages/psyc.scm \
%D%/packages/pv.scm \
%D%/packages/python.scm \
%D%/packages/qemu.scm \
diff --git a/gnu/packages/psyc.scm b/gnu/packages/psyc.scm
new file mode 100644
index 0000000..a9a13e2
--- /dev/null
+++ b/gnu/packages/psyc.scm
@@ -0,0 +1,90 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2016 ng0 <address@hidden>
+;;;
+;;; 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 <http://www.gnu.org/licenses/>.
+
+(define-module (gnu packages psyc)
+ #:use-module ((guix licenses) #:prefix license:)
+ #:use-module (guix packages)
+ #:use-module (guix git-download)
+ #:use-module (guix build-system perl)
+ #:use-module (gnu packages)
+ #:use-module (gnu packages perl))
+
+(define-public perl-net-psyc
+ (let ((revision "1")
+ (commit "6bb3e0f550fc60ea34f7e0e2cd3ba8ece1a27be5"))
+ (package
+ (name "perl-net-psyc")
+ (version (string-append "1.0-" revision "." (string-take commit 7)))
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "git://git.psyced.org/git/perlpsyc")
+ (commit commit)))
+ (file-name (string-append name "-" version "-checkout"))
+ (sha256
+ (base32
+ "1xn7xdi9ngqdmknhihr4cmsa2azph226a0sj1zd75435r6sxwy3b"))))
+ (build-system perl-build-system)
+ (inputs
+ `(("perl-curses" ,perl-curses))) ; dependency for psycion binary
+ (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 "\\.*$"))
+ #t))))))
+ (description
+ "@code{Net::PSYC} with support for TCP, UDP, Event.pm,
@code{IO::Select} and
+Gtk2 event loops. This package includes 12 applications and additional
scripts:
+psycion, a @uref{http://about.psyc.eu,PSYC} chat client, remotor, a control
console
+for @uref{https://torproject.org,tor} router, and many more.")
+ (synopsis "Perl implementation of PSYC protocol.")
+ (home-page "http://perlpsyc.pages.de")
+ ;;dual licensed: gpl2+ Artistic
+ (license (list license:gpl2 (package-license perl)
+ ;; contrib/irssi-psyc.pl: Public-Domain
+ license:public-domain)))))
--
2.9.3
--
ng0
For non-prism friendly talk find me on http://www.psyced.org