;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Pjotr Prins <pjotr.guix@thebird.nl>
;;;
;;; 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 (gn packages perl)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (gnu packages)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages compression)
  #:use-module (gnu packages databases)
  #:use-module (gnu packages java)
  #:use-module (gnu packages libffi)
  #:use-module (gnu packages perl)
  #:use-module (gnu packages perl-check)
  #:use-module (gnu packages python)
  #:use-module (gnu packages ragel)
  #:use-module (gnu packages readline)
  #:use-module (gnu packages ruby)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages xml)
  #:use-module (gnu packages web)
  #:use-module (gnu packages version-control)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix utils)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system perl))

(define-public perl-time-parsedate ; guix: old lib and tests failing - works though
  (package
   (name "perl-time-parsedate")
   (version "2015.103")
   (source
    (origin
     (method url-fetch)
     (uri (string-append
           "mirror://cpan/authors/id/M/MU/MUIR/modules/Time-ParseDate-"
           version
           ".tar.gz"))
     (sha256
      (base32
       "1lgfr87j4qwqnln0hyyzgik5ixqslzdaksn9m8y824gqbcihc6ic"))))
   (build-system perl-build-system)
   (arguments `(#:tests? #f))          ;Oh well
   (home-page
    "http://search.cpan.org/dist/Time-ParseDate")
   (synopsis "Parse and format time values")
   (description "ParseDate")
   (license #f)))

(define-public logtodo
  ;; this package does not have a proper perl build, so no wrapper
  ;; will be added and we need to explicitely set
  ;; export PERL5LIB=~/.guix-profile/lib/perl5/site_perl/5.24.0
  (let ((commit "acda8f2a7aa67f590ae03487306794b039eaba68"))
  (package
    (name "logtodo")
    (version (string-append "1.0.5-" (string-take commit 7) ))
    (source (origin
             (method git-fetch)
             (uri (git-reference
                   ;; (url "https://github.com/genenetwork/genenetwork2.git")
                   (url "https://gitlab.com/pjotrp/logtodo.git")
                   (commit commit)))
             (file-name (string-append name "-" (string-take commit 7)))
             (sha256
              (base32
               "0bcjnb09sxgv7c45nk4sipxw38a6ldhmijgn614h7bibwqyvybmc"))))
    (build-system perl-build-system)
    (propagated-inputs `(("perl-time-parsedate" ,perl-time-parsedate)))
    (arguments
     `(
       #:phases
        (modify-phases %standard-phases
         (delete 'configure)
         (delete 'build)
         (replace 'install
                  (lambda* (#:key outputs #:allow-other-keys)
                           (let ((out (assoc-ref outputs "out")))
                             (install-file "logtodo" (string-append out "/bin"))))))
       #:tests? #f))   ; no 'setup.py test' really!
    (home-page "https://gitlab.com/pjotrp/logtodo")
    (synopsis "Pjotr's time logger")
    (description "None")
    (license license:gpl2+))))

(define-public perl-mce
  (package
    (name "perl-mce")
    (version "1.874")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "mirror://cpan/authors/id/M/MA/MARIOROY/MCE-"
               version
               ".tar.gz"))
        (sha256
         (base32
          "1l6khsmwzfr88xb81kdvmdskxgz3pm4yz2ybxkbml4bmhh0y62fq"))))
    (build-system perl-build-system)
    (propagated-inputs
     `(("perl-sereal-decoder" ,perl-sereal-decoder)
       ("perl-sereal-encoder" ,perl-sereal-encoder)))
    (home-page "https://metacpan.org/release/MCE")
    (synopsis
     "Many-Core Engine for Perl providing parallel processing capabilities")
    (description "MCE spawns a pool of workers and therefore does not fork a
new process per each element of data.  Instead, MCE follows a bank queuine
model.  MCE enhances that model by adding the ability to chunk the next n
elements from the input stream to the next available worker.")
    (license license:perl-license)))

(define-public perl-sereal-decoder
  (package
    (name "perl-sereal-decoder")
    (version "4.018")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "mirror://cpan/authors/id/Y/YV/YVES/Sereal-Decoder-"
               version
               ".tar.gz"))
        (sha256
         (base32
          "0wfdixpm3p94mnng474l0nh9mjiy8q8hbrbh2af4vwn2hmazr91f"))
        (modules '((guix build utils)))
        (snippet
         '(begin
            (delete-file-recursively "zstd")))))
    (build-system perl-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'patch-source
           (lambda* (#:key inputs #:allow-other-keys)
             (substitute* "inc/Sereal/BuildTools.pm"
               (("-lzstd")
                (string-append "-L" (assoc-ref inputs "zstd:lib")
                               "/lib -lzstd"))))))))
    (native-inputs
     `(("perl-test-deep" ,perl-test-deep)
       ("perl-test-differences" ,perl-test-differences)
       ("perl-test-longstring" ,perl-test-longstring)
       ("perl-test-warn" ,perl-test-warn)))
    (inputs
     `(("zstd:lib" ,zstd "lib")))
    (home-page "https://metacpan.org/release/Sereal-Decoder")
    (synopsis "Fast, compact, powerful binary deserialization")
    (description
     "Sereal::Decoder implements a deserializer for an efficient,
compact-output, and feature-rich binary protocol called Sereal.")
    (license license:perl-license)))

(define-public perl-sereal-encoder
  (package
    (name "perl-sereal-encoder")
    (version "4.018")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "mirror://cpan/authors/id/Y/YV/YVES/Sereal-Encoder-"
               version
               ".tar.gz"))
        (sha256
         (base32
          "0z9dbkr8ggjqb5g1sikxhy1a359bg08gs3vfg9icqm6xx4gjsv6p"))
        (modules '((guix build utils)))
        (snippet
         '(begin
            (delete-file-recursively "zstd")))))
    (build-system perl-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'patch-source
           (lambda* (#:key inputs #:allow-other-keys)
             (substitute* "inc/Sereal/BuildTools.pm"
               (("-lzstd")
                (string-append "-L" (assoc-ref inputs "zstd:lib")
                               "/lib -lzstd"))))))))
    (native-inputs
     `(("perl-sereal-decoder" ,perl-sereal-decoder)
       ("perl-test-deep" ,perl-test-deep)
       ("perl-test-differences" ,perl-test-differences)
       ("perl-test-longstring" ,perl-test-longstring)
       ("perl-test-warn" ,perl-test-warn)))
    (inputs
     `(("zstd:lib" ,zstd "lib")))
    (home-page "https://metacpan.org/release/Sereal-Encoder")
    (synopsis "Fast, compact, powerful binary serialization")
    (description
     "Sereal::Encoder implements an efficient, compact-output, and feature-rich
serializer using a binary protocol called Sereal.")
    (license license:perl-license)))

(define-public perl-module-load-conditional
  (package
    (name "perl-module-load-conditional")
    (version "0.74")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "mirror://cpan/authors/id/B/BI/BINGOS/Module-Load-Conditional-"
               version
               ".tar.gz"))
        (sha256
         (base32
          "0c57c3632657hyhkijxhrk5jsfd09q4dm5d0qbmz281q76lm9hsl"))))
    (build-system perl-build-system)
    (home-page "https://metacpan.org/release/Module-Load-Conditional")
    (synopsis "Looking up module information / loading at runtime")
    (description
     "Module::Load::Conditional provides simple ways to query and possibly load
any of the modules you have installed on your system during runtime.  It is able
to load multiple modules at once or none at all if one of them was not able to
load.  It also takes care of any error checking and so forth.")
    (license license:perl-license)))

(define-public perl-scalar-util-numeric
  (package
    (name "perl-scalar-util-numeric")
    (version "0.40")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "mirror://cpan/authors/id/C/CH/CHOCOLATE/Scalar-Util-Numeric-"
               version
               ".tar.gz"))
        (sha256
         (base32
          "0h24rji5rkwa0mkggmr5anin92dg87ygnhhr3idxn0q785ninl6p"))))
    (build-system perl-build-system)
    (home-page "https://metacpan.org/release/Scalar-Util-Numeric")
    (synopsis "numeric tests for perl scalars")
    (description
     "Scalar::Util::Numeric exports a number of wrappers around perl's builtin
@code{looks_like_number} function, which returns the numeric type of its
argument, or 0 if it isn't numeric.")
    (license license:perl-license)))

(define-public perl-math-utils
  (package
    (name "perl-math-utils")
    (version "1.14")
    (source
      (origin
        (method url-fetch)
        (uri (string-append
               "mirror://cpan/authors/id/J/JG/JGAMBLE/Math-Utils-"
               version
               ".tar.gz"))
        (sha256
         (base32
          "1596bwij103w4w5m7102c7bj9x4sjr8a7cibp5qjcqkafgh0m8l8"))))
    (build-system perl-build-system)
    (native-inputs
     `(("perl-module-build" ,perl-module-build)))
    (home-page "https://metacpan.org/release/Math-Utils")
    (synopsis "Useful mathematical functions not in Perl")
    (description
     "Math::Utils is a broad collection of useful mathematical functions not
available in core perl. In addition to general-purpose functions such as
log10(), log2(), floor() or fsum(), there are generators to create comparison
functions for floating point (non-integer) numbers as well as some polynomial
operations on plain lists of coefficients.")
    (license license:perl-license)))