From mboxrd@z Thu Jan 1 00:00:00 1970 From: Efraim Flashner Subject: bug#36973: NativeCall doesn't work with rakudo ? Date: Thu, 8 Aug 2019 12:43:15 +0300 Message-ID: <20190808094315.GC5507@E2140> References: <20190807153311.GA8932@prometheus.u-strasbg.fr> <20190808093151.GB5507@E2140> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha512; protocol="application/pgp-signature"; boundary="TybLhxa8M7aNoW+V" Return-path: Received: from eggs.gnu.org ([2001:470:142:3::10]:53167) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hvexn-0008G3-GU for bug-guix@gnu.org; Thu, 08 Aug 2019 05:44:04 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hvexm-0000s1-EU for bug-guix@gnu.org; Thu, 08 Aug 2019 05:44:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:59329) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hvexm-0000rx-9t for bug-guix@gnu.org; Thu, 08 Aug 2019 05:44:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hvexm-0001NZ-5F for bug-guix@gnu.org; Thu, 08 Aug 2019 05:44:02 -0400 Sender: "Debbugs-submit" Resent-Message-ID: Content-Disposition: inline In-Reply-To: <20190808093151.GB5507@E2140> List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org Sender: "bug-Guix" To: 36973@debbugs.gnu.org --TybLhxa8M7aNoW+V Content-Type: multipart/mixed; boundary="UPT3ojh+0CqEDtpF" Content-Disposition: inline --UPT3ojh+0CqEDtpF Content-Type: text/plain; charset=utf-8 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable forgot the two attachments --=20 Efraim Flashner =D7=90=D7=A4=D7=A8=D7=99=D7=9D = =D7=A4=D7=9C=D7=A9=D7=A0=D7=A8 GPG key =3D A28B F40C 3E55 1372 662D 14F7 41AA E7DC CA3D 8351 Confidentiality cannot be guaranteed on emails sent or received unencrypted --UPT3ojh+0CqEDtpF Content-Type: text/plain; charset=utf-8 Content-Disposition: attachment; filename="sdl.p6" use SDL2::Raw; die "couldn't initialize SDL2: { SDL_GetError }" if SDL_Init(VIDEO) != 0; my $window = SDL_CreateWindow( "Hello, world!", SDL_WINDOWPOS_CENTERED_MASK, SDL_WINDOWPOS_CENTERED_MASK, 800, 600, OPENGL ); my $render = SDL_CreateRenderer($window, -1, ACCELERATED +| PRESENTVSYNC); my $event = SDL_Event.new; main: loop { SDL_SetRenderDrawColor($render, 0, 0, 0, 0); SDL_RenderClear($render); while SDL_PollEvent($event) { if $event.type == QUIT { last main; } } SDL_SetRenderDrawColor($render, 255, 255, 255, 255); SDL_RenderFillRect($render, SDL_Rect.new( 2 * min(now * 300 % 800, -now * 300 % 800), 2 * min(now * 470 % 600, -now * 470 % 600), sin(3 * now) * 50 + 80, cos(4 * now) * 50 + 60)); SDL_RenderPresent($render); } SDL_Quit; --UPT3ojh+0CqEDtpF Content-Type: text/plain; charset=utf-8 Content-Disposition: attachment; filename="perl6-sdl2-raw.scm" (define-module (perl6-sdl2-raw) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix packages) #:use-module (guix git-download) #:use-module (guix build-system rakudo) #:use-module (gnu packages perl6)) (define-public perl6-sdl2-raw (package (name "perl6-sdl2-raw") (version "0.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/timo/SDL2_Raw-p6.git") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1h9g76bdps5aw14s6yxgnjfys9269vxiiq8728nrv8ccfynz64j3")))) (build-system rakudo-build-system) (home-page "https://github.com/timo/SDL2_Raw-p6") (synopsis "Sugar-free NativeCall binding for libSDL2") (description "Sugar-free NativeCall binding for libSDL2") (license license:artistic2.0))) perl6-sdl2-raw --UPT3ojh+0CqEDtpF-- --TybLhxa8M7aNoW+V Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQIzBAABCgAdFiEEoov0DD5VE3JmLRT3Qarn3Mo9g1EFAl1L7qgACgkQQarn3Mo9 g1GRzhAAjjsI8r4xv7hpLhyzXKJTNcQGRxjg+qrWr7X/9uREpqeA2wHx25LIEpGf p7U/5F30d1HKXlnIL50UDkZDXRqKD3Er+KSOslHKDEaBx5CmLBS7enf3ZaQqLk5V ylyOxi8UCyvBAaiA0cyPxNA/c+vs25J/3A6OiGqkmsTc1oDD7BSj9FDgjRMygJPf ohzFWg7HoUTuLZ7GiHpuJjgz49JRztbmW02CKXMsZJU+Pn4VeHexLrmie/OhVZgq CdXHK3VTalDPD2TqzpPW/sQCXuMcq2I1ETpcwYXjK3Fbonav0oJdjpNYWqiGS9D8 zSduigo1H4FY9E8XKEGFdAsFEXDyNyguQqrCQlPMxcc+N43wBDmKRNk90rA/3WHA KOSE407EvUu9b+8FeUuSYGW2ouZnHKbL3aNbRnl4DaD4ZIiCID6n3JwQKrVmkjLV toHOcXA5u+y7tiLasLLPSdVWWd+bbpa0EPaFi5SzpMxqIknI10NkQuIr9/CHAT1r aTC/yf/JYnFpssC197+wuuvbyP2War+dLGsPLgosvVYyuLN//RaFSmzdS/yWE+1P s0kdUMtwdhh3vGXE8caB9p505ccYciDG+xZW2kFWcRcOp0aAprZ+ihWHlPpToBhe w4bSp8VTyvuSi1UKaj8YcELJSRmio0PeT5xj6r+tDU2jSAUZzI8= =LNEQ -----END PGP SIGNATURE----- --TybLhxa8M7aNoW+V--