p6.p6

use NQPHLL;

grammar Rubyish::Grammar is HLL::Grammar {
    token TOP          { <statementlist> }

    rule statementlist { [ <statement> \n+ ]* }

    proto token statement {*}
    token statement:sym<puts> {
        <sym> <.ws> <?["]> <quote_EXPR: ':q'>
    }

    # Whitespace required between alphanumeric tokens
    token ws { <!ww> \h* || \h+ }
}

class Rubyish::Actions is HLL::Actions {
    method TOP($/) {
        make QAST::Block.new( QAST::Var.new(:decl('param'), :name('ARGS'), :scope('local'), :slurpy(1)), $<statementlist>.ast );
    }

    method statementlist($/) {
        my $stmts := QAST::Stmts.new( :node($/) );
        for $<statement> {
            $stmts.push($_.ast)
        }
        make $stmts;
    }

    method statement:sym<puts>($/) {
        make QAST::Op.new(
            :op('say'),
            $<quote_EXPR>.ast
        );
    }
}

class Rubyish::Compiler is HLL::Compiler {
}

sub MAIN(*@ARGS) {
    my $comp := Rubyish::Compiler.new();
    $comp.language('rubyish');
    $comp.parsegrammar(Rubyish::Grammar);
    $comp.parseactions(Rubyish::Actions);
    $comp.command_line(@ARGS, :encoding('utf8'));
}