p6.p6

#!/usr/bin/env nqp

use NQPHLL;

grammar Zygote::Grammar is HLL::Grammar {
    token TOP { <statementlist> }
    rule statementlist { [ <statement> "\n"+ ]* }

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

    token ws { <!ww> \h* || \h+ }
}

grammar Zygote::Actions is HLL::Actions {
    method TOP($/) {
        make QAST::Block.new(
            QAST::Var.new(:name<@*ARGS>, :scope<local>, :decl<param>),
            $<statementlist>.ast,
        );
    }

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

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

grammar Zygote::Compiler is HLL::Compiler {
}

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