You don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
7 358ƿ f 7You don't have permission to access this resource.
Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request.
9 ˿ 9cfb13e069a525e315445db89af0c336c2f0c96c353a2e2b75dc2cbce8407ab8e93a2879ec887839a6f6ae520139654cc8e352c4ee29c85e57ae8063cfe58a173 ; 355ƿ c ;The requested URL was not found on this server.
Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.
$ =lY> a,j AS : ? =package Unicode::Normalize; BEGIN { unless ('A' eq pack('U', 0x41)) { die "Unicode::Normalize cannot stringify a Unicode code point\n"; } unless (0x41 == unpack('U', 'A')) { die "Unicode::Normalize cannot get Unicode code point\n"; } } use 5.006; use strict; use warnings; use Carp; no warnings 'utf8'; our $VERSION = '1.27'; our $PACKAGE = __PACKAGE__; our @EXPORT = qw( NFC NFD NFKC NFKD ); our @EXPORT_OK = qw( normalize decompose reorder compose checkNFD checkNFKD checkNFC checkNFKC check getCanon getCompat getComposite getCombinClass isExclusion isSingleton isNonStDecomp isComp2nd isComp_Ex isNFD_NO isNFC_NO isNFC_MAYBE isNFKD_NO isNFKC_NO isNFKC_MAYBE FCD checkFCD FCC checkFCC composeContiguous splitOnLastStarter normalize_partial NFC_partial NFD_partial NFKC_partial NFKD_partial ); our %EXPORT_TAGS = ( all => [ @EXPORT, @EXPORT_OK ], normalize => [ @EXPORT, qw/normalize decompose reorder compose/ ], check => [ qw/checkNFD checkNFKD checkNFC checkNFKC check/ ], fast => [ qw/FCD checkFCD FCC checkFCC composeContiguous/ ], ); ## ## utilities for tests ## sub pack_U { return pack('U*', @_); } sub unpack_U { # The empty pack returns an empty UTF-8 string, so the effect is to force # the shifted parameter into being UTF-8. This allows this to work on # Perl 5.6, where there is no utf8::upgrade(). return unpack('U*', shift(@_).pack('U*')); } require Exporter; ##### The above part is common to XS and PP ##### our @ISA = qw(Exporter); use XSLoader (); XSLoader::load( 'Unicode::Normalize', $VERSION ); ##### The below part is common to XS and PP ##### ## ## normalize ## sub FCD ($) { my $str = shift; return checkFCD($str) ? $str : NFD($str); } our %formNorm = ( NFC => \&NFC, C => \&NFC, NFD => \&NFD, D => \&NFD, NFKC => \&NFKC, KC => \&NFKC, NFKD => \&NFKD, KD => \&NFKD, FCD => \&FCD, FCC => \&FCC, ); sub normalize($$) { my $form = shift; my $str = shift; if (exists $formNorm{$form}) { return $formNorm{$form}->($str); } croak($PACKAGE."::normalize: invalid form name: $form"); } ## ## partial ## sub normalize_partial ($$) { if (exists $formNorm{$_[0]}) { my $n = normalize($_[0], $_[1]); my($p, $u) = splitOnLastStarter($n); $_[1] = $u; return $p; } croak($PACKAGE."::normalize_partial: invalid form name: $_[0]"); } sub NFD_partial ($) { return normalize_partial('NFD', $_[0]) } sub NFC_partial ($) { return normalize_partial('NFC', $_[0]) } sub NFKD_partial($) { return normalize_partial('NFKD',$_[0]) } sub NFKC_partial($) { return normalize_partial('NFKC',$_[0]) } ## ## check ## our %formCheck = ( NFC