diff options
author | Karl Williamson <khw@cpan.org> | 2022-03-17 17:17:53 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-03-19 23:17:51 -0600 |
commit | 3e9e4fd83c55cfce5dc933d71f51d46e3c25be61 (patch) | |
tree | e99264268a4315936955a78bc9a5f3f3b6d05fe1 /regen/unicode_constants.pl | |
parent | 4a4b745599392d7fdd61168bdcdc9e61b6c40a25 (diff) | |
download | perl-3e9e4fd83c55cfce5dc933d71f51d46e3c25be61.tar.gz |
Add musical score paired delimiters
The characters that signify the beginning and ending of Western music
scores serve as good delimiters
Diffstat (limited to 'regen/unicode_constants.pl')
-rw-r--r-- | regen/unicode_constants.pl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/regen/unicode_constants.pl b/regen/unicode_constants.pl index 0b809f029d..bcefbd720b 100644 --- a/regen/unicode_constants.pl +++ b/regen/unicode_constants.pl @@ -236,6 +236,14 @@ $L_re = qr/$L_re/; $R_re = qr/$R_re/; $directional_re = qr/($directional_re)/; # Make sure to capture $1 +my @included_symbols = ( + 0x269E .. 0x269F, # THREE LINES CONVERGING + 0x1D102 .. 0x1D103, # MUSIC STAVES + 0x1D106 .. 0x1D107, # MUSIC STAVES + ); +my %included_symbols; +$included_symbols{$_} = 1 for @included_symbols; + sub format_pairs_line($;$) { my ($from, $to) = @_; @@ -634,6 +642,7 @@ foreach my $list (qw(Punctuation Symbol)) { # Only a few symbols are currently used, determined by inspection, but # all the (few) remaining paired punctuations. if ( ! $is_Symbol + || defined $included_symbols{$code_point} || ( $chr =~ /\p{BidiMirrored}/ && ( $name =~ $ok_bidi_symbols_re || $mirror =~ $ok_bidi_symbols_re)) |