In perl.git, the branch khw/ebcdic has been updated <http://perl5.git.perl.org/perl.git/commitdiff/0c2dd03919d947ed6a5cff9676c3c55913432789?hp=a681bb247c1424dbf643cd40ac04b3d17bbca2e7>
- Log ----------------------------------------------------------------- commit 0c2dd03919d947ed6a5cff9676c3c55913432789 Author: Karl Williamson <[email protected]> Date: Fri Mar 15 12:37:13 2013 -0600 XXX: regen/regcharclass.pl: Temp for testing ----------------------------------------------------------------------- Summary of changes: regen/regcharclass.pl | 29 ----------------------------- 1 files changed, 0 insertions(+), 29 deletions(-) diff --git a/regen/regcharclass.pl b/regen/regcharclass.pl index aafee3a..ab0ec15 100755 --- a/regen/regcharclass.pl +++ b/regen/regcharclass.pl @@ -1479,39 +1479,10 @@ GCB_V: Grapheme_Cluster_Break=V => UTF8 :fast \p{_X_GCB_V} -# This program was run with this enabled, and the results copied to utf8.h; -# then this was commented out because it takes so long to figure out these 2 -# million code points. The results would not change unless utf8.h decides it -# wants a maximum other than 4 bytes, or this program creates better -# optimizations -#UTF8_CHAR: Matches utf8 from 1 to 4 bytes -#=> UTF8 :safe only_ascii_platform -#0x0 - 0x1FFFFF - -# This hasn't been commented out, because we haven't an EBCDIC platform to run -# it on, and the 3 types of EBCDIC allegedly supported by Perl would have -# different results -UTF8_CHAR: Matches utf8 from 1 to 5 bytes -=> UTF8 :safe only_ebcdic_platform -0x0 - 0x3FFFFF: - QUOTEMETA: Meta-characters that \Q should quote => high :fast \p{_Perl_Quotemeta} -MULTI_CHAR_FOLD: multi-char strings that are folded to by a single character -=> UTF8 :safe -do regen/regcharclass_multi_char_folds.pl - -# 1 => All folds -®charclass_multi_char_folds::multi_char_folds(1) - -MULTI_CHAR_FOLD: multi-char strings that are folded to by a single character -=> LATIN1 :safe - -®charclass_multi_char_folds::multi_char_folds(0) -# 0 => Latin1-only - PATWS: pattern white space => generic generic_non_low cp : fast safe \p{PatWS} -- Perl5 Master Repository
