raydiak

Method 'jast' not found for invocant of class 'NQPMu'
  in  (gen/jvm/stage2/QAST.nqp:3790)
  in compile_all_the_stmts (gen/jvm/stage2/QAST.nqp:3772)
  in  (gen/jvm/stage2/QAST.nqp:3372)
  in  (gen/jvm/stage2/QAST.nqp:3369)
  in as_jast (gen/jvm/stage2/QAST.nqp:3315)
  in as_jast (gen/jvm/stage2/QAST.nqp:2990)
  in as_jast (gen/jvm/stage2/QAST.nqp:3044)
  in as_jast (gen/jvm/stage2/QAST.nqp:2990)
  in jast (gen/jvm/stage2/QAST.nqp:2856)

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

my %circ = (
    '(' => ')',
    '[' => ']'
);
token circumfix_operation { (<circumfix_open>) <expression> (<circumfix_close>) <?{ %circ{$0} eq $1 }> }
token circumfix_open { @(%circ.keys) }
token circumfix_close { @(%circ.values) }

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