raydiak

#!/usr/bin/env perl6

class Matrix4x4 is Array {
    method at_pos ($i) is rw {
        self.Array::[$_, $_+1, $_+2, $_+3] given $i * 4
    }

    method perl () {
        self.defined ??
            $?CLASS.perl ~ '.new(' ~ "\n" ~

raydiak

#!/usr/bin/env perl6

my $file = open 'MIRRORED.BY';

my %data;
my $key;

for $file.lines {
    when /^ \s* '#'/ {
        next

raydiak

#!/usr/bin/env perl6

use v6;

grammar Problem {
	token TOP { <expression> }

	rule expression { <operation> | <value> }
	rule operation {<expression> <operator> <expression>}
	token operator { \+ | \- | \* | \/ }

raydiak

> ./alg.p6 'y=m*x+b' x
relation: =
    symbol: y
    operation: add
        operation: multiply
            symbol: m
            symbol: x
        symbol: b
relation: =
    symbol: x

raydiak

#!/usr/bin/env perl6

use v6;

class Point {
        has num $.x;
        has num $.y;
        method new(num $x, num $y ) {
                self.bless: :$x, :$y;
        }

raydiak

==> Fetching JSON::Tiny
==> Building JSON::Tiny
Compiling lib/JSON/Tiny/Actions.pm to jar
Compiling lib/JSON/Tiny/Grammar.pm to jar
java.lang.IllegalThreadStateException: process hasn't exited
  in method close at gen/jvm/CORE.setting:15560
  in block  at /home/raydiak/.rakudobrew/jvm-HEAD/panda/lib/Panda/Builder.pm:136
  in sub withp6lib at /home/raydiak/.rakudobrew/jvm-HEAD/panda/lib/Panda/Common.pm:29
  in method build at /home/raydiak/.rakudobrew/jvm-HEAD/panda/lib/Panda/Builder.pm:114
  in method install at /home/raydiak/.rakudobrew/jvm-HEAD/panda/lib/Panda.pm:118

raydiak

print failing lines only:

cat zmq.h | perl6 -Ilib -MC::Parser -ne '.say unless C::Parser::StdC11Parser.parse($_)'



preprocessed and hand-formatted zmq.h, 1 statement per line for easy testing:

extern int *__errno_location (void) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__const__));
typedef long int ptrdiff_t;

raydiak

// parse fails
typedef __off64_t __loff_t;
typedef __quad_t *__qaddr_t;
struct _IO_FILE;
typedef struct { __off_t __pos; __mbstate_t __state; } _G_fpos_t;
typedef struct { __off64_t __pos; __mbstate_t __state; } _G_fpos64_t;
struct _IO_jump_t;
struct _IO_FILE;
struct _IO_FILE_plus;
typedef __ssize_t __io_read_fn (void *__cookie, char *__buf, size_t __nbytes);

raydiak

#!/usr/bin/env perl6

use lib $?FILE.IO.parent.child('lib');

use C::Parser::Grammar;

class CFunction {
    has $.name;
    has $.return = Any;
    has @.args = ();

raydiak

module ZMQ;

use NativeCall;

sub zmq_version (OpaquePointer, OpaquePointer, OpaquePointer) is native('zmq') {*};
sub zmq_errno () returns int is native('zmq') {*};
sub zmq_strerror (int) returns Str is native('zmq') {*};
sub zmq_ctx_new () returns OpaquePointer is native('zmq') {*};
sub zmq_ctx_term (OpaquePointer) returns int is native('zmq') {*};
sub zmq_ctx_shutdown (OpaquePointer) returns int is native('zmq') {*};