Untitled
123456789101112131415161718192021222324252627282930313233343536373839404142434445
#!/usr/bin/env raku
my %VARS;
my %FNS = '+' => { $^a + $^b },
'-' => { $^a - $^b },
'*' => { $^a * $^b },
'/' => { $^a / $^b };
grammar Simple {
rule TOP { <comment> | <code> | <statement>* %% \n }
token statement { \s* [ <comment> | <loop> | <assignement> ] }
token comment { '#' \N* }
token loop { 'for' \s+ $<cond>=<code> \n+ $<body> = <statement>* \n* \s* 'end'
{ my $cond = $<cond>;
my @statements = $<statement>;
while eval($cond) {
eval($_) for @statements;
}
}
}
token assignement { $<identifier> = \w+ \s* '=' \s* <code> {%VARS{$<identifier>} = $<code>.made} }
token call { $<args> = (\w+ %% \s+) $<fn> = \S+ {say "[call] $<fn> ($<args>)"} }
token code { $<value> = [\d+|'"' <(<-["]>*)> '"'] {make $<value>} | $<identifier> = \w+ {make %VARS{$<identifier>} } }
}
sub eval($code) {
say "[code] $code";
Simple.parse($code)<code>.made;
}
my $code = Simple.parse: q:to/LANG/;
for z
end
a = 2
# foo
b = 3
for z
end
str = "foobar"
n = 5
y = n
z = 0
LANG
say $code;
say %VARS;
Raku
INFO