From mboxrd@z Thu Jan 1 00:00:00 1970 From: ng0 Subject: Re: [PATCH] gnu: Add epic5. Date: Thu, 08 Dec 2016 21:28:52 +0000 Message-ID: <877f7a860b.fsf@wasp.i-did-not-set--mail-host-address--so-tickle-me> References: <87y41v6evk.fsf@we.make.ritual.n0.is> <20161206193538.22496-1-ng0@libertad.pw> <20161206193538.22496-2-ng0@libertad.pw> <20161208203805.GB2621@macbook42.flashner.co.il> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:43312) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cF6Fp-0000gk-Pn for guix-devel@gnu.org; Thu, 08 Dec 2016 16:29:27 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cF6Fm-0000IK-Jp for guix-devel@gnu.org; Thu, 08 Dec 2016 16:29:25 -0500 Received: from aibo.runbox.com ([91.220.196.211]:43354) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1cF6Fm-0000I0-CT for guix-devel@gnu.org; Thu, 08 Dec 2016 16:29:22 -0500 In-Reply-To: <20161208203805.GB2621@macbook42.flashner.co.il> 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: Efraim Flashner Cc: guix-devel@gnu.org Efraim Flashner writes: > On Tue, Dec 06, 2016 at 07:35:38PM +0000, ng0 wrote: >> From: ng0 >> >> * gnu/packages/irc.scm (epic5): New variable. >> --- >> gnu/packages/irc.scm | 91 +++++++++++++++++++++++++++++++++++++++++++++++++++- >> 1 file changed, 90 insertions(+), 1 deletion(-) >> >> diff --git a/gnu/packages/irc.scm b/gnu/packages/irc.scm >> index 3b63c899e..74124cf86 100644 >> --- a/gnu/packages/irc.scm >> +++ b/gnu/packages/irc.scm >> @@ -3,7 +3,7 @@ >> ;;; Copyright © 2014 Kevin Lemonnier >> ;;; Copyright © 2015 Ludovic Courtès >> ;;; Copyright © 2015, 2016 Efraim Flashner >> -;;; Copyright © 2016 ng0 >> +;;; Copyright © 2016 ng0 >> ;;; >> ;;; This file is part of GNU Guix. >> ;;; >> @@ -32,9 +32,11 @@ >> #:use-module (gnu packages autogen) >> #:use-module (gnu packages autotools) >> #:use-module (gnu packages base) >> + #:use-module (gnu packages backup) >> #:use-module (gnu packages compression) >> #:use-module (gnu packages curl) >> #:use-module (gnu packages cyrus-sasl) >> + #:use-module (gnu packages databases) >> #:use-module (gnu packages file) >> #:use-module (gnu packages gettext) >> #:use-module (gnu packages glib) >> @@ -47,6 +49,7 @@ >> #:use-module (gnu packages perl) >> #:use-module (gnu packages pkg-config) >> #:use-module (gnu packages python) >> + #:use-module (gnu packages ruby) >> #:use-module (gnu packages qt) >> #:use-module (gnu packages tcl) >> #:use-module (gnu packages tls) >> @@ -329,3 +332,89 @@ and extensible with plugins and scripts.") >> embedded web server, translations (fr, fi, it, hu, de), and many >> other enhancements and bug fixes.") >> (license license:bsd-3))) >> + >> +(define-public epic5 >> + (package >> + (name "epic5") >> + (version "2.0.1") >> + (source (origin >> + (method url-fetch) >> + (uri (string-append "http://ftp.epicsol.org/pub/epic/EPIC5-PRODUCTION/" >> + name "-" version ".tar.xz")) >> + (sha256 >> + (base32 >> + "1ap73d5f4vccxjaaq249zh981z85106vvqmxfm4plvy76b40y9jm")))) >> + (build-system gnu-build-system) >> + (arguments >> + `(#:test-target "test" >> + #:phases >> + (modify-phases %standard-phases >> + (add-after 'unpack 'patch-perl >> + (lambda _ >> + (substitute* "regress/crash-irc" >> + (("perl5") (which "perl"))))) >> + (add-after 'unpack 'patch-bsdinstall >> + ;; If we just remove /bin/ some part of the bsdinstall breaks. >> + ;; Furthermore bsdinstalls has a reference to /etc/chmod here, which >> + ;; means if we leave /etc/ in, install fails. >> + (lambda _ >> + (substitute* "bsdinstall" >> + (("/bin/strip") "strip") >> + (("/bin/cp") "cp") >> + (("/bin/chmod") "chmod") >> + (("/etc/chown") "chown") >> + (("/bin/chgrp") "chgrp") >> + (("/bin/mkdir") "mkdir") >> + (("/bin/rm") "rm") >> + (("/bin/mv") "mv") >> + (("/etc/") "")))) >> + (replace 'configure >> + (lambda* (#:key outputs #:allow-other-keys) >> + ;; The tarball uses a very old version of autconf. It does not >> + ;; understand extra flags like `--enable-fast-install', so >> + ;; we need to invoke it with just what it understands. >> + (let ((out (assoc-ref outputs "out"))) >> + ;; 'configure' doesn't understand '--host'. >> + ,@(if (%current-target-system) >> + `((setenv "CHOST" ,(%current-target-system))) >> + '()) >> + (setenv "CONFIG_SHELL" (which "bash")) >> + (setenv "SHELL" (which "bash")) >> + (zero? >> + (system* "./configure" >> + (string-append "--prefix=" out) >> + "--with-ipv6" "--with-libarchive" >> + ;; We use libressl because openssl does not come >> + ;; with the lib/libssl.a which is needed for epic5. >> + ;; XXX: No matter which implementation is chosen, >> + ;; epic5 fails to connect to tls ports of roundrobin >> + ;; irc networks. This however is believed to be an >> + ;; protocol issue at epic5 related to ircd. >> + (string-append "--with-ssl=" >> + (assoc-ref %build-inputs "libressl")) >> + (string-append "--with-tcl=" >> + (assoc-ref %build-inputs "tcl") >> + "/lib/tclConfig.sh"))))))))) >> + (inputs >> + `(("libressl" ,libressl) >> + ("ncurses" ,ncurses) >> + ("libarchive" ,libarchive) ; CHANGELOG: "Support for loading zip files" >> + ("perl" ,perl) >> + ("tcl" ,tcl) >> + ("ruby" ,ruby))) >> + (native-inputs >> + `(("pkg-config" ,pkg-config))) >> + (home-page "http://epicsol.org") >> + (synopsis "Epic5 IRC Client") >> + (description >> + "EPIC is a IRC client that has been under active development for >> +over 20 years. It is stable and mature, and offers an excellent ircII >> +interface for those who are accustomed to the ircII way of doing things.") >> + (license (list license:bsd-3 >> + license:isc >> + license:bsd-4 >> + ;; The epic license is equal to the standard three-clause >> + ;; BSD license except that you are not permitted to remove the >> + ;; "Redistribution is permitted" clause of the license if you >> + ;; distribute binaries. >> + license:non-copyleft "http://epicsol.org/copyright")))) >> -- >> 2.11.0 >> >> > > I made some minor changes to the substitutes* to return #t and pushed > > -- > Efraim Flashner אפרים פלשנר > GPG key = A28B F40C 3E55 1372 662D 14F7 41AA E7DC CA3D 8351 > Confidentiality cannot be guaranteed on emails sent or received unencrypted Thanks! I wonder why it can't cope with round robin ircs (tls) networks.. I have to try and get in contact with the upstream to see if this is a common issue. -- ♥Ⓐ ng0 | ng0.chaosnet.org