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-----


?