Untitled
1234567891011121314151617181920
grammar G {
token TOP { <sentRefEnd> }
token word { \w+ }
token sentence { <word>+ % <.ws> <endPunc> }
token sentRefEnd { <sentence>+ <ref> }
# token sentRefEnd { <char>+? <endPunc> <ref> }
token endPunc { \. }
token ref { \(\d+\) }
}
class GActions {
method sentRefEnd($/) {
say $/.Str;
}
}
my $book = "Hello how are you.(1)";
my $match = G.parse($book, :actions(GActions.new()));
say $match;
Raku
INFO