NativeCall doesn't work with rakudo ?

  • Open
  • quality assurance status badge
Details
One participant
  • Efraim Flashner
Owner
unassigned
Submitted by
Efraim Flashner
Severity
normal
E
E
Efraim Flashner wrote on 8 Aug 2019 11:31
(name . Marc Chantreux)(address . marc.chantreux@renater.fr)(address . bug-guix@gnu.org)
20190808093151.GB5507@E2140
Attachment: file
-----BEGIN PGP SIGNATURE-----

iQIyBAABCgAdFiEEoov0DD5VE3JmLRT3Qarn3Mo9g1EFAl1L6/8ACgkQQarn3Mo9
g1ELkA/3cGAdcObCZmoJVa64I672vQ+HE+PhvVNSeZyFQGs6tTW68YUDsrRcO16u
H8knL98nWKLzjddaFJkUejzCtZ2//ZxDSHVGci7O+GKf2YCy39SmeVVGM0JNVtTB
Q+RtXrnCP3baWu4Q+xJN++u0bTQGSRl3Gam1M8r8+rT3LvWpQuaEw214GAd0H2yy
CBIuWQ0Fwg32aKLndRCBqQIxfa835t9ovvYcQ/nmEiQvsarbW9vVb2s0DyNU0xtL
Y4nx5qrSYMxUV4GRGQoA/puFFmxO71rpRDC8Ni1RSUi2o1Poqxl+nve/7O5icAZD
BL/la5RNPfvMpmfuD76Yqg+aDyLWNY5W4DTQTLsv/hYHVDUmUPHS7Nt7kKAuDzWx
jBTFrrmv+3/G9Rihi876pz2RWxQGAqCtBNGRaqlhk3mXe80FH4YQmSiUb2itBS0v
OF1TnRloVk/xDoTguwyx30fqlZSI+GXnvL6iGwPUBQKNZg1kbksrpnhWKq3MQP5n
Qr/q+rsMi4IW5k0q3o4JsNrb2IwtyzaTOPs9OptKGKbuMwXgZQEJPtHHJmcW9MVc
TqSQ9t8GqNAtOLRURTTiNX0EntCoTTiGQf3iRsZ7YifKHlxJZ4WjZ1dpu9ycH0xl
cMQJecf/CkJZvxL+A9+zte9VtiEi5Zz33Re2gyBZx/X3bwaecQ==
=ED8z
-----END PGP SIGNATURE-----


E
E
Efraim Flashner wrote on 8 Aug 2019 11:43
Re: bug#36973: NativeCall doesn't work with rakudo ?
(address . 36973@debbugs.gnu.org)
20190808094315.GC5507@E2140
forgot the two attachments

--
Efraim Flashner <efraim@flashner.co.il> ????? ?????
GPG key = A28B F40C 3E55 1372 662D 14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted
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;
(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
-----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-----


?
Your comment

Commenting via the web interface is currently disabled.

To comment on this conversation send an email to 36973@debbugs.gnu.org

To respond to this issue using the mumi CLI, first switch to it
mumi current 36973
Then, you may apply the latest patchset in this issue (with sign off)
mumi am -- -s
Or, compose a reply to this issue
mumi compose
Or, send patches to this issue
mumi send-email *.patch