retupmoca

==> Bootstrapping Panda
==> Fetching File::Find
==> Building File::Find
Compiling lib/File/Find.pm to pir
==> Testing File::Find
t/01-file-find.t .. ok     
All tests successful.
Files=1, Tests=10, 12 wallclock secs ( 0.03 usr  0.01 sys + 10.22 cusr  0.64 csys = 10.90 CPU)
Result: PASS
==> Installing File::Find

retupmoca

use v6;

#`[
This is an ugly hack to make sure the dependencies are precompiled first
use MIME::Base64::PIR;
use MIME::Base64::Perl;
(some of our tools do a text-based search for 'use' lines,
and don't know about multi-line comments)
]

retupmoca

/* GNU ld script
   Since Gentoo has critical dynamic libraries in /lib, and the static versions
   in /usr/lib, we need to have a "fake" dynamic lib in /usr/lib, otherwise we
   run into linking problems.  This "fake" dynamic lib is a linker script that
   redirects the linker to the real lib.  And yes, this works in the cross-
   compiling scenario as the sysroot-ed linker will prepend the real path.

   See bug http://bugs.gentoo.org/4411 for more info.
 */
OUTPUT_FORMAT ( elf64-x86-64 )

retupmoca

> perl6-m -MNativeCall -e 'my $x=CArray[int].new;say $x[8] = 123;say $x[8] = 123;'
0
123
Segmentation fault

retupmoca

module foo;
use NativeCall;
sub zlibVersion() returns Str is encoded("ascii") is native("libz.so.1") is export { * };

retupmoca

module foo;
use NativeCall;

my CArray[int8] $x;

retupmoca

This is perl6 version 2014.03.01-50-gb777559 built on MoarVM version 2014.03-58-g7acb6c1

1..47
# [0s] starting tests
# [0s] Testing on port 1024
ok 1 - [2s] echo server and client
ok 2 - finished in time #1
ok 3 - [2s] discard server and client
ok 4 - finished in time #2
ok 5 - [45s] received first 7 characters

retupmoca

module bar;

use foo;

my Str @more-stuff;

retupmoca

HTTP/1.1 200 OK
Transfer-Encoding: chunked
Content-Type: text/plain

7af
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

retupmoca

use v6;
use NativeCall;
class foo is repr('CStruct'); # works fine without the repr('CStruct')

has CArray $!foo;

method set-foo(CArray $arr) {
    $!foo := $arr;
}