File gnu/packages/perl.scm changed (mode: 100644) (index dd201d86ad..d91e336d83) |
1 |
1 |
;;; GNU Guix --- Functional package management for GNU |
;;; GNU Guix --- Functional package management for GNU |
2 |
2 |
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> |
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> |
3 |
|
;;; Copyright © 2013, 2019 Andreas Enge <andreas@enge.fr> |
|
|
3 |
|
;;; Copyright © 2013, 2019, 2020 Andreas Enge <andreas@enge.fr> |
4 |
4 |
;;; Copyright © 2015, 2016, 2017, 2019 Ricardo Wurmus <rekado@elephly.net> |
;;; Copyright © 2015, 2016, 2017, 2019 Ricardo Wurmus <rekado@elephly.net> |
5 |
5 |
;;; Copyright © 2015, 2016, 2017, 2019, 2020 Eric Bavier <bavier@posteo.net> |
;;; Copyright © 2015, 2016, 2017, 2019, 2020 Eric Bavier <bavier@posteo.net> |
6 |
6 |
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> |
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> |
|
27 |
27 |
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> |
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> |
28 |
28 |
;;; Copyright © 2020 Paul Garlick <pgarlick@tourbillion-technology.com> |
;;; Copyright © 2020 Paul Garlick <pgarlick@tourbillion-technology.com> |
29 |
29 |
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr> |
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr> |
|
30 |
|
;;; Copyright © 2020 Malte Frank Gerdes <malte.f.gerdes@gmail.com> |
30 |
31 |
;;; |
;;; |
31 |
32 |
;;; This file is part of GNU Guix. |
;;; This file is part of GNU Guix. |
32 |
33 |
;;; |
;;; |
|
74 |
75 |
#:use-module (gnu packages sdl) |
#:use-module (gnu packages sdl) |
75 |
76 |
#:use-module (gnu packages textutils) |
#:use-module (gnu packages textutils) |
76 |
77 |
#:use-module (gnu packages video) |
#:use-module (gnu packages video) |
77 |
|
#:use-module (gnu packages web)) |
|
|
78 |
|
#:use-module (gnu packages web) |
|
79 |
|
#:use-module (gnu packages xorg)) |
78 |
80 |
|
|
79 |
81 |
;;; |
;;; |
80 |
82 |
;;; Please: Try to add new module packages in alphabetic order. |
;;; Please: Try to add new module packages in alphabetic order. |
|
... |
... |
technology to store hierarchical information such as links to other |
7861 |
7863 |
documents within a single file.") |
documents within a single file.") |
7862 |
7864 |
(license (package-license perl)))) |
(license (package-license perl)))) |
7863 |
7865 |
|
|
|
7866 |
|
(define-public perl-opengl |
|
7867 |
|
(package |
|
7868 |
|
(name "perl-opengl") |
|
7869 |
|
(version "0.70") |
|
7870 |
|
(source |
|
7871 |
|
(origin |
|
7872 |
|
(method url-fetch) |
|
7873 |
|
(uri (string-append |
|
7874 |
|
"mirror://cpan/authors/id/C/CH/CHM/OpenGL-" |
|
7875 |
|
version |
|
7876 |
|
".tar.gz")) |
|
7877 |
|
(sha256 |
|
7878 |
|
(base32 |
|
7879 |
|
"1q3lz168q081iwl9jg21fbzhp9la79gav9mv6nmh2jab83s2l3mj")))) |
|
7880 |
|
(build-system perl-build-system) |
|
7881 |
|
(inputs `(("freeglut" ,freeglut) |
|
7882 |
|
("libxi" ,libxi) |
|
7883 |
|
("libxmu" ,libxmu))) |
|
7884 |
|
(arguments |
|
7885 |
|
'(#:tests? #f ; test.pl fails with our empty glversion.txt, while |
|
7886 |
|
; the package still seems to work on the examples |
|
7887 |
|
#:phases |
|
7888 |
|
(modify-phases %standard-phases |
|
7889 |
|
(add-before 'configure 'glversion |
|
7890 |
|
;; Building utils/glversion.txt fails, and is probably |
|
7891 |
|
;; dependent on the graphics card in the build system. |
|
7892 |
|
;; Replace it by a content-free file; while this breaks |
|
7893 |
|
;; the tests, the examples in the examples/ subdirectory |
|
7894 |
|
;; can be run. |
|
7895 |
|
(lambda _ |
|
7896 |
|
(substitute* "Makefile.PL" |
|
7897 |
|
(("unlink") "# unlink") ; prevent utils/glversion.txt |
|
7898 |
|
; from being deleted once... |
|
7899 |
|
(("\\.\"\\$make_ver clean\"") "")) ; ...and twice... |
|
7900 |
|
(substitute* "utils/Makefile" |
|
7901 |
|
(("all: glversion.txt") "all: ")) ; ...and thrice. |
|
7902 |
|
(call-with-output-file "utils/glversion.txt" |
|
7903 |
|
(lambda (port) |
|
7904 |
|
(display (string-append "FREEGLUT=\nGLUT=\nVERSION=\n" |
|
7905 |
|
"VENDOR=\nRENDERER=\n" |
|
7906 |
|
"EXTENSIONS=\n") |
|
7907 |
|
port))) |
|
7908 |
|
#t)) |
|
7909 |
|
(add-before 'configure 'fix-library-flags |
|
7910 |
|
(lambda* (#:key inputs #:allow-other-keys) |
|
7911 |
|
(substitute* "Makefile.PL" |
|
7912 |
|
(("-L/usr/local/freeglut/lib") |
|
7913 |
|
(string-append "-L" (assoc-ref inputs "freeglut") "/lib\n" |
|
7914 |
|
"-L" (assoc-ref inputs "glu") "/lib\n" |
|
7915 |
|
"-L" (assoc-ref inputs "mesa") "/lib\n"))) |
|
7916 |
|
#t))))) |
|
7917 |
|
(home-page "https://metacpan.org/release/OpenGL") |
|
7918 |
|
(synopsis |
|
7919 |
|
"Perl bindings to the OpenGL API, GLU, and GLUT/FreeGLUT") |
|
7920 |
|
(description "The package provides Perl bindings to OpenGL, GLU |
|
7921 |
|
and FreeGLUT.") |
|
7922 |
|
(license (package-license perl)))) |
|
7923 |
|
|
7864 |
7924 |
(define-public perl-package-anon |
(define-public perl-package-anon |
7865 |
7925 |
(package |
(package |
7866 |
7926 |
(name "perl-package-anon") |
(name "perl-package-anon") |