Untitled
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253
use Grammar::Tracer;
use Terminal::ANSIColor;
&colored.wrap(-> $a, $b { $a });
&color.wrap(-> $a { "" });
&BOLD.wrap(-> { "" });
&RESET.wrap(-> { "" });
grammar Fly {
rule TOP {
<line>*
}
token function {
"function"
\s+
<ident>
\s*
<list>
\s*
<block>
}
token block {
"{"
<line>*
"}"
}
token import {
"import"
\s+
<ident>
}
token statement {
[^\s\(\)\{\}\[\]]+
}
token line {
<import> | <function> | <block> | <statement> | [\s|";"]+
}
token list {
"("
[
<statement>
","
]*
<statement>?
")"
}
}
sub MAIN(){
my $input = slurp;
say Fly.parse($input);#, :actions(Fly::Actions));
}
Raku
INFO