Compiler/lexical analyzer: Difference between revisions

Content deleted Content added
Thundergnat (talk | contribs)
m Add missing brace to demo fragment
Thundergnat (talk | contribs)
→‎{{header|Perl 6}}: avoid unnecessary reparsing
Line 1,582:
@pos.push: [ $l, 1 ]; # capture eoi
 
$/for =flat tiny_C$c_code<tokens>.parse(list, $c_code<eoi> -> $m ){
or warn "Cannot parse";
 
for flat $/<tokens>.list, $/<eoi> -> $m {
say join "\t", @pos[$m.from].fmt('%3d'), $m.ast; ;
}