;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
;;;
;;; 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 (gnu packages)
  #:use-module (gnu packages php)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix build-system composer)
  #:use-module (guix build-system gnu)
  #:use-module (guix utils)
  #:use-module ((guix licenses) #:prefix license:))

(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.git")
                     (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 (string-append out "/share/web/composer/ClassLoader.php")))
               (mkdir-p (dirname install))
               (copy-file "src/Composer/Autoload/ClassLoader.php" install)))))))
    (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-doctrine-instantiator
  (package
    (name "php-doctrine-instantiator")
    (version "1.3.1")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                     (url "https://github.com/doctrine/instantiator.git")
                     (commit version)))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "17c72j29p77gdgh06b9qc0nivmav0k5yc22z4ryygj7dhr1h65nq"))))
    (build-system composer-build-system)
    (arguments
     ;; We do not have phpunit yet
     `(#:tests? #f))
    (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.html")
    (license license:expat)))

(define-public php-sebastian-recursion-context
  (package
    (name "php-sebastian-recursion-context")
    (version "4.0.2")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                     (url "https://github.com/sebastianbergmann/recursion-context.git")
                     (commit version)))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "0glpydmvr95f9xbmh76vgid2nz7rf6lxwfz1j7ksvgmf4m1dniyz"))))
    (build-system composer-build-system)
    (arguments
     ;; We do not have phpunit yet
     `(#:tests? #f))
    (synopsis "Process PHP variables recursively")
    (description "This package provides functionality to recursively process
PHP variables")
    (home-page "http://www.github.com/sebastianbergmann/recursion-context")
    (license license:bsd-3)))

(define-public php-sebastian-exporter
  (package
    (name "php-sebastian-exporter")
    (version "4.0.2")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                     (url "https://github.com/sebastianbergmann/exporter.git")
                     (commit version)))
              (file-name (git-file-name name version))
              (sha256
               (base32
                "03xj9gbi8ifnbj5n72gfpwyg65l71gg1r8yvzpbg6d3yxbqaa8f6"))))
    (build-system composer-build-system)
    (arguments
     ;; We do not have phpunit yet
     `(#:tests? #f))
    (inputs
     `(("php-sebastian-recursion-context" ,php-sebastian-recursion-context)))
    (synopsis "Visualize PHP variables")
    (description "This package provides the functionality to export PHP
variables for visualization")
    (home-page "http://www.github.com/sebastianbergmann/exporter")
    (license license:bsd-3)))