Parse EBNF: Difference between revisions

</pre>

=={{header|Perl 6}}==

 

This parses the EBNF rule set using a perl 6 grammar, then if it parses as valid EBNF, constructs a grammar and parses the test strings with that. EBNF rule sets that are naively syntactically correct but missing rules will parse as valid but will give a runtime failure warning about missing methods.

$fh.say( q|say "\nValid syntax.\n\nTesting:\n";| );

$fh.say( q|CATCH { default { say " - $_" } };| );

for $test<teststrings>.flat -> $s {

$fh.say( qq|printf "%{$len}s", '{$s}';| ~