From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id 6L7LFFCpdl+ifAAA0tVLHw (envelope-from ) for ; Fri, 02 Oct 2020 04:15:12 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id yGGnEFCpdl8dRAAAbx9fmQ (envelope-from ) for ; Fri, 02 Oct 2020 04:15:12 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 5F4E5940394 for ; Fri, 2 Oct 2020 04:15:11 +0000 (UTC) Received: from localhost ([::1]:40178 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kOCTN-0001kY-3x for larch@yhetil.org; Fri, 02 Oct 2020 00:15:09 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:54204) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kOCTG-0001kP-FC for guix-patches@gnu.org; Fri, 02 Oct 2020 00:15:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:55679) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1kOCTG-0006kQ-5Z for guix-patches@gnu.org; Fri, 02 Oct 2020 00:15:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1kOCTG-0003Ky-11 for guix-patches@gnu.org; Fri, 02 Oct 2020 00:15:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#43654] [PATCH] Add perl-opengl Resent-From: Kei Kebreau Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Fri, 02 Oct 2020 04:15:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 43654 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: Malte Frank Gerdes Cc: 43654@debbugs.gnu.org Received: via spool by 43654-submit@debbugs.gnu.org id=B43654.160161205312756 (code B ref 43654); Fri, 02 Oct 2020 04:15:01 +0000 Received: (at 43654) by debbugs.gnu.org; 2 Oct 2020 04:14:13 +0000 Received: from localhost ([127.0.0.1]:38992 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kOCSE-0003J1-Qt for submit@debbugs.gnu.org; Fri, 02 Oct 2020 00:14:13 -0400 Received: from mout02.posteo.de ([185.67.36.66]:43627) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kOCS9-0003Ij-2K for 43654@debbugs.gnu.org; Fri, 02 Oct 2020 00:13:57 -0400 Received: from submission (posteo.de [89.146.220.130]) by mout02.posteo.de (Postfix) with ESMTPS id 7FC692400FB for <43654@debbugs.gnu.org>; Fri, 2 Oct 2020 06:13:46 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=posteo.net; s=2017; t=1601612026; bh=/GDDA82/hmvLCyJ1N1dHBs9UiBTSbU1sRt8Nr/l51bw=; h=From:To:Cc:Subject:Date:From; b=lQQ6jGLQVj/Bqs7GpoEZKJ/DhFhBc9Aad08n0GNt5W58m45LitkeegMdfG1odpBkL UOiycxlr6UzAh+q148uy3pSyJOxIgGaC9hNq+NQB6SSUMq3mI/4rpmnHlas6gbpl3o KLuF9HwDBljxGaWHPBb2CHnm/CZ3YqDRXBLGio2VehDOo+MpbQZe+jkztrYGXEboZA doXbf7dmDcNJ4Wc2P1JWW8xqTBlUylhAtoVQGntaWQiW7UaGHQYV3QJHDWc5shNwEn zpwdoxPAXLKBjtrxzS16ckQbiGIts1bhIIroMqW0/KMgW2Gnt1hAzUudASidZ7Avu2 rJkE3OQRQVXtA== Received: from customer (localhost [127.0.0.1]) by submission (posteo.de) with ESMTPSA id 4C2c7F2VWrz9rxG; Fri, 2 Oct 2020 06:13:45 +0200 (CEST) From: Kei Kebreau In-Reply-To: <86pn67xcmn.fsf@gmail.com> (Malte Frank Gerdes's message of "Sun, 27 Sep 2020 21:06:56 +0200") References: <86pn67xcmn.fsf@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) Date: Fri, 02 Oct 2020 00:13:43 -0400 Message-ID: <87mu15b6yw.fsf@posteo.net> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" X-Spam-Score: 0.0 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-Spam-Score: -1.7 (-) X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: "Guix-patches" X-Scanner: scn0 Authentication-Results: aspmx1.migadu.com; dkim=fail (rsa verify failed) header.d=posteo.net header.s=2017 header.b=lQQ6jGLQ; dmarc=fail reason="SPF not aligned (strict)" header.from=posteo.net (policy=none); spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Spam-Score: -0.51 X-TUID: y2i4dtvbmc+G --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Malte Frank Gerdes writes: > Hi, > Hi Malte! > this patch adds perl-opengl to guix. The glversion.txt is taken straight > from nixpkgs (i didn't see any copyright notices, so this is ok?). > I think we can assume that the same MIT license in the root directory of the nixpkgs repository also applies to the unmarked files in the repository. > This is the first time for me sending a patch to this list, i hope i > haven't forgotten anything :) > > Malte > > diff --git a/gnu/local.mk b/gnu/local.mk > index f3b5b17e84..001b249e9e 100644 > --- a/gnu/local.mk > +++ b/gnu/local.mk > @@ -37,6 +37,7 @@ > # Copyright =C2=A9 2020 Brice Waegeneire > # Copyright =C2=A9 2020 Tanguy Le Carrour > # Copyright =C2=A9 2020 Martin Becze > +# Copyright =C2=A9 2020 Malte Frank Gerdes > # > # This file is part of GNU Guix. > # > @@ -1406,6 +1407,7 @@ dist_patch_DATA =3D \ > %D%/packages/patches/pam-mount-luks2-support.patch \ > %D%/packages/patches/pango-skip-libthai-test.patch \ > %D%/packages/patches/pciutils-hurd-configure.patch \ > + %D%/packages/patches/perl-opengl-makefile.patch \ > %D%/packages/patches/ppsspp-disable-upgrade-and-gold.patch \ > %D%/packages/patches/samba-fix-fcntl-hint-detection.patch \ > %D%/packages/patches/sdl-pango-api_additions.patch \ > diff --git a/gnu/packages/aux-files/perl-opengl/glversion.txt b/gnu/packa= ges/aux-files/perl-opengl/glversion.txt > new file mode 100644 > index 0000000000..5b5a9a911f > --- /dev/null > +++ b/gnu/packages/aux-files/perl-opengl/glversion.txt > @@ -0,0 +1,5 @@ > +GLUT=3D20801 > +VERSION=3D3.0 Mesa 10.2.6 > +VENDOR=3DIntel Open Source Technology Center > +RENDERER=3DMesa DRI Intel(R) Ivybridge Mobile > +EXTENSIONS=3DGL_ARB_multisample GL_EXT_abgr GL_EXT_bgra GL_EXT_blend_col= or GL_EXT_blend_minmax GL_EXT_blend_subtract GL_EXT_copy_texture GL_EXT_pol= ygon_offset GL_EXT_subtexture GL_EXT_texture_object GL_EXT_vertex_array GL_= EXT_compiled_vertex_array GL_EXT_texture GL_EXT_texture3D GL_IBM_rasterpos_= clip GL_ARB_point_parameters GL_EXT_draw_range_elements GL_EXT_packed_pixel= s GL_EXT_point_parameters GL_EXT_rescale_normal GL_EXT_separate_specular_co= lor GL_EXT_texture_edge_clamp GL_SGIS_generate_mipmap GL_SGIS_texture_borde= r_clamp GL_SGIS_texture_edge_clamp GL_SGIS_texture_lod GL_ARB_framebuffer_s= RGB GL_ARB_multitexture GL_EXT_framebuffer_sRGB GL_IBM_multimode_draw_array= s GL_IBM_texture_mirrored_repeat GL_3DFX_texture_compression_FXT1 GL_ARB_te= xture_cube_map GL_ARB_texture_env_add GL_ARB_transpose_matrix GL_EXT_blend_= func_separate GL_EXT_fog_coord GL_EXT_multi_draw_arrays GL_EXT_secondary_co= lor GL_EXT_texture_env_add GL_EXT_texture_filter_anisotropic GL_EXT_texture= _lod_bias GL_INGR_blend_func_separate GL_NV_blend_square GL_NV_light_max_ex= ponent GL_NV_texgen_reflection GL_NV_texture_env_combine4 GL_S3_s3tc GL_SUN= _multi_draw_arrays GL_ARB_texture_border_clamp GL_ARB_texture_compression G= L_EXT_framebuffer_object GL_EXT_texture_compression_s3tc GL_EXT_texture_env= _combine GL_EXT_texture_env_dot3 GL_MESA_window_pos GL_NV_packed_depth_sten= cil GL_NV_texture_rectangle GL_ARB_depth_texture GL_ARB_occlusion_query GL_= ARB_shadow GL_ARB_texture_env_combine GL_ARB_texture_env_crossbar GL_ARB_te= xture_env_dot3 GL_ARB_texture_mirrored_repeat GL_ARB_window_pos GL_ATI_envm= ap_bumpmap GL_EXT_stencil_two_side GL_EXT_texture_cube_map GL_NV_depth_clam= p GL_APPLE_packed_pixels GL_APPLE_vertex_array_object GL_ARB_draw_buffers G= L_ARB_fragment_program GL_ARB_fragment_shader GL_ARB_shader_objects GL_ARB_= vertex_program GL_ARB_vertex_shader GL_ATI_draw_buffers GL_ATI_texture_env_= combine3 GL_ATI_texture_float GL_EXT_shadow_funcs GL_EXT_stencil_wrap GL_ME= SA_pack_invert GL_NV_primitive_restart GL_ARB_depth_clamp GL_ARB_fragment_p= rogram_shadow GL_ARB_half_float_pixel GL_ARB_occlusion_query2 GL_ARB_point_= sprite GL_ARB_shading_language_100 GL_ARB_sync GL_ARB_texture_non_power_of_= two GL_ARB_vertex_buffer_object GL_ATI_blend_equation_separate GL_EXT_blend= _equation_separate GL_OES_read_format GL_ARB_color_buffer_float GL_ARB_pixe= l_buffer_object GL_ARB_texture_compression_rgtc GL_ARB_texture_float GL_ARB= _texture_rectangle GL_EXT_packed_float GL_EXT_pixel_buffer_object GL_EXT_te= xture_compression_dxt1 GL_EXT_texture_compression_rgtc GL_EXT_texture_recta= ngle GL_EXT_texture_sRGB GL_EXT_texture_shared_exponent GL_ARB_framebuffer_= object GL_EXT_framebuffer_blit GL_EXT_framebuffer_multisample GL_EXT_packed= _depth_stencil GL_APPLE_object_purgeable GL_ARB_vertex_array_object GL_ATI_= separate_stencil GL_EXT_draw_buffers2 GL_EXT_draw_instanced GL_EXT_gpu_prog= ram_parameters GL_EXT_texture_array GL_EXT_texture_integer GL_EXT_texture_s= RGB_decode GL_EXT_timer_query GL_OES_EGL_image GL_AMD_performance_monitor G= L_ARB_copy_buffer GL_ARB_depth_buffer_float GL_ARB_draw_instanced GL_ARB_ha= lf_float_vertex GL_ARB_instanced_arrays GL_ARB_map_buffer_range GL_ARB_text= ure_rg GL_ARB_texture_swizzle GL_ARB_vertex_array_bgra GL_EXT_texture_swizz= le GL_EXT_vertex_array_bgra GL_NV_conditional_render GL_AMD_conservative_de= pth GL_AMD_draw_buffers_blend GL_AMD_seamless_cubemap_per_texture GL_ARB_ES= 2_compatibility GL_ARB_blend_func_extended GL_ARB_debug_output GL_ARB_draw_= buffers_blend GL_ARB_draw_elements_base_vertex GL_ARB_explicit_attrib_locat= ion GL_ARB_fragment_coord_conventions GL_ARB_provoking_vertex GL_ARB_sample= _shading GL_ARB_sampler_objects GL_ARB_seamless_cube_map GL_ARB_shader_text= ure_lod GL_ARB_texture_cube_map_array GL_ARB_texture_gather GL_ARB_texture_= multisample GL_ARB_texture_query_lod GL_ARB_texture_rgb10_a2ui GL_ARB_unifo= rm_buffer_object GL_ARB_vertex_type_2_10_10_10_rev GL_EXT_provoking_vertex = GL_EXT_texture_snorm GL_MESA_texture_signed_rgba GL_ARB_get_program_binary = GL_ARB_robustness GL_ARB_separate_shader_objects GL_ARB_shader_bit_encoding= GL_ARB_timer_query GL_ARB_transform_feedback2 GL_ARB_transform_feedback3 G= L_ANGLE_texture_compression_dxt3 GL_ANGLE_texture_compression_dxt5 GL_ARB_c= onservative_depth GL_ARB_internalformat_query GL_ARB_map_buffer_alignment G= L_ARB_shader_atomic_counters GL_ARB_shading_language_420pack GL_ARB_shading= _language_packing GL_ARB_texture_storage GL_ARB_transform_feedback_instance= d GL_EXT_framebuffer_multisample_blit_scaled GL_EXT_transform_feedback GL_A= MD_shader_trinary_minmax GL_ARB_ES3_compatibility GL_ARB_clear_buffer_objec= t GL_ARB_invalidate_subdata GL_ARB_texture_query_levels GL_ARB_texture_stor= age_multisample GL_ARB_texture_view GL_ARB_vertex_attrib_binding GL_KHR_deb= ug GL_ARB_buffer_storage GL_ARB_multi_bind GL_ARB_texture_mirror_clamp_to_e= dge GL_ARB_vertex_type_10f_11f_11f_rev GL_EXT_shader_integer_mix GL_INTEL_p= erformance_query I suppose the purpose of this glversion.txt is to avoid reproducibility issues? I see it was added as a "pretty ugly hack" in the nixpkgs repository [1]. (Interestingly enough, this text file doesn't seem to cause me any issues, even though my computer doesn't support OpenGL 3.0, so I guess it's fine.) > diff --git a/gnu/packages/patches/perl-opengl-makefile.patch b/gnu/packag= es/patches/perl-opengl-makefile.patch > new file mode 100644 > index 0000000000..e782113d8b > --- /dev/null > +++ b/gnu/packages/patches/perl-opengl-makefile.patch > @@ -0,0 +1,37 @@ > +diff --git a/Makefile.PL b/Makefile.PL > +index d32205d..3e8fa0a 100755 > +--- a/Makefile.PL > ++++ b/Makefile.PL > +@@ -124,14 +124,7 @@ if ($IS_MINGW) > + # Look for available libs > + our @libdirs =3D qw > + { > +- -L/usr/lib > +- -L/usr/lib/i386-linux-gnu > +- -L/usr/X11R6/lib > +- -L/opt/X11/lib > +- -L/usr/local/lib > +- -L/usr/openwin/lib > +- -L/opt/csw/lib > +- -L/usr/local/freeglut/lib > ++@@libdirs@@ > + }; > + > + our @check_libs =3D qw > +@@ -804,7 +797,6 @@ sub get_extensions > + my $exc_file =3D 'gl_exclude.h'; > + unlink($exc_file) if (-e $exc_file); > + my $glv_file =3D 'utils/glversion.txt'; > +- unlink($glv_file) if (-e $glv_file); > + > + # Only run the rest if GLUT is installed > + print "Testing GLUT version\n" if ($verbose); > +@@ -861,7 +853,7 @@ sub get_extensions > + $make_ver =3D ";make -f Makefile " . (length($lib) ? "GLUT_LIB=3D$= lib " : "") . (length($def) ? "GLUT_DEF=3D$def " : ""); > + print "glversion: '$make_ver'\n" if $verbose>1; > + } > +- my $exec =3D 'cd utils'."$make_ver clean".$make_ver; > ++ my $exec =3D 'cd utils'.$make_ver; > + print "glversion: $exec\n" if ($verbose); > + my $stat =3D `$exec`; > + print "\n$stat\n\n" if ($verbose); At the top of the makefile patch, could you add a brief explanation of the purpose of the patch and/or link to the source of the patch? It makes the patch much more maintainable, and you can find examples of this throughout the gnu/packages/patches subdirectory in the Guix repository. > diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm > index 1c3d999d79..093f60f9c9 100644 > --- a/gnu/packages/perl.scm > +++ b/gnu/packages/perl.scm > @@ -27,6 +27,7 @@ > ;;; Copyright =C2=A9 2020 Vincent Legoll > ;;; Copyright =C2=A9 2020 Paul Garlick > ;;; Copyright =C2=A9 2020 Nicolas Goaziou > +;;; Copyright =C2=A9 2020 Malte Frank Gerdes > ;;; > ;;; This file is part of GNU Guix. > ;;; > @@ -49,6 +50,7 @@ > #:use-module (gnu packages) > #:use-module (guix packages) > #:use-module (guix download) > + #:use-module (guix gexp) > #:use-module (guix git-download) > #:use-module (guix utils) > #:use-module (guix build-system gnu) > @@ -75,6 +77,7 @@ > #:use-module (gnu packages textutils) > #:use-module (gnu packages video) > #:use-module (gnu packages web)) > + #:use-module (gnu packages xorg)) There's a minor parenthesis accounting mistake on the lines above. If you delete the last right parenthesis, the indentation issue should be fixed and the code should compile. > > ;;; > ;;; Please: Try to add new module packages in alphabetic order. I almost missed this note on my first review! Please place the package definition somewhere in the file so that it leaves the file in some sort of alphabetical order. > @@ -11387,3 +11390,61 @@ regexp patterns in modules.") > (description "Data::SExpression parses Lisp S-Expressions into Perl = data > structures.") > (license license:perl-license))) > + > +(define-public perl-opengl > + (package > + (name "perl-opengl") > + (version "0.70") > + (source > + (origin > + (method url-fetch) > + (uri (string-append > + "mirror://cpan/authors/id/C/CH/CHM/OpenGL-" > + version > + ".tar.gz")) > + (sha256 > + (base32 > + "1q3lz168q081iwl9jg21fbzhp9la79gav9mv6nmh2jab83s2l3mj")) > + (patches (search-patches "perl-opengl-makefile.patch")))) > + (build-system perl-build-system) > + (native-inputs > + `(("xvfb" ,xorg-server-for-tests) > + ("glversion-txt" ,(local-file "aux-files/perl-opengl/glversion.tx= t")))) > + (inputs `(("mesa" ,mesa) > + ("glu" ,glu) > + ("freeglut" ,freeglut) > + ("libxi" ,libxi) > + ("libxmu" ,libxmu) > + ("libice" ,libice))) > + (arguments > + '(#:phases > + (modify-phases %standard-phases > + (add-before 'configure 'patch-makefile > + (lambda* (#:key inputs #:allow-other-keys) > + (substitute* "Makefile.PL" > + (("^@@libdirs@@") > + (string-concatenate > + (map (lambda (input) > + (string-append "-L" (cdr input) "/lib\n")) > + inputs)))) > + (substitute* "utils/Makefile" > + (("^all: glversion.txt") "all:")) > + #t)) I'd name the above phase "patch-makefiles" since you've patched multiple files, but that's just me. ;-) > + (add-before 'configure 'inject-glversion > + (lambda* (#:key inputs #:allow-other-keys) > + (copy-file (assoc-ref inputs "glversion-txt") > + "utils/glversion.txt") > + #t)) > + (add-before 'check 'pre-check > + (lambda _ > + ;; Tests require a running X server. > + (system "Xvfb :1 &") > + (setenv "DISPLAY" ":1") > + #t)) > + ))) > + (home-page "https://metacpan.org/release/OpenGL") > + (synopsis > + "Perl bindings to the OpenGL API, GLU, and GLUT/FreeGLUT") > + (description "The package provides Perl bindings to OpenGL, GLU > +and FreeGLUT.") > + (license license:perl-license))) Altogether, the code works when the small parenthesis accounting error above is corrected. Please reply to this message with an updated patch, and I'll be happy to review and approve it! Thanks for your contribution, Kei [1]: https://github.com/NixOS/nixpkgs/commit/0fc8d92e53d294f35f63a1898e9b61= f3651d0800#diff-7f99cf156dbc7368d6f642c1a72f316a --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQIzBAEBCAAdFiEEg7ZwOtzKO2lLzi2m5qXuPBlGeg0FAl92qPcACgkQ5qXuPBlG eg25bxAApdVAda1pBEPQGGypjSoodwy8riNquuC1qtldBBjUR5gdUBjrqRqSMMl2 PyM8izCRTxpilNZXBmRkLc9Rr/l8BBCEb4Y52w4tBYCpNI0XZ9T/7lI1oIBZRl6T TJo/Dj7s9RwApcpsZbZwhB1W24aqc/0HpbuHIJZDbVcV7ESf0+lMcPlhMulnu3vT 6q2S4iYa7CTBeLazVJRq5ggGYCCMw0OSVexD4gZzvzfG3udg7UdRkRuuesGtPFvi +gtb5gc+6KqCAd2u3N6tRaiTLtYdYB6qGiLeQ3xjsOgV9ISoau+PVIWiCtRdfOnT w/xoy/vLLTThBgOt8wtsEVz5v4l5P9k2uNy7ZCgRhq7woj0nGmjcWpAddkqTFF1R mNPUvk0QDpqhIgrhbWxqE+jqw72DAFF7tvD3DRxnGSZDJA2BSkbQnCyLWKAMMDg/ o41ou/4S2TGp+Ku2ckzgfYCLVDAMlx85PXRpP5c69ifAczPs08Lji4dfgW8XQt4W u14RQbG6tWy9u9xrnEPAbk3KxeF7iGAc5QPIlcRdIVuLjJaNXkULtAxUr0KQbdQa jCLiT3PbtX2Y9FSP4rkOlV8cwhKj5SKjXS7pfaFrsDv3s7pn88gsubRR8jktKInm nnCs57x5rsuzcGVuCc0xysfrZlEsrehCmVCLNqxTGZJc+JSYQOk= =hDfj -----END PGP SIGNATURE----- --=-=-=--