;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2023 Nicolas Graves <ngraves@ngraves.fr>
;;;
;;; 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 php-xyz)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix gexp)
  #:use-module (guix git-download)
  #:use-module (guix build-system composer)
  #:use-module (guix build-system gnu)
  #:use-module (guix utils)
  #:use-module (srfi srfi-1)
  #:use-module (srfi srfi-26)
  #:use-module (ice-9 match)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (gnu packages)
  #:use-module (gnu packages check)
  #:use-module (gnu packages databases)
  #:use-module (gnu packages linux)
  #:use-module (gnu packages php)
  #:use-module (gnu packages version-control))

(define-public composer-classloader
  (package
    (name "composer-classloader")
    (version "1.9.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/composer/composer")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0127zmmg3yx84ljngfs86q7kjhyypybkf4d1ihfrfnzgynzxfxdf"))))
    (build-system gnu-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (delete 'configure)
         (delete 'build)
         (delete 'check)
         (replace 'install
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out")))
               (install-file "src/Composer/Autoload/ClassLoader.php"
                             (string-append out "/share/web/composer/"))))))))
    (home-page "https://getcomposer.org")
    (synopsis "PHP class loader extracted from the composer package")
    (description "This package contains the class loader class used by Composer to
build its autoloading feature.  This package is used by the composer-build-system
to build its own store-aware autoloading feature.")
    (license license:expat)))

(define-public php-cache-tag-interop
  (package
    (name "php-cache-tag-interop")
    (version "1.1.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/php-cache/tag-interop")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "08x7sqxhkwni0arrl68xb2fxd2qjwdkxlxmjq7j3q2ic2qbl8iif"))))
    (build-system composer-build-system)
    (inputs (list php-psr-cache))
    (synopsis "PHP framework for tags")
    (description "This package provides a PHP framework interoperable
interfaces for tags.")
    (home-page "https://www.php-cache.com/en/latest/")
    (license license:expat)))

(define-public php-doctrine-collections
  (package
    (name "php-doctrine-collections")
    (version "2.1.4")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/doctrine/collections")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0b384rkxl70bb164373c3y3n72816jkggjm9vg58avb7lqx3dq1i"))))
    (build-system composer-build-system)
    (arguments
     '(#:test-flags '("--bootstrap" "vendor/autoload.php")))
    (inputs
     (list php-doctrine-deprecations))
    (native-inputs
     (list php-phpunit-phpunit))
    (synopsis "Additional functionality on top of PHP arrays")
    (description
     "This package provides a PHP library that adds additional functionality
on top of arrays.")
    (home-page "https://www.doctrine-project.org/projects/collections")
    (license license:expat)))

(define-public php-doctrine-common
  (package
    (name "php-doctrine-common")
    (version "3.4.3")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/doctrine/common")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1hivhghwmqs5jaiicayni35xkpclmdf5r9fb15y5jx7rl5wrsh7f"))))
    (build-system composer-build-system)
    (arguments
     '(#:test-flags '("--bootstrap" "vendor/autoload.php")))
    (inputs
     (list php-doctrine-persistence))
    (native-inputs
     (list php-phpunit-phpunit))
    (synopsis "PHP utility library for Doctrine projects")
    (description
     "This package provides additional functionality that other Doctrine
projects depend on such as better reflection support, proxies and much more.")
    (home-page "https://www.doctrine-project.org/projects/common")
    (license license:expat)))

(define-public php-doctrine-deprecations
  (package
    (name "php-doctrine-deprecations")
    (version "1.1.1")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/doctrine/deprecations")
             (commit (string-append "v" version))))
       (file-name (git-file-name name version))
       (sha256
        (base32 "15xq18cl1ws37ansc8h1chbjgybvljxsjgwlp8w3ia5zffwxhrdd"))))
    (build-system composer-build-system)
    (inputs
     (list php-doctrine-lexer php-psr-cache))
    (native-inputs
     (list php-phpunit-phpunit php-psr-log))
    (synopsis "Thin library around PHP deprecation strategies")
    (description "This package provides a layer on top of PHP deprecations
strategies, with no side-effects by default and customization options.")
    (home-page "https://github.com/doctrine/deprecations")
    (license license:expat)))

(define-public php-doctrine-event-manager
  (package
    (name "php-doctrine-event-manager")
    (version "2.0.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/doctrine/event-manager")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "093ghp48ci4xazswlaxlmiabw7vay1nvv382nc1i6nrdxn781y0g"))))
    (build-system composer-build-system)
    (native-inputs
     (list php-phpunit-phpunit))
    (synopsis "Simple PHP event system")
    (description
     "This package provides the Doctrine Event Manager, a simple PHP event
system that was built to be used with the various Doctrine projects.")
    (home-page "https://www.doctrine-project.org/projects/event-manager")
    (license license:expat)))

(define-public php-doctrine-instantiator
  (package
    (name "php-doctrine-instantiator")
    (version "2.0.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/doctrine/instantiator")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1y8ajlwdzrw92lx6bnc5p7lwgrgbf602lqlyxfrsff7x538as73n"))))
    (build-system composer-build-system)
    (native-inputs
     (list php-phpunit-phpunit))
    (synopsis "Utility for instantiating PHP objects")
    (description "This package provides a small, lightweight utility to
instantiate objects in PHP without invoking their constructors")
    (home-page "https://www.doctrine-project.org/projects/instantiator")
    (license license:expat)))

(define-public php-doctrine-lexer
  (package
    (name "php-doctrine-lexer")
    (version "3.0.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/doctrine/lexer")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1kxwq8s9i7gndg66i1c5h6f21w8fc4smd8nj6sg2p0vzrg4m2l43"))))
    (build-system composer-build-system)
    (native-inputs
     (list php-phpunit-phpunit))
    (synopsis "PHP Doctrine Lexer parser library")
    (description
     "This package provides a Doctrine Lexer parser library that can be used
in Top-Down, Recursive Descent Parsers in PHP.")
    (home-page "https://www.doctrine-project.org/projects/lexer")
    (license license:expat)))

(define-public php-doctrine-persistence
  (package
    (name "php-doctrine-persistence")
    (version "3.2.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/doctrine/persistence")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1fynsqafdbajbjirqzhj5gjwkfc7yz45nadgqbhrmh29i0q952bq"))))
    (build-system composer-build-system)
    ;; Native inputs here create a loop that is hard to break.
    ;; Maybe use a -bootstrap version if testing becomes important.
    (arguments
     '(#:tests? #f))
    (inputs
     (list php-doctrine-event-manager php-psr-cache))
    (native-inputs
     (list php-phpunit-phpunit))
    (synopsis "Shared functionality between the Doctrine object mappers")
    (description
     "This package provides a set of shared interfaces and functionality that
the different Doctrine object mappers share.")
    (home-page "https://www.doctrine-project.org/projects/persistence")
    (license license:expat)))

(define-public php-dms-phpunit-arraysubset-asserts
  (package
    (name "php-dms-phpunit-arraysubset-asserts")
    (version "0.4.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/rdohms/phpunit-arraysubset-asserts")
             (commit (string-append "v" version))))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1hqr99yzppsvv05dscidp2x9acmgpixv39309cv2rwj13qy41hh3"))))
    (build-system composer-build-system)
    (inputs (list php-phpunit-phpunit))
    (synopsis "PHP ArraySubset")
    (description
     "This package provides PHP ArraySubset and related asserts once
deprecated in PHPUnit 8.")
    (home-page "https://github.com/rdohms/phpunit-arraysubset-asserts")
    (license license:expat)))

(define-public php-egulias-email-validator
  (package
    (name "php-egulias-email-validator")
    (version "4.0.2")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/egulias/EmailValidator")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0nyqri3421gkiswn70f7f8cfz4vs1vcadxdyvwjykbgc4fz5skz2"))))
    (build-system composer-build-system)
    (arguments
     (list
      #:test-flags ''("--exclude" "skipTest") ; FIXME
      #:phases
      #~(modify-phases %standard-phases
          (add-before 'check 'deactivate-failing-tests
            (lambda _
              (substitute*
                  "tests/EmailValidator/Validation/DNSCheckValidationTest.php"
                (("(.*)@dataProvider validEmailsProvider" all blank)
                 (string-append all "\n"
                                blank "@group skipTest"))
                (("(.*)public function testDomainAcceptsNoMailError\\(\\)" all blank)
                 (string-append
                  blank "/**\n"
                  blank " * @group skipTest\n"
                  blank " */\n"
                  all))
                (("(.*)public function testNoDNSError\\(\\)" all blank)
                 (string-append
                  blank "/**\n"
                  blank " * @group skipTest\n"
                  blank " */\n"
                  all))))))))
    (inputs
     (list php-doctrine-lexer php-symfony-polyfill-intl-idn))
    (native-inputs
     (list php-phpunit-phpunit))
    (synopsis "PHP email address validator")
    (description "A library for validating emails against several RFCs")
    (home-page "https://github.com/egulias/EmailValidator")
    (license license:expat)))

(define-public php-fig-log-test
  (package
    (name "php-fig-log-test")
    (version "1.1.0")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/php-fig/log-test")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "0qli30g6gj458r09sbxx286dpjmh30yhhl7vnfw5m7f91x3lfdlz"))))
    (build-system composer-build-system)
    (arguments
     '(#:test-flags '("--bootstrap" "vendor/autoload.php")))
    (inputs
     (list php-psr-log))
    (native-inputs
     (list php-phpunit-phpunit))
    (synopsis "Tests utils for the PHP psr/log package")
    (description
     "This package provides test utilities for the psr/log package that backs
the PSR-3 specification.")
    (home-page "https://github.com/php-fig/log-test")
    (license license:expat)))

(define-public php-hamcrest-hamcrest-php
  (package
    (name "php-hamcrest-hamcrest-php")
    (version "2.0.1")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/hamcrest/hamcrest-php")
             (commit (string-append "v" version))))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1n6idxz1rc17zky84khrqfyndh4ffb7jvd1nb14saxdissgq5y5j"))
       (patches
        (search-patches "php-hamcrest-hamcrest-php-phpunit-compatibility.patch"))))
    (build-system composer-build-system)
    (arguments
     `(#:test-flags
       '("--configuration" "tests/phpunit.xml.dist"
         "--exclude-group" "skipTest")
       #:phases
       (modify-phases %standard-phases
         (add-after 'unpack 'fix-recent-phpunit-build
           (lambda _
             (substitute* "tests/Hamcrest/UtilTest.php"
               (("assertInternalType\\('array', ")
                "assertIsArray(")
               ;; Ignore this test.
               (("@expectedException InvalidArgumentException")
                "@group skipTest")))))))
    (native-inputs
     (list php-phpunit-php-file-iterator php-phpunit-phpunit))
    (synopsis "PHP port of Hamcrest Matchers")
    (description "Hamcrest is a matching library originally written for Java,
but subsequently ported to many other languages.  This package is the
official PHP port of Hamcrest and essentially follows a literal translation of
the original Java API for Hamcrest, with a few PHP-related exceptions.")
    (home-page "https://github.com/hamcrest/hamcrest-php")
    (license license:bsd-3)))

(define-public php-mockery-mockery
  (package
    (name "php-mockery-mockery")
    (version "1.6.6")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/mockery/mockery")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1z6nla99wswa339f6l8sging4xfnkkp1lkby5fn7g9zh9hdqxx0l"))))
    (build-system composer-build-system)
    (arguments
     (list
      #:test-flags ''("--bootstrap" "vendor/autoload.php")
      #:phases
      #~(modify-phases %standard-phases
          (add-before 'check 'remove-duplicate-hamcrest-require
            (lambda _
              ;; Remove duplicate hamcrest require.
              (substitute* "vendor/autoload_conf.php"
                ((".*Hamcrest.php';")
                 ""))
              ;; Fix failing test.
              (substitute* "tests/Mockery/HamcrestExpectationTest.php"
                (("anything\\(\\)")
                 "\\Hamcrest\\Matchers::anything()")
                (("greaterThan\\(")
                 "\\Hamcrest\\Matchers::greaterThan("))
              ;; FIXME Delete failing test.
              (delete-file "\
tests/Mockery/Adapter/Phpunit/MockeryPHPUnitIntegrationTest.php"))))))
    (inputs
     (list php-hamcrest-hamcrest-php))
    (native-inputs
     (list php-phpunit-phpunit))
    (synopsis "PHP mock object framework")
    (description "This package provides a simple and flexible PHP mock object
framework, often used for tests.")
    (home-page "https://github.com/mockery/mockery")
    (license license:bsd-3)))

(define-public php-myclabs-deep-copy
  (package
    (name "php-myclabs-deep-copy")
    (version "1.11.1")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/myclabs/DeepCopy")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1jica9cx65a3l70p1sn6vjz5dxdqfwf5msvn1v4qnp6ah7rh4xcv"))))
    (build-system composer-build-system)
    (arguments
     '(#:test-flags '("--bootstrap" "vendor/autoload.php")))
    (native-inputs
     (list php-phpunit-phpunit
           php-doctrine-collections
           php-doctrine-common
           php-phpspec-prophecy))
    (synopsis "Create copies of PHP objects")
    (description "This package contains a facility to create deep copies (clones)
of PHP objects.  This package not only creates a new copy of an object, it
recursively create new copies of any object referenced by the object.  It is
designed to work even in the presence of cycles in the association graph.")
    (home-page "https://github.com/myclabs/DeepCopy")
    (license license:expat)))

(define-public php-nikic-php-parser
  (package
    (name "php-nikic-php-parser")
    (version "4.17.1")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/nikic/PHP-Parser")
             (commit (string-append "v" version))))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1zwcdsgkhg41y2fmqm6jsp91rwgklz1fg09zwayfp43mx7hicq2h"))))
    (build-system composer-build-system)
    (native-inputs
     (list php-phpunit-phpunit))
    (synopsis "PHP parser written in PHP")
    (description "This package provides a PHP parser written in PHP, to
simplify static code analysis and manipulation.")
    (home-page "https://github.com/nikic/PHP-Parser")
    (license license:bsd-3)))

(define-public php-phar-io-manifest
  (package
    (name "php-phar-io-manifest")
    (version "2.0.3")
    (source
     (origin
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/phar-io/manifest")
             (commit version)))
       (file-name (git-file-name name version))
       (sha256
        (base32 "10bj0c38a988mwv0h8g7lk2npyghsf0bzbvys1msxlckjy7b1zww"))))
    (build-system composer-build-system)
    (inputs
     (list php-phar-io-version))
    (synopsis "PHP Archive information reader")
    (description "This package contains a component for reading phar.io manifest
information from a PHP Archive (PHAR).")
    (home-page "https://phar.io")
    (license license:bsd-3)))