+ my @flags = ();
+ if($data{$c}->{ypogegrammeni}) {
+ push(@flags, "unicode_normalize_before_casefold");
+ }
+ # Currently we only store the Extend class, using a bit that would
+ # otherwise be wasted. The other classes are readily computable.
+ # If there is a conveninet way to compute Extend at runtime I have
+ # yet to discover it.
+ if(exists $data{$c}->{gbreak} and $data{$c}->{gbreak} eq 'Extend') {
+ push(@flags, "unicode_grapheme_break_extend");
+ }
+ my $flags = @flags ? join("|", @flags) : 0;