p6.p6

use NativeCall;

constant DEMO = './target/debug/embed';

class CCRNG is repr('CPointer') { };


sub chacha_handle() returns CCRNG is native(DEMO) { * }
sub chacha_free(CCRNG) is native(DEMO) { * }
sub chacha_fill(CCRNG, CArray[uint8] is rw) is native(DEMO) { * }

my $buf = CArray[uint8].new;
$buf[7] = 0;
# say $buf;

my $ptr = chacha_handle();
chacha_fill($ptr, $buf);
say $buf[0..7];
chacha_free($ptr);